/* Generated by re2c */ #line 1 "modula.re" #include #include #include typedef unsigned int uint; typedef unsigned char uchar; #define BSIZE 8192 #define YYCTYPE uchar #define YYCURSOR cursor #define YYLIMIT s->lim #define YYMARKER s->ptr #define YYCTXMARKER s->ctx #define YYFILL {cursor = fill(s, cursor);} #define RETURN(i) {s->cur = cursor; return i;} typedef struct Scanner { int fd; uchar *bot, *tok, *ptr, *ctx, *cur, *pos, *lim, *top, *eof; uint line; } Scanner; uchar *fill(Scanner *s, uchar *cursor){ if(!s->eof){ uint cnt = s->tok - s->bot; if(cnt){ memcpy(s->bot, s->tok, s->lim - s->tok); s->tok = s->bot; s->ptr -= cnt; cursor -= cnt; s->pos -= cnt; s->lim -= cnt; } if((s->top - s->lim) < BSIZE){ uchar *buf = (uchar*) malloc(((s->lim - s->bot) + BSIZE)*sizeof(uchar)); memcpy(buf, s->tok, s->lim - s->tok); s->tok = buf; s->ptr = &buf[s->ptr - s->bot]; cursor = &buf[cursor - s->bot]; s->pos = &buf[s->pos - s->bot]; s->lim = &buf[s->lim - s->bot]; s->top = &s->lim[BSIZE]; free(s->bot); s->bot = buf; } if((cnt = read(s->fd, (char*) s->lim, BSIZE)) != BSIZE){ s->eof = &s->lim[cnt]; *(s->eof)++ = '\n'; } s->lim += cnt; } return cursor; } int scan(Scanner *s){ uchar *cursor = s->cur; uint depth; std: s->tok = cursor; #line 65 "modula.re" #line 68 "modula.c" { YYCTYPE yych; unsigned int yyaccept = 0; if ((YYLIMIT - YYCURSOR) < 15) YYFILL(15); yych = *YYCURSOR; switch (yych) { case '\t': case ' ': goto yy4; case '\n': goto yy7; case '"': goto yy9; case '#': goto yy10; case '&': goto yy12; case '\'': goto yy14; case '(': goto yy15; case ')': goto yy17; case '*': goto yy19; case '+': goto yy21; case ',': goto yy23; case '-': goto yy25; case '.': goto yy27; case '/': goto yy29; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': goto yy31; case '8': case '9': goto yy34; case ':': goto yy36; case ';': goto yy38; case '<': goto yy40; case '=': goto yy42; case '>': goto yy44; case 'A': goto yy46; case 'B': goto yy48; case 'C': goto yy49; case 'D': goto yy50; case 'E': goto yy51; case 'F': goto yy52; case 'G': case 'H': case 'J': case 'K': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; case 'I': goto yy55; case 'L': goto yy56; case 'M': goto yy57; case 'N': goto yy58; case 'O': goto yy59; case 'P': goto yy60; case 'Q': goto yy61; case 'R': goto yy62; case 'S': goto yy63; case 'T': goto yy64; case 'U': goto yy65; case 'V': goto yy66; case 'W': goto yy67; case '[': goto yy68; case ']': goto yy70; case '^': goto yy72; case '{': goto yy74; case '|': goto yy76; case '}': goto yy78; case '~': goto yy80; default: goto yy2; } yy2: ++YYCURSOR; yy3: #line 159 "modula.re" { printf("unexpected character: %c\n", *s->tok); goto std; } #line 174 "modula.c" yy4: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; switch (yych) { case '\t': case ' ': goto yy4; default: goto yy6; } yy6: #line 149 "modula.re" { goto std; } #line 187 "modula.c" yy7: ++YYCURSOR; #line 152 "modula.re" { if(cursor == s->eof) RETURN(0); s->pos = cursor; s->line++; goto std; } #line 196 "modula.c" yy9: yyaccept = 0; yych = *(YYMARKER = ++YYCURSOR); switch (yych) { case '\n': goto yy3; default: goto yy83; } yy10: ++YYCURSOR; #line 78 "modula.re" {RETURN(7);} #line 208 "modula.c" yy12: ++YYCURSOR; #line 79 "modula.re" {RETURN(8);} #line 213 "modula.c" yy14: yyaccept = 0; yych = *(YYMARKER = ++YYCURSOR); switch (yych) { case '\n': goto yy3; default: goto yy88; } yy15: yych = *++YYCURSOR; switch (yych) { case '*': goto yy89; default: goto yy16; } yy16: #line 80 "modula.re" {RETURN(9);} #line 230 "modula.c" yy17: ++YYCURSOR; #line 81 "modula.re" {RETURN(10);} #line 235 "modula.c" yy19: ++YYCURSOR; #line 82 "modula.re" {RETURN(11);} #line 240 "modula.c" yy21: ++YYCURSOR; #line 83 "modula.re" {RETURN(12);} #line 245 "modula.c" yy23: ++YYCURSOR; #line 84 "modula.re" {RETURN(13);} #line 250 "modula.c" yy25: ++YYCURSOR; #line 85 "modula.re" {RETURN(14);} #line 255 "modula.c" yy27: yych = *++YYCURSOR; switch (yych) { case '.': goto yy91; default: goto yy28; } yy28: #line 86 "modula.re" {RETURN(15);} #line 265 "modula.c" yy29: ++YYCURSOR; #line 88 "modula.re" {RETURN(17);} #line 270 "modula.c" yy31: yyaccept = 1; YYMARKER = ++YYCURSOR; if ((YYLIMIT - YYCURSOR) < 4) YYFILL(4); yych = *YYCURSOR; switch (yych) { case '.': goto yy93; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': goto yy31; case '8': case '9': goto yy34; case 'A': case 'D': case 'E': case 'F': goto yy95; case 'B': goto yy97; case 'C': goto yy99; case 'H': goto yy101; default: goto yy33; } yy33: #line 70 "modula.re" {RETURN(1);} #line 300 "modula.c" yy34: yyaccept = 1; YYMARKER = ++YYCURSOR; if ((YYLIMIT - YYCURSOR) < 4) YYFILL(4); yych = *YYCURSOR; switch (yych) { case '.': goto yy93; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': goto yy34; case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': goto yy95; case 'H': goto yy101; default: goto yy33; } yy36: yych = *++YYCURSOR; switch (yych) { case '=': goto yy103; default: goto yy37; } yy37: #line 89 "modula.re" {RETURN(18);} #line 336 "modula.c" yy38: ++YYCURSOR; #line 91 "modula.re" {RETURN(20);} #line 341 "modula.c" yy40: yych = *++YYCURSOR; switch (yych) { case '=': goto yy105; case '>': goto yy107; default: goto yy41; } yy41: #line 92 "modula.re" {RETURN(21);} #line 352 "modula.c" yy42: ++YYCURSOR; #line 95 "modula.re" {RETURN(24);} #line 357 "modula.c" yy44: yych = *++YYCURSOR; switch (yych) { case '=': goto yy109; default: goto yy45; } yy45: #line 96 "modula.re" {RETURN(25);} #line 367 "modula.c" yy46: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy111; case 'R': goto yy112; default: goto yy54; } yy47: #line 147 "modula.re" {RETURN(74);} #line 378 "modula.c" yy48: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy113; case 'Y': goto yy114; default: goto yy54; } yy49: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy116; case 'O': goto yy117; default: goto yy54; } yy50: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy118; case 'I': goto yy119; case 'O': goto yy120; default: goto yy54; } yy51: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy122; case 'N': goto yy123; case 'X': goto yy124; default: goto yy54; } yy52: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy125; case 'R': goto yy126; default: goto yy54; } yy53: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; yy54: switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy47; } yy55: yych = *++YYCURSOR; switch (yych) { case 'F': goto yy127; case 'M': goto yy129; case 'N': goto yy130; default: goto yy54; } yy56: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy132; default: goto yy54; } yy57: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy133; default: goto yy54; } yy58: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy134; default: goto yy54; } yy59: yych = *++YYCURSOR; switch (yych) { case 'F': goto yy135; case 'R': goto yy137; default: goto yy54; } yy60: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy139; case 'R': goto yy140; default: goto yy54; } yy61: yych = *++YYCURSOR; switch (yych) { case 'U': goto yy141; default: goto yy54; } yy62: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy142; default: goto yy54; } yy63: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy143; default: goto yy54; } yy64: yych = *++YYCURSOR; switch (yych) { case 'H': goto yy144; case 'O': goto yy145; case 'Y': goto yy147; default: goto yy54; } yy65: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy148; default: goto yy54; } yy66: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy149; default: goto yy54; } yy67: yych = *++YYCURSOR; switch (yych) { case 'H': goto yy150; case 'I': goto yy151; default: goto yy54; } yy68: ++YYCURSOR; #line 98 "modula.re" {RETURN(27);} #line 575 "modula.c" yy70: ++YYCURSOR; #line 99 "modula.re" {RETURN(28);} #line 580 "modula.c" yy72: ++YYCURSOR; #line 100 "modula.re" {RETURN(29);} #line 585 "modula.c" yy74: ++YYCURSOR; #line 101 "modula.re" {RETURN(30);} #line 590 "modula.c" yy76: ++YYCURSOR; #line 102 "modula.re" {RETURN(31);} #line 595 "modula.c" yy78: ++YYCURSOR; #line 103 "modula.re" {RETURN(32);} #line 600 "modula.c" yy80: ++YYCURSOR; #line 104 "modula.re" {RETURN(33);} #line 605 "modula.c" yy82: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; yy83: switch (yych) { case '\n': goto yy84; case '"': goto yy85; default: goto yy82; } yy84: YYCURSOR = YYMARKER; switch (yyaccept) { case 0: goto yy3; case 1: goto yy33; case 2: goto yy94; case 3: goto yy98; default: goto yy100; } yy85: ++YYCURSOR; #line 76 "modula.re" {RETURN(6);} #line 629 "modula.c" yy87: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; yy88: switch (yych) { case '\n': goto yy84; case '\'': goto yy85; default: goto yy87; } yy89: ++YYCURSOR; #line 68 "modula.re" { depth = 1; goto comment; } #line 644 "modula.c" yy91: ++YYCURSOR; #line 87 "modula.re" {RETURN(16);} #line 649 "modula.c" yy93: yyaccept = 2; yych = *(YYMARKER = ++YYCURSOR); switch (yych) { case '.': goto yy152; default: goto yy155; } yy94: #line 75 "modula.re" {RETURN(5);} #line 660 "modula.c" yy95: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': goto yy95; case 'H': goto yy101; default: goto yy84; } yy97: yyaccept = 3; yych = *(YYMARKER = ++YYCURSOR); switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': goto yy95; case 'H': goto yy101; default: goto yy98; } yy98: #line 72 "modula.re" {RETURN(2);} #line 711 "modula.c" yy99: yyaccept = 4; yych = *(YYMARKER = ++YYCURSOR); switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': goto yy95; case 'H': goto yy101; default: goto yy100; } yy100: #line 73 "modula.re" {RETURN(3);} #line 738 "modula.c" yy101: ++YYCURSOR; #line 74 "modula.re" {RETURN(4);} #line 743 "modula.c" yy103: ++YYCURSOR; #line 90 "modula.re" {RETURN(19);} #line 748 "modula.c" yy105: ++YYCURSOR; #line 93 "modula.re" {RETURN(22);} #line 753 "modula.c" yy107: ++YYCURSOR; #line 94 "modula.re" {RETURN(23);} #line 758 "modula.c" yy109: ++YYCURSOR; #line 97 "modula.re" {RETURN(26);} #line 763 "modula.c" yy111: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy157; default: goto yy54; } yy112: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy159; default: goto yy54; } yy113: yych = *++YYCURSOR; switch (yych) { case 'G': goto yy160; default: goto yy54; } yy114: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy115; } yy115: #line 109 "modula.re" {RETURN(37);} #line 852 "modula.c" yy116: yych = *++YYCURSOR; switch (yych) { case 'S': goto yy161; default: goto yy54; } yy117: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy162; default: goto yy54; } yy118: yych = *++YYCURSOR; switch (yych) { case 'F': goto yy163; default: goto yy54; } yy119: yych = *++YYCURSOR; switch (yych) { case 'V': goto yy164; default: goto yy54; } yy120: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy121; } yy121: #line 114 "modula.re" {RETURN(42);} #line 947 "modula.c" yy122: yych = *++YYCURSOR; switch (yych) { case 'S': goto yy166; default: goto yy54; } yy123: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy167; default: goto yy54; } yy124: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy169; case 'P': goto yy170; default: goto yy54; } yy125: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy171; default: goto yy54; } yy126: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy173; default: goto yy54; } yy127: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy128; } yy128: #line 122 "modula.re" {RETURN(50);} #line 1049 "modula.c" yy129: yych = *++YYCURSOR; switch (yych) { case 'P': goto yy174; default: goto yy54; } yy130: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy131; } yy131: #line 125 "modula.re" {RETURN(53);} #line 1126 "modula.c" yy132: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy175; default: goto yy54; } yy133: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy176; default: goto yy54; } yy134: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy178; default: goto yy54; } yy135: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy136; } yy136: #line 130 "modula.re" {RETURN(58);} #line 1215 "modula.c" yy137: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy138; } yy138: #line 131 "modula.re" {RETURN(59);} #line 1286 "modula.c" yy139: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy180; default: goto yy54; } yy140: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy181; default: goto yy54; } yy141: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy182; default: goto yy54; } yy142: yych = *++YYCURSOR; switch (yych) { case 'C': goto yy183; case 'P': goto yy184; case 'T': goto yy185; default: goto yy54; } yy143: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy186; default: goto yy54; } yy144: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy188; default: goto yy54; } yy145: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy146; } yy146: #line 140 "modula.re" {RETURN(68);} #line 1395 "modula.c" yy147: yych = *++YYCURSOR; switch (yych) { case 'P': goto yy189; default: goto yy54; } yy148: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy190; default: goto yy54; } yy149: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy191; default: goto yy54; } yy150: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy193; default: goto yy54; } yy151: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy194; default: goto yy54; } yy152: ++YYCURSOR; YYCURSOR -= 2; #line 71 "modula.re" {RETURN(1);} #line 1431 "modula.c" yy154: yyaccept = 2; YYMARKER = ++YYCURSOR; if ((YYLIMIT - YYCURSOR) < 3) YYFILL(3); yych = *YYCURSOR; yy155: switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': goto yy154; case 'E': goto yy156; default: goto yy94; } yy156: yych = *++YYCURSOR; switch (yych) { case '+': case '-': goto yy195; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': goto yy196; default: goto yy84; } yy157: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy158; } yy158: #line 106 "modula.re" {RETURN(34);} #line 1539 "modula.c" yy159: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy198; default: goto yy54; } yy160: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy199; default: goto yy54; } yy161: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy200; default: goto yy54; } yy162: yych = *++YYCURSOR; switch (yych) { case 'S': goto yy202; default: goto yy54; } yy163: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy203; default: goto yy54; } yy164: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy165; } yy165: #line 113 "modula.re" {RETURN(41);} #line 1640 "modula.c" yy166: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy204; case 'I': goto yy206; default: goto yy54; } yy167: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy168; } yy168: #line 117 "modula.re" {RETURN(45);} #line 1718 "modula.c" yy169: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy207; default: goto yy54; } yy170: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy209; default: goto yy54; } yy171: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy172; } yy172: #line 120 "modula.re" {RETURN(48);} #line 1801 "modula.c" yy173: yych = *++YYCURSOR; switch (yych) { case 'M': goto yy210; default: goto yy54; } yy174: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy212; case 'O': goto yy213; default: goto yy54; } yy175: yych = *++YYCURSOR; switch (yych) { case 'P': goto yy214; default: goto yy54; } yy176: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; case 'U': goto yy216; default: goto yy177; } yy177: #line 127 "modula.re" {RETURN(55);} #line 1891 "modula.c" yy178: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy179; } yy179: #line 129 "modula.re" {RETURN(57);} #line 1962 "modula.c" yy180: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy217; default: goto yy54; } yy181: yych = *++YYCURSOR; switch (yych) { case 'C': goto yy218; default: goto yy54; } yy182: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy219; default: goto yy54; } yy183: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy220; default: goto yy54; } yy184: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy221; default: goto yy54; } yy185: yych = *++YYCURSOR; switch (yych) { case 'U': goto yy222; default: goto yy54; } yy186: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy187; } yy187: #line 138 "modula.re" {RETURN(66);} #line 2069 "modula.c" yy188: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy223; default: goto yy54; } yy189: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy225; default: goto yy54; } yy190: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy227; default: goto yy54; } yy191: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy192; } yy192: #line 143 "modula.re" {RETURN(71);} #line 2158 "modula.c" yy193: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy228; default: goto yy54; } yy194: yych = *++YYCURSOR; switch (yych) { case 'H': goto yy229; default: goto yy54; } yy195: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': goto yy196; default: goto yy84; } yy196: ++YYCURSOR; if (YYLIMIT <= YYCURSOR) YYFILL(1); yych = *YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': goto yy196; default: goto yy94; } yy198: yych = *++YYCURSOR; switch (yych) { case 'Y': goto yy231; default: goto yy54; } yy199: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy233; default: goto yy54; } yy200: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy201; } yy201: #line 110 "modula.re" {RETURN(38);} #line 2285 "modula.c" yy202: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy235; default: goto yy54; } yy203: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy237; default: goto yy54; } yy204: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy205; } yy205: #line 115 "modula.re" {RETURN(43);} #line 2368 "modula.c" yy206: yych = *++YYCURSOR; switch (yych) { case 'F': goto yy238; default: goto yy54; } yy207: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy208; } yy208: #line 118 "modula.re" {RETURN(46);} #line 2445 "modula.c" yy209: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy240; default: goto yy54; } yy210: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy211; } yy211: #line 121 "modula.re" {RETURN(49);} #line 2522 "modula.c" yy212: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy241; default: goto yy54; } yy213: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy242; default: goto yy54; } yy214: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy215; } yy215: #line 126 "modula.re" {RETURN(54);} #line 2605 "modula.c" yy216: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy243; default: goto yy54; } yy217: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy244; default: goto yy54; } yy218: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy245; default: goto yy54; } yy219: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy246; default: goto yy54; } yy220: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy247; default: goto yy54; } yy221: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy248; default: goto yy54; } yy222: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy249; default: goto yy54; } yy223: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy224; } yy224: #line 139 "modula.re" {RETURN(67);} #line 2718 "modula.c" yy225: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy226; } yy226: #line 141 "modula.re" {RETURN(69);} #line 2789 "modula.c" yy227: yych = *++YYCURSOR; switch (yych) { case 'L': goto yy250; default: goto yy54; } yy228: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy252; default: goto yy54; } yy229: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy230; } yy230: #line 145 "modula.re" {RETURN(73);} #line 2872 "modula.c" yy231: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy232; } yy232: #line 107 "modula.re" {RETURN(35);} #line 2943 "modula.c" yy233: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy234; } yy234: #line 108 "modula.re" {RETURN(36);} #line 3014 "modula.c" yy235: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy236; } yy236: #line 111 "modula.re" {RETURN(39);} #line 3085 "modula.c" yy237: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy254; default: goto yy54; } yy238: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy239; } yy239: #line 116 "modula.re" {RETURN(44);} #line 3162 "modula.c" yy240: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy255; default: goto yy54; } yy241: yych = *++YYCURSOR; switch (yych) { case 'M': goto yy257; default: goto yy54; } yy242: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy258; default: goto yy54; } yy243: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy260; default: goto yy54; } yy244: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy262; default: goto yy54; } yy245: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy263; default: goto yy54; } yy246: yych = *++YYCURSOR; switch (yych) { case 'F': goto yy264; default: goto yy54; } yy247: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy265; default: goto yy54; } yy248: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy267; default: goto yy54; } yy249: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy269; default: goto yy54; } yy250: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy251; } yy251: #line 142 "modula.re" {RETURN(70);} #line 3293 "modula.c" yy252: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy253; } yy253: #line 144 "modula.re" {RETURN(72);} #line 3364 "modula.c" yy254: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy271; default: goto yy54; } yy255: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy256; } yy256: #line 119 "modula.re" {RETURN(47);} #line 3441 "modula.c" yy257: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy272; default: goto yy54; } yy258: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy259; } yy259: #line 124 "modula.re" {RETURN(52);} #line 3518 "modula.c" yy260: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy261; } yy261: #line 128 "modula.re" {RETURN(56);} #line 3589 "modula.c" yy262: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy273; default: goto yy54; } yy263: yych = *++YYCURSOR; switch (yych) { case 'U': goto yy275; default: goto yy54; } yy264: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy276; default: goto yy54; } yy265: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy266; } yy266: #line 135 "modula.re" {RETURN(63);} #line 3678 "modula.c" yy267: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy268; } yy268: #line 136 "modula.re" {RETURN(64);} #line 3749 "modula.c" yy269: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy270; } yy270: #line 137 "modula.re" {RETURN(65);} #line 3820 "modula.c" yy271: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy277; default: goto yy54; } yy272: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy278; default: goto yy54; } yy273: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy274; } yy274: #line 132 "modula.re" {RETURN(60);} #line 3903 "modula.c" yy275: yych = *++YYCURSOR; switch (yych) { case 'R': goto yy279; default: goto yy54; } yy276: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy280; default: goto yy54; } yy277: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy281; default: goto yy54; } yy278: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy282; default: goto yy54; } yy279: yych = *++YYCURSOR; switch (yych) { case 'E': goto yy283; default: goto yy54; } yy280: yych = *++YYCURSOR; switch (yych) { case 'D': goto yy285; default: goto yy54; } yy281: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy287; default: goto yy54; } yy282: yych = *++YYCURSOR; switch (yych) { case 'A': goto yy289; default: goto yy54; } yy283: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy284; } yy284: #line 133 "modula.re" {RETURN(61);} #line 4022 "modula.c" yy285: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy286; } yy286: #line 134 "modula.re" {RETURN(62);} #line 4093 "modula.c" yy287: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy288; } yy288: #line 112 "modula.re" {RETURN(40);} #line 4164 "modula.c" yy289: yych = *++YYCURSOR; switch (yych) { case 'T': goto yy290; default: goto yy54; } yy290: yych = *++YYCURSOR; switch (yych) { case 'I': goto yy291; default: goto yy54; } yy291: yych = *++YYCURSOR; switch (yych) { case 'O': goto yy292; default: goto yy54; } yy292: yych = *++YYCURSOR; switch (yych) { case 'N': goto yy293; default: goto yy54; } yy293: yych = *++YYCURSOR; switch (yych) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': goto yy53; default: goto yy294; } yy294: #line 123 "modula.re" {RETURN(51);} #line 4259 "modula.c" } #line 163 "modula.re" comment: #line 4265 "modula.c" { YYCTYPE yych; if ((YYLIMIT - YYCURSOR) < 2) YYFILL(2); yych = *YYCURSOR; switch (yych) { case '\n': goto yy299; case '(': goto yy301; case '*': goto yy302; default: goto yy297; } yy297: ++YYCURSOR; yy298: #line 180 "modula.re" { goto comment; } #line 4281 "modula.c" yy299: ++YYCURSOR; #line 175 "modula.re" { if(cursor == s->eof) RETURN(0); s->tok = s->pos = cursor; s->line++; goto comment; } #line 4290 "modula.c" yy301: yych = *++YYCURSOR; switch (yych) { case '*': goto yy303; default: goto yy298; } yy302: yych = *++YYCURSOR; switch (yych) { case ')': goto yy305; default: goto yy298; } yy303: ++YYCURSOR; #line 173 "modula.re" { ++depth; goto comment; } #line 4307 "modula.c" yy305: ++YYCURSOR; #line 167 "modula.re" { if(--depth == 0) goto std; else goto comment; } #line 4317 "modula.c" } #line 181 "modula.re" } /* void putStr(FILE *o, char *s, uint l){ while(l-- > 0) putc(*s++, o); } */ main(){ Scanner in; memset((char*) &in, 0, sizeof(in)); in.fd = 0; while(scan(&in)){ /* putc('<', stdout); putStr(stdout, (char*) in.tok, in.cur - in.tok); putc('>', stdout); putc('\n', stdout); */ } }