1: #ifndef lint 2: static char sccsid[] = "@(#)scanner.c 3.8 4/24/85"; 3: #endif 4: 5: /* 6: * Copyright (c) 1983 Regents of the University of California, 7: * All rights reserved. Redistribution permitted subject to 8: * the terms of the Berkeley Software License Agreement. 9: */ 10: 11: #include <stdio.h> 12: #include "value.h" 13: #include "token.h" 14: #include "context.h" 15: #include "string.h" 16: 17: s_getc() 18: { 19: register c; 20: 21: switch (cx.x_type) { 22: case X_FILE: 23: c = getc(cx.x_fp); 24: if (cx.x_bol && c != EOF) { 25: cx.x_bol = 0; 26: cx.x_lineno++; 27: } 28: if (c == '\n') 29: cx.x_bol = 1; 30: return c; 31: case X_BUF: 32: if (*cx.x_bufp != 0) 33: return *cx.x_bufp++ & 0xff; 34: else 35: return EOF; 36: } 37: /*NOTREACHED*/ 38: } 39: 40: s_ungetc(c) 41: { 42: if (c == EOF) 43: return EOF; 44: switch (cx.x_type) { 45: case X_FILE: 46: cx.x_bol = 0; 47: return ungetc(c, cx.x_fp); 48: case X_BUF: 49: if (cx.x_bufp > cx.x_buf) 50: return *--cx.x_bufp = c; 51: else 52: return EOF; 53: } 54: /*NOTREACHED*/ 55: } 56: 57: s_gettok() 58: { 59: char buf[100]; 60: register char *p = buf; 61: register c; 62: register state = 0; 63: 64: loop: 65: c = s_getc(); 66: switch (state) { 67: case 0: 68: switch (c) { 69: case ' ': 70: case '\t': 71: break; 72: case '\n': 73: case ';': 74: cx.x_token = T_EOL; 75: state = -1; 76: break; 77: case '#': 78: state = 1; 79: break; 80: case EOF: 81: cx.x_token = T_EOF; 82: state = -1; 83: break; 84: case 'a': case 'b': case 'c': case 'd': case 'e': 85: case 'f': case 'g': case 'h': case 'i': case 'j': 86: case 'k': case 'l': case 'm': case 'n': case 'o': 87: case 'p': case 'q': case 'r': case 's': case 't': 88: case 'u': case 'v': case 'w': case 'x': case 'y': 89: case 'z': 90: case 'A': case 'B': case 'C': case 'D': case 'E': 91: case 'F': case 'G': case 'H': case 'I': case 'J': 92: case 'K': case 'L': case 'M': case 'N': case 'O': 93: case 'P': case 'Q': case 'R': case 'S': case 'T': 94: case 'U': case 'V': case 'W': case 'X': case 'Y': 95: case 'Z': 96: case '_': case '.': 97: *p++ = c; 98: state = 2; 99: break; 100: case '"': 101: state = 3; 102: break; 103: case '\'': 104: state = 4; 105: break; 106: case '\\': 107: switch (c = s_gettok1()) { 108: case -1: 109: break; 110: case -2: 111: state = 0; 112: break; 113: default: 114: *p++ = c; 115: state = 2; 116: } 117: break; 118: case '0': 119: cx.x_val.v_num = 0; 120: state = 10; 121: break; 122: case '1': case '2': case '3': case '4': 123: case '5': case '6': case '7': case '8': case '9': 124: cx.x_val.v_num = c - '0'; 125: state = 11; 126: break; 127: case '>': 128: state = 20; 129: break; 130: case '<': 131: state = 21; 132: break; 133: case '=': 134: state = 22; 135: break; 136: case '!': 137: state = 23; 138: break; 139: case '&': 140: state = 24; 141: break; 142: case '|': 143: state = 25; 144: break; 145: case '$': 146: state = 26; 147: break; 148: case '~': 149: cx.x_token = T_COMP; 150: state = -1; 151: break; 152: case '+': 153: cx.x_token = T_PLUS; 154: state = -1; 155: break; 156: case '-': 157: cx.x_token = T_MINUS; 158: state = -1; 159: break; 160: case '*': 161: cx.x_token = T_MUL; 162: state = -1; 163: break; 164: case '/': 165: cx.x_token = T_DIV; 166: state = -1; 167: break; 168: case '%': 169: cx.x_token = T_MOD; 170: state = -1; 171: break; 172: case '^': 173: cx.x_token = T_XOR; 174: state = -1; 175: break; 176: case '(': 177: cx.x_token = T_LP; 178: state = -1; 179: break; 180: case ')': 181: cx.x_token = T_RP; 182: state = -1; 183: break; 184: case ',': 185: cx.x_token = T_COMMA; 186: state = -1; 187: break; 188: case '?': 189: cx.x_token = T_QUEST; 190: state = -1; 191: break; 192: case ':': 193: cx.x_token = T_COLON; 194: state = -1; 195: break; 196: default: 197: cx.x_val.v_num = c; 198: cx.x_token = T_CHAR; 199: state = -1; 200: break; 201: } 202: break; 203: case 1: /* got # */ 204: if (c == '\n' || c == EOF) { 205: (void) s_ungetc(c); 206: state = 0; 207: } 208: break; 209: case 2: /* unquoted string */ 210: switch (c) { 211: case 'a': case 'b': case 'c': case 'd': case 'e': 212: case 'f': case 'g': case 'h': case 'i': case 'j': 213: case 'k': case 'l': case 'm': case 'n': case 'o': 214: case 'p': case 'q': case 'r': case 's': case 't': 215: case 'u': case 'v': case 'w': case 'x': case 'y': 216: case 'z': 217: case 'A': case 'B': case 'C': case 'D': case 'E': 218: case 'F': case 'G': case 'H': case 'I': case 'J': 219: case 'K': case 'L': case 'M': case 'N': case 'O': 220: case 'P': case 'Q': case 'R': case 'S': case 'T': 221: case 'U': case 'V': case 'W': case 'X': case 'Y': 222: case 'Z': 223: case '_': case '.': 224: case '0': case '1': case '2': case '3': case '4': 225: case '5': case '6': case '7': case '8': case '9': 226: if (p < buf + sizeof buf - 1) 227: *p++ = c; 228: break; 229: case '"': 230: state = 3; 231: break; 232: case '\'': 233: state = 4; 234: break; 235: case '\\': 236: switch (c = s_gettok1()) { 237: case -2: 238: (void) s_ungetc(' '); 239: case -1: 240: break; 241: default: 242: if (p < buf + sizeof buf - 1) 243: *p++ = c; 244: } 245: break; 246: default: 247: (void) s_ungetc(c); 248: case EOF: 249: *p = 0; 250: cx.x_token = T_STR; 251: switch (*buf) { 252: case 'i': 253: if (buf[1] == 'f' && buf[2] == 0) 254: cx.x_token = T_IF; 255: break; 256: case 't': 257: if (buf[1] == 'h' && buf[2] == 'e' 258: && buf[3] == 'n' && buf[4] == 0) 259: cx.x_token = T_THEN; 260: break; 261: case 'e': 262: if (buf[1] == 'n' && buf[2] == 'd' 263: && buf[3] == 'i' && buf[4] == 'f' 264: && buf[5] == 0) 265: cx.x_token = T_ENDIF; 266: else if (buf[1] == 'l' && buf[2] == 's') 267: if (buf[3] == 'i' && buf[4] == 'f' 268: && buf[5] == 0) 269: cx.x_token = T_ELSIF; 270: else if (buf[3] == 'e' && buf[4] == 0) 271: cx.x_token = T_ELSE; 272: break; 273: } 274: if (cx.x_token == T_STR 275: && (cx.x_val.v_str = str_cpy(buf)) == 0) { 276: p_memerror(); 277: cx.x_token = T_EOF; 278: } 279: state = -1; 280: break; 281: } 282: break; 283: case 3: /* " quoted string */ 284: switch (c) { 285: case '\n': 286: (void) s_ungetc(c); 287: case EOF: 288: case '"': 289: state = 2; 290: break; 291: case '\\': 292: switch (c = s_gettok1()) { 293: case -1: 294: case -2: /* newlines are invisible */ 295: break; 296: default: 297: if (p < buf + sizeof buf - 1) 298: *p++ = c; 299: } 300: break; 301: default: 302: if (p < buf + sizeof buf - 1) 303: *p++ = c; 304: break; 305: } 306: break; 307: case 4: /* ' quoted string */ 308: switch (c) { 309: case '\n': 310: (void) s_ungetc(c); 311: case EOF: 312: case '\'': 313: state = 2; 314: break; 315: case '\\': 316: switch (c = s_gettok1()) { 317: case -1: 318: case -2: /* newlines are invisible */ 319: break; 320: default: 321: if (p < buf + sizeof buf - 1) 322: *p++ = c; 323: } 324: break; 325: default: 326: if (p < buf + sizeof buf - 1) 327: *p++ = c; 328: break; 329: } 330: break; 331: case 10: /* got 0 */ 332: switch (c) { 333: case 'x': 334: case 'X': 335: cx.x_val.v_num = 0; 336: state = 12; 337: break; 338: case '0': case '1': case '2': case '3': case '4': 339: case '5': case '6': case '7': 340: cx.x_val.v_num = c - '0'; 341: state = 13; 342: break; 343: case '8': case '9': 344: cx.x_val.v_num = c - '0'; 345: state = 11; 346: break; 347: default: 348: (void) s_ungetc(c); 349: state = -1; 350: cx.x_token = T_NUM; 351: } 352: break; 353: case 11: /* decimal number */ 354: switch (c) { 355: case '0': case '1': case '2': case '3': case '4': 356: case '5': case '6': case '7': case '8': case '9': 357: cx.x_val.v_num = cx.x_val.v_num * 10 + c - '0'; 358: break; 359: default: 360: (void) s_ungetc(c); 361: state = -1; 362: cx.x_token = T_NUM; 363: } 364: break; 365: case 12: /* hex number */ 366: switch (c) { 367: case '0': case '1': case '2': case '3': case '4': 368: case '5': case '6': case '7': case '8': case '9': 369: cx.x_val.v_num = cx.x_val.v_num * 16 + c - '0'; 370: break; 371: case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': 372: cx.x_val.v_num = cx.x_val.v_num * 16 + c - 'a' + 10; 373: break; 374: case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': 375: cx.x_val.v_num = cx.x_val.v_num * 16 + c - 'A' + 10; 376: break; 377: default: 378: (void) s_ungetc(c); 379: state = -1; 380: cx.x_token = T_NUM; 381: } 382: break; 383: case 13: /* octal number */ 384: switch (c) { 385: case '0': case '1': case '2': case '3': case '4': 386: case '5': case '6': case '7': 387: cx.x_val.v_num = cx.x_val.v_num * 8 + c - '0'; 388: break; 389: default: 390: (void) s_ungetc(c); 391: state = -1; 392: cx.x_token = T_NUM; 393: } 394: break; 395: case 20: /* got > */ 396: switch (c) { 397: case '=': 398: cx.x_token = T_GE; 399: state = -1; 400: break; 401: case '>': 402: cx.x_token = T_RS; 403: state = -1; 404: break; 405: default: 406: (void) s_ungetc(c); 407: cx.x_token = T_GT; 408: state = -1; 409: } 410: break; 411: case 21: /* got < */ 412: switch (c) { 413: case '=': 414: cx.x_token = T_LE; 415: state = -1; 416: break; 417: case '<': 418: cx.x_token = T_LS; 419: state = -1; 420: break; 421: default: 422: (void) s_ungetc(c); 423: cx.x_token = T_LT; 424: state = -1; 425: } 426: break; 427: case 22: /* got = */ 428: switch (c) { 429: case '=': 430: cx.x_token = T_EQ; 431: state = -1; 432: break; 433: default: 434: (void) s_ungetc(c); 435: cx.x_token = T_ASSIGN; 436: state = -1; 437: } 438: break; 439: case 23: /* got ! */ 440: switch (c) { 441: case '=': 442: cx.x_token = T_NE; 443: state = -1; 444: break; 445: default: 446: (void) s_ungetc(c); 447: cx.x_token = T_NOT; 448: state = -1; 449: } 450: break; 451: case 24: /* got & */ 452: switch (c) { 453: case '&': 454: cx.x_token = T_ANDAND; 455: state = -1; 456: break; 457: default: 458: (void) s_ungetc(c); 459: cx.x_token = T_AND; 460: state = -1; 461: } 462: break; 463: case 25: /* got | */ 464: switch (c) { 465: case '|': 466: cx.x_token = T_OROR; 467: state = -1; 468: break; 469: default: 470: (void) s_ungetc(c); 471: cx.x_token = T_OR; 472: state = -1; 473: } 474: break; 475: case 26: /* got $ */ 476: switch (c) { 477: case '?': 478: cx.x_token = T_DQ; 479: state = -1; 480: break; 481: default: 482: (void) s_ungetc(c); 483: cx.x_token = T_DOLLAR; 484: state = -1; 485: } 486: break; 487: default: 488: abort(); 489: } 490: if (state >= 0) 491: goto loop; 492: return cx.x_token; 493: } 494: 495: s_gettok1() 496: { 497: register c; 498: register n; 499: 500: c = s_getc(); /* got \ */ 501: switch (c) { 502: case EOF: 503: return -1; 504: case '\n': 505: return -2; 506: case 'b': 507: return '\b'; 508: case 'f': 509: return '\f'; 510: case 'n': 511: return '\n'; 512: case 'r': 513: return '\r'; 514: case 't': 515: return '\t'; 516: default: 517: return c; 518: case '0': case '1': case '2': case '3': case '4': 519: case '5': case '6': case '7': 520: break; 521: } 522: n = c - '0'; 523: c = s_getc(); /* got \[0-7] */ 524: if (c < '0' || c > '7') { 525: (void) s_ungetc(c); 526: return n; 527: } 528: n = n * 8 + c - '0'; 529: c = s_getc(); /* got \[0-7][0-7] */ 530: if (c < '0' || c > '7') { 531: (void) s_ungetc(c); 532: return n; 533: } 534: return n * 8 + c - '0'; 535: }
Defined functions
s_gettok
defined in line 57; used 26 times
- in /usr/src/ucb/window/parser1.c line 17, 27-30(2), 47, 63, 86, 95, 102, 121-126(2), 148
- in /usr/src/ucb/window/parser2.c line 47, 73, 143, 149, 184
- in /usr/src/ucb/window/parser3.c line 81, 90, 122, 156
- in /usr/src/ucb/window/parser4.c line 114
- in /usr/src/ucb/window/parser5.c line 47, 130, 138-141(2), 151
Defined variables
|
Last modified: 1985-04-25
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1368 |
|