1 63a68686 2008-11-03 jas /****************************************************************
2 63a68686 2008-11-03 jas Copyright (C) Lucent Technologies 1997
3 63a68686 2008-11-03 jas All Rights Reserved
5 63a68686 2008-11-03 jas Permission to use, copy, modify, and distribute this software and
6 63a68686 2008-11-03 jas its documentation for any purpose and without fee is hereby
7 63a68686 2008-11-03 jas granted, provided that the above copyright notice appear in all
8 63a68686 2008-11-03 jas copies and that both that the copyright notice and this
9 63a68686 2008-11-03 jas permission notice and warranty disclaimer appear in supporting
10 63a68686 2008-11-03 jas documentation, and that the name Lucent Technologies or any of
11 63a68686 2008-11-03 jas its entities not be used in advertising or publicity pertaining
12 63a68686 2008-11-03 jas to distribution of the software without specific, written prior
15 63a68686 2008-11-03 jas LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
16 63a68686 2008-11-03 jas INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
17 63a68686 2008-11-03 jas IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
18 63a68686 2008-11-03 jas SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
19 63a68686 2008-11-03 jas WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
20 63a68686 2008-11-03 jas IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
21 63a68686 2008-11-03 jas ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
22 63a68686 2008-11-03 jas THIS SOFTWARE.
23 63a68686 2008-11-03 jas ****************************************************************/
26 63a68686 2008-11-03 jas * this program makes the table to link function names
27 63a68686 2008-11-03 jas * and type indices that is used by execute() in run.c.
28 63a68686 2008-11-03 jas * it finds the indices in y.tab.h, produced by yacc.
31 63a68686 2008-11-03 jas #include <stdio.h>
32 63a68686 2008-11-03 jas #include <string.h>
33 63a68686 2008-11-03 jas #include <stdlib.h>
34 63a68686 2008-11-03 jas #include "awk.h"
35 63a68686 2008-11-03 jas #include "y.tab.h"
42 63a68686 2008-11-03 jas { PROGRAM, "program", NULL },
43 63a68686 2008-11-03 jas { BOR, "boolop", " || " },
44 63a68686 2008-11-03 jas { AND, "boolop", " && " },
45 63a68686 2008-11-03 jas { NOT, "boolop", " !" },
46 63a68686 2008-11-03 jas { NE, "relop", " != " },
47 63a68686 2008-11-03 jas { EQ, "relop", " == " },
48 63a68686 2008-11-03 jas { LE, "relop", " <= " },
49 63a68686 2008-11-03 jas { LT, "relop", " < " },
50 63a68686 2008-11-03 jas { GE, "relop", " >= " },
51 63a68686 2008-11-03 jas { GT, "relop", " > " },
52 63a68686 2008-11-03 jas { ARRAY, "array", NULL },
53 63a68686 2008-11-03 jas { INDIRECT, "indirect", "$(" },
54 63a68686 2008-11-03 jas { SUBSTR, "substr", "substr" },
55 63a68686 2008-11-03 jas { SUB, "sub", "sub" },
56 63a68686 2008-11-03 jas { GSUB, "gsub", "gsub" },
57 63a68686 2008-11-03 jas { INDEX, "sindex", "sindex" },
58 63a68686 2008-11-03 jas { SPRINTF, "awksprintf", "sprintf " },
59 63a68686 2008-11-03 jas { ADD, "arith", " + " },
60 63a68686 2008-11-03 jas { MINUS, "arith", " - " },
61 63a68686 2008-11-03 jas { MULT, "arith", " * " },
62 63a68686 2008-11-03 jas { DIVIDE, "arith", " / " },
63 63a68686 2008-11-03 jas { MOD, "arith", " % " },
64 63a68686 2008-11-03 jas { UMINUS, "arith", " -" },
65 63a68686 2008-11-03 jas { POWER, "arith", " **" },
66 63a68686 2008-11-03 jas { PREINCR, "incrdecr", "++" },
67 63a68686 2008-11-03 jas { POSTINCR, "incrdecr", "++" },
68 63a68686 2008-11-03 jas { PREDECR, "incrdecr", "--" },
69 63a68686 2008-11-03 jas { POSTDECR, "incrdecr", "--" },
70 63a68686 2008-11-03 jas { CAT, "cat", " " },
71 63a68686 2008-11-03 jas { PASTAT, "pastat", NULL },
72 63a68686 2008-11-03 jas { PASTAT2, "dopa2", NULL },
73 63a68686 2008-11-03 jas { MATCH, "matchop", " ~ " },
74 63a68686 2008-11-03 jas { NOTMATCH, "matchop", " !~ " },
75 63a68686 2008-11-03 jas { MATCHFCN, "matchop", "matchop" },
76 63a68686 2008-11-03 jas { INTEST, "intest", "intest" },
77 63a68686 2008-11-03 jas { PRINTF, "awkprintf", "printf" },
78 63a68686 2008-11-03 jas { PRINT, "printstat", "print" },
79 63a68686 2008-11-03 jas { CLOSE, "closefile", "closefile" },
80 63a68686 2008-11-03 jas { DELETE, "awkdelete", "awkdelete" },
81 63a68686 2008-11-03 jas { SPLIT, "split", "split" },
82 63a68686 2008-11-03 jas { ASSIGN, "assign", " = " },
83 63a68686 2008-11-03 jas { ADDEQ, "assign", " += " },
84 63a68686 2008-11-03 jas { SUBEQ, "assign", " -= " },
85 63a68686 2008-11-03 jas { MULTEQ, "assign", " *= " },
86 63a68686 2008-11-03 jas { DIVEQ, "assign", " /= " },
87 63a68686 2008-11-03 jas { MODEQ, "assign", " %= " },
88 63a68686 2008-11-03 jas { POWEQ, "assign", " ^= " },
89 63a68686 2008-11-03 jas { CONDEXPR, "condexpr", " ?: " },
90 63a68686 2008-11-03 jas { IF, "ifstat", "if(" },
91 63a68686 2008-11-03 jas { WHILE, "whilestat", "while(" },
92 63a68686 2008-11-03 jas { FOR, "forstat", "for(" },
93 63a68686 2008-11-03 jas { DO, "dostat", "do" },
94 63a68686 2008-11-03 jas { IN, "instat", "instat" },
95 63a68686 2008-11-03 jas { NEXT, "jump", "next" },
96 63a68686 2008-11-03 jas { NEXTFILE, "jump", "nextfile" },
97 63a68686 2008-11-03 jas { EXIT, "jump", "exit" },
98 63a68686 2008-11-03 jas { BREAK, "jump", "break" },
99 63a68686 2008-11-03 jas { CONTINUE, "jump", "continue" },
100 63a68686 2008-11-03 jas { RETURN, "jump", "ret" },
101 63a68686 2008-11-03 jas { BLTIN, "bltin", "bltin" },
102 63a68686 2008-11-03 jas { CALL, "call", "call" },
103 63a68686 2008-11-03 jas { ARG, "arg", "arg" },
104 63a68686 2008-11-03 jas { VARNF, "getnf", "NF" },
105 63a68686 2008-11-03 jas { GETLINE, "getline", "getline" },
106 63a68686 2008-11-03 jas { 0, "", "" },
109 63a68686 2008-11-03 jas #define SIZE (LASTTOKEN - FIRSTTOKEN + 1)
110 63a68686 2008-11-03 jas char *table[SIZE];
111 63a68686 2008-11-03 jas char *names[SIZE];
113 63a68686 2008-11-03 jas int main(int argc, char *argv[])
115 63a68686 2008-11-03 jas struct xx *p;
116 63a68686 2008-11-03 jas int i, n, tok;
119 63a68686 2008-11-03 jas char buf[200], name[200], def[200];
121 63a68686 2008-11-03 jas printf("#include <stdio.h>\n");
122 63a68686 2008-11-03 jas printf("#include \"awk.h\"\n");
123 63a68686 2008-11-03 jas printf("#include \"y.tab.h\"\n\n");
124 63a68686 2008-11-03 jas for (i = SIZE; --i >= 0; )
125 63a68686 2008-11-03 jas names[i] = "";
127 63a68686 2008-11-03 jas if ((fp = fopen("y.tab.h", "r")) == NULL) {
128 63a68686 2008-11-03 jas fprintf(stderr, "maketab can't open y.tab.h!\n");
131 63a68686 2008-11-03 jas printf("static char *printname[%d] = {\n", SIZE);
133 63a68686 2008-11-03 jas while (fgets(buf, sizeof buf, fp) != NULL) {
134 63a68686 2008-11-03 jas n = sscanf(buf, "%1c %s %s %d", &c, def, name, &tok);
135 63a68686 2008-11-03 jas if (c != '#' || (n != 4 && strcmp(def,"define") != 0)) /* not a valid #define */
137 63a68686 2008-11-03 jas if (tok < FIRSTTOKEN || tok > LASTTOKEN) {
138 63a68686 2008-11-03 jas fprintf(stderr, "maketab funny token %d %s\n", tok, buf);
141 63a68686 2008-11-03 jas names[tok-FIRSTTOKEN] = (char *) malloc(strlen(name)+1);
142 63a68686 2008-11-03 jas strcpy(names[tok-FIRSTTOKEN], name);
143 63a68686 2008-11-03 jas printf("\t(char *) \"%s\",\t/* %d */\n", name, tok);
146 63a68686 2008-11-03 jas printf("};\n\n");
148 63a68686 2008-11-03 jas for (p=proc; p->token!=0; p++)
149 63a68686 2008-11-03 jas table[p->token-FIRSTTOKEN] = p->name;
150 63a68686 2008-11-03 jas printf("\nCell *(*proctab[%d])(Node **, int) = {\n", SIZE);
151 63a68686 2008-11-03 jas for (i=0; i<SIZE; i++)
152 63a68686 2008-11-03 jas if (table[i]==0)
153 63a68686 2008-11-03 jas printf("\tnullproc,\t/* %s */\n", names[i]);
155 63a68686 2008-11-03 jas printf("\t%s,\t/* %s */\n", table[i], names[i]);
156 63a68686 2008-11-03 jas printf("};\n\n");
158 63a68686 2008-11-03 jas printf("char *tokname(int n)\n"); /* print a tokname() function */
159 63a68686 2008-11-03 jas printf("{\n");
160 63a68686 2008-11-03 jas printf(" static char buf[100];\n\n");
161 63a68686 2008-11-03 jas printf(" if (n < FIRSTTOKEN || n > LASTTOKEN) {\n");
162 63a68686 2008-11-03 jas printf(" sprintf(buf, \"token %%d\", n);\n");
163 63a68686 2008-11-03 jas printf(" return buf;\n");
164 63a68686 2008-11-03 jas printf(" }\n");
165 63a68686 2008-11-03 jas printf(" return printname[n-FIRSTTOKEN];\n");
166 63a68686 2008-11-03 jas printf("}\n");
