![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to header.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / lex|
Return to header.c CVS log | Up to [Research Unix] / researchv9 / cmd / lex |
1.1 root 1: # include "ldefs.c"
2: phead1(){
3: ratfor ? rhd1() : chd1();
4: }
5:
6: chd1(){
7: fprintf(fout,"# include \"stdio.h\"\n");
8: if (ZCH>NCH)
9: fprintf(fout, "# define U(x) ((x)&0377)\n");
10: else
11: fprintf(fout, "# define U(x) x\n");
12: fprintf(fout, "# define NLSTATE yyprevious=YYNEWLINE\n");
13: fprintf(fout,"# define BEGIN yybgin = yysvec + 1 +\n");
14: fprintf(fout,"# define INITIAL 0\n");
15: fprintf(fout,"# define YYLERR yysvec\n");
16: fprintf(fout,"# define YYSTATE (yyestate-yysvec-1)\n");
17: if(optim)
18: fprintf(fout,"# define YYOPTIM 1\n");
19: # ifdef DEBUG
20: fprintf(fout,"# define LEXDEBUG 1\n");
21: # endif
22: fprintf(fout,"# define YYLMAX 200\n");
23: fprintf(fout,"# define output(c) putc(c,yyout)\n");
24: fprintf(fout, "%s%d%s\n",
25: "# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==",
26: ctable['\n'],
27: "?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)");
28: fprintf(fout,
29: "# define unput(c) {yytchar= (c);if(yytchar=='\\n')yylineno--;*yysptr++=yytchar;}\n");
30: fprintf(fout,"# define yymore() (yymorfg=1)\n");
31: fprintf(fout,"# define ECHO fprintf(yyout, \"%%s\",yytext)\n");
32: fprintf(fout,"# define REJECT { nstr = yyreject(); goto yyfussy;}\n");
33: fprintf(fout,"int yyleng; extern char yytext[];\n");
34: fprintf(fout,"int yymorfg;\n");
35: fprintf(fout,"extern char *yysptr, yysbuf[];\n");
36: fprintf(fout,"int yytchar;\n");
37: fprintf(fout,"FILE *yyin = {stdin}, *yyout = {stdout};\n");
38: fprintf(fout,"extern int yylineno;\n");
39: fprintf(fout,"struct yysvf { \n");
40: fprintf(fout,"\tstruct yywork *yystoff;\n");
41: fprintf(fout,"\tstruct yysvf *yyother;\n");
42: fprintf(fout,"\tint *yystops;};\n");
43: fprintf(fout,"struct yysvf *yyestate;\n");
44: fprintf(fout,"extern struct yysvf yysvec[], *yybgin;\n");
45: }
46:
47: rhd1(){
48: fprintf(fout,"integer function yylex(dummy)\n");
49: fprintf(fout,"define YYLMAX 200\n");
50: fprintf(fout,"define ECHO call yyecho(yytext,yyleng)\n");
51: fprintf(fout,"define REJECT nstr = yyrjct(yytext,yyleng);goto 30998\n");
52: fprintf(fout,"integer nstr,yylook,yywrap\n");
53: fprintf(fout,"integer yyleng, yytext(YYLMAX)\n");
54: fprintf(fout,"common /yyxel/ yyleng, yytext\n");
55: fprintf(fout,"common /yyldat/ yyfnd, yymorf, yyprev, yybgin, yylsp, yylsta\n");
56: fprintf(fout,"integer yyfnd, yymorf, yyprev, yybgin, yylsp, yylsta(YYLMAX)\n");
57: fprintf(fout,"for(;;){\n");
58: fprintf(fout,"\t30999 nstr = yylook(dummy)\n");
59: fprintf(fout,"\tgoto 30998\n");
60: fprintf(fout,"\t30000 k = yywrap(dummy)\n");
61: fprintf(fout,"\tif(k .ne. 0){\n");
62: fprintf(fout,"\tyylex=0; return; }\n");
63: fprintf(fout,"\t\telse goto 30998\n");
64: }
65:
66: phead2(){
67: if(!ratfor)chd2();
68: }
69:
70: chd2(){
71: fprintf(fout,"while((nstr = yylook()) >= 0)\n");
72: fprintf(fout,"yyfussy: switch(nstr){\n");
73: fprintf(fout,"case 0:\n");
74: fprintf(fout,"if(yywrap()) return(0); break;\n");
75: }
76:
77: ptail(){
78: if(!pflag)
79: ratfor ? rtail() : ctail();
80: pflag = 1;
81: }
82:
83: ctail(){
84: fprintf(fout,"case -1:\nbreak;\n"); /* for reject */
85: fprintf(fout,"default:\n");
86: fprintf(fout,"fprintf(yyout,\"bad switch yylook %%d\",nstr);\n");
87: fprintf(fout,"} return(0); }\n");
88: fprintf(fout,"/* end of yylex */\n");
89: }
90:
91: rtail(){
92: register int i;
93: fprintf(fout,"\n30998 if(nstr .lt. 0 .or. nstr .gt. %d)goto 30999\n",casecount);
94: fprintf(fout,"nstr = nstr + 1\n");
95: fprintf(fout,"goto(\n");
96: for(i=0; i<casecount; i++)
97: fprintf(fout,"%d,\n",30000+i);
98: fprintf(fout,"30999),nstr\n");
99: fprintf(fout,"30997 continue\n");
100: fprintf(fout,"}\nend\n");
101: }
102: statistics(){
103: fprintf(errorf,"%d/%d nodes(%%e), %d/%d positions(%%p), %d/%d (%%n), %ld transitions\n",
104: tptr, treesize, nxtpos-positions, maxpos, stnum+1, nstates, rcount);
105: fprintf(errorf, ", %d/%d packed char classes(%%k)", pcptr-pchar, pchlen);
106: if(optim)fprintf(errorf,", %d/%d packed transitions(%%a)",nptr, ntrans);
107: fprintf(errorf, ", %d/%d output slots(%%o)", yytop, outsize);
108: putc('\n',errorf);
109: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.