![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lex.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 / efl|
Return to lex.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / efl |
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):efgetc)==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: # define DOTSON 2 ! 29: #include <ctype.h> ! 30: #include "defs" ! 31: #include "tokdefs" ! 32: ! 33: typedef union { int ival; ptr pval; } YYSTYPE; ! 34: extern YYSTYPE yylval; ! 35: YYSTYPE prevl; ! 36: int prevv; ! 37: char *copys(); ! 38: static ptr p; ! 39: static ptr q; ! 40: static FILE *fd; ! 41: static int quoted, k; ! 42: static int rket = 0; ! 43: FILE *opincl(); ! 44: ptr mkdef(), mkcomm(), mkname(), mkimcon(); ! 45: ! 46: #define RET(x) { RETI(x,x); } ! 47: ! 48: #define RETL(yv,yl) {yylval=prevl=yl;igeol=comneed=0;return(prevv=yv); } ! 49: #define RETP(yv,yl) {yylval.pval=prevl.pval=yl;igeol=comneed=0;return(prevv=yv); } ! 50: #define RETI(yv,yl) {yylval.ival=prevl.ival=yl;igeol=comneed=0;return(prevv=yv); } ! 51: #define REL(n) { RETI(RELOP, OPREL+n);} ! 52: #define AS(n) { RETI(ASGNOP, OPASGN+n); } ! 53: #define RETC(x) { RETP(CONST, mkconst(x,yytext) ); } ! 54: #define RETZ(x) { yytext[yyleng-1] = '\0'; RETP(CONST, mkimcon(x,yytext) ); } ! 55: ! 56: # define YYNEWLINE 10 ! 57: yylex(){ ! 58: int nstr; extern int yyprevious; ! 59: if(pushlex) ! 60: if(pushlex==1) ! 61: { ! 62: pushlex = 2; ! 63: yylval.ival = 0; ! 64: return(EOS); ! 65: } ! 66: else { ! 67: pushlex = 0; ! 68: if(rket == 2) ! 69: rket = 1; ! 70: else RETL(prevv,prevl); ! 71: } ! 72: if(rket > 0) ! 73: { ! 74: if(rket==1) ! 75: { ! 76: rket = 2; ! 77: RET(RBRACK); ! 78: } ! 79: else { ! 80: rket = 0; ! 81: RET(EOS); ! 82: } ! 83: } ! 84: if(eofneed) return(0); ! 85: if(forcerr) return(-1); ! 86: while((nstr = yylook()) >= 0) ! 87: yyfussy: switch(nstr){ ! 88: case 0: ! 89: if(yywrap()) return(0); break; ! 90: case 1: ! 91: { ! 92: lower(yytext); ! 93: if(lettneed && yyleng==1) ! 94: { RETI(LETTER, yytext[0]); } ! 95: else if(defneed) ! 96: { ! 97: register char *q1, *q2; ! 98: for(q2=q1=yytext+yyleng+1 ; (*q1 = efgetc)!='\n' ; ++q1) ! 99: ; ! 100: *q1 = '\0'; ! 101: p = mkdef(yytext, q2); ! 102: defneed = 0; ! 103: ++yylineno; ! 104: unput('\n'); ! 105: } ! 106: else if(optneed) ! 107: { RETP(OPTNAME, copys(yytext)); } ! 108: else if(comneed && ( (q=name(yytext,1))==NULL || q->tag!=TDEFINE) ) ! 109: { RETP(COMNAME, mkcomm(yytext) ); } ! 110: else if(q = name(yytext,1)) switch(q->tag) ! 111: { ! 112: case TDEFINE: ! 113: filelines[filedepth] = yylineno; ! 114: filemacs[filedepth] = efmacp; ! 115: pushchars[filedepth] = (yysptr>yysbuf? ! 116: *--yysptr : -1); ! 117: if(++filedepth >= MAXINCLUDEDEPTH) ! 118: fatal("macro or include too deep"); ! 119: filelines[filedepth] = yylineno = 1; ! 120: efmacp = q->varp->valp; ! 121: filenames[filedepth] = NULL; ! 122: break; /*now process new input */ ! 123: ! 124: case TSTRUCT: ! 125: RETP(STRUCTNAME, q); ! 126: ! 127: case TNAME: ! 128: RETP(NAME, q); ! 129: ! 130: case TKEYWORD: ! 131: if(q->subtype == END) ! 132: { ! 133: register int c; ! 134: eofneed = YES; ! 135: while((c=input())!=';'&&c!='\n'&&c!=EOF) ! 136: ; ! 137: NLSTATE; ! 138: } ! 139: RET(q->subtype); ! 140: ! 141: default: ! 142: fatal1("lex: impossible type code %d", q->tag); ! 143: } ! 144: else RETP(NAME, mkname(yytext) ); ! 145: } ! 146: break; ! 147: case 2: ! 148: RET(COMMA); ! 149: break; ! 150: case 3: ! 151: RET(EOS); ! 152: break; ! 153: case 4: ! 154: RET(LPAR); ! 155: break; ! 156: case 5: ! 157: RET(RPAR); ! 158: break; ! 159: case 6: ! 160: case 7: ! 161: RET(LBRACK); ! 162: break; ! 163: case 8: ! 164: case 9: ! 165: { if(iobrlevel>0) RET(RBRACK); rket = 1; RET(EOS); } ! 166: break; ! 167: case 10: ! 168: RET(COMMA); ! 169: break; ! 170: case 11: ! 171: RET(COLON); ! 172: break; ! 173: case 12: ! 174: RET(REPOP); ! 175: break; ! 176: case 13: ! 177: case 14: ! 178: RETI(OR,OPOR); ! 179: break; ! 180: case 15: ! 181: case 16: ! 182: RETI(OR,OP2OR); ! 183: break; ! 184: case 17: ! 185: case 18: ! 186: RETI(AND,OPAND); ! 187: break; ! 188: case 19: ! 189: case 20: ! 190: RETI(AND,OP2AND); ! 191: break; ! 192: case 21: ! 193: case 22: ! 194: RETI(NOT,OPNOT); ! 195: break; ! 196: case 23: ! 197: RETI(NOT,OPNOT); ! 198: break; ! 199: case 24: ! 200: case 25: ! 201: REL(OPLT); ! 202: break; ! 203: case 26: ! 204: case 27: ! 205: REL(OPLE); ! 206: break; ! 207: case 28: ! 208: case 29: ! 209: REL(OPGT); ! 210: break; ! 211: case 30: ! 212: case 31: ! 213: REL(OPGE); ! 214: break; ! 215: case 32: ! 216: case 33: ! 217: REL(OPEQ); ! 218: break; ! 219: case 34: ! 220: case 35: ! 221: case 36: ! 222: REL(OPNE); ! 223: break; ! 224: case 37: ! 225: RET(ARROW); ! 226: break; ! 227: case 38: ! 228: RET(QUALOP); ! 229: break; ! 230: case 39: ! 231: RETI(ADDOP, OPPLUS); ! 232: break; ! 233: case 40: ! 234: RETI(ADDOP, OPMINUS); ! 235: break; ! 236: case 41: ! 237: RETI(MULTOP, OPSTAR); ! 238: break; ! 239: case 42: ! 240: RETI(MULTOP, OPSLASH); ! 241: break; ! 242: case 43: ! 243: case 44: ! 244: RETI(POWER, OPPOWER); ! 245: break; ! 246: case 45: ! 247: RETI(DOUBLEADDOP, OPPLUS); ! 248: break; ! 249: case 46: ! 250: RETI(DOUBLEADDOP, OPMINUS); ! 251: break; ! 252: case 47: ! 253: AS(OPASGN); ! 254: break; ! 255: case 48: ! 256: AS(OPPLUS); ! 257: break; ! 258: case 49: ! 259: AS(OPMINUS); ! 260: break; ! 261: case 50: ! 262: AS(OPSTAR); ! 263: break; ! 264: case 51: ! 265: AS(OPSLASH); ! 266: break; ! 267: case 52: ! 268: case 53: ! 269: AS(OPPOWER); ! 270: break; ! 271: case 54: ! 272: AS(OPAND); ! 273: break; ! 274: case 55: ! 275: AS(OP2AND); ! 276: break; ! 277: case 56: ! 278: AS(OPOR); ! 279: break; ! 280: case 57: ! 281: AS(OP2OR); ! 282: break; ! 283: case 58: ! 284: case 59: ! 285: { yytext[yyleng-1] = '\0'; p = mkconst(TYCHAR,yytext+1); ! 286: RETP(CONST,p); } ! 287: break; ! 288: case 60: ! 289: { /* nh construct */ ! 290: int i, n; char c; ! 291: yytext[yyleng-1] = '\0'; n = convci(yytext); ! 292: for(i = 0; i<n ; ++i) ! 293: if( (c=yytext[i]=input()) == '\n' || c=='\0') break; ! 294: yytext[i] = '\0'; ! 295: p = mkconst(TYCHAR,yytext); ! 296: p->vtypep = mkint(i); ! 297: RETP(CONST, p); ! 298: } ! 299: break; ! 300: case 61: ! 301: RETC(TYINT); ! 302: break; ! 303: case 62: ! 304: case 63: ! 305: RETC(TYREAL); ! 306: break; ! 307: case 64: ! 308: case 65: ! 309: RETC(TYREAL); ! 310: break; ! 311: case 66: ! 312: case 67: ! 313: RETC(TYLREAL); ! 314: break; ! 315: case 68: ! 316: { yytext[yyleng-1] = '.'; ! 317: RETP(CONST,mkimcon(TYCOMPLEX,yytext)); } ! 318: break; ! 319: case 69: ! 320: case 70: ! 321: RETZ(TYCOMPLEX); ! 322: break; ! 323: case 71: ! 324: case 72: ! 325: RETZ(TYCOMPLEX); ! 326: break; ! 327: case 73: ! 328: case 74: ! 329: RETZ(TYLCOMPLEX); ! 330: break; ! 331: case 75: ! 332: { if(! nocommentflag) goto litline; } ! 333: break; ! 334: case 76: ! 335: { if(thisexec) thisexec->nftnst += 2; ! 336: if(inproc) ! 337: { ! 338: unput('\n'); ! 339: RETP(ESCAPE, copys(yytext)); ! 340: } ! 341: ! 342: litline: p = mkchain( copys(yytext), CHNULL); ! 343: if(inproc==0 && yytext[0]=='%') ! 344: prevcomments = hookup(prevcomments, p); ! 345: else ! 346: comments = hookup(comments,p); ! 347: } ! 348: break; ! 349: case 77: ! 350: ; ! 351: break; ! 352: case 78: ! 353: ; ! 354: break; ! 355: case 79: ! 356: ; ! 357: break; ! 358: case 80: ! 359: ; ! 360: break; ! 361: case 81: ! 362: { if(igeol) { igeol=0; prevv = NEWLINE; } ! 363: else if(prevv>=NAME || prevv==RPAR || prevv==RBRACK ! 364: || prevv== -1 || prevv==QUALOP) ! 365: RET(EOS); } ! 366: break; ! 367: case 82: ! 368: { char * linerr(); ! 369: fprintf(diagfile, "Bad input character %c %s\n", yytext[0], linerr()); ! 370: ++nerrs; ! 371: } ! 372: break; ! 373: case 83: ! 374: { /* Include statement */ ! 375: char *q1; ! 376: register char *q2; ! 377: for(q1=yytext ; *q1==' ' || *q1=='\t' ; ++q1) ; ! 378: quoted = NO; ! 379: for(q1 += 7 ; *q1==' ' || *q1=='\t' || ! 380: *q1=='\'' || *q1=='"' || *q1=='(' ; ++q1 ) ! 381: if(*q1=='"' || *q1=='\'') ! 382: quoted = YES; ! 383: for(q2=q1 ; *q2!='\0' && *q2!=' ' && *q2!='\n' && ! 384: *q2!='\'' && *q2!='"' && *q2!=')' ; ++q2 ) ! 385: ; ! 386: *q2 = '\0'; ! 387: if( ! quoted) ! 388: for(k=0; (q = name(q1,1)) && q->tag==TDEFINE ; ++k) ! 389: { ! 390: if(k > MAXINCLUDEDEPTH) ! 391: fatal1("Macros too deep for %s", yytext); ! 392: q1 = q->varp->valp; ! 393: } ! 394: if( (fd = opincl(&q1)) == NULL) ! 395: { ! 396: fprintf(diagfile, "Cannot open file %s. Stop.\n", q1); ! 397: exit(2); ! 398: } ! 399: filelines[filedepth] = yylineno; ! 400: pushchars[filedepth] = '\n'; ! 401: if(++filedepth >= MAXINCLUDEDEPTH) ! 402: fatal("macro or include too deep"); ! 403: fileptrs[filedepth] = yyin = fd; ! 404: filenames[filedepth] = copys(q1); ! 405: filelines[filedepth] = yylineno = 1; ! 406: filemacs[filedepth] = NULL; ! 407: } ! 408: break; ! 409: case -1: ! 410: break; ! 411: default: ! 412: fprintf(yyout,"bad switch yylook %d",nstr); ! 413: } return(0); } ! 414: /* end of yylex */ ! 415: ! 416: yywrap() ! 417: { ! 418: if(filedepth == 0) ! 419: { ! 420: ateof = 1; ! 421: return(1); ! 422: } ! 423: ! 424: if(efmacp == 0) ! 425: { ! 426: fclose(yyin); ! 427: cfree(filenames[filedepth]); ! 428: } ! 429: ! 430: --filedepth; ! 431: if( filemacs[filedepth] ) ! 432: efmacp = filemacs[filedepth]; ! 433: else { ! 434: yyin = fileptrs[filedepth]; ! 435: efmacp = 0; ! 436: } ! 437: yylineno = filelines[filedepth]; ! 438: if(pushchars[filedepth] != -1) ! 439: unput( pushchars[filedepth] ); ! 440: return(0); ! 441: } ! 442: ! 443: ! 444: ! 445: lower(s) /* replace upper with lower case letters */ ! 446: register char *s; ! 447: { ! 448: register char *t; ! 449: for(t=s ; *t ; ++t) ! 450: if( isupper(*t) ) ! 451: *s++ = tolower(*t); ! 452: else if(*t != '_') ! 453: *s++ = *t; ! 454: } ! 455: ! 456: ! 457: ! 458: ! 459: setdot(k) ! 460: int k; ! 461: { ! 462: if(k) ! 463: BEGIN DOTSON; ! 464: else BEGIN 0; ! 465: } ! 466: ! 467: ! 468: ! 469: ! 470: FILE *opincl(namep) ! 471: char **namep; ! 472: { ! 473: #ifndef unix ! 474: return( fopen(*namep, "r") ); ! 475: #else ! 476: ! 477: /* On Unix, follow the C include conventions */ ! 478: ! 479: register char *s, *lastslash; ! 480: char *dir, *name, temp[100]; ! 481: int i; ! 482: FILE *fp; ! 483: ! 484: name = *namep; ! 485: if(name[0] == '/') ! 486: return( fopen(name, "r") ); ! 487: ! 488: dir = basefile; ! 489: for(i = filedepth ; i>=0 ; --i) ! 490: if( filemacs[i] == NULL) ! 491: { ! 492: dir = filenames[i]; ! 493: break; ! 494: } ! 495: ! 496: lastslash = NULL; ! 497: for(s = dir ; *s ; ++s) ! 498: if(*s == '/') ! 499: lastslash = s; ! 500: if(lastslash) ! 501: { ! 502: *lastslash = '\0'; ! 503: sprintf(temp, "%s/%s", dir, name); ! 504: *lastslash = '/'; ! 505: if( fp = fopen(temp, "r") ) ! 506: *namep = temp; ! 507: } ! 508: else ! 509: fp = fopen(name, "r"); ! 510: ! 511: if(fp == NULL) ! 512: { ! 513: sprintf(temp, "/usr/include/%s", name); ! 514: fp = fopen(temp, "r"); ! 515: *namep = temp; ! 516: } ! 517: return(fp); ! 518: ! 519: #endif ! 520: } ! 521: ! 522: int yyvstop[] ={ ! 523: 0, ! 524: ! 525: 82, ! 526: 0, ! 527: ! 528: 78, ! 529: 82, ! 530: 0, ! 531: ! 532: 81, ! 533: 0, ! 534: ! 535: 79, ! 536: 82, ! 537: 0, ! 538: ! 539: 77, ! 540: 82, ! 541: 0, ! 542: ! 543: 23, ! 544: 82, ! 545: 0, ! 546: ! 547: 82, ! 548: 0, ! 549: ! 550: 75, ! 551: 82, ! 552: 0, ! 553: ! 554: 12, ! 555: 82, ! 556: 0, ! 557: ! 558: 18, ! 559: 82, ! 560: 0, ! 561: ! 562: 82, ! 563: 0, ! 564: ! 565: 4, ! 566: 82, ! 567: 0, ! 568: ! 569: 5, ! 570: 82, ! 571: 0, ! 572: ! 573: 41, ! 574: 82, ! 575: 0, ! 576: ! 577: 39, ! 578: 82, ! 579: 0, ! 580: ! 581: 2, ! 582: 10, ! 583: 82, ! 584: 0, ! 585: ! 586: 40, ! 587: 82, ! 588: 0, ! 589: ! 590: 38, ! 591: 82, ! 592: 0, ! 593: ! 594: 42, ! 595: 82, ! 596: 0, ! 597: ! 598: 61, ! 599: 82, ! 600: 0, ! 601: ! 602: 11, ! 603: 82, ! 604: 0, ! 605: ! 606: 3, ! 607: 82, ! 608: 0, ! 609: ! 610: 25, ! 611: 82, ! 612: 0, ! 613: ! 614: 47, ! 615: 82, ! 616: 0, ! 617: ! 618: 29, ! 619: 82, ! 620: 0, ! 621: ! 622: 1, ! 623: 82, ! 624: 0, ! 625: ! 626: 6, ! 627: 82, ! 628: 0, ! 629: ! 630: 8, ! 631: 82, ! 632: 0, ! 633: ! 634: 44, ! 635: 82, ! 636: 0, ! 637: ! 638: 82, ! 639: 0, ! 640: ! 641: 7, ! 642: 82, ! 643: 0, ! 644: ! 645: 14, ! 646: 82, ! 647: 0, ! 648: ! 649: 9, ! 650: 82, ! 651: 0, ! 652: ! 653: 22, ! 654: 82, ! 655: 0, ! 656: ! 657: 78, ! 658: 82, ! 659: 0, ! 660: ! 661: 77, ! 662: 82, ! 663: 0, ! 664: ! 665: 76, ! 666: 82, ! 667: 0, ! 668: ! 669: 1, ! 670: 82, ! 671: 0, ! 672: ! 673: 38, ! 674: 82, ! 675: 0, ! 676: ! 677: 36, ! 678: 0, ! 679: ! 680: 59, ! 681: 0, ! 682: ! 683: 75, ! 684: 0, ! 685: ! 686: 20, ! 687: 0, ! 688: ! 689: 54, ! 690: 0, ! 691: ! 692: 58, ! 693: 0, ! 694: ! 695: 43, ! 696: 0, ! 697: ! 698: 50, ! 699: 0, ! 700: ! 701: 45, ! 702: 0, ! 703: ! 704: 48, ! 705: 0, ! 706: ! 707: 46, ! 708: 0, ! 709: ! 710: 49, ! 711: 0, ! 712: ! 713: 37, ! 714: 0, ! 715: ! 716: 63, ! 717: 0, ! 718: ! 719: 51, ! 720: 0, ! 721: ! 722: 62, ! 723: 0, ! 724: ! 725: 61, ! 726: 0, ! 727: ! 728: 60, ! 729: 0, ! 730: ! 731: 68, ! 732: 0, ! 733: ! 734: 27, ! 735: 0, ! 736: ! 737: 33, ! 738: 0, ! 739: ! 740: 31, ! 741: 0, ! 742: ! 743: 1, ! 744: 0, ! 745: ! 746: 53, ! 747: 0, ! 748: ! 749: 80, ! 750: 0, ! 751: ! 752: 56, ! 753: 0, ! 754: ! 755: 16, ! 756: 0, ! 757: ! 758: 35, ! 759: 0, ! 760: ! 761: 76, ! 762: 0, ! 763: ! 764: 1, ! 765: 0, ! 766: ! 767: 55, ! 768: 0, ! 769: ! 770: 52, ! 771: 0, ! 772: ! 773: 70, ! 774: 0, ! 775: ! 776: 62, ! 777: 63, ! 778: 0, ! 779: ! 780: 69, ! 781: 0, ! 782: ! 783: 66, ! 784: 0, ! 785: ! 786: 64, ! 787: 0, ! 788: ! 789: 57, ! 790: 0, ! 791: ! 792: 1, ! 793: 0, ! 794: ! 795: 67, ! 796: 0, ! 797: ! 798: 65, ! 799: 0, ! 800: ! 801: 69, ! 802: 70, ! 803: 0, ! 804: ! 805: 73, ! 806: 0, ! 807: ! 808: 71, ! 809: 0, ! 810: ! 811: 1, ! 812: 0, ! 813: ! 814: 32, ! 815: 0, ! 816: ! 817: 30, ! 818: 0, ! 819: ! 820: 28, ! 821: 0, ! 822: ! 823: 26, ! 824: 0, ! 825: ! 826: 24, ! 827: 0, ! 828: ! 829: 34, ! 830: 0, ! 831: ! 832: 13, ! 833: 0, ! 834: ! 835: 74, ! 836: 0, ! 837: ! 838: 72, ! 839: 0, ! 840: ! 841: 66, ! 842: 67, ! 843: 0, ! 844: ! 845: 64, ! 846: 65, ! 847: 0, ! 848: ! 849: 1, ! 850: 0, ! 851: ! 852: 17, ! 853: 0, ! 854: ! 855: 15, ! 856: 0, ! 857: ! 858: 21, ! 859: 0, ! 860: ! 861: 73, ! 862: 74, ! 863: 0, ! 864: ! 865: 71, ! 866: 72, ! 867: 0, ! 868: ! 869: 1, ! 870: 0, ! 871: ! 872: 19, ! 873: 0, ! 874: ! 875: 1, ! 876: 0, ! 877: ! 878: 83, ! 879: 0, ! 880: 0}; ! 881: # define YYTYPE int ! 882: struct yywork { YYTYPE verify, advance; } yycrank[] ={ ! 883: 0,0, 0,0, 1,5, 0,0, ! 884: 0,0, 0,0, 0,0, 0,0, ! 885: 0,0, 0,0, 1,6, 1,7, ! 886: 45,0, 1,8, 47,0, 34,72, ! 887: 34,73, 50,0, 79,0, 0,0, ! 888: 0,0, 0,0, 0,0, 0,0, ! 889: 0,0, 0,0, 0,0, 0,0, ! 890: 0,0, 0,0, 0,0, 0,0, ! 891: 0,0, 1,9, 1,10, 1,11, ! 892: 1,12, 1,13, 34,72, 1,14, ! 893: 1,15, 1,16, 1,17, 1,18, ! 894: 1,19, 1,20, 1,21, 1,22, ! 895: 1,23, 1,24, 0,0, 0,0, ! 896: 14,48, 19,54, 0,0, 0,0, ! 897: 0,0, 18,52, 105,127, 1,25, ! 898: 1,26, 1,27, 1,28, 1,29, ! 899: 10,44, 23,60, 1,30, 1,30, ! 900: 1,30, 1,30, 1,30, 19,55, ! 901: 1,30, 1,30, 1,30, 14,49, ! 902: 18,53, 1,30, 27,67, 1,30, ! 903: 1,30, 2,39, 1,30, 1,30, ! 904: 2,8, 1,30, 1,30, 28,68, ! 905: 29,69, 33,71, 38,76, 36,74, ! 906: 1,31, 48,88, 1,32, 1,33, ! 907: 1,34, 42,80, 39,77, 52,89, ! 908: 75,99, 106,128, 107,129, 78,100, ! 909: 2,40, 2,10, 80,101, 2,12, ! 910: 2,13, 2,41, 2,14, 108,130, ! 911: 2,16, 2,17, 2,18, 109,131, ! 912: 2,20, 2,21, 2,22, 2,23, ! 913: 21,56, 39,77, 110,132, 3,8, ! 914: 1,35, 1,36, 1,37, 1,38, ! 915: 81,102, 42,80, 2,25, 2,26, ! 916: 2,27, 2,28, 2,29, 78,100, ! 917: 21,57, 21,58, 80,101, 112,134, ! 918: 124,143, 126,145, 133,146, 3,9, ! 919: 3,10, 2,42, 3,12, 3,13, ! 920: 144,151, 3,14, 0,0, 3,16, ! 921: 3,17, 3,18, 36,75, 3,20, ! 922: 3,21, 3,43, 3,23, 83,105, ! 923: 81,102, 87,112, 39,78, 2,31, ! 924: 0,0, 2,32, 2,33, 96,120, ! 925: 0,0, 3,25, 3,26, 3,27, ! 926: 3,28, 3,29, 22,59, 22,59, ! 927: 22,59, 22,59, 22,59, 22,59, ! 928: 22,59, 22,59, 22,59, 22,59, ! 929: 0,0, 0,0, 0,0, 98,121, ! 930: 0,0, 4,39, 0,0, 83,105, ! 931: 4,8, 87,112, 39,78, 2,35, ! 932: 2,36, 2,37, 2,38, 96,120, ! 933: 82,103, 0,0, 3,31, 0,0, ! 934: 3,32, 3,33, 0,0, 0,0, ! 935: 0,0, 0,0, 0,0, 0,0, ! 936: 4,40, 4,10, 82,104, 4,12, ! 937: 4,13, 4,41, 4,14, 98,121, ! 938: 4,16, 4,17, 4,18, 0,0, ! 939: 4,20, 4,21, 4,43, 4,23, ! 940: 59,90, 59,91, 84,106, 0,0, ! 941: 82,103, 59,92, 3,35, 3,36, ! 942: 3,37, 3,38, 4,25, 4,26, ! 943: 4,27, 4,28, 4,29, 11,45, ! 944: 0,0, 84,107, 82,104, 86,110, ! 945: 85,108, 0,0, 100,122, 11,45, ! 946: 11,0, 4,42, 93,117, 93,118, ! 947: 101,123, 86,111, 0,0, 93,119, ! 948: 59,90, 59,91, 84,106, 85,109, ! 949: 102,124, 59,92, 103,125, 104,126, ! 950: 0,0, 0,0, 111,133, 4,31, ! 951: 0,0, 4,32, 4,33, 0,0, ! 952: 11,46, 84,107, 0,0, 86,110, ! 953: 85,108, 11,45, 100,122, 0,0, ! 954: 114,135, 11,45, 93,117, 93,118, ! 955: 101,123, 86,111, 11,45, 93,119, ! 956: 12,47, 0,0, 0,0, 85,109, ! 957: 102,124, 116,136, 103,125, 104,126, ! 958: 12,47, 12,0, 111,133, 4,35, ! 959: 4,36, 4,37, 4,38, 11,45, ! 960: 11,45, 11,45, 11,45, 11,45, ! 961: 122,141, 11,45, 11,45, 11,45, ! 962: 114,135, 0,0, 11,45, 123,142, ! 963: 11,45, 11,45, 125,144, 11,45, ! 964: 11,45, 12,47, 11,45, 11,45, ! 965: 0,0, 116,136, 12,47, 0,0, ! 966: 0,0, 138,147, 12,47, 0,0, ! 967: 140,148, 11,45, 0,0, 12,47, ! 968: 0,0, 15,50, 0,0, 0,0, ! 969: 122,141, 141,149, 142,150, 0,0, ! 970: 149,152, 15,50, 15,0, 123,142, ! 971: 150,153, 0,0, 125,144, 0,0, ! 972: 12,47, 12,47, 12,47, 12,47, ! 973: 12,47, 0,0, 12,47, 12,47, ! 974: 12,47, 138,147, 0,0, 12,47, ! 975: 140,148, 12,47, 12,47, 152,154, ! 976: 12,47, 12,47, 15,50, 12,47, ! 977: 12,47, 141,149, 142,150, 15,51, ! 978: 149,152, 0,0, 0,0, 15,50, ! 979: 150,153, 63,95, 12,47, 63,95, ! 980: 15,50, 0,0, 63,96, 63,96, ! 981: 63,96, 63,96, 63,96, 63,96, ! 982: 63,96, 63,96, 63,96, 63,96, ! 983: 0,0, 0,0, 0,0, 152,154, ! 984: 0,0, 15,50, 15,50, 15,50, ! 985: 15,50, 15,50, 0,0, 15,50, ! 986: 15,50, 15,50, 0,0, 0,0, ! 987: 15,50, 0,0, 15,50, 15,50, ! 988: 0,0, 15,50, 15,50, 0,0, ! 989: 15,50, 15,50, 0,0, 0,0, ! 990: 0,0, 0,0, 0,0, 0,0, ! 991: 0,0, 0,0, 24,61, 15,50, ! 992: 24,62, 24,62, 24,62, 24,62, ! 993: 24,62, 24,62, 24,62, 24,62, ! 994: 24,62, 24,62, 95,96, 95,96, ! 995: 95,96, 95,96, 95,96, 95,96, ! 996: 95,96, 95,96, 95,96, 95,96, ! 997: 24,63, 24,64, 0,0, 0,0, ! 998: 24,65, 24,66, 64,97, 0,0, ! 999: 64,97, 0,0, 0,0, 64,98, ! 1000: 64,98, 64,98, 64,98, 64,98, ! 1001: 64,98, 64,98, 64,98, 64,98, ! 1002: 64,98, 30,70, 30,70, 30,70, ! 1003: 30,70, 30,70, 30,70, 30,70, ! 1004: 30,70, 30,70, 30,70, 0,0, ! 1005: 24,63, 24,64, 0,0, 0,0, ! 1006: 24,65, 24,66, 30,70, 30,70, ! 1007: 30,70, 30,70, 30,70, 30,70, ! 1008: 30,70, 30,70, 30,70, 30,70, ! 1009: 30,70, 30,70, 30,70, 30,70, ! 1010: 30,70, 30,70, 30,70, 30,70, ! 1011: 30,70, 30,70, 30,70, 30,70, ! 1012: 30,70, 30,70, 30,70, 30,70, ! 1013: 0,0, 0,0, 0,0, 0,0, ! 1014: 30,70, 0,0, 30,70, 30,70, ! 1015: 30,70, 30,70, 30,70, 30,70, ! 1016: 30,70, 30,70, 30,70, 30,70, ! 1017: 30,70, 30,70, 30,70, 30,70, ! 1018: 30,70, 30,70, 30,70, 30,70, ! 1019: 30,70, 30,70, 30,70, 30,70, ! 1020: 30,70, 30,70, 30,70, 30,70, ! 1021: 41,79, 0,0, 0,0, 0,0, ! 1022: 0,0, 90,113, 0,0, 90,113, ! 1023: 41,79, 41,0, 90,114, 90,114, ! 1024: 90,114, 90,114, 90,114, 90,114, ! 1025: 90,114, 90,114, 90,114, 90,114, ! 1026: 97,98, 97,98, 97,98, 97,98, ! 1027: 97,98, 97,98, 97,98, 97,98, ! 1028: 97,98, 97,98, 0,0, 0,0, ! 1029: 0,0, 41,79, 0,0, 0,0, ! 1030: 0,0, 0,0, 41,79, 0,0, ! 1031: 0,0, 0,0, 41,79, 91,115, ! 1032: 0,0, 91,115, 0,0, 41,79, ! 1033: 91,116, 91,116, 91,116, 91,116, ! 1034: 91,116, 91,116, 91,116, 91,116, ! 1035: 91,116, 91,116, 0,0, 0,0, ! 1036: 0,0, 0,0, 0,0, 0,0, ! 1037: 41,79, 41,79, 41,79, 41,79, ! 1038: 41,79, 0,0, 41,79, 41,79, ! 1039: 41,79, 0,0, 0,0, 41,79, ! 1040: 0,0, 41,79, 41,79, 0,0, ! 1041: 41,79, 41,79, 0,0, 41,79, ! 1042: 41,79, 0,0, 0,0, 0,0, ! 1043: 0,0, 0,0, 0,0, 0,0, ! 1044: 0,0, 0,0, 41,79, 43,59, ! 1045: 43,59, 43,59, 43,59, 43,59, ! 1046: 43,59, 43,59, 43,59, 43,59, ! 1047: 43,59, 0,0, 0,0, 0,0, ! 1048: 0,0, 0,0, 0,0, 0,0, ! 1049: 43,81, 0,0, 43,82, 0,0, ! 1050: 43,83, 0,0, 43,84, 0,0, ! 1051: 0,0, 0,0, 0,0, 43,85, ! 1052: 0,0, 43,86, 43,87, 0,0, ! 1053: 0,0, 0,0, 0,0, 61,93, ! 1054: 61,93, 61,93, 61,93, 61,93, ! 1055: 61,93, 61,93, 61,93, 61,93, ! 1056: 61,93, 0,0, 0,0, 0,0, ! 1057: 43,81, 0,0, 43,82, 0,0, ! 1058: 43,83, 0,0, 43,84, 61,63, ! 1059: 61,64, 0,0, 0,0, 43,85, ! 1060: 61,94, 43,86, 43,87, 113,114, ! 1061: 113,114, 113,114, 113,114, 113,114, ! 1062: 113,114, 113,114, 113,114, 113,114, ! 1063: 113,114, 115,116, 115,116, 115,116, ! 1064: 115,116, 115,116, 115,116, 115,116, ! 1065: 115,116, 115,116, 115,116, 0,0, ! 1066: 0,0, 0,0, 0,0, 61,63, ! 1067: 61,64, 117,137, 0,0, 117,137, ! 1068: 61,94, 0,0, 117,138, 117,138, ! 1069: 117,138, 117,138, 117,138, 117,138, ! 1070: 117,138, 117,138, 117,138, 117,138, ! 1071: 118,139, 0,0, 118,139, 0,0, ! 1072: 0,0, 118,140, 118,140, 118,140, ! 1073: 118,140, 118,140, 118,140, 118,140, ! 1074: 118,140, 118,140, 118,140, 137,138, ! 1075: 137,138, 137,138, 137,138, 137,138, ! 1076: 137,138, 137,138, 137,138, 137,138, ! 1077: 137,138, 139,140, 139,140, 139,140, ! 1078: 139,140, 139,140, 139,140, 139,140, ! 1079: 139,140, 139,140, 139,140, 153,154, ! 1080: 0,0, 0,0, 0,0, 0,0, ! 1081: 0,0, 0,0, 0,0, 153,154, ! 1082: 153,155, 0,0, 0,0, 0,0, ! 1083: 0,0, 0,0, 0,0, 0,0, ! 1084: 0,0, 0,0, 0,0, 0,0, ! 1085: 0,0, 0,0, 0,0, 0,0, ! 1086: 0,0, 0,0, 0,0, 0,0, ! 1087: 0,0, 0,0, 0,0, 0,0, ! 1088: 153,154, 0,0, 0,0, 0,0, ! 1089: 0,0, 153,154, 0,0, 0,0, ! 1090: 0,0, 153,154, 0,0, 0,0, ! 1091: 0,0, 0,0, 153,153, 0,0, ! 1092: 0,0, 0,0, 0,0, 0,0, ! 1093: 0,0, 0,0, 0,0, 0,0, ! 1094: 0,0, 0,0, 0,0, 0,0, ! 1095: 0,0, 0,0, 0,0, 153,153, ! 1096: 153,153, 153,153, 153,153, 153,153, ! 1097: 0,0, 153,153, 153,153, 153,153, ! 1098: 0,0, 0,0, 153,153, 0,0, ! 1099: 153,153, 153,153, 154,154, 153,153, ! 1100: 153,153, 0,0, 153,153, 153,153, ! 1101: 0,0, 0,0, 0,0, 0,0, ! 1102: 0,0, 0,0, 0,0, 0,0, ! 1103: 0,0, 153,153, 0,0, 154,154, ! 1104: 154,154, 154,154, 154,154, 154,154, ! 1105: 0,0, 154,154, 154,154, 154,154, ! 1106: 0,0, 0,0, 154,154, 0,0, ! 1107: 154,154, 154,154, 0,0, 154,154, ! 1108: 154,154, 0,0, 154,154, 154,154, ! 1109: 0,0, 0,0, 0,0, 0,0, ! 1110: 0,0, 0,0, 0,0, 0,0, ! 1111: 0,0, 154,154, 0,0, 0,0, ! 1112: 0,0}; ! 1113: struct yysvf yysvec[] ={ ! 1114: 0, 0, 0, ! 1115: yycrank+-1, 0, 0, ! 1116: yycrank+-72, yysvec+1, 0, ! 1117: yycrank+-111, yysvec+1, 0, ! 1118: yycrank+-180, yysvec+1, 0, ! 1119: yycrank+0, 0, yyvstop+1, ! 1120: yycrank+0, 0, yyvstop+3, ! 1121: yycrank+0, 0, yyvstop+6, ! 1122: yycrank+0, 0, yyvstop+8, ! 1123: yycrank+0, 0, yyvstop+11, ! 1124: yycrank+3, 0, yyvstop+14, ! 1125: yycrank+-242, 0, yyvstop+17, ! 1126: yycrank+-291, 0, yyvstop+19, ! 1127: yycrank+0, 0, yyvstop+22, ! 1128: yycrank+14, 0, yyvstop+25, ! 1129: yycrank+-340, 0, yyvstop+28, ! 1130: yycrank+0, 0, yyvstop+30, ! 1131: yycrank+0, 0, yyvstop+33, ! 1132: yycrank+15, 0, yyvstop+36, ! 1133: yycrank+10, 0, yyvstop+39, ! 1134: yycrank+0, 0, yyvstop+42, ! 1135: yycrank+75, 0, yyvstop+46, ! 1136: yycrank+126, 0, yyvstop+49, ! 1137: yycrank+4, 0, yyvstop+52, ! 1138: yycrank+388, 0, yyvstop+55, ! 1139: yycrank+0, 0, yyvstop+58, ! 1140: yycrank+0, 0, yyvstop+61, ! 1141: yycrank+17, 0, yyvstop+64, ! 1142: yycrank+26, 0, yyvstop+67, ! 1143: yycrank+27, 0, yyvstop+70, ! 1144: yycrank+429, 0, yyvstop+73, ! 1145: yycrank+0, 0, yyvstop+76, ! 1146: yycrank+0, 0, yyvstop+79, ! 1147: yycrank+28, 0, yyvstop+82, ! 1148: yycrank+6, 0, yyvstop+85, ! 1149: yycrank+0, 0, yyvstop+87, ! 1150: yycrank+30, 0, yyvstop+90, ! 1151: yycrank+0, 0, yyvstop+93, ! 1152: yycrank+29, 0, yyvstop+96, ! 1153: yycrank+89, 0, yyvstop+99, ! 1154: yycrank+0, yysvec+39, yyvstop+102, ! 1155: yycrank+-551, 0, yyvstop+105, ! 1156: yycrank+19, yysvec+30, yyvstop+108, ! 1157: yycrank+599, 0, yyvstop+111, ! 1158: yycrank+0, 0, yyvstop+114, ! 1159: yycrank+-2, yysvec+11, 0, ! 1160: yycrank+0, 0, yyvstop+116, ! 1161: yycrank+-4, yysvec+12, yyvstop+118, ! 1162: yycrank+32, 0, yyvstop+120, ! 1163: yycrank+0, 0, yyvstop+122, ! 1164: yycrank+-7, yysvec+15, 0, ! 1165: yycrank+0, 0, yyvstop+124, ! 1166: yycrank+38, 0, yyvstop+126, ! 1167: yycrank+0, 0, yyvstop+128, ! 1168: yycrank+0, 0, yyvstop+130, ! 1169: yycrank+0, 0, yyvstop+132, ! 1170: yycrank+0, 0, yyvstop+134, ! 1171: yycrank+0, 0, yyvstop+136, ! 1172: yycrank+0, 0, yyvstop+138, ! 1173: yycrank+160, yysvec+22, yyvstop+140, ! 1174: yycrank+0, 0, yyvstop+142, ! 1175: yycrank+635, 0, yyvstop+144, ! 1176: yycrank+0, yysvec+24, yyvstop+146, ! 1177: yycrank+342, 0, 0, ! 1178: yycrank+419, 0, 0, ! 1179: yycrank+0, 0, yyvstop+148, ! 1180: yycrank+0, 0, yyvstop+150, ! 1181: yycrank+0, 0, yyvstop+152, ! 1182: yycrank+0, 0, yyvstop+154, ! 1183: yycrank+0, 0, yyvstop+156, ! 1184: yycrank+0, yysvec+30, yyvstop+158, ! 1185: yycrank+0, 0, yyvstop+160, ! 1186: yycrank+0, yysvec+34, 0, ! 1187: yycrank+0, 0, yyvstop+162, ! 1188: yycrank+0, 0, yyvstop+164, ! 1189: yycrank+39, 0, yyvstop+166, ! 1190: yycrank+0, 0, yyvstop+168, ! 1191: yycrank+0, yysvec+39, 0, ! 1192: yycrank+25, 0, 0, ! 1193: yycrank+-8, yysvec+41, yyvstop+170, ! 1194: yycrank+39, yysvec+30, yyvstop+172, ! 1195: yycrank+50, 0, 0, ! 1196: yycrank+135, 0, 0, ! 1197: yycrank+78, 0, 0, ! 1198: yycrank+161, 0, 0, ! 1199: yycrank+179, 0, 0, ! 1200: yycrank+178, 0, 0, ! 1201: yycrank+79, 0, 0, ! 1202: yycrank+0, 0, yyvstop+174, ! 1203: yycrank+0, 0, yyvstop+176, ! 1204: yycrank+514, 0, 0, ! 1205: yycrank+552, 0, 0, ! 1206: yycrank+0, 0, yyvstop+178, ! 1207: yycrank+186, yysvec+61, yyvstop+180, ! 1208: yycrank+0, 0, yyvstop+183, ! 1209: yycrank+398, 0, 0, ! 1210: yycrank+94, yysvec+95, yyvstop+185, ! 1211: yycrank+524, 0, 0, ! 1212: yycrank+114, yysvec+97, yyvstop+187, ! 1213: yycrank+0, 0, yyvstop+189, ! 1214: yycrank+183, 0, 0, ! 1215: yycrank+180, yysvec+30, yyvstop+191, ! 1216: yycrank+196, 0, 0, ! 1217: yycrank+188, 0, 0, ! 1218: yycrank+185, 0, 0, ! 1219: yycrank+12, 0, 0, ! 1220: yycrank+55, 0, 0, ! 1221: yycrank+56, 0, 0, ! 1222: yycrank+65, 0, 0, ! 1223: yycrank+69, 0, 0, ! 1224: yycrank+76, 0, 0, ! 1225: yycrank+186, 0, 0, ! 1226: yycrank+93, 0, 0, ! 1227: yycrank+663, 0, 0, ! 1228: yycrank+211, yysvec+113, yyvstop+193, ! 1229: yycrank+673, 0, 0, ! 1230: yycrank+224, yysvec+115, yyvstop+195, ! 1231: yycrank+694, 0, 0, ! 1232: yycrank+709, 0, 0, ! 1233: yycrank+0, 0, yyvstop+197, ! 1234: yycrank+0, 0, yyvstop+200, ! 1235: yycrank+0, 0, yyvstop+202, ! 1236: yycrank+236, 0, 0, ! 1237: yycrank+234, yysvec+30, yyvstop+204, ! 1238: yycrank+94, 0, 0, ! 1239: yycrank+254, 0, 0, ! 1240: yycrank+95, 0, 0, ! 1241: yycrank+0, 0, yyvstop+206, ! 1242: yycrank+0, 0, yyvstop+208, ! 1243: yycrank+0, 0, yyvstop+210, ! 1244: yycrank+0, 0, yyvstop+212, ! 1245: yycrank+0, 0, yyvstop+214, ! 1246: yycrank+0, 0, yyvstop+216, ! 1247: yycrank+96, 0, 0, ! 1248: yycrank+0, 0, yyvstop+218, ! 1249: yycrank+0, 0, yyvstop+220, ! 1250: yycrank+0, 0, yyvstop+222, ! 1251: yycrank+719, 0, 0, ! 1252: yycrank+260, yysvec+137, yyvstop+224, ! 1253: yycrank+729, 0, 0, ! 1254: yycrank+263, yysvec+139, yyvstop+227, ! 1255: yycrank+260, 0, 0, ! 1256: yycrank+278, yysvec+30, yyvstop+230, ! 1257: yycrank+0, 0, yyvstop+232, ! 1258: yycrank+102, 0, 0, ! 1259: yycrank+0, 0, yyvstop+234, ! 1260: yycrank+0, 0, yyvstop+236, ! 1261: yycrank+0, 0, yyvstop+238, ! 1262: yycrank+0, 0, yyvstop+241, ! 1263: yycrank+280, 0, 0, ! 1264: yycrank+283, yysvec+30, yyvstop+244, ! 1265: yycrank+0, 0, yyvstop+246, ! 1266: yycrank+302, 0, 0, ! 1267: yycrank+-786, 0, yyvstop+248, ! 1268: yycrank+-818, yysvec+153, 0, ! 1269: yycrank+0, 0, yyvstop+250, ! 1270: 0, 0, 0}; ! 1271: struct yywork *yytop = yycrank+913; ! 1272: struct yysvf *yybgin = yysvec+1; ! 1273: char yymatch[] ={ ! 1274: 00 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 1275: 01 ,011 ,012 ,01 ,01 ,01 ,01 ,01 , ! 1276: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 1277: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 1278: 011 ,01 ,'"' ,01 ,01 ,01 ,01 ,047 , ! 1279: 01 ,01 ,01 ,'+' ,01 ,'+' ,01 ,01 , ! 1280: '0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' ,'0' , ! 1281: '0' ,'0' ,01 ,01 ,01 ,01 ,01 ,01 , ! 1282: 01 ,'A' ,'B' ,'C' ,'D' ,'E' ,'B' ,'G' , ! 1283: 'H' ,'I' ,'B' ,'B' ,'L' ,'B' ,'N' ,'O' , ! 1284: 'B' ,'Q' ,'R' ,'B' ,'T' ,'U' ,'B' ,'B' , ! 1285: 'B' ,'B' ,'B' ,01 ,01 ,01 ,01 ,'_' , ! 1286: 01 ,'A' ,'B' ,'C' ,'D' ,'E' ,'B' ,'G' , ! 1287: 'H' ,'I' ,'B' ,'B' ,'L' ,'B' ,'N' ,'O' , ! 1288: 'B' ,'Q' ,'R' ,'B' ,'T' ,'U' ,'B' ,'B' , ! 1289: 'B' ,'B' ,'B' ,01 ,01 ,01 ,01 ,01 , ! 1290: 0}; ! 1291: char yyextra[] ={ ! 1292: 0,0,0,0,0,0,0,0, ! 1293: 0,0,0,0,0,0,0,0, ! 1294: 0,0,0,0,0,0,0,0, ! 1295: 0,0,0,0,0,0,0,0, ! 1296: 0,0,0,0,0,0,0,0, ! 1297: 0,0,0,0,0,0,0,0, ! 1298: 0,0,0,0,0,0,0,0, ! 1299: 0,0,0,0,0,0,0,0, ! 1300: 0,0,0,0,0,0,0,0, ! 1301: 0,0,0,0,0,0,0,0, ! 1302: 0,0,0,0,0,0,0,0, ! 1303: 0}; ! 1304: /* ncform 4.1 83/08/11 */ ! 1305: ! 1306: int yylineno =1; ! 1307: # define YYU(x) x ! 1308: # define NLSTATE yyprevious=YYNEWLINE ! 1309: char yytext[YYLMAX]; ! 1310: struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp; ! 1311: char yysbuf[YYLMAX]; ! 1312: char *yysptr = yysbuf; ! 1313: int *yyfnd; ! 1314: extern struct yysvf *yyestate; ! 1315: int yyprevious = YYNEWLINE; ! 1316: yylook(){ ! 1317: register struct yysvf *yystate, **lsp; ! 1318: register struct yywork *yyt; ! 1319: struct yysvf *yyz; ! 1320: int yych; ! 1321: struct yywork *yyr; ! 1322: # ifdef LEXDEBUG ! 1323: int debug; ! 1324: # endif ! 1325: char *yylastch; ! 1326: /* start off machines */ ! 1327: # ifdef LEXDEBUG ! 1328: debug = 0; ! 1329: # endif ! 1330: if (!yymorfg) ! 1331: yylastch = yytext; ! 1332: else { ! 1333: yymorfg=0; ! 1334: yylastch = yytext+yyleng; ! 1335: } ! 1336: for(;;){ ! 1337: lsp = yylstate; ! 1338: yyestate = yystate = yybgin; ! 1339: if (yyprevious==YYNEWLINE) yystate++; ! 1340: for (;;){ ! 1341: # ifdef LEXDEBUG ! 1342: if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1); ! 1343: # endif ! 1344: yyt = yystate->yystoff; ! 1345: if(yyt == yycrank){ /* may not be any transitions */ ! 1346: yyz = yystate->yyother; ! 1347: if(yyz == 0)break; ! 1348: if(yyz->yystoff == yycrank)break; ! 1349: } ! 1350: *yylastch++ = yych = input(); ! 1351: tryagain: ! 1352: # ifdef LEXDEBUG ! 1353: if(debug){ ! 1354: fprintf(yyout,"char "); ! 1355: allprint(yych); ! 1356: putchar('\n'); ! 1357: } ! 1358: # endif ! 1359: yyr = yyt; ! 1360: if ( (int)yyt > (int)yycrank){ ! 1361: yyt = yyr + yych; ! 1362: if (yyt <= yytop && yyt->verify+yysvec == yystate){ ! 1363: if(yyt->advance+yysvec == YYLERR) /* error transitions */ ! 1364: {unput(*--yylastch);break;} ! 1365: *lsp++ = yystate = yyt->advance+yysvec; ! 1366: goto contin; ! 1367: } ! 1368: } ! 1369: # ifdef YYOPTIM ! 1370: else if((int)yyt < (int)yycrank) { /* r < yycrank */ ! 1371: yyt = yyr = yycrank+(yycrank-yyt); ! 1372: # ifdef LEXDEBUG ! 1373: if(debug)fprintf(yyout,"compressed state\n"); ! 1374: # endif ! 1375: yyt = yyt + yych; ! 1376: if(yyt <= yytop && yyt->verify+yysvec == yystate){ ! 1377: if(yyt->advance+yysvec == YYLERR) /* error transitions */ ! 1378: {unput(*--yylastch);break;} ! 1379: *lsp++ = yystate = yyt->advance+yysvec; ! 1380: goto contin; ! 1381: } ! 1382: yyt = yyr + YYU(yymatch[yych]); ! 1383: # ifdef LEXDEBUG ! 1384: if(debug){ ! 1385: fprintf(yyout,"try fall back character "); ! 1386: allprint(YYU(yymatch[yych])); ! 1387: putchar('\n'); ! 1388: } ! 1389: # endif ! 1390: if(yyt <= yytop && yyt->verify+yysvec == yystate){ ! 1391: if(yyt->advance+yysvec == YYLERR) /* error transition */ ! 1392: {unput(*--yylastch);break;} ! 1393: *lsp++ = yystate = yyt->advance+yysvec; ! 1394: goto contin; ! 1395: } ! 1396: } ! 1397: if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){ ! 1398: # ifdef LEXDEBUG ! 1399: if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1); ! 1400: # endif ! 1401: goto tryagain; ! 1402: } ! 1403: # endif ! 1404: else ! 1405: {unput(*--yylastch);break;} ! 1406: contin: ! 1407: # ifdef LEXDEBUG ! 1408: if(debug){ ! 1409: fprintf(yyout,"state %d char ",yystate-yysvec-1); ! 1410: allprint(yych); ! 1411: putchar('\n'); ! 1412: } ! 1413: # endif ! 1414: ; ! 1415: } ! 1416: # ifdef LEXDEBUG ! 1417: if(debug){ ! 1418: fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1); ! 1419: allprint(yych); ! 1420: putchar('\n'); ! 1421: } ! 1422: # endif ! 1423: while (lsp-- > yylstate){ ! 1424: *yylastch-- = 0; ! 1425: if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){ ! 1426: yyolsp = lsp; ! 1427: if(yyextra[*yyfnd]){ /* must backup */ ! 1428: while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){ ! 1429: lsp--; ! 1430: unput(*yylastch--); ! 1431: } ! 1432: } ! 1433: yyprevious = YYU(*yylastch); ! 1434: yylsp = lsp; ! 1435: yyleng = yylastch-yytext+1; ! 1436: yytext[yyleng] = 0; ! 1437: # ifdef LEXDEBUG ! 1438: if(debug){ ! 1439: fprintf(yyout,"\nmatch "); ! 1440: sprint(yytext); ! 1441: fprintf(yyout," action %d\n",*yyfnd); ! 1442: } ! 1443: # endif ! 1444: return(*yyfnd++); ! 1445: } ! 1446: unput(*yylastch); ! 1447: } ! 1448: if (yytext[0] == 0 /* && feof(yyin) */) ! 1449: { ! 1450: yysptr=yysbuf; ! 1451: return(0); ! 1452: } ! 1453: yyprevious = yytext[0] = input(); ! 1454: if (yyprevious>0) ! 1455: output(yyprevious); ! 1456: yylastch=yytext; ! 1457: # ifdef LEXDEBUG ! 1458: if(debug)putchar('\n'); ! 1459: # endif ! 1460: } ! 1461: } ! 1462: yyback(p, m) ! 1463: int *p; ! 1464: { ! 1465: if (p==0) return(0); ! 1466: while (*p) ! 1467: { ! 1468: if (*p++ == m) ! 1469: return(1); ! 1470: } ! 1471: return(0); ! 1472: } ! 1473: /* the following are only used in the lex library */ ! 1474: yyinput(){ ! 1475: return(input()); ! 1476: } ! 1477: yyoutput(c) ! 1478: int c; { ! 1479: output(c); ! 1480: } ! 1481: yyunput(c) ! 1482: int c; { ! 1483: unput(c); ! 1484: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.