Return to proc.c CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / awk

Annotation of 41BSD/cmd/awk/proc.c, revision 1.1.1.1

1.1       root        1: #include "awk.h"
                      2: #define NULL 0
                      3: struct xx
                      4: {      int token;
                      5:        char *name;
                      6:        char *pname;
                      7: } proc[] = {
                      8:        { PROGRAM, "program", NULL},
                      9:        { BOR, "boolop", " || "},
                     10:        { AND, "boolop", " && "},
                     11:        { NOT, "boolop", " !"},
                     12:        { NE, "relop", " != "},
                     13:        { EQ, "relop", " == "},
                     14:        { LE, "relop", " <= "},
                     15:        { LT, "relop", " < "},
                     16:        { GE, "relop", " >= "},
                     17:        { GT, "relop", " > "},
                     18:        { ARRAY, "array", NULL},
                     19:        { INDIRECT, "indirect", "$("},
                     20:        { SUBSTR, "substr", "substr"},
                     21:        { INDEX, "sindex", "sindex"},
                     22:        { SPRINTF, "asprintf", "sprintf "},
                     23:        { ADD, "arith", " + "},
                     24:        { MINUS, "arith", " - "},
                     25:        { MULT, "arith", " * "},
                     26:        { DIVIDE, "arith", " / "},
                     27:        { MOD, "arith", " % "},
                     28:        { UMINUS, "arith", " -"},
                     29:        { PREINCR, "incrdecr", "++"},
                     30:        { POSTINCR, "incrdecr", "++"},
                     31:        { PREDECR, "incrdecr", "--"},
                     32:        { POSTDECR, "incrdecr", "--"},
                     33:        { CAT, "cat", " "},
                     34:        { PASTAT, "pastat", NULL},
                     35:        { PASTAT2, "dopa2", NULL},
                     36:        { MATCH, "matchop", " ~ "},
                     37:        { NOTMATCH, "matchop", " !~ "},
                     38:        { PRINTF, "aprintf", "printf"},
                     39:        { PRINT, "print", "print"},
                     40:        { SPLIT, "split", "split"},
                     41:        { ASSIGN, "assign", " = "},
                     42:        { ADDEQ, "assign", " += "},
                     43:        { SUBEQ, "assign", " -= "},
                     44:        { MULTEQ, "assign", " *= "},
                     45:        { DIVEQ, "assign", " /= "},
                     46:        { MODEQ, "assign", " %= "},
                     47:        { IF, "ifstat", "if("},
                     48:        { WHILE, "whilestat", "while("},
                     49:        { FOR, "forstat", "for("},
                     50:        { IN, "instat", "instat"},
                     51:        { NEXT, "jump", "next"},
                     52:        { EXIT, "jump", "exit"},
                     53:        { BREAK, "jump", "break"},
                     54:        { CONTINUE, "jump", "continue"},
                     55:        { FNCN, "fncn", "fncn"},
                     56:        { GETLINE, "getline", "getline"},
                     57:        { 0, ""},
                     58: };
                     59: #define SIZE   LASTTOKEN - FIRSTTOKEN
                     60: char *table[SIZE];
                     61: char *names[SIZE];
                     62: main()
                     63: {      struct xx *p;
                     64:        int i;
                     65:        printf("#include \"awk.def\"\n");
                     66:        printf("obj nullproc();\n");
                     67:        for(p=proc;p->token!=0;p++)
                     68:                if(p==proc || strcmp(p->name, (p-1)->name))
                     69:                        printf("extern obj %s();\n",p->name);
                     70:        for(p=proc;p->token!=0;p++)
                     71:                table[p->token-FIRSTTOKEN]=p->name;
                     72:        printf("obj (*proctab[%d])() = {\n", SIZE);
                     73:        for(i=0;i<SIZE;i++)
                     74:                if(table[i]==0) printf("/*%s*/\tnullproc,\n",tokname(i+FIRSTTOKEN));
                     75:                else printf("/*%s*/\t%s,\n",tokname(i+FIRSTTOKEN),table[i]);
                     76:        printf("};\n");
                     77:        printf("char *printname[%d] = {\n", SIZE);
                     78:        for(p=proc; p->token!=0; p++)
                     79:                names[p->token-FIRSTTOKEN] = p->pname;
                     80:        for(i=0; i<SIZE; i++)
                     81:                printf("/*%s*/\t\"%s\",\n",tokname(i+FIRSTTOKEN),names[i]);
                     82:        printf("};\n");
                     83:        exit(0);
                     84: }

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