1 /*
2 * Copyright (C) Lucent Technologies 1997
3 * All Rights Reserved
4 *
5 * Permission to use, copy, modify, and distribute this software and
6 * its documentation for any purpose and without fee is hereby
7 * granted, provided that the above copyright notice appear in all
8 * copies and that both that the copyright notice and this
9 * permission notice and warranty disclaimer appear in supporting
10 * documentation, and that the name Lucent Technologies or any of
11 * its entities not be used in advertising or publicity pertaining
12 * to distribution of the software without specific, written prior
13 * permission.
14 *
15 * LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
16 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
17 * IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
18 * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
19 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
20 * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
21 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
22 * THIS SOFTWARE.
23 */
24
25 /*
26 * CDDL HEADER START
27 *
28 * The contents of this file are subject to the terms of the
29 * Common Development and Distribution License (the "License").
30 * You may not use this file except in compliance with the License.
31 *
32 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
33 * or http://www.opensolaris.org/os/licensing.
34 * See the License for the specific language governing permissions
35 * and limitations under the License.
36 *
37 * When distributing Covered Code, include this CDDL HEADER in each
38 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
39 * If applicable, add the following below this CDDL HEADER, with the
40 * fields enclosed by brackets "[]" replaced with your own identifying
41 * information: Portions Copyright [yyyy] [name of copyright owner]
42 *
43 * CDDL HEADER END
44 */
45
46 /*
47 * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
48 */
49
50 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
51 /* All Rights Reserved */
52
53 /*
54 * this program makes the table to link function names
55 * and type indices that is used by execute() in run.c.
56 * it finds the indices in ytab.h, produced by yacc.
57 */
58
59 #include <stdio.h>
60 #include <string.h>
61 #include <stdlib.h>
62 #include <libintl.h>
63 #include "awk.h"
64 #include "y.tab.h"
65
66 struct xx {
67 int token;
68 const char *name;
69 const char *pname;
70 } proc[] = {
71 { PROGRAM, "program", NULL },
72 { BOR, "boolop", " || " },
73 { AND, "boolop", " && " },
74 { NOT, "boolop", " !" },
75 { NE, "relop", " != " },
76 { EQ, "relop", " == " },
77 { LE, "relop", " <= " },
78 { LT, "relop", " < " },
79 { GE, "relop", " >= " },
80 { GT, "relop", " > " },
81 { ARRAY, "array", NULL },
82 { INDIRECT, "indirect", "$(" },
83 { SUBSTR, "substr", "substr" },
84 { SUB, "sub", "sub" },
85 { GSUB, "gsub", "gsub" },
86 { INDEX, "sindex", "sindex" },
87 { SPRINTF, "awksprintf", "sprintf " },
88 { ADD, "arith", " + " },
89 { MINUS, "arith", " - " },
90 { MULT, "arith", " * " },
91 { DIVIDE, "arith", " / " },
92 { MOD, "arith", " % " },
93 { UMINUS, "arith", " -" },
94 { UPLUS, "arith", " +" },
95 { POWER, "arith", " **" },
96 { PREINCR, "incrdecr", "++" },
97 { POSTINCR, "incrdecr", "++" },
98 { PREDECR, "incrdecr", "--" },
99 { POSTDECR, "incrdecr", "--" },
100 { CAT, "cat", " " },
101 { PASTAT, "pastat", NULL },
102 { PASTAT2, "dopa2", NULL },
103 { MATCH, "matchop", " ~ " },
104 { NOTMATCH, "matchop", " !~ " },
105 { MATCHFCN, "matchop", "matchop" },
106 { INTEST, "intest", "intest" },
107 { PRINTF, "awkprintf", "printf" },
108 { PRINT, "printstat", "print" },
109 { CLOSE, "closefile", "closefile" },
110 { DELETE, "awkdelete", "awkdelete" },
111 { SPLIT, "split", "split" },
112 { ASSIGN, "assign", " = " },
113 { ADDEQ, "assign", " += " },
114 { SUBEQ, "assign", " -= " },
115 { MULTEQ, "assign", " *= " },
116 { DIVEQ, "assign", " /= " },
117 { MODEQ, "assign", " %= " },
118 { POWEQ, "assign", " ^= " },
119 { CONDEXPR, "condexpr", " ?: " },
120 { IF, "ifstat", "if(" },
121 { WHILE, "whilestat", "while(" },
122 { FOR, "forstat", "for(" },
123 { DO, "dostat", "do" },
124 { IN, "instat", "instat" },
125 { NEXT, "jump", "next" },
126 { NEXTFILE, "jump", "nextfile" },
127 { EXIT, "jump", "exit" },
128 { BREAK, "jump", "break" },
129 { CONTINUE, "jump", "continue" },
130 { RETURN, "jump", "ret" },
131 { BLTIN, "bltin", "bltin" },
132 { CALL, "call", "call" },
133 { ARG, "arg", "arg" },
134 { VARNF, "getnf", "NF" },
135 { GETLINE, "awkgetline", "getline" },
136 { 0, "", "" },
137 };
138
139 #define SIZE (LASTTOKEN - FIRSTTOKEN + 1)
140 const char *table[SIZE];
141 char *names[SIZE];
142
143 int
main(int argc,char * argv[])144 main(int argc, char *argv[])
145 {
146 const struct xx *p;
147 int i, n, tok;
148 char c;
149 FILE *fp;
150 char buf[200], name[200], def[200];
151
152 printf("#include <stdio.h>\n");
153 printf("#include \"awk.h\"\n");
154 printf("#include \"y.tab.h\"\n\n");
155
156 if ((fp = fopen("y.tab.h", "r")) == NULL) {
157 fprintf(stderr, gettext("maketab can't open y.tab.h!\n"));
158 exit(1);
159 }
160 printf("static char *printname[%d] = {\n", SIZE);
161 i = 0;
162 while (fgets(buf, sizeof (buf), fp) != NULL) {
163 n = sscanf(buf, "%1c %s %s %d", &c, def, name, &tok);
164 if (c != '#' || (n != 4 && strcmp(def, "define") != 0)) {
165 /* not a valid #define */
166 continue;
167 }
168 if (tok < FIRSTTOKEN || tok > LASTTOKEN) {
169 fprintf(stderr, gettext("maketab funny token %d %s\n"),
170 tok, buf);
171 exit(1);
172 }
173 names[tok-FIRSTTOKEN] = (char *)malloc(strlen(name)+1);
174 strcpy(names[tok-FIRSTTOKEN], name);
175 printf("\t(char *) \"%s\",\t/* %d */\n", name, tok);
176 i++;
177 }
178 printf("};\n\n");
179
180 for (p = proc; p->token != 0; p++)
181 table[p->token-FIRSTTOKEN] = p->name;
182 printf("\nCell *(*proctab[%d])(Node **, int) = {\n", SIZE);
183 for (i = 0; i < SIZE; i++)
184 if (table[i] == 0)
185 printf("\tnullproc,\t/* %s */\n", names[i]);
186 else
187 printf("\t%s,\t/* %s */\n", table[i], names[i]);
188 printf("};\n\n");
189
190 printf("char *\ntokname(int n)\n"); /* print a tokname() function */
191 printf("{\n");
192 printf(" static char buf[100];\n\n");
193 printf(" if (n < FIRSTTOKEN || n > LASTTOKEN) {\n");
194 printf(" (void) sprintf(buf, \"token %%d\", n);\n");
195 printf(" return (buf);\n");
196 printf(" }\n");
197 printf(" return printname[n-FIRSTTOKEN];\n");
198 printf("}\n");
199 return (0);
200 }
201