1 /* lex [-[dynvt]] [file] ... [file] */
2
3 /* Copyright 1976, Bell Telephone Laboratories, Inc.,
4 written by Eric Schmidt, August 27, 1976 */
5
6 # include "ldefs.h"
7 Biobuf fout;
8 int foutopen;
9 int errorf = 1;
10 int sect = DEFSECTION;
11 int prev = '\n'; /* previous input character */
12 int pres = '\n'; /* present input character */
13 int peek = '\n'; /* next input character */
14 uchar *pushptr = pushc;
15 uchar *slptr = slist;
16
17 char *cname = "/sys/lib/lex/ncform";
18
19 int nine;
20 int ccount = 1;
21 int casecount = 1;
22 int aptr = 1;
23 int nstates = NSTATES, maxpos = MAXPOS;
24 int treesize = TREESIZE, ntrans = NTRANS;
25 int yytop;
26 int outsize = NOUTPUT;
27 int sptr = 1;
28 int report = 2;
29 int debug; /* 1 = on */
30 int charc;
31 int sargc;
32 char **sargv;
33 uchar buf[520];
34 int yyline; /* line number of file */
35 char *yyfile; /* filename for error messages */
36 int eof;
37 int lgatflg;
38 int divflg;
39 int funcflag;
40 int pflag;
41 int chset; /* 1 = char set modified */
42 Biobuf *fin = 0, *fother;
43 int fptr;
44 int *name;
45 int *left;
46 int *right;
47 int *parent;
48 uchar *nullstr;
49 uchar **ptr;
50 int tptr;
51 uchar pushc[TOKENSIZE];
52 uchar slist[STARTSIZE];
53 uchar **def, **subs, *dchar;
54 uchar **sname, *stchar;
55 uchar *ccl;
56 uchar *ccptr;
57 uchar *dp, *sp;
58 int dptr;
59 uchar *bptr; /* store input position */
60 uchar *tmpstat;
61 int count;
62 int **foll;
63 int *nxtpos;
64 int *positions;
65 int *gotof;
66 int *nexts;
67 uchar *nchar;
68 int **state;
69 int *sfall; /* fallback state num */
70 uchar *cpackflg; /* true if state has been character packed */
71 int *atable;
72 int nptr;
73 uchar symbol[NCH];
74 uchar cindex[NCH];
75 int xstate;
76 int stnum;
77 uchar match[NCH];
78 uchar extra[NACTIONS];
79 uchar *pchar, *pcptr;
80 int pchlen = TOKENSIZE;
81 long rcount;
82 int *verify, *advance, *stoff;
83 int scon;
84 uchar *psave;
85
86 static void free1core(void);
87 static void free2core(void);
88 static void free3core(void);
89 static void get1core(void);
90 static void get2core(void);
91 static void get3core(void);
92
93 void
main(int argc,char ** argv)94 main(int argc, char **argv)
95 {
96 int i;
97
98 ARGBEGIN {
99 # ifdef DEBUG
100 case 'd': debug++; break;
101 case 'y': yydebug = TRUE; break;
102 # endif
103 case 't': case 'T':
104 Binit(&fout, 1, OWRITE);
105 errorf= 2;
106 foutopen = 1;
107 break;
108 case 'v': case 'V':
109 report = 1;
110 break;
111 case 'n': case 'N':
112 report = 0;
113 break;
114 case '9':
115 nine = 1;
116 break;
117 default:
118 warning("Unknown option %c", ARGC());
119 } ARGEND
120 sargc = argc;
121 sargv = argv;
122 if (argc > 0){
123 yyfile = argv[fptr++];
124 fin = Bopen(yyfile, OREAD);
125 if(fin == 0)
126 error ("%s - can't open file: %r", yyfile);
127 sargc--;
128 sargv++;
129 }
130 else {
131 yyfile = "/fd/0";
132 fin = myalloc(sizeof(Biobuf), 1);
133 if(fin == 0)
134 exits("core");
135 Binit(fin, 0, OREAD);
136 }
137 if(Bgetc(fin) == Beof) /* no input */
138 exits(0);
139 Bseek(fin, 0, 0);
140 gch();
141 /* may be gotten: def, subs, sname, stchar, ccl, dchar */
142 get1core();
143 /* may be gotten: name, left, right, nullstr, parent, ptr */
144 strcpy((char*)sp, "INITIAL");
145 sname[0] = sp;
146 sp += strlen("INITIAL") + 1;
147 sname[1] = 0;
148 if(yyparse()) exits("error"); /* error return code */
149 /* may be disposed of: def, subs, dchar */
150 free1core();
151 /* may be gotten: tmpstat, foll, positions, gotof, nexts, nchar, state, atable, sfall, cpackflg */
152 get2core();
153 ptail();
154 mkmatch();
155 # ifdef DEBUG
156 if(debug) pccl();
157 # endif
158 sect = ENDSECTION;
159 if(tptr>0)cfoll(tptr-1);
160 # ifdef DEBUG
161 if(debug)pfoll();
162 # endif
163 cgoto();
164 # ifdef DEBUG
165 if(debug){
166 print("Print %d states:\n",stnum+1);
167 for(i=0;i<=stnum;i++)stprt(i);
168 }
169 # endif
170 /* may be disposed of: positions, tmpstat, foll, state, name, left, right, parent, ccl, stchar, sname */
171 /* may be gotten: verify, advance, stoff */
172 free2core();
173 get3core();
174 layout();
175 /* may be disposed of: verify, advance, stoff, nexts, nchar,
176 gotof, atable, ccpackflg, sfall */
177 # ifdef DEBUG
178 free3core();
179 # endif
180 fother = Bopen(cname,OREAD);
181 if(fother == 0)
182 error("Lex driver missing, file %s: %r",cname);
183 while ( (i=Bgetc(fother)) != Beof)
184 Bputc(&fout, i);
185
186 Bterm(fother);
187 Bterm(&fout);
188 if(
189 # ifdef DEBUG
190 debug ||
191 # endif
192 report == 1)statistics();
193 if (fin)
194 Bterm(fin);
195 exits(0); /* success return code */
196 }
197
198 static void
get1core(void)199 get1core(void)
200 {
201 ccptr = ccl = myalloc(CCLSIZE,sizeof(*ccl));
202 pcptr = pchar = myalloc(pchlen, sizeof(*pchar));
203 def = myalloc(DEFSIZE,sizeof(*def));
204 subs = myalloc(DEFSIZE,sizeof(*subs));
205 dp = dchar = myalloc(DEFCHAR,sizeof(*dchar));
206 sname = myalloc(STARTSIZE,sizeof(*sname));
207 sp = stchar = myalloc(STARTCHAR,sizeof(*stchar));
208 if(ccl == 0 || def == 0 || subs == 0 || dchar == 0 || sname == 0 || stchar == 0)
209 error("Too little core to begin");
210 }
211
212 static void
free1core(void)213 free1core(void)
214 {
215 free(def);
216 free(subs);
217 free(dchar);
218 }
219
220 static void
get2core(void)221 get2core(void)
222 {
223 int i;
224
225 gotof = myalloc(nstates,sizeof(*gotof));
226 nexts = myalloc(ntrans,sizeof(*nexts));
227 nchar = myalloc(ntrans,sizeof(*nchar));
228 state = myalloc(nstates,sizeof(*state));
229 atable = myalloc(nstates,sizeof(*atable));
230 sfall = myalloc(nstates,sizeof(*sfall));
231 cpackflg = myalloc(nstates,sizeof(*cpackflg));
232 tmpstat = myalloc(tptr+1,sizeof(*tmpstat));
233 foll = myalloc(tptr+1,sizeof(*foll));
234 nxtpos = positions = myalloc(maxpos,sizeof(*positions));
235 if(tmpstat == 0 || foll == 0 || positions == 0 ||
236 gotof == 0 || nexts == 0 || nchar == 0 || state == 0 || atable == 0 || sfall == 0 || cpackflg == 0 )
237 error("Too little core for state generation");
238 for(i=0;i<=tptr;i++)foll[i] = 0;
239 }
240
241 static void
free2core(void)242 free2core(void)
243 {
244 free(positions);
245 free(tmpstat);
246 free(foll);
247 free(name);
248 free(left);
249 free(right);
250 free(parent);
251 free(nullstr);
252 free(ptr);
253 free(state);
254 free(sname);
255 free(stchar);
256 free(ccl);
257 }
258
259 static void
get3core(void)260 get3core(void)
261 {
262 verify = myalloc(outsize,sizeof(*verify));
263 advance = myalloc(outsize,sizeof(*advance));
264 stoff = myalloc(stnum+2,sizeof(*stoff));
265 if(verify == 0 || advance == 0 || stoff == 0)
266 error("Too little core for final packing");
267 }
268 # ifdef DEBUG
269 static void
free3core(void)270 free3core(void){
271 free(advance);
272 free(verify);
273 free(stoff);
274 free(gotof);
275 free(nexts);
276 free(nchar);
277 free(atable);
278 free(sfall);
279 free(cpackflg);
280 }
281 # endif
282 void *
myalloc(int a,int b)283 myalloc(int a, int b)
284 {
285 void *i;
286 i = calloc(a, b);
287 if(i==0)
288 warning("OOPS - calloc returns a 0");
289 return(i);
290 }
291
292 void
yyerror(char * s)293 yyerror(char *s)
294 {
295 fprint(2, "%s:%d %s\n", yyfile, yyline, s);
296 }
297