![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to once.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 once.c CVS log | Up to [Research Unix] / researchv9 / cmd / lex |
1.1 root 1: /* because of external definitions, this code should occur only once */
2: # ifdef ASCII
3: int ctable[2*NCH] = {
4: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
5: 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
6: 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
7: 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
8: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
9: 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
10: 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
11: 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
12: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
13: 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
14: 100,101,102,103,104,105,106,107,108,109,
15: 110,111,112,113,114,115,116,117,118,119,
16: 120,121,122,123,124,125,126,127};
17: # endif
18: # ifdef EBCDIC
19: int ctable[2*NCH] {
20: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
21: 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
22: 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
23: 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
24: 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
25: 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
26: 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
27: 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
28: 80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
29: 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
30: 100,101,102,103,104,105,106,107,108,109,
31: 110,111,112,113,114,115,116,117,118,119,
32: 120,121,122,123,124,125,126,127,128,129,
33: 130,131,132,133,134,135,136,137,138,139,
34: 140,141,142,143,144,145,146,147,148,149,
35: 150,151,152,153,154,155,156,157,158,159,
36: 160,161,162,163,164,165,166,167,168,169,
37: 170,171,172,173,174,175,176,177,178,179,
38: 180,181,182,183,184,185,186,187,188,189,
39: 190,191,192,193,194,195,196,197,198,199,
40: 200,201,202,203,204,205,206,207,208,209,
41: 210,211,212,213,214,215,216,217,218,219,
42: 220,221,222,223,224,225,226,227,228,229,
43: 230,231,232,233,234,235,236,237,238,239,
44: 240,241,242,243,244,245,246,247,248,249,
45: 250,251,252,253,254,255};
46: # endif
47: int ZCH = NCH;
48: FILE *fout = NULL, *errorf = {stdout};
49: int sect = DEFSECTION;
50: int prev = '\n'; /* previous input character */
51: int pres = '\n'; /* present input character */
52: int peek = '\n'; /* next input character */
53: char *pushptr = pushc;
54: char *slptr = slist;
55:
56: # if (unix || ibm)
57: char *cname = "/usr/lib/lex/ncform";
58: char *ratname = "/usr/lib/lex/nrform";
59: # endif
60:
61: # ifdef gcos
62: char *cname "pounce/lexcform";
63: char *ratname "pounce/lexrform";
64: # endif
65: int ccount = 1;
66: int casecount = 1;
67: int aptr = 1;
68: int nstates = NSTATES, maxpos = MAXPOS;
69: int treesize = TREESIZE, ntrans = NTRANS;
70: int yytop;
71: int outsize = NOUTPUT;
72: int sptr = 1;
73: int optim = TRUE;
74: int report = 2;
75: int debug; /* 1 = on */
76: int charc;
77: int sargc;
78: char **sargv;
79: char buf[520];
80: int ratfor; /* 1 = ratfor, 0 = C */
81: int yyline; /* line number of file */
82: int eof;
83: int lgatflg;
84: int divflg;
85: int funcflag;
86: int pflag;
87: int chset; /* 1 = char set modified */
88: FILE *fin, *fother;
89: int fptr;
90: int *name;
91: int *left;
92: int *right;
93: int *parent;
94: char *nullstr;
95: int tptr;
96: char pushc[TOKENSIZE];
97: char slist[STARTSIZE];
98: char **def, **subs, *dchar;
99: char **sname, *schar;
100: char *ccl;
101: char *ccptr;
102: char *dp, *sp;
103: int dptr;
104: char *bptr; /* store input position */
105: char *tmpstat;
106: int count;
107: int **foll;
108: int *nxtpos;
109: int *positions;
110: int *gotof;
111: int *nexts;
112: char *nchar;
113: int **state;
114: int *sfall; /* fallback state num */
115: char *cpackflg; /* true if state has been character packed */
116: int *atable;
117: int nptr;
118: char symbol[NCH];
119: char cindex[NCH];
120: int xstate;
121: int stnum;
122: char match[NCH];
123: char extra[NACTIONS];
124: char *pchar, *pcptr;
125: int pchlen = TOKENSIZE;
126: long rcount;
127: int *verify, *advance, *stoff;
128: int scon;
129: char *psave;
130: int buserr(), segviol();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.