ptypes2tcl.cc

Go to the documentation of this file.

#include <stdio.h>
#include <ctype.h>
#include "packet.h"

// The following copied from ~tclcl/tcl2c++.c
/*
 * Define TCL2C_INT if your compiler has problems with long strings.
 */
#if defined(WIN32) || defined(_WIN32) || defined(__alpha__) || defined(__hpux)
#define TCL2C_INT
#endif

char* p_info::name_[PT_NTYPE+1];

void
printLine(char *s) {
#ifdef TCL2C_INT
        for (unsigned int i = 0; i < strlen(s); i++) 
                if ((i > 0) && ((i % 20) == 0))
                        printf("%u,\n", s[i]);
                else
                        printf("%u,", s[i]);
        printf("%u,%u,\n", '\\', '\n');
#else
        printf("%s\\n\\\n", s);
#endif
}

char *
lcase(const char *s) {
        static char charbuf[512];
        char* to = charbuf;
        while ((*to++ = tolower(*s++)))
                /* NOTHING */;
        *to = '\0';
        return charbuf;
}

int main() {
        p_info pinfo;

#ifdef TCL2C_INT
        printf("static const char code[] = {\n");
#else
        printLine("static const char code[] = \"");
#endif
        printLine("global ptype pvals");
        printLine("set ptype(error) -1");
        printLine("set pvals(-1) error");
        char strbuf[512];
        for (int i = 0; i < PT_NTYPE; i++) {
                sprintf(strbuf, "set ptype(%s) %d", lcase(pinfo.name(packet_t(i))), i);
                printLine(strbuf);
                sprintf(strbuf, "set pvals(%d) %s", i, pinfo.name(packet_t(i)));
                printLine(strbuf);
        }
        printLine("proc ptype2val {str} {");
        printLine("global ptype");
        printLine("set str [string tolower $str]");
        printLine("if ![info exists ptype($str)] {");
        printLine("set str error");
        printLine("}");
        printLine("set ptype($str)");
        printLine("}");
        printLine("proc pval2type {val} {");
        printLine("global pvals");
        printLine("if ![info exists pvals($val)] {");
        printLine("set val -1");
        printLine("}");
        printLine("set pvals($val)");
        printLine("}");
#ifdef TCL2C_INT
        printf("0 };\n");
#else
        printf("\";\n");
#endif
        printf("#include \"config.h\"\n");
        printf("EmbeddedTcl et_ns_ptypes(code);\n");
        return 0;
}

---