![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lex.yy.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / sys.vax / conf / src / config|
Return to lex.yy.c CVS log | Up to [Research Unix] / researchv9 / sys.vax / conf / src / config |
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: /* config.l 1.8 81/05/18 */ ! 29: ! 30: #include <ctype.h> ! 31: #include "y.tab.h" ! 32: #include "config.h" ! 33: ! 34: #define tprintf if (do_trace) printf ! 35: ! 36: YYSTYPE yylval; ! 37: ! 38: /* ! 39: * Key word table ! 40: */ ! 41: ! 42: struct kt { ! 43: char *kt_name; ! 44: int kt_val; ! 45: } key_words[] = { ! 46: "cpu", CPU, "ident", IDENT, "config", CONFIG, "options", OPTIONS, ! 47: "device", DEVICE, "controller", CONTROLLER, "uba", UBA, "mba", MBA, ! 48: "csr", CSR, "nexus", NEXUS, "drive", DRIVE, "vector", VECTOR, ! 49: "pseudo-device", PSEUDO_DEVICE, "flags", FLAGS, "trace", TRACE, ! 50: "disk", DISK, "tape", DEVICE, "slave", SLAVE, "at", AT, ! 51: "hz", HZ, "timezone", TIMEZONE, "dst", DST, "maxusers", MAXUSERS, ! 52: "master", MASTER, "mkfile", MAKEFILE, ! 53: 0,0, ! 54: }; ! 55: # define YYNEWLINE 10 ! 56: yylex(){ ! 57: int nstr; extern int yyprevious; ! 58: while((nstr = yylook()) >= 0) ! 59: yyfussy: switch(nstr){ ! 60: case 0: ! 61: if(yywrap()) return(0); break; ! 62: case 1: ! 63: { ! 64: int i; ! 65: ! 66: if ((i = kw_lookup(yytext)) == -1) ! 67: { ! 68: yylval.cp = yytext; ! 69: tprintf("id(%s) ", yytext); ! 70: return ID; ! 71: } ! 72: tprintf("(%s) ", yytext); ! 73: return i; ! 74: } ! 75: break; ! 76: case 2: ! 77: { ! 78: yytext[strlen(yytext)-1] = '\0'; ! 79: yylval.cp = yytext + 1; ! 80: return ID; ! 81: } ! 82: break; ! 83: case 3: ! 84: { ! 85: yylval.i = octal(yytext); ! 86: tprintf("#O:%o ", yylval.i); ! 87: return NUMBER; ! 88: } ! 89: break; ! 90: case 4: ! 91: { ! 92: yylval.i = hex(yytext); ! 93: tprintf("#X:%x ", yylval.i); ! 94: return NUMBER; ! 95: } ! 96: break; ! 97: case 5: ! 98: { ! 99: yylval.i = atoi(yytext); ! 100: tprintf("#D:%d ", yylval.i); ! 101: return NUMBER; ! 102: } ! 103: break; ! 104: case 6: ! 105: { ! 106: double atof(); ! 107: yylval.i = (int) (60 * atof(yytext) + 0.5); ! 108: return FPNUMBER; ! 109: } ! 110: break; ! 111: case 7: ! 112: { ! 113: return MINUS; ! 114: } ! 115: break; ! 116: case 8: ! 117: { ! 118: yylval.i = QUES; ! 119: tprintf("? "); ! 120: return NUMBER; ! 121: } ! 122: break; ! 123: case 9: ! 124: { ! 125: yyline++; ! 126: tprintf("\n... "); ! 127: } ! 128: break; ! 129: case 10: ! 130: { ! 131: yyline++; ! 132: tprintf("\n"); ! 133: return SEMICOLON; ! 134: } ! 135: break; ! 136: case 11: ! 137: { /* Ignored (comment) */; } ! 138: break; ! 139: case 12: ! 140: { /* Ignored (white space) */; } ! 141: break; ! 142: case 13: ! 143: { return SEMICOLON; } ! 144: break; ! 145: case 14: ! 146: { return COMMA; } ! 147: break; ! 148: case -1: ! 149: break; ! 150: default: ! 151: fprintf(yyout,"bad switch yylook %d",nstr); ! 152: } return(0); } ! 153: /* end of yylex */ ! 154: /* ! 155: * kw_lookup ! 156: * Look up a string in the keyword table. Returns a -1 if the ! 157: * string is not a keyword otherwise it returns the keyword number ! 158: */ ! 159: ! 160: kw_lookup(word) ! 161: register char *word; ! 162: { ! 163: register struct kt *kp; ! 164: ! 165: for (kp = key_words; kp->kt_name != 0; kp++) ! 166: if (eq(word, kp->kt_name)) ! 167: return kp->kt_val; ! 168: return -1; ! 169: } ! 170: ! 171: /* ! 172: * Number conversion routines ! 173: */ ! 174: ! 175: octal(str) ! 176: char *str; ! 177: { ! 178: int num; ! 179: ! 180: sscanf(str, "%o", &num); ! 181: return num; ! 182: } ! 183: ! 184: hex(str) ! 185: char *str; ! 186: { ! 187: int num; ! 188: ! 189: sscanf(str+2, "%x", &num); ! 190: return num; ! 191: } ! 192: int yyvstop[] = { ! 193: 0, ! 194: ! 195: 12, ! 196: 0, ! 197: ! 198: 12, ! 199: 0, ! 200: ! 201: 12, ! 202: 0, ! 203: ! 204: 10, ! 205: -9, ! 206: 0, ! 207: ! 208: 14, ! 209: 0, ! 210: ! 211: 7, ! 212: 0, ! 213: ! 214: 3, ! 215: 0, ! 216: ! 217: 5, ! 218: 0, ! 219: ! 220: 13, ! 221: 0, ! 222: ! 223: 8, ! 224: 0, ! 225: ! 226: 1, ! 227: 0, ! 228: ! 229: 11, ! 230: 0, ! 231: ! 232: 9, ! 233: 0, ! 234: ! 235: 6, ! 236: 0, ! 237: ! 238: 3, ! 239: 0, ! 240: ! 241: 5, ! 242: 0, ! 243: ! 244: 2, ! 245: 0, ! 246: ! 247: 4, ! 248: 0, ! 249: 0}; ! 250: # define YYTYPE char ! 251: struct yywork { YYTYPE verify, advance; } yycrank[] = { ! 252: 0,0, 0,0, 1,0, 1,0, ! 253: 1,0, 1,0, 1,0, 1,0, ! 254: 1,0, 1,0, 1,3, 1,4, ! 255: 1,0, 1,0, 1,0, 1,0, ! 256: 1,0, 1,0, 1,0, 1,0, ! 257: 1,0, 1,0, 1,0, 1,0, ! 258: 1,0, 1,0, 1,0, 1,0, ! 259: 1,0, 1,0, 1,0, 1,0, ! 260: 1,0, 3,3, 1,0, 1,5, ! 261: 1,0, 1,0, 1,0, 1,0, ! 262: 1,0, 1,0, 1,0, 1,0, ! 263: 1,0, 1,6, 1,7, 1,0, ! 264: 1,0, 1,8, 1,9, 4,14, ! 265: 15,20, 0,0, 0,0, 0,0, ! 266: 3,3, 1,9, 0,0, 1,0, ! 267: 1,10, 1,0, 1,0, 1,0, ! 268: 1,11, 1,0, 1,12, 0,0, ! 269: 0,0, 0,0, 0,0, 0,0, ! 270: 0,0, 9,16, 4,14, 9,19, ! 271: 9,19, 9,19, 9,19, 9,19, ! 272: 9,19, 9,19, 9,19, 9,19, ! 273: 9,19, 0,0, 0,0, 0,0, ! 274: 0,0, 0,0, 0,0, 0,0, ! 275: 1,0, 1,0, 1,0, 1,0, ! 276: 0,0, 1,0, 1,12, 8,16, ! 277: 0,0, 8,17, 8,17, 8,17, ! 278: 8,17, 8,17, 8,17, 8,17, ! 279: 8,17, 16,16, 16,16, 16,16, ! 280: 16,16, 16,16, 16,16, 16,16, ! 281: 16,16, 16,16, 16,16, 0,0, ! 282: 0,0, 0,0, 0,0, 0,0, ! 283: 1,0, 1,0, 1,0, 1,0, ! 284: 1,0, 2,0, 2,0, 2,0, ! 285: 2,0, 2,0, 2,0, 2,0, ! 286: 2,0, 0,0, 0,0, 2,0, ! 287: 2,0, 2,0, 2,0, 2,0, ! 288: 2,0, 2,0, 2,0, 2,0, ! 289: 2,0, 2,0, 2,0, 2,0, ! 290: 2,0, 2,0, 2,0, 2,0, ! 291: 2,0, 2,0, 2,0, 2,0, ! 292: 0,0, 2,0, 0,0, 2,13, ! 293: 2,0, 2,0, 2,0, 2,0, ! 294: 2,0, 2,0, 2,0, 2,0, ! 295: 2,6, 8,18, 2,0, 2,0, ! 296: 17,17, 17,17, 17,17, 17,17, ! 297: 17,17, 17,17, 17,17, 17,17, ! 298: 0,0, 5,15, 2,0, 2,10, ! 299: 2,0, 2,0, 2,0, 2,11, ! 300: 2,0, 5,15, 5,15, 19,19, ! 301: 19,19, 19,19, 19,19, 19,19, ! 302: 19,19, 19,19, 19,19, 19,19, ! 303: 19,19, 0,0, 0,0, 18,21, ! 304: 18,21, 18,21, 18,21, 18,21, ! 305: 18,21, 18,21, 18,21, 18,21, ! 306: 18,21, 0,0, 5,0, 2,0, ! 307: 2,0, 2,0, 2,0, 0,0, ! 308: 2,0, 0,0, 0,0, 0,0, ! 309: 0,0, 5,15, 0,0, 0,0, ! 310: 5,15, 5,15, 0,0, 0,0, ! 311: 0,0, 0,0, 0,0, 0,0, ! 312: 5,15, 0,0, 0,0, 0,0, ! 313: 0,0, 0,0, 0,0, 0,0, ! 314: 0,0, 5,15, 0,0, 2,0, ! 315: 2,0, 2,0, 2,0, 2,0, ! 316: 18,21, 18,21, 18,21, 18,21, ! 317: 18,21, 18,21, 12,12, 0,0, ! 318: 0,0, 0,0, 0,0, 0,0, ! 319: 0,0, 0,0, 0,0, 0,0, ! 320: 0,0, 0,0, 0,0, 0,0, ! 321: 0,0, 0,0, 0,0, 0,0, ! 322: 0,0, 5,15, 12,12, 12,12, ! 323: 12,12, 12,12, 12,12, 12,12, ! 324: 12,12, 12,12, 12,12, 12,12, ! 325: 12,12, 12,12, 12,12, 12,12, ! 326: 12,12, 12,12, 12,12, 12,12, ! 327: 12,12, 12,12, 12,12, 12,12, ! 328: 12,12, 12,12, 12,12, 12,12, ! 329: 0,0, 0,0, 0,0, 0,0, ! 330: 12,12, 0,0, 12,12, 12,12, ! 331: 12,12, 12,12, 12,12, 12,12, ! 332: 12,12, 12,12, 12,12, 12,12, ! 333: 12,12, 12,12, 12,12, 12,12, ! 334: 12,12, 12,12, 12,12, 12,12, ! 335: 12,12, 12,12, 12,12, 12,12, ! 336: 12,12, 12,12, 12,12, 12,12, ! 337: 13,13, 0,0, 0,0, 0,0, ! 338: 0,0, 0,0, 0,0, 0,0, ! 339: 13,13, 13,0, 0,0, 0,0, ! 340: 0,0, 0,0, 0,0, 0,0, ! 341: 0,0, 0,0, 0,0, 0,0, ! 342: 0,0, 0,0, 0,0, 0,0, ! 343: 0,0, 0,0, 0,0, 0,0, ! 344: 0,0, 0,0, 0,0, 0,0, ! 345: 0,0, 13,13, 0,0, 0,0, ! 346: 0,0, 0,0, 0,0, 0,0, ! 347: 0,0, 0,0, 0,0, 0,0, ! 348: 13,13, 0,0, 0,0, 13,13, ! 349: 13,13, 0,0, 0,0, 0,0, ! 350: 0,0, 0,0, 0,0, 13,13, ! 351: 0,0, 0,0, 0,0, 0,0, ! 352: 0,0, 0,0, 0,0, 0,0, ! 353: 13,13, 0,0, 0,0, 0,0, ! 354: 0,0, 0,0, 0,0, 0,0, ! 355: 0,0, 0,0, 0,0, 0,0, ! 356: 0,0, 0,0, 0,0, 0,0, ! 357: 0,0, 0,0, 0,0, 0,0, ! 358: 0,0, 0,0, 0,0, 0,0, ! 359: 0,0, 0,0, 0,0, 0,0, ! 360: 0,0, 0,0, 0,0, 0,0, ! 361: 13,13, 0,0, 0,0, 0,0, ! 362: 0,0}; ! 363: struct yysvf yysvec[] = { ! 364: 0, 0, 0, ! 365: yycrank+-1, 0, yyvstop+1, ! 366: yycrank+-128, yysvec+1, yyvstop+3, ! 367: yycrank+24, 0, yyvstop+5, ! 368: yycrank+42, 0, yyvstop+7, ! 369: yycrank+-184, 0, 0, ! 370: yycrank+0, 0, yyvstop+10, ! 371: yycrank+0, 0, yyvstop+12, ! 372: yycrank+53, 0, yyvstop+14, ! 373: yycrank+27, 0, yyvstop+16, ! 374: yycrank+0, 0, yyvstop+18, ! 375: yycrank+0, 0, yyvstop+20, ! 376: yycrank+217, 0, yyvstop+22, ! 377: yycrank+-339, 0, yyvstop+24, ! 378: yycrank+0, 0, yyvstop+26, ! 379: yycrank+-18, yysvec+5, 0, ! 380: yycrank+61, 0, yyvstop+28, ! 381: yycrank+128, 0, yyvstop+30, ! 382: yycrank+159, 0, 0, ! 383: yycrank+147, 0, yyvstop+32, ! 384: yycrank+0, 0, yyvstop+34, ! 385: yycrank+0, yysvec+18, yyvstop+36, ! 386: 0, 0, 0}; ! 387: struct yywork *yytop = yycrank+436; ! 388: struct yysvf *yybgin = yysvec+1; ! 389: char yymatch[] = { ! 390: 00 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 391: 01 ,011 ,012 ,01 ,01 ,01 ,01 ,01 , ! 392: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 393: 01 ,01 ,01 ,01 ,01 ,01 ,01 ,01 , ! 394: 011 ,01 ,'"' ,01 ,01 ,01 ,01 ,01 , ! 395: 01 ,01 ,01 ,01 ,01 ,'-' ,01 ,01 , ! 396: '0' ,'1' ,'1' ,'1' ,'1' ,'1' ,'1' ,'1' , ! 397: '8' ,'8' ,01 ,01 ,01 ,01 ,01 ,01 , ! 398: 01 ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , ! 399: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , ! 400: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , ! 401: 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,'A' , ! 402: 01 ,'a' ,'a' ,'a' ,'a' ,'a' ,'a' ,'A' , ! 403: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , ! 404: 'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' ,'A' , ! 405: 'A' ,'A' ,'A' ,01 ,01 ,01 ,01 ,01 , ! 406: 0}; ! 407: char yyextra[] = { ! 408: 0,0,0,0,0,0,0,0, ! 409: 0,1,0,0,0,0,0,0, ! 410: 0}; ! 411: int yylineno =1; ! 412: # define YYU(x) x ! 413: # define NLSTATE yyprevious=YYNEWLINE ! 414: char yytext[YYLMAX]; ! 415: struct yysvf *yylstate [YYLMAX], **yylsp, **yyolsp; ! 416: char yysbuf[YYLMAX]; ! 417: char *yysptr = yysbuf; ! 418: int *yyfnd; ! 419: extern struct yysvf *yyestate; ! 420: int yyprevious = YYNEWLINE; ! 421: yylook(){ ! 422: register struct yysvf *yystate, **lsp; ! 423: register struct yywork *yyt; ! 424: struct yysvf *yyz; ! 425: int yych; ! 426: struct yywork *yyr; ! 427: # ifdef LEXDEBUG ! 428: int debug; ! 429: # endif ! 430: char *yylastch; ! 431: /* start off machines */ ! 432: # ifdef LEXDEBUG ! 433: debug = 0; ! 434: # endif ! 435: if (!yymorfg) ! 436: yylastch = yytext; ! 437: else { ! 438: yymorfg=0; ! 439: yylastch = yytext+yyleng; ! 440: } ! 441: for(;;){ ! 442: lsp = yylstate; ! 443: yyestate = yystate = yybgin; ! 444: if (yyprevious==YYNEWLINE) yystate++; ! 445: for (;;){ ! 446: # ifdef LEXDEBUG ! 447: if(debug)fprintf(yyout,"state %d\n",yystate-yysvec-1); ! 448: # endif ! 449: yyt = yystate->yystoff; ! 450: if(yyt == yycrank){ /* may not be any transitions */ ! 451: yyz = yystate->yyother; ! 452: if(yyz == 0)break; ! 453: if(yyz->yystoff == yycrank)break; ! 454: } ! 455: *yylastch++ = yych = input(); ! 456: tryagain: ! 457: # ifdef LEXDEBUG ! 458: if(debug){ ! 459: fprintf(yyout,"char "); ! 460: allprint(yych); ! 461: putchar('\n'); ! 462: } ! 463: # endif ! 464: yyr = yyt; ! 465: if ( (int)yyt > (int)yycrank){ ! 466: yyt = yyr + yych; ! 467: if (yyt <= yytop && yyt->verify+yysvec == yystate){ ! 468: if(yyt->advance+yysvec == YYLERR) /* error transitions */ ! 469: {unput(*--yylastch);break;} ! 470: *lsp++ = yystate = yyt->advance+yysvec; ! 471: goto contin; ! 472: } ! 473: } ! 474: # ifdef YYOPTIM ! 475: else if((int)yyt < (int)yycrank) { /* r < yycrank */ ! 476: yyt = yyr = yycrank+(yycrank-yyt); ! 477: # ifdef LEXDEBUG ! 478: if(debug)fprintf(yyout,"compressed state\n"); ! 479: # endif ! 480: yyt = yyt + yych; ! 481: if(yyt <= yytop && yyt->verify+yysvec == yystate){ ! 482: if(yyt->advance+yysvec == YYLERR) /* error transitions */ ! 483: {unput(*--yylastch);break;} ! 484: *lsp++ = yystate = yyt->advance+yysvec; ! 485: goto contin; ! 486: } ! 487: yyt = yyr + YYU(yymatch[yych]); ! 488: # ifdef LEXDEBUG ! 489: if(debug){ ! 490: fprintf(yyout,"try fall back character "); ! 491: allprint(YYU(yymatch[yych])); ! 492: putchar('\n'); ! 493: } ! 494: # endif ! 495: if(yyt <= yytop && yyt->verify+yysvec == yystate){ ! 496: if(yyt->advance+yysvec == YYLERR) /* error transition */ ! 497: {unput(*--yylastch);break;} ! 498: *lsp++ = yystate = yyt->advance+yysvec; ! 499: goto contin; ! 500: } ! 501: } ! 502: if ((yystate = yystate->yyother) && (yyt= yystate->yystoff) != yycrank){ ! 503: # ifdef LEXDEBUG ! 504: if(debug)fprintf(yyout,"fall back to state %d\n",yystate-yysvec-1); ! 505: # endif ! 506: goto tryagain; ! 507: } ! 508: # endif ! 509: else ! 510: {unput(*--yylastch);break;} ! 511: contin: ! 512: # ifdef LEXDEBUG ! 513: if(debug){ ! 514: fprintf(yyout,"state %d char ",yystate-yysvec-1); ! 515: allprint(yych); ! 516: putchar('\n'); ! 517: } ! 518: # endif ! 519: ; ! 520: } ! 521: # ifdef LEXDEBUG ! 522: if(debug){ ! 523: fprintf(yyout,"stopped at %d with ",*(lsp-1)-yysvec-1); ! 524: allprint(yych); ! 525: putchar('\n'); ! 526: } ! 527: # endif ! 528: while (lsp-- > yylstate){ ! 529: *yylastch-- = 0; ! 530: if (*lsp != 0 && (yyfnd= (*lsp)->yystops) && *yyfnd > 0){ ! 531: yyolsp = lsp; ! 532: if(yyextra[*yyfnd]){ /* must backup */ ! 533: while(yyback((*lsp)->yystops,-*yyfnd) != 1 && lsp > yylstate){ ! 534: lsp--; ! 535: unput(*yylastch--); ! 536: } ! 537: } ! 538: yyprevious = YYU(*yylastch); ! 539: yylsp = lsp; ! 540: yyleng = yylastch-yytext+1; ! 541: yytext[yyleng] = 0; ! 542: # ifdef LEXDEBUG ! 543: if(debug){ ! 544: fprintf(yyout,"\nmatch "); ! 545: sprint(yytext); ! 546: fprintf(yyout," action %d\n",*yyfnd); ! 547: } ! 548: # endif ! 549: return(*yyfnd++); ! 550: } ! 551: unput(*yylastch); ! 552: } ! 553: if (yytext[0] == 0 /* && feof(yyin) */) ! 554: { ! 555: yysptr=yysbuf; ! 556: return(0); ! 557: } ! 558: yyprevious = yytext[0] = input(); ! 559: if (yyprevious>0) ! 560: output(yyprevious); ! 561: yylastch=yytext; ! 562: # ifdef LEXDEBUG ! 563: if(debug)putchar('\n'); ! 564: # endif ! 565: } ! 566: } ! 567: yyback(p, m) ! 568: int *p; ! 569: { ! 570: if (p==0) return(0); ! 571: while (*p) ! 572: { ! 573: if (*p++ == m) ! 574: return(1); ! 575: } ! 576: return(0); ! 577: } ! 578: /* the following are only used in the lex library */ ! 579: yyinput(){ ! 580: return(input()); ! 581: } ! 582: yyoutput(c) ! 583: int c; { ! 584: output(c); ! 585: } ! 586: yyunput(c) ! 587: int c; { ! 588: unput(c); ! 589: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.