[unix-history] / usr / src / old / lex / once.c

/*	once.c	4.1	83/08/11	*/
	/* because of external definitions, this code should occur only once */
# ifdef ASCII
int ctable[2*NCH] = {
  0,  1,  2,  3,  4,  5,  6,  7,  8,  9,
 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
 80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
100,101,102,103,104,105,106,107,108,109,
110,111,112,113,114,115,116,117,118,119,
120,121,122,123,124,125,126,127};
# endif
# ifdef EBCDIC
int ctable[2*NCH] = {
  0,  1,  2,  3,  4,  5,  6,  7,  8,  9,
 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
 60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
 80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
100,101,102,103,104,105,106,107,108,109,
110,111,112,113,114,115,116,117,118,119,
120,121,122,123,124,125,126,127,128,129,
130,131,132,133,134,135,136,137,138,139,
140,141,142,143,144,145,146,147,148,149,
150,151,152,153,154,155,156,157,158,159,
160,161,162,163,164,165,166,167,168,169,
170,171,172,173,174,175,176,177,178,179,
180,181,182,183,184,185,186,187,188,189,
190,191,192,193,194,195,196,197,198,199,
200,201,202,203,204,205,206,207,208,209,
210,211,212,213,214,215,216,217,218,219,
220,221,222,223,224,225,226,227,228,229,
230,231,232,233,234,235,236,237,238,239,
240,241,242,243,244,245,246,247,248,249,
250,251,252,253,254,255};
# endif
int ZCH = NCH;
FILE *fout = NULL, *errorf = {stdout};
int sect = DEFSECTION;
int prev = '\n';	/* previous input character */
int pres = '\n';	/* present input character */
int peek = '\n';	/* next input character */
char *pushptr = pushc;
char *slptr = slist;

# if (unix || ibm)
char *cname = "/usr/lib/lex/ncform";
char *ratname = "/usr/lib/lex/nrform";
# endif

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