![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prtlex.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / diction|
Return to prtlex.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / diction |
1.1 root 1: # include "stdio.h"
2: # define U(x) x
3: # define NLSTATE yyprevious=YYNEWLINE
4: # define BEGIN yybgin = yysvec + 1 +
5: # define INITIAL 0
6: # define YYLERR yysvec
7: # define YYSTATE (yyestate-yysvec-1)
8: # define YYOPTIM 1
9: # define YYLMAX 200
10: # define output(c) putc(c,yyout)
11: # define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):getc(yyin))==10?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
12: # define unput(c) {yytchar= (c);if(yytchar=='\n')yylineno--;*yysptr++=yytchar;}
13: # define yymore() (yymorfg=1)
14: # define ECHO fprintf(yyout, "%s",yytext)
15: # define REJECT { nstr = yyreject(); goto yyfussy;}
16: int yyleng; extern char yytext[];
17: int yymorfg;
18: extern char *yysptr, yysbuf[];
19: int yytchar;
20: FILE *yyin ={stdin}, *yyout ={stdout};
21: extern int yylineno;
22: struct yysvf {
23: struct yywork *yystoff;
24: struct yysvf *yyother;
25: int *yystops;};
26: struct yysvf *yyestate;
27: extern struct yysvf yysvec[], *yybgin;
28:
29: #ifndef lint
30: static char sccsid[] = "@(#)part.l 4.2 (Berkeley) 82/11/06";
31: #endif not lint
32:
33: #include "style.h"
34: #include "names.h"
35: #include "conp.h"
36: FILE *deb;
37: int nosave = 1;
38: int part = 0;
39: int barebones = 0;
40: int topic = 0;
41: int style = 1;
42: int pastyle = 0;
43: int pstyle = 0;
44: int lstyle = 0;
45: int rstyle = 0;
46: int estyle = 0;
47: int nstyle = 0;
48: int Nstyle = 0;
49: int lthresh;
50: int rthresh;
51: int nomin;
52: char s[SCHAR];
53: char *sptr = s;
54: struct ss sent[SLENG];
55: struct ss *sentp = sent;
56: float wperc();
57: float sperc();
58: float typersent();
59: float vperc();
60: int numsent = 0;
61: int qcount = 0;
62: int icount = 0;
63: long vowel = 0;
64: long numwds = 0;
65: long twds = 0;
66: long numnonf = 0;
67: long letnonf = 0;
68: int maxsent = 0;
69: int maxindex = 0;
70: int minsent = 30;
71: int minindex = 0;
72: int simple = 0;
73: int compound = 0;
74: int compdx = 0;
75: int prepc = 0;
76: int conjc = 0;
77: int complex = 0;
78: int tobe = 0;
79: int adj = 0;
80: int infin = 0;
81: int pron = 0;
82: int passive = 0;
83: int aux = 0;
84: int adv = 0;
85: int verbc = 0;
86: int tverbc = 0;
87: int noun = 0;
88: long numlet = 0;
89: int beg[15] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 };
90: int sleng[50];
91: int nsleng = 0;
92: int j,jj,i;
93: int comma = 0;
94: int cflg;
95: int question;
96: int quote = 0;
97: char *st;
98: int initf = 0;
99: int over = 1;
100: int nroff = 0;
101: int nrofflg = 0;
102: int leng[MAXPAR];
103: int sentno= 0;
104: # define YYNEWLINE 10
105: yylex(){
106: int nstr; extern int yyprevious;
107: while((nstr = yylook()) >= 0)
108: yyfussy: switch(nstr){
109: case 0:
110: if(yywrap()) return(0); break;
111: case 1:
112: {
113: collect:
114: sentp->cc = sentp->ic = yytext[0];
115: if(sentp->cc == NOM)
116: sentp->cc = NOUN;
117: collect1:
118: nsleng++;
119: sentp->leng = yyleng-2;
120: sentp++->sp = sptr;
121: if(sentp >= &sent[SLENG-1]){
122: if(over)fprintf(stderr,"sentence %d too many words\n",numsent+2);
123: over=0;
124: sentp--;
125: }
126: if(sptr+yyleng >= &s[SCHAR-1]){
127: if(over)fprintf(stderr,"sentence %d too many characters\n",numsent+2);
128: over=0;
129: }
130: else {
131: for(i=2;i<yyleng;i++)*sptr++=yytext[i];
132: *sptr++ = '\0';
133: }
134: }
135: break;
136: case 2:
137: {
138: sentp->cc=END;
139: sentp->ic = ';';
140: goto collect1;
141: }
142: break;
143: case 3:
144: {
145: comma++;
146: goto collect;
147: }
148: break;
149: case 4:
150: {
151: comma++;
152: goto collect;
153: }
154: break;
155: case 5:
156: ;
157: break;
158: case 6:
159: {
160: goto collect;
161: }
162: break;
163: case 7:
164: {
165: cflg = 1;
166: goto sdone;
167: }
168: break;
169: case 8:
170: {
171: cflg = 0;
172: sdone:
173: over=1;
174: sentp->cc=sentp->ic=END;
175: sentp++->sp = sptr;
176: for(i=2;i<yyleng;i++)*sptr++=yytext[i];
177: *sptr++='\0';
178: if(yytext[2]=='?')question=1;
179: else question=0;
180:
181: fragment:
182: jj=0;
183: if(quote == 1 && sent[jj].cc == ED){
184: sent[jj].cc = VERB;
185: quote = 0;
186: }
187: if(sent[jj].cc=='"')jj++;
188: if(sent[jj].cc==SUBCONJ){
189: if(sent[jj+1].cc == ','){
190: sent[jj].cc=ADV;
191: jj += 2;
192: comma--;
193: }
194: else {
195: jj=scan(1,',',0);
196: if(jj != -1)jj++;
197: comma--;
198: }
199: }
200: if(jj != -1){
201: if(sent[jj].cc==CONJ || sent[jj].cc=='"')jj++;
202: while((jj=scan(jj,END,cflg)) != -1){
203: jj++;
204: if(sent[jj].cc == SUBCONJ && sent[jj+1].cc == ','){
205: sent[jj].cc=ADV;
206: jj += 2;
207: comma--;
208: }
209: }
210: }
211: st = sent[i].sp;
212: if(*(st+1) == '"')
213: if(*st == '?' || *st == '!')quote = 1;
214: outp();
215: nsleng = 0;
216: if(nroff){
217: if(sentno > 0){
218: printf(".SL \"");
219: for(i=0;i<sentno;i++)
220: printf(" %d",leng[i]);
221: printf("\"\n");
222: sentno = 0;
223: }
224: printf("%s",&yytext[1]);
225: nroff = 0;
226: }
227: sptr=s;
228: sentp=sent;
229: comma=0;
230: }
231: break;
232: case 9:
233: {
234: if(style){
235: nomin = atoi(&yytext[1]);
236: }
237: }
238: break;
239: case 10:
240: {
241: nrofflg=1;
242: if(sentp != sent){
243: sentp->cc = sentp->ic = END;
244: sentp++->sp = sptr;
245: *sptr++ = '.';
246: *sptr++ = '\0';
247: over = 1;
248: nroff = 1;
249: goto fragment;
250: }
251: if(sentno > 0){
252: printf(".SL \"");
253: for(i=0;i<sentno;i++)
254: printf(" %d",leng[i]);
255: printf("\"\n");
256: sentno = 0;
257: }
258: printf("%s",&yytext[1]);
259: }
260: break;
261: case -1:
262: break;
263: default:
264: fprintf(yyout,"bad switch yylook %d",nstr);
265: } return(0); }
266: /* end of yylex */
267: yywrap(){
268: int ii;
269: int ml,mg,lsum,gsum;
270: float aindex, avl, avw;
271: float cindex,kindex,findex,fgrad;
272: float syl, avsy, adjs,snonf;
273: FILE *io;
274:
275: if(style){
276: if(numwds == 0 || numsent == 0)exit(0);
277: avw = (float)(numwds)/(float)(numsent);
278: avl = (float)(numlet)/(float)(numwds);
279: aindex = 4.71*avl + .5*avw -21.43;
280: syl = .9981*vowel-.3432*twds;
281: avsy = syl/twds;
282: kindex = 11.8*avsy+.39*avw-15.59;
283: findex = 206.835-84.6*avsy-1.015*avw;
284: if(findex < 30.)fgrad = 17.;
285: else if(findex > 100.) fgrad = 4.;
286: else if(findex > 70.)fgrad=(100.-findex)/10 +5.;
287: else if(findex > 60.)fgrad =(70.-findex)/10+8.;
288: else if(findex >50.)fgrad=(60.-findex)/5+10;
289: else fgrad=(50.-findex)/6.66 +13.;
290: adjs = 100 * (float)numsent/numwds;
291: cindex = 5.89*avl-.3*adjs-15.8;
292: printf("readability grades:\n (Kincaid) %4.1f (auto) %4.1f (Coleman-Liau) %4.1f (Flesch) %4.1f (%4.1f)\n",kindex,aindex,cindex,fgrad,findex);
293: printf("sentence info:\n");
294: printf(" no. sent %d no. wds %ld\n",numsent,numwds);
295: printf(" av sent leng %4.1f av word leng %4.2f\n",avw,avl);
296: printf(" no. questions %d no. imperatives %d\n",qcount,icount);
297: if(numnonf != 0){
298: snonf = (float)(letnonf)/(float)(numnonf);
299: }
300: printf(" no. nonfunc wds %ld %4.1f%% av leng %4.2f\n",numnonf,(float)(numnonf)*100/numwds,snonf);
301: mg = avw + 10.5;
302: if(mg > 49)mg = 49;
303: ml = avw - 4.5;
304: if(ml <= 0)ml = 1;
305: else if(ml > 49)ml=48;
306: gsum = lsum = 0;
307: for(ii=0;ii<50;ii++){
308: if(ii < ml)lsum += sleng[ii];
309: else if(ii > mg)gsum+= sleng[ii];
310: }
311: printf(" short sent (<%d)%3.0f%% (%d) long sent (>%d) %3.0f%% (%d)\n",ml,sperc(lsum),lsum,mg,sperc(gsum),gsum);
312: printf(" longest sent %d wds at sent %d; shortest sent %d wds at sent %d\n",maxsent,maxindex,minsent,minindex);
313: printf("sentence types:\n");
314: printf(" simple %3.0f%% (%d) complex %3.0f%% (%d)\n",sperc(simple),simple,sperc(complex),complex);
315: printf(" compound %3.0f%% (%d) compound-complex %3.0f%% (%d)\n",sperc(compound),compound,sperc(compdx),compdx);
316: printf("word usage:\n");
317: printf(" verb types as %% of total verbs\n");
318: printf(" tobe %3.0f%% (%d) aux %3.0f%% (%d) inf %3.0f%% (%d)\n",vperc(tobe),tobe,vperc(aux),aux,vperc(infin),infin);
319: if(verbc != 0)adjs = (float)(passive)*100/(float)(verbc);
320: else adjs=0;
321: printf(" passives as %% of non-inf verbs %3.0f%% (%d)\n",adjs,passive);
322: printf(" types as %% of total\n");
323: printf(" prep %3.1f%% (%d) conj %3.1f%% (%d) adv %3.1f%% (%d)\n",wperc(prepc),prepc,wperc(conjc),conjc,wperc(adv),adv);
324: printf(" noun %3.1f%% (%d) adj %3.1f%% (%d) pron %3.1f%% (%d)\n",wperc(noun),noun,
325: wperc(adj),adj,wperc(pron),pron);
326: printf(" nominalizations %3.0f %% (%d)\n",wperc(nomin),nomin);
327: printf("sentence beginnings:\n");
328: ii=beg[0]+beg[7]+beg[6]+beg[3]+beg[8];
329: printf(" subject opener: noun (%d) pron (%d) pos (%d) adj (%d) art (%d) tot %3.0f%%\n",
330: beg[0],beg[7],beg[6],beg[3],beg[8],sperc(ii));
331: printf(" prep %3.0f%% (%d) adv %3.0f%% (%d) \n",sperc(beg[9]),beg[9],sperc(beg[4]),beg[4]);
332: printf(" verb %3.0f%% (%d) ",sperc(beg[1]+beg[10]+beg[11]),beg[1]+beg[10]+beg[11]);
333: printf(" sub_conj %3.0f%% (%d) conj %3.0f%% (%d)\n",sperc(beg[13]),beg[13],sperc(beg[5]),beg[5]);
334: printf(" expletives %3.0f%% (%d)\n",sperc(beg[14]),beg[14]);
335: #ifdef SCATCH
336: if(nosave && (fopen(SCATCH,"r")) != NULL){
337: if(((io=fopen(SCATCH,"a")) != NULL)){
338: fprintf(io," read %4.1f %4.1f %4.1f %4.1f %4.1f\n",kindex, aindex, cindex, findex, fgrad);
339: fprintf(io," sentl %d %ld %4.2f %4.2f %d %d %ld %4.2f\n",numsent,numwds,avw,avl,qcount,icount,numnonf,snonf);
340: fprintf(io," l var %d %d %d %d %d\n",ml,lsum,mg,gsum,maxsent);
341: fprintf(io," t var %d %d %d %d\n",simple,complex,compound,compdx);
342: fprintf(io," verbs %d %d %d %d %d %d\n",tverbc,verbc,tobe,aux,infin,passive);
343: fprintf(io," ty %d %d %d %d %d %d %d\n",prepc,conjc,adv,noun,adj,pron,nomin);
344: fprintf(io," beg %d %d %d %d %d %d\n",beg[0],beg[7],beg[6],beg[3],beg[8],ii);
345: fprintf(io," sbeg %d %d %d %d %d %d\n",beg[9],beg[4],beg[1]+beg[10]+beg[11],beg[13],beg[5],beg[14]);
346: }
347: }
348: #endif
349: }
350: return(1);
351: }
352: float
353: wperc(a)
354: {
355: return((float)(a)*100/numwds);
356: }
357: float
358: sperc(a)
359: {
360: return((float)(a)*100/numsent);
361: }
362: float
363: typersent(a)
364: {
365: return((float)(a)/numsent);
366: }
367: float
368: vperc(a)
369: {
370: if(tverbc == 0)return(0);
371: return((float)(a)*100/tverbc);
372: }
373: main(argc,argv)
374: char **argv;
375: {
376: while(--argc > 0 && (++argv)[0][0] == '-' ){
377: switch(argv[0][1]){
378: case 'd': nosave = 0;
379: continue;
380: case 's': style=1;
381: continue;
382: case 'p': pastyle=style=1;
383: continue;
384: case 'a': pstyle=style=1;
385: continue;
386: case 'e': estyle = style = 1;
387: continue;
388: case 'n': nstyle = style = 1;
389: continue;
390: case 'N': Nstyle = style = 1;
391: continue;
392: case 'l': style=lstyle=1;
393: lthresh = atoi(*(++argv));
394: argc--;
395: continue;
396: case 'r':
397: style=rstyle=1;
398: rthresh = atoi(*(++argv));
399: argc--;
400: continue;
401: case 'P':
402: part = 1;
403: style = 0;
404: continue;
405: case 'b': /* print bare bones info rje */
406: barebones = 1;
407: style = 0;
408: continue;
409: case 'T': /*topic*/
410: style = 0;
411: topic = 1;
412: continue;
413: default:
414: fprintf(stderr,"unknown flag to part %s\n",*argv);
415: exit(1);
416: }
417: argv++;
418: }
419: #ifdef SNOM
420: if(fopen(SNOM,"r") != NULL){
421: deb = fopen(SNOM,"a"); /* SAVE NOM*/
422: }
423: #else
424: deb = NULL;
425: #endif
426: yylex();
427: if(nrofflg && sentno > 0){
428: printf(".SL \"");
429: for(i=0;i<sentno;i++)
430: printf(" %d",leng[i]);
431: printf("\"\n");
432: }
433: }
434: int yyvstop[] ={
435: 0,
436:
437: 5,
438: 0,
439:
440: 9,
441: 0,
442:
443: 9,
444: 0,
445:
446: 6,
447: 0,
448:
449: 3,
450: 0,
451:
452: 3,
453: 4,
454: 0,
455:
456: 10,
457: 0,
458:
459: 2,
460: 9,
461: 0,
462:
463: 1,
464: 0,
465:
466: 8,
467: 0,
468:
469: 8,
470: 0,
471:
472: 7,
473: 8,
474: 0,
475: 0};
476: # define YYTYPE char
477: struct yywork { YYTYPE verify, advance; } yycrank[] ={
478: 0,0, 0,0, 0,0, 4,11,
479: 0,0, 0,0, 0,0, 0,0,
480: 0,0, 0,0, 0,0, 1,3,
481: 4,0, 2,3, 11,0, 14,21,
482: 8,0, 18,0, 19,0, 20,0,
483: 22,0, 23,0, 25,0, 26,0,
484: 0,0, 0,0, 0,0, 0,0,
485: 0,0, 0,0, 0,0, 0,0,
486: 0,0, 0,0, 0,0, 0,0,
487: 0,0, 2,5, 0,0, 0,0,
488: 0,0, 0,0, 0,0, 0,0,
489: 0,0, 0,0, 4,11, 2,6,
490: 0,0, 0,0, 0,0, 0,0,
491: 19,19, 0,0, 0,0, 0,0,
492: 0,0, 0,0, 25,26, 5,12,
493: 1,4, 2,7, 2,8, 6,13,
494: 8,15, 9,16, 10,17, 4,11,
495: 2,9, 2,9, 2,9, 2,9,
496: 2,10, 2,9, 2,9, 2,9,
497: 2,9, 2,9, 2,9, 2,9,
498: 2,9, 2,9, 2,9, 2,9,
499: 2,9, 2,9, 2,9, 2,9,
500: 2,9, 2,9, 2,9, 2,9,
501: 2,9, 2,9, 0,0, 0,0,
502: 0,0, 0,0, 0,0, 0,0,
503: 2,9, 2,9, 2,9, 2,9,
504: 2,9, 2,9, 2,9, 2,9,
505: 2,9, 2,9, 2,9, 2,9,
506: 2,9, 2,9, 2,9, 2,9,
507: 2,9, 2,9, 2,9, 2,9,
508: 2,9, 2,9, 2,9, 2,9,
509: 2,9, 2,9, 7,14, 12,18,
510: 13,19, 15,22, 16,23, 17,24,
511: 24,24, 0,0, 0,0, 7,0,
512: 12,0, 13,0, 15,0, 16,0,
513: 17,0, 24,0, 0,0, 0,0,
514: 0,0, 0,0, 0,0, 0,0,
515: 0,0, 0,0, 0,0, 0,0,
516: 0,0, 0,0, 0,0, 0,0,
517: 0,0, 0,0, 0,0, 0,0,
518: 0,0, 0,0, 0,0, 0,0,
519: 0,0, 0,0, 0,0, 0,0,
520: 0,0, 7,14, 12,18, 13,20,
521: 15,22, 16,23, 17,24, 24,24,
522: 0,0, 17,25, 0,0, 0,0,
523: 0,0, 0,0, 0,0, 0,0,
524: 0,0, 0,0, 0,0, 0,0,
525: 0,0, 0,0, 7,14, 12,18,
526: 13,19, 15,22, 16,23, 17,24,
527: 24,24, 0,0, 0,0, 0,0,
528: 0,0};
529: struct yysvf yysvec[] ={
530: 0, 0, 0,
531: yycrank+1, 0, 0,
532: yycrank+3, 0, 0,
533: yycrank+0, 0, yyvstop+1,
534: yycrank+-2, 0, 0,
535: yycrank+1, 0, 0,
536: yycrank+5, 0, 0,
537: yycrank+-125, 0, 0,
538: yycrank+-6, yysvec+4, 0,
539: yycrank+7, 0, 0,
540: yycrank+8, 0, 0,
541: yycrank+-4, yysvec+4, yyvstop+3,
542: yycrank+-126, 0, 0,
543: yycrank+-127, 0, 0,
544: yycrank+-5, yysvec+7, 0,
545: yycrank+-128, 0, yyvstop+5,
546: yycrank+-129, 0, 0,
547: yycrank+-130, 0, 0,
548: yycrank+-7, yysvec+12, yyvstop+7,
549: yycrank+-8, yysvec+13, yyvstop+9,
550: yycrank+-9, yysvec+13, yyvstop+11,
551: yycrank+0, 0, yyvstop+14,
552: yycrank+-10, yysvec+15, yyvstop+16,
553: yycrank+-11, yysvec+16, yyvstop+19,
554: yycrank+-131, 0, yyvstop+21,
555: yycrank+-12, yysvec+24, yyvstop+23,
556: yycrank+-13, yysvec+24, yyvstop+25,
557: 0, 0, 0};
558: struct yywork *yytop = yycrank+196;
559: struct yysvf *yybgin = yysvec+1;
560: char yymatch[] ={
561: 00 ,01 ,01 ,01 ,01 ,01 ,01 ,01 ,
562: 01 ,01 ,012 ,01 ,01 ,01 ,01 ,01 ,
563: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 ,
564: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 ,
565: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 ,
566: 01 ,01 ,01 ,01 ,',' ,',' ,01 ,01 ,
567: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 ,
568: 01 ,01 ,',' ,01 ,01 ,01 ,01 ,01 ,
569: 01 ,'A' ,'A' ,'A' ,'A' ,01 ,'A' ,'A' ,
570: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
571: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
572: 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,01 ,
573: 01 ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
574: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
575: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,
576: 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,01 ,
577: 0};
578: char yyextra[] ={
579: 0,0,0,0,0,0,0,0,
580: 0,0,0,0,0,0,0,0,
581: 0};
582: /* ncform 4.1 83/08/11 */
583:
584: int yylineno =1;
585: # define YYU(x) x
586: # define NLSTATE yyprevious=YYNEWLINE
587: char yytext[YYLMAX];
588: struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp;
589: char yysbuf[YYLMAX];
590: char *yysptr = yysbuf;
591: int *yyfnd;
592: extern struct yysvf *yyestate;
593: int yyprevious = YYNEWLINE;
594: yylook(){
595: register struct yysvf *yystate, **lsp;
596: register struct yywork *yyt;
597: struct yysvf *yyz;
598: int yych;
599: struct yywork *yyr;
600: # ifdef LEXDEBUG
601: int debug;
602: # endif
603: char *yylastch;
604: /* start off machines */
605: # ifdef LEXDEBUG
606: debug = 0;
607: # endif
608: if (!yymorfg)
609: yylastch = yytext;
610: else {
611: yymorfg=0;
612: yylastch = yytext+yyleng;
613: }
614: for(;;){
615: lsp = yylstate;
616: yyestate = yystate = yybgin;
617: if (yyprevious==YYNEWLINE) yystate++;
618: for (;;){
619: # ifdef LEXDEBUG
620: if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1);
621: # endif
622: yyt = yystate->yystoff;
623: if(yyt == yycrank){ /* may not be any transitions */
624: yyz = yystate->yyother;
625: if(yyz == 0)break;
626: if(yyz->yystoff == yycrank)break;
627: }
628: *yylastch++ = yych = input();
629: tryagain:
630: # ifdef LEXDEBUG
631: if(debug){
632: fprintf(yyout,"char ");
633: allprint(yych);
634: putchar('\n');
635: }
636: # endif
637: yyr = yyt;
638: if ( (int)yyt > (int)yycrank){
639: yyt = yyr + yych;
640: if (yyt <= yytop && yyt->verify+yysvec == yystate){
641: if(yyt->advance+yysvec == YYLERR) /* error transitions */
642: {unput(*--yylastch);break;}
643: *lsp++ = yystate = yyt->advance+yysvec;
644: goto contin;
645: }
646: }
647: # ifdef YYOPTIM
648: else if((int)yyt < (int)yycrank) { /* r < yycrank */
649: yyt = yyr = yycrank+(yycrank-yyt);
650: # ifdef LEXDEBUG
651: if(debug)fprintf(yyout,"compressed state\n");
652: # endif
653: yyt = yyt + yych;
654: if(yyt <= yytop && yyt->verify+yysvec == yystate){
655: if(yyt->advance+yysvec == YYLERR) /* error transitions */
656: {unput(*--yylastch);break;}
657: *lsp++ = yystate = yyt->advance+yysvec;
658: goto contin;
659: }
660: yyt = yyr + YYU(yymatch[yych]);
661: # ifdef LEXDEBUG
662: if(debug){
663: fprintf(yyout,"try fall back character ");
664: allprint(YYU(yymatch[yych]));
665: putchar('\n');
666: }
667: # endif
668: if(yyt <= yytop && yyt->verify+yysvec == yystate){
669: if(yyt->advance+yysvec == YYLERR) /* error transition */
670: {unput(*--yylastch);break;}
671: *lsp++ = yystate = yyt->advance+yysvec;
672: goto contin;
673: }
674: }
675: if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){
676: # ifdef LEXDEBUG
677: if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1);
678: # endif
679: goto tryagain;
680: }
681: # endif
682: else
683: {unput(*--yylastch);break;}
684: contin:
685: # ifdef LEXDEBUG
686: if(debug){
687: fprintf(yyout,"state %d char ",yystate-yysvec-1);
688: allprint(yych);
689: putchar('\n');
690: }
691: # endif
692: ;
693: }
694: # ifdef LEXDEBUG
695: if(debug){
696: fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1);
697: allprint(yych);
698: putchar('\n');
699: }
700: # endif
701: while (lsp-- > yylstate){
702: *yylastch-- = 0;
703: if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){
704: yyolsp = lsp;
705: if(yyextra[*yyfnd]){ /* must backup */
706: while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){
707: lsp--;
708: unput(*yylastch--);
709: }
710: }
711: yyprevious = YYU(*yylastch);
712: yylsp = lsp;
713: yyleng = yylastch-yytext+1;
714: yytext[yyleng] = 0;
715: # ifdef LEXDEBUG
716: if(debug){
717: fprintf(yyout,"\nmatch ");
718: sprint(yytext);
719: fprintf(yyout," action %d\n",*yyfnd);
720: }
721: # endif
722: return(*yyfnd++);
723: }
724: unput(*yylastch);
725: }
726: if (yytext[0] == 0 /* && feof(yyin) */)
727: {
728: yysptr=yysbuf;
729: return(0);
730: }
731: yyprevious = yytext[0] = input();
732: if (yyprevious>0)
733: output(yyprevious);
734: yylastch=yytext;
735: # ifdef LEXDEBUG
736: if(debug)putchar('\n');
737: # endif
738: }
739: }
740: yyback(p, m)
741: int *p;
742: {
743: if (p==0) return(0);
744: while (*p)
745: {
746: if (*p++ == m)
747: return(1);
748: }
749: return(0);
750: }
751: /* the following are only used in the lex library */
752: yyinput(){
753: return(input());
754: }
755: yyoutput(c)
756: int c; {
757: output(c);
758: }
759: yyunput(c)
760: int c; {
761: unput(c);
762: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.