![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to yylex.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 3BSD / cmd / pi|
Return to yylex.c CVS log | Up to [CSRG BSD Unix] / 3BSD / cmd / pi |
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: # ! 3: /* ! 4: * pi - Pascal interpreter code translator ! 5: * ! 6: * Charles Haley, Bill Joy UCB ! 7: * Version 1.2 November 1978 ! 8: * ! 9: * ! 10: * pxp - Pascal execution profiler ! 11: * ! 12: * Bill Joy UCB ! 13: * Version 1.2 November 1978 ! 14: */ ! 15: ! 16: #include "whoami" ! 17: #include "0.h" ! 18: #include "yy.h" ! 19: ! 20: /* ! 21: * Scanner ! 22: */ ! 23: int yylacnt; ! 24: ! 25: #define YYLASIZ 10 ! 26: ! 27: struct yytok Yla[YYLASIZ]; ! 28: ! 29: unyylex(y) ! 30: struct yylex *y; ! 31: { ! 32: ! 33: if (yylacnt == YYLASIZ) ! 34: panic("unyylex"); ! 35: copy(&Yla[yylacnt], y, sizeof Yla[0]); ! 36: yylacnt++; ! 37: ! 38: } ! 39: ! 40: yylex() ! 41: { ! 42: register c; ! 43: register **ip; ! 44: register char *cp; ! 45: int f; ! 46: char delim; ! 47: ! 48: if (yylacnt != 0) { ! 49: yylacnt--; ! 50: copy(&Y, &Yla[yylacnt], sizeof Y); ! 51: return (yychar); ! 52: } ! 53: if (c = yysavc) ! 54: yysavc = 0; ! 55: else ! 56: c = readch(); ! 57: #ifdef PXP ! 58: yytokcnt++; ! 59: #endif ! 60: ! 61: next: ! 62: /* ! 63: * skip white space ! 64: */ ! 65: #ifdef PXP ! 66: yywhcnt = 0; ! 67: #endif ! 68: while (c == ' ' || c == '\t') { ! 69: #ifdef PXP ! 70: if (c == '\t') ! 71: yywhcnt++; ! 72: yywhcnt++; ! 73: #endif ! 74: c = readch(); ! 75: } ! 76: yyecol = yycol; ! 77: yyeline = yyline; ! 78: yyefile = filename; ! 79: yyeseqid = yyseqid; ! 80: yyseekp = yylinpt; ! 81: cp = token; ! 82: yylval = yyline; ! 83: switch (c) { ! 84: case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': ! 85: case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': ! 86: case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': ! 87: case 'v': case 'w': case 'x': case 'y': case 'z': ! 88: case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': ! 89: case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': ! 90: case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': ! 91: case 'V': case 'W': case 'X': case 'Y': case 'Z': ! 92: do { ! 93: *cp++ = c; ! 94: c = readch(); ! 95: } while (alph(c) || digit(c)); ! 96: *cp = 0; ! 97: if (opt('s')) ! 98: for (cp = token; *cp; cp++) ! 99: if (*cp >= 'A' && *cp <= 'Z') { ! 100: *cp =| ' '; ! 101: } ! 102: yysavc = c; ! 103: ip = hash(0, 1); ! 104: if (*ip < yykey || *ip >= lastkey) { ! 105: yylval = *ip; ! 106: return (YID); ! 107: } ! 108: yylval = yyline; ! 109: /* ! 110: * For keywords ! 111: * the lexical token ! 112: * is magically retrieved ! 113: * from the keyword table. ! 114: */ ! 115: return ((*ip)[1]); ! 116: case '0': case '1': case '2': case '3': case '4': ! 117: case '5': case '6': case '7': case '8': case '9': ! 118: f = 0; ! 119: do { ! 120: *cp++ = c; ! 121: c = readch(); ! 122: } while (digit(c)); ! 123: if (c == 'b' || c == 'B') { ! 124: /* ! 125: * nonstandard - octal constants ! 126: */ ! 127: if (opt('s')) { ! 128: standard(); ! 129: yerror("Octal constants are non-standard"); ! 130: } ! 131: *cp = 0; ! 132: yylval = copystr(token); ! 133: return (YBINT); ! 134: } ! 135: if (c == '.') { ! 136: c = readch(); ! 137: if (c == '.') { ! 138: *cp = 0; ! 139: yysavc = YDOTDOT; ! 140: yylval = copystr(token); ! 141: return (YINT); ! 142: } ! 143: infpnumb: ! 144: f++; ! 145: *cp++ = '.'; ! 146: if (!digit(c)) { ! 147: yyset(); ! 148: recovered(); ! 149: yerror("Digits required after decimal point"); ! 150: *cp++ = '0'; ! 151: } else ! 152: while (digit(c)) { ! 153: *cp++ = c; ! 154: c = readch(); ! 155: } ! 156: } ! 157: if (c == 'e' || c == 'E') { ! 158: f++; ! 159: *cp++ = c; ! 160: if ((c = yysavc) == 0) ! 161: c = readch(); ! 162: if (c == '+' || c == '-') { ! 163: *cp++ = c; ! 164: c = readch(); ! 165: } ! 166: if (!digit(c)) { ! 167: yyset(); ! 168: yerror("Digits required in exponent"); ! 169: *cp++ = '0'; ! 170: } else ! 171: while (digit(c)) { ! 172: *cp++ = c; ! 173: c = readch(); ! 174: } ! 175: } ! 176: *cp = 0; ! 177: yysavc = c; ! 178: yylval = copystr(token); ! 179: if (f) ! 180: return (YNUMB); ! 181: return (YINT); ! 182: case '"': ! 183: case '`': ! 184: if (!any(bufp + 1, c)) ! 185: goto illch; ! 186: if (!dquote) { ! 187: recovered(); ! 188: dquote++; ! 189: yerror("Character/string delimiter is '"); ! 190: } ! 191: case '\'': ! 192: case '#': ! 193: delim = c; ! 194: do { ! 195: do { ! 196: c = readch(); ! 197: if (c == '\n') { ! 198: yerror("Unmatched %c for string", delim); ! 199: if (cp == token) ! 200: *cp++ = ' ', cp++; ! 201: break; ! 202: } ! 203: *cp++ = c; ! 204: } while (c != delim); ! 205: c = readch(); ! 206: } while (c == delim); ! 207: *--cp = 0; ! 208: if (cp == token) { ! 209: yerror("Null string not allowed"); ! 210: *cp++ = ' '; ! 211: *cp++ = 0; ! 212: } ! 213: yysavc = c; ! 214: yylval = copystr(token); ! 215: return (YSTRING); ! 216: case '.': ! 217: c = readch(); ! 218: if (c == '.') ! 219: return (YDOTDOT); ! 220: if (digit(c)) { ! 221: recovered(); ! 222: yerror("Digits required before decimal point"); ! 223: *cp++ = '0'; ! 224: goto infpnumb; ! 225: } ! 226: yysavc = c; ! 227: return ('.'); ! 228: case '{': ! 229: /* ! 230: * { ... } comment ! 231: */ ! 232: #ifdef PXP ! 233: getcm(c); ! 234: #endif ! 235: #ifdef PI ! 236: c = options(); ! 237: while (c != '}') { ! 238: if (c <= 0) ! 239: goto nonterm; ! 240: if (c == '{') { ! 241: warning(); ! 242: yyset(); ! 243: yerror("{ in a { ... } comment"); ! 244: } ! 245: c = readch(); ! 246: } ! 247: #endif ! 248: c = readch(); ! 249: goto next; ! 250: case '(': ! 251: if ((c = readch()) == '*') { ! 252: /* ! 253: * (* ... *) comment ! 254: */ ! 255: #ifdef PXP ! 256: getcm(c); ! 257: c = readch(); ! 258: goto next; ! 259: #endif ! 260: #ifdef PI ! 261: c = options(); ! 262: for (;;) { ! 263: if (c < 0) { ! 264: nonterm: ! 265: yerror("Comment does not terminate - QUIT"); ! 266: pexit(ERRS); ! 267: } ! 268: if (c == '(' && (c = readch()) == '*') { ! 269: warning(); ! 270: yyset(); ! 271: yerror("(* in a (* ... *) comment"); ! 272: } ! 273: if (c == '*') { ! 274: if ((c = readch()) != ')') ! 275: continue; ! 276: c = readch(); ! 277: goto next; ! 278: } ! 279: c = readch(); ! 280: } ! 281: #endif ! 282: } ! 283: yysavc = c; ! 284: c = '('; ! 285: case ';': ! 286: case ',': ! 287: case ':': ! 288: case '=': ! 289: case '*': ! 290: case '+': ! 291: case '/': ! 292: case '-': ! 293: case '|': ! 294: case '&': ! 295: case ')': ! 296: case '[': ! 297: case ']': ! 298: case '<': ! 299: case '>': ! 300: case '~': ! 301: case '^': ! 302: return (c); ! 303: default: ! 304: switch (c) { ! 305: case YDOTDOT: ! 306: return (c); ! 307: case '\n': ! 308: c = readch(); ! 309: #ifdef PXP ! 310: yytokcnt++; ! 311: #endif ! 312: goto next; ! 313: case '\f': ! 314: c = readch(); ! 315: goto next; ! 316: } ! 317: if (c <= 0) ! 318: return (YEOF); ! 319: illch: ! 320: do ! 321: yysavc = readch(); ! 322: while (yysavc == c); ! 323: yylval = c; ! 324: return (YILLCH); ! 325: } ! 326: } ! 327: ! 328: yyset() ! 329: { ! 330: ! 331: yyecol = yycol; ! 332: yyeline = yyline; ! 333: yyefile = filename; ! 334: yyseekp = yylinpt; ! 335: } ! 336: ! 337: /* ! 338: * Setuflg trims the current ! 339: * input line to at most 72 chars ! 340: * for the u option. ! 341: */ ! 342: setuflg() ! 343: { ! 344: ! 345: if (charbuf[71] != '\n') { ! 346: charbuf[72] = '\n'; ! 347: charbuf[73] = 0; ! 348: } ! 349: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.