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