Return to keywords.c CVS log

Up to [Research Unix] / researchv10no / cmd / lcc / etc

Annotation of researchv10no/cmd/lcc/etc/keywords.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <ctype.h>
                      3: 
                      4: char *keyword[] = {
                      5:        "auto", "break", "case", "*char", "const", "continue",
                      6:        "default", "*double", "do", "else", "enum", "extern", "*float", "for",
                      7:        "goto", "if", "*int", "*long", "register", "return", "*short",
                      8:        "signed", "sizeof", "static", "struct", "switch", "typedef", "union",
                      9:        "unsigned", "*void", "volatile", "while"
                     10: };
                     11: 
                     12: main() {
                     13:        char *k, *lastk = 0;
                     14:        int i;
                     15: 
                     16:        for (i = 0; i < sizeof keyword/sizeof keyword[0]; i++) {
                     17:                k = keyword[i];
                     18:                if (*k == '*')
                     19:                        k++;
                     20:                if (lastk && *lastk != *k)
                     21:                        printf("\tgoto id;\n");
                     22:                if (lastk == 0 || *lastk != *k)
                     23:                        printf("case '%c':\n", *k);
                     24:                lastk = k;
                     25:                printf("\tif (rcp[0] == '%c'\n", *++k);
                     26:                while (*++k && *k != '*')
                     27:                        printf("\t&&  rcp[%d] == '%c'\n", k - lastk - 1, *k);
                     28:                printf("\t&& !(map[rcp[%d]]&(DIGIT|LETTER))) {\n", k - lastk - 1);
                     29:                printf("\t\tcp = rcp + %d;\n", k - lastk - 1);
                     30:                if (*keyword[i] == '*')
                     31:                        printf("\t\ttsym = %stype->u.sym;\n", lastk);
                     32:                printf("\t\treturn ");
                     33:                for (k = lastk; *k; k++)
                     34:                        putchar(toupper(*k));
                     35:                printf(";\n");
                     36:                printf("\t}\n");
                     37:        }
                     38:        for (k = "hjkmnopqxyzABCDEFGHIJKMNOPQRSTUVWXYZ_"; *k; k++)
                     39:                printf("case '%c':\n", *k);
                     40:        return 0;
                     41: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.