![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / zotnet / tws|
Return to t CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / zotnet / tws |
1.1 root 1: *** lexstring.c Tue Jun 3 06:29:37 1986
2: --- /usr/tmp/mh-6.5/zotnet/tws/lexstring.c Wed Feb 12 12:04:27 1986
3: ***************
4: *** 19,53 ****
5: extern int yyvstop[];
6: extern struct yywork yycrank[];
7: extern struct yysvf yysvec[];
8: extern char yymatch[];
9: extern char yyextra[];
10:
11: ! #ifdef ONECASE
12: ! static char case_map[] = {
13: ! 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
14: ! 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
15: ! 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
16: ! 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
17: ! 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
18: ! 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
19: ! 60, 61, 62, 63, 64, 97, 98, 99, 100, 101,
20: ! 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
21: ! 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
22: ! 122, 91, 92, 93, 94, 95, 96, 97, 98, 99,
23: ! 100, 101, 102, 103, 104, 105, 106, 107, 108, 109,
24: ! 110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
25: ! 120, 121, 122, 123, 124, 125, 126, 127,
26: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
27: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
28: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
29: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
30: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
31: ! 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
32: ! 0, 0, 0, 0, 0, 0, 0, 0
33: ! };
34: ! #endif ONECASE
35:
36: -
37: lex_string( strptr, start_cond)
38: char **strptr;
39: int start_cond;
40: --- 19,32 ----
41: extern int yyvstop[];
42: extern struct yywork yycrank[];
43: extern struct yysvf yysvec[];
44: + extern struct yywork *yytop;
45: extern char yymatch[];
46: extern char yyextra[];
47:
48: ! #ifdef LEXDEBUG
49: ! static int debug = 0;
50: ! #endif LEXDEBUG
51:
52: lex_string( strptr, start_cond)
53: char **strptr;
54: int start_cond;
55: ***************
56: *** 54,60 ****
57: {
58: register struct yysvf *state, **lsp;
59: register struct yywork *tran;
60: - register int statenum;
61: register int ch;
62: register char *cp = *strptr;
63: register int *found;
64: --- 33,38 ----
65: ***************
66: *** 62,72 ****
67:
68: /* start off machines */
69: lsp = yylstate;
70: ! statenum = 1 + start_cond;
71: ! state = yysvec + statenum;
72: for (;;){
73: # ifdef LEXDEBUG
74: ! fprintf(stdout,"%d ",statenum - 1);
75: # endif
76: tran = state->yystoff;
77: if(tran == yycrank)
78: --- 40,50 ----
79:
80: /* start off machines */
81: lsp = yylstate;
82: ! state = yysvec+1+start_cond;
83: for (;;){
84: # ifdef LEXDEBUG
85: ! if(debug)
86: ! fprintf(stderr,"state %d\n",state-yysvec-1);
87: # endif
88: tran = state->yystoff;
89: if(tran == yycrank)
90: ***************
91: *** 75,140 ****
92: state->yyother->yystoff == yycrank)
93: break;
94:
95: - #ifdef ONECASE
96: - ch = case_map[*cp++];
97: - #else not ONECASE
98: ch = *cp++;
99: #endif ONECASE
100: # ifdef LEXDEBUG
101: ! fprintf(stdout,"(");
102: ! allprint(ch);
103: ! fprintf(stdout, ")");
104: # endif
105: - tryagain:
106: if ( tran > yycrank){
107: tran += ch;
108: ! if (tran->verify == statenum){
109: ! if ((statenum = tran->advance) == 0){
110: /* error transitions */
111: --cp;
112: break;
113: }
114: - state = statenum + yysvec;
115: *lsp++ = state;
116: goto contin;
117: }
118:
119: } else if(tran < yycrank) {
120: tran = yycrank+(yycrank-tran) + ch;
121: # ifdef LEXDEBUG
122: ! fprintf(stdout," compressed");
123: # endif
124: ! if (tran->verify == statenum){
125: ! if ((statenum = tran->advance) == 0)
126: /* error transitions */
127: break;
128:
129: - state = statenum + yysvec;
130: *lsp++ = state;
131: goto contin;
132: }
133: tran += (yymatch[ch] - ch);
134: # ifdef LEXDEBUG
135: ! fprintf(stdout,"(fb ");
136: ! allprint(yymatch[ch]);
137: ! fprintf(stdout,")");
138: # endif
139: ! if (tran->verify == statenum){
140: ! if((statenum = tran->advance) == 0)
141: /* error transition */
142: break;
143:
144: ! state = statenum + yysvec;
145: ! *lsp++ = state;
146: goto contin;
147: }
148: }
149: if ((state = state->yyother) &&
150: (tran = state->yystoff) != yycrank){
151: - statenum = state - yysvec;
152: # ifdef LEXDEBUG
153: ! fprintf(stdout,"fb %d",
154: ! statenum - 1);
155: # endif
156: goto tryagain;
157: } else
158: --- 53,121 ----
159: state->yyother->yystoff == yycrank)
160: break;
161:
162: ch = *cp++;
163: + #ifdef ONECASE
164: + if (isupper(ch) )
165: + ch = tolower(ch);
166: #endif ONECASE
167: + tryagain:
168: # ifdef LEXDEBUG
169: ! if(debug){
170: ! fprintf(stderr,"char ");
171: ! allprint(ch);
172: ! putchar('\n');
173: ! }
174: # endif
175: if ( tran > yycrank){
176: tran += ch;
177: ! if (tran <= yytop && tran->verify+yysvec == state){
178: ! if ((state = tran->advance+yysvec) == YYLERR){
179: /* error transitions */
180: --cp;
181: break;
182: }
183: *lsp++ = state;
184: goto contin;
185: }
186:
187: } else if(tran < yycrank) {
188: + /* r < yycrank */
189: tran = yycrank+(yycrank-tran) + ch;
190: # ifdef LEXDEBUG
191: ! if (debug)
192: ! fprintf(stderr,"compressed state\n");
193: # endif
194: ! if(tran <= yytop && tran->verify+yysvec == state){
195: ! if ((state = tran->advance+yysvec) == YYLERR)
196: /* error transitions */
197: break;
198:
199: *lsp++ = state;
200: goto contin;
201: }
202: tran += (yymatch[ch] - ch);
203: # ifdef LEXDEBUG
204: ! if(debug){
205: ! fprintf(stderr,"try fall back character ");
206: ! allprint(yymatch[ch]);
207: ! putchar('\n');
208: ! }
209: # endif
210: ! if(tran <= yytop && tran->verify+yysvec == state){
211: ! if(tran->advance+yysvec == YYLERR)
212: /* error transition */
213: break;
214:
215: ! *lsp++ = state = tran->advance+yysvec;
216: goto contin;
217: }
218: }
219: if ((state = state->yyother) &&
220: (tran = state->yystoff) != yycrank){
221: # ifdef LEXDEBUG
222: ! if(debug)
223: ! fprintf(stderr,"fall back to state %d\n",
224: ! state-yysvec-1);
225: # endif
226: goto tryagain;
227: } else
228: ***************
229: *** 142,155 ****
230:
231: contin:
232: # ifdef LEXDEBUG
233: ! fprintf(stdout,">");
234: # endif
235: ;
236: }
237: # ifdef LEXDEBUG
238: ! fprintf(stdout,"\nStopped in state %d (",*(lsp-1)-yysvec-1);
239: ! allprint(ch);
240: ! fprintf(stdout, ") ");
241: # endif
242: while (lsp-- > yylstate){
243: if (*lsp != 0 && (found= (*lsp)->yystops) && *found > 0){
244: --- 123,142 ----
245:
246: contin:
247: # ifdef LEXDEBUG
248: ! if(debug){
249: ! fprintf(stderr,"state %d char ",state-yysvec-1);
250: ! allprint(ch);
251: ! putchar('\n');
252: ! }
253: # endif
254: ;
255: }
256: # ifdef LEXDEBUG
257: ! if(debug){
258: ! fprintf(stderr,"stopped at %d with ",*(lsp-1)-yysvec-1);
259: ! allprint(ch);
260: ! putchar('\n');
261: ! }
262: # endif
263: while (lsp-- > yylstate){
264: if (*lsp != 0 && (found= (*lsp)->yystops) && *found > 0){
265: ***************
266: *** 163,174 ****
267: (found = (*--lsp)->yystops));
268: }
269: # ifdef LEXDEBUG
270: ! fprintf(stdout," Match \"");
271: ! for ( cp = *strptr;
272: ! cp <= ((*strptr)+(lsp-yylstate));
273: ! cp++)
274: ! allprint( *cp );
275: ! fprintf(stdout,"\" action %d\n",*found);
276: # endif
277: *strptr += (lsp - yylstate + 1);
278: return(*found);
279: --- 150,163 ----
280: (found = (*--lsp)->yystops));
281: }
282: # ifdef LEXDEBUG
283: ! if(debug){
284: ! fprintf(stderr,"\nmatch ");
285: ! for ( cp = *strptr;
286: ! cp <= ((*strptr)+(lsp-yylstate));
287: ! cp++)
288: ! allprint( *cp );
289: ! fprintf(stderr," action %d\n",*found);
290: ! }
291: # endif
292: *strptr += (lsp - yylstate + 1);
293: return(*found);
294: ***************
295: *** 179,185 ****
296: * and return -1.
297: */
298: # ifdef LEXDEBUG
299: ! fprintf(stdout," No match\n");
300: #endif LEXDEBUG
301: if ( **strptr ) {
302: (*strptr)++;
303: --- 168,175 ----
304: * and return -1.
305: */
306: # ifdef LEXDEBUG
307: ! if(debug)
308: ! fprintf(stderr,"\nno match\n");
309: #endif LEXDEBUG
310: if ( **strptr ) {
311: (*strptr)++;
312: ***************
313: *** 193,204 ****
314: char c;
315: {
316: if ( c < 32 ) {
317: ! putc( '^', stdout );
318: c += 32;
319: } else if ( c == 127 ) {
320: ! putc( '^', stdout );
321: c = '?';
322: }
323: ! putc( c, stdout );
324: }
325: #endif LEXDEBUG
326: --- 183,194 ----
327: char c;
328: {
329: if ( c < 32 ) {
330: ! putc( '^', stderr );
331: c += 32;
332: } else if ( c == 127 ) {
333: ! putc( '^', stderr );
334: c = '?';
335: }
336: ! putc( c, stderr );
337: }
338: #endif LEXDEBUG
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.