qzdoom/tools/dehsupp/scanner.c

1092 lines
22 KiB
C
Raw Normal View History

/* Generated by re2c 0.12.3 */
#line 1 "scanner.re"
#include <string.h>
#include <malloc.h>
#include <stdlib.h>
#include "dehsupp.h"
#define BSIZE 8192
#define YYCTYPE uchar
#define YYCURSOR cursor
#define YYLIMIT s->lim
#define YYMARKER s->ptr
#define YYFILL(n) {cursor = fill(s, cursor);}
#define RET(i) {s->cur = cursor; return i;}
uchar *fill(Scanner *s, uchar *cursor)
{
if(!s->eof)
{
ptrdiff_t 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 = fread((char*) s->lim, 1, BSIZE, s->fd)) != BSIZE)
{
s->eof = &s->lim[cnt]; *(s->eof)++ = '\n';
}
s->lim += cnt;
}
return cursor;
}
int scan(Scanner *s)
{
uchar *cursor = s->cur;
std:
s->tok = cursor;
#line 64 "scanner.re"
#line 64 "scanner.c"
{
YYCTYPE yych;
unsigned int yyaccept = 0;
if((YYLIMIT - YYCURSOR) < 13) YYFILL(13);
yych = *YYCURSOR;
switch(yych) {
case 0x09:
case 0x0B:
case 0x0C:
case ' ': goto yy22;
case 0x0A: goto yy48;
case '"': goto yy20;
case '&': goto yy28;
case '(': goto yy36;
case ')': goto yy38;
case '*': goto yy34;
case '+': goto yy32;
case ',': goto yy40;
case '-': goto yy30;
case '/': goto yy2;
case '0': goto yy17;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9': goto yy19;
case ';': goto yy46;
case 'A': goto yy7;
case 'B':
case 'E':
case 'G':
case 'H':
case 'J':
case 'K':
case 'L':
case 'M':
case 'N':
case 'P':
case 'Q':
case 'U':
case 'V':
case 'W':
case 'X':
case 'Y':
case 'Z':
case '_':
case 'a':
case 'b':
case 'c':
case 'd':
case 'f':
case 'g':
case 'h':
case 'i':
case 'j':
case 'k':
case 'l':
case 'm':
case 'n':
case 'o':
case 'q':
case 'r':
case 's':
case 't':
case 'u':
case 'v':
case 'w':
case 'x':
case 'y':
case 'z': goto yy16;
case 'C': goto yy9;
case 'D': goto yy13;
case 'F': goto yy14;
case 'I': goto yy11;
case 'O': goto yy8;
case 'R': goto yy15;
case 'S': goto yy10;
case 'T': goto yy12;
case '^': goto yy26;
case 'e': goto yy4;
case 'p': goto yy6;
case '{': goto yy42;
case '|': goto yy24;
case '}': goto yy44;
default: goto yy50;
}
yy2:
yyaccept = 0;
yych = *(YYMARKER = ++YYCURSOR);
if(yych == '*') goto yy200;
if(yych == '/') goto yy198;
yy3:
#line 107 "scanner.re"
{ RET(DIVIDE); }
#line 164 "scanner.c"
yy4:
++YYCURSOR;
if((yych = *YYCURSOR) == 'n') goto yy194;
goto yy72;
yy5:
#line 91 "scanner.re"
{ RET(SYM); }
#line 172 "scanner.c"
yy6:
yych = *++YYCURSOR;
if(yych == 'r') goto yy189;
goto yy72;
yy7:
yych = *++YYCURSOR;
if(yych == 'c') goto yy177;
goto yy72;
yy8:
yych = *++YYCURSOR;
if(yych == 'r') goto yy158;
goto yy72;
yy9:
yych = *++YYCURSOR;
if(yych == 'o') goto yy149;
goto yy72;
yy10:
yych = *++YYCURSOR;
if(yych <= 'p') {
if(yych <= 'n') goto yy72;
if(yych <= 'o') goto yy123;
goto yy124;
} else {
if(yych == 't') goto yy125;
goto yy72;
}
yy11:
yych = *++YYCURSOR;
if(yych == 'n') goto yy114;
goto yy72;
yy12:
yych = *++YYCURSOR;
if(yych == 'h') goto yy105;
goto yy72;
yy13:
yych = *++YYCURSOR;
if(yych == 'e') goto yy95;
goto yy72;
yy14:
yych = *++YYCURSOR;
if(yych == 'i') goto yy85;
goto yy72;
yy15:
yych = *++YYCURSOR;
if(yych == 'e') goto yy73;
goto yy72;
yy16:
yych = *++YYCURSOR;
goto yy72;
yy17:
yyaccept = 1;
yych = *(YYMARKER = ++YYCURSOR);
if(yych == 'X') goto yy68;
if(yych == 'x') goto yy68;
goto yy67;
yy18:
#line 94 "scanner.re"
{ RET(NUM); }
#line 231 "scanner.c"
yy19:
yych = *++YYCURSOR;
goto yy65;
yy20:
yyaccept = 2;
yych = *(YYMARKER = ++YYCURSOR);
if(yych != 0x0A) goto yy54;
yy21:
#line 124 "scanner.re"
{
printf("unexpected character: %c\n", *s->tok);
goto std;
}
#line 245 "scanner.c"
yy22:
++YYCURSOR;
yych = *YYCURSOR;
goto yy52;
yy23:
#line 99 "scanner.re"
{ goto std; }
#line 253 "scanner.c"
yy24:
++YYCURSOR;
#line 101 "scanner.re"
{ RET(OR); }
#line 258 "scanner.c"
yy26:
++YYCURSOR;
#line 102 "scanner.re"
{ RET(XOR); }
#line 263 "scanner.c"
yy28:
++YYCURSOR;
#line 103 "scanner.re"
{ RET(AND); }
#line 268 "scanner.c"
yy30:
++YYCURSOR;
#line 104 "scanner.re"
{ RET(MINUS); }
#line 273 "scanner.c"
yy32:
++YYCURSOR;
#line 105 "scanner.re"
{ RET(PLUS); }
#line 278 "scanner.c"
yy34:
++YYCURSOR;
#line 106 "scanner.re"
{ RET(MULTIPLY); }
#line 283 "scanner.c"
yy36:
++YYCURSOR;
#line 108 "scanner.re"
{ RET(LPAREN); }
#line 288 "scanner.c"
yy38:
++YYCURSOR;
#line 109 "scanner.re"
{ RET(RPAREN); }
#line 293 "scanner.c"
yy40:
++YYCURSOR;
#line 110 "scanner.re"
{ RET(COMMA); }
#line 298 "scanner.c"
yy42:
++YYCURSOR;
#line 111 "scanner.re"
{ RET(LBRACE); }
#line 303 "scanner.c"
yy44:
++YYCURSOR;
#line 112 "scanner.re"
{ RET(RBRACE); }
#line 308 "scanner.c"
yy46:
++YYCURSOR;
#line 113 "scanner.re"
{ RET(SEMICOLON); }
#line 313 "scanner.c"
yy48:
++YYCURSOR;
#line 117 "scanner.re"
{
if(cursor == s->eof) RET(EOI);
s->pos = cursor; s->line++;
goto std;
}
#line 322 "scanner.c"
yy50:
yych = *++YYCURSOR;
goto yy21;
yy51:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
yy52:
if(yych <= 0x0A) {
if(yych == 0x09) goto yy51;
goto yy23;
} else {
if(yych <= 0x0C) goto yy51;
if(yych == ' ') goto yy51;
goto yy23;
}
yy53:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
yy54:
if(yych <= '!') {
if(yych != 0x0A) goto yy53;
} else {
if(yych <= '"') goto yy57;
if(yych == '\\') goto yy56;
goto yy53;
}
yy55:
YYCURSOR = YYMARKER;
if(yyaccept <= 1) {
if(yyaccept <= 0) {
goto yy3;
} else {
goto yy18;
}
} else {
goto yy21;
}
yy56:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych <= 'b') {
if(yych <= '7') {
if(yych <= '&') {
if(yych == '"') goto yy53;
goto yy55;
} else {
if(yych <= '\'') goto yy53;
if(yych <= '/') goto yy55;
goto yy60;
}
} else {
if(yych <= '[') {
if(yych == '?') goto yy53;
goto yy55;
} else {
if(yych <= '\\') goto yy53;
if(yych <= '`') goto yy55;
goto yy53;
}
}
} else {
if(yych <= 'r') {
if(yych <= 'm') {
if(yych == 'f') goto yy53;
goto yy55;
} else {
if(yych <= 'n') goto yy53;
if(yych <= 'q') goto yy55;
goto yy53;
}
} else {
if(yych <= 'u') {
if(yych == 't') goto yy53;
goto yy55;
} else {
if(yych <= 'v') goto yy53;
if(yych == 'x') goto yy59;
goto yy55;
}
}
}
yy57:
++YYCURSOR;
#line 97 "scanner.re"
{ RET(STRING); }
#line 411 "scanner.c"
yy59:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych <= '@') {
if(yych <= '/') goto yy55;
if(yych <= '9') goto yy62;
goto yy55;
} else {
if(yych <= 'F') goto yy62;
if(yych <= '`') goto yy55;
if(yych <= 'f') goto yy62;
goto yy55;
}
yy60:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych <= '"') {
if(yych == 0x0A) goto yy55;
if(yych <= '!') goto yy53;
goto yy57;
} else {
if(yych <= '7') {
if(yych <= '/') goto yy53;
goto yy60;
} else {
if(yych == '\\') goto yy56;
goto yy53;
}
}
yy62:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych <= '9') {
if(yych <= '!') {
if(yych == 0x0A) goto yy55;
goto yy53;
} else {
if(yych <= '"') goto yy57;
if(yych <= '/') goto yy53;
goto yy62;
}
} else {
if(yych <= '[') {
if(yych <= '@') goto yy53;
if(yych <= 'F') goto yy62;
goto yy53;
} else {
if(yych <= '\\') goto yy56;
if(yych <= '`') goto yy53;
if(yych <= 'f') goto yy62;
goto yy53;
}
}
yy64:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
yy65:
if(yych <= '/') goto yy18;
if(yych <= '9') goto yy64;
goto yy18;
yy66:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
yy67:
if(yych <= '/') goto yy18;
if(yych <= '9') goto yy66;
goto yy18;
yy68:
yych = *++YYCURSOR;
if(yych <= '@') {
if(yych <= '/') goto yy55;
if(yych >= ':') goto yy55;
} else {
if(yych <= 'F') goto yy69;
if(yych <= '`') goto yy55;
if(yych >= 'g') goto yy55;
}
yy69:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych <= '@') {
if(yych <= '/') goto yy18;
if(yych <= '9') goto yy69;
goto yy18;
} else {
if(yych <= 'F') goto yy69;
if(yych <= '`') goto yy18;
if(yych <= 'f') goto yy69;
goto yy18;
}
yy71:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
yy72:
if(yych <= 'Z') {
if(yych <= '/') goto yy5;
if(yych <= '9') goto yy71;
if(yych <= '@') goto yy5;
goto yy71;
} else {
if(yych <= '_') {
if(yych <= '^') goto yy5;
goto yy71;
} else {
if(yych <= '`') goto yy5;
if(yych <= 'z') goto yy71;
goto yy5;
}
}
yy73:
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 'd') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 'r') goto yy72;
yych = *++YYCURSOR;
if(yych != 'S') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'y') goto yy72;
yych = *++YYCURSOR;
if(yych != 'l') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy84;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy84;
if(yych <= 'z') goto yy71;
}
}
yy84:
#line 89 "scanner.re"
{ RET(RenderStyles); }
#line 565 "scanner.c"
yy85:
yych = *++YYCURSOR;
if(yych != 'r') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'S') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy94;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy94;
if(yych <= 'z') goto yy71;
}
}
yy94:
#line 88 "scanner.re"
{ RET(FirstState); }
#line 599 "scanner.c"
yy95:
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'h') goto yy72;
yych = *++YYCURSOR;
if(yych != 'S') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy104;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy104;
if(yych <= 'z') goto yy71;
}
}
yy104:
#line 86 "scanner.re"
{ RET(DeathState); }
#line 633 "scanner.c"
yy105:
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 'g') goto yy72;
yych = *++YYCURSOR;
if(yych != 'B') goto yy72;
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy113;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy113;
if(yych <= 'z') goto yy71;
}
}
yy113:
#line 85 "scanner.re"
{ RET(ThingBits); }
#line 665 "scanner.c"
yy114:
yych = *++YYCURSOR;
if(yych != 'f') goto yy72;
yych = *++YYCURSOR;
if(yych != 'o') goto yy72;
yych = *++YYCURSOR;
if(yych != 'N') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 'm') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy122;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy122;
if(yych <= 'z') goto yy71;
}
}
yy122:
#line 84 "scanner.re"
{ RET(InfoNames); }
#line 697 "scanner.c"
yy123:
yych = *++YYCURSOR;
if(yych == 'u') goto yy142;
goto yy72;
yy124:
yych = *++YYCURSOR;
if(yych == 'a') goto yy133;
goto yy72;
yy125:
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 'M') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 'p') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy132;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy132;
if(yych <= 'z') goto yy71;
}
}
yy132:
#line 82 "scanner.re"
{ RET(StateMap); }
#line 735 "scanner.c"
yy133:
yych = *++YYCURSOR;
if(yych != 'w') goto yy72;
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 'S') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy141;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy141;
if(yych <= 'z') goto yy71;
}
}
yy141:
#line 87 "scanner.re"
{ RET(SpawnState); }
#line 767 "scanner.c"
yy142:
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 'd') goto yy72;
yych = *++YYCURSOR;
if(yych != 'M') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 'p') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy148;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy148;
if(yych <= 'z') goto yy71;
}
}
yy148:
#line 83 "scanner.re"
{ RET(SoundMap); }
#line 795 "scanner.c"
yy149:
yych = *++YYCURSOR;
if(yych != 'd') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 'P') goto yy72;
yych = *++YYCURSOR;
if(yych != 'C') goto yy72;
yych = *++YYCURSOR;
if(yych != 'o') goto yy72;
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 'v') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy157;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy157;
if(yych <= 'z') goto yy71;
}
}
yy157:
#line 80 "scanner.re"
{ RET(CodePConv); }
#line 827 "scanner.c"
yy158:
yych = *++YYCURSOR;
if(yych != 'g') goto yy72;
yych = *++YYCURSOR;
if(yych == 'H') goto yy160;
if(yych == 'S') goto yy161;
goto yy72;
yy160:
yych = *++YYCURSOR;
if(yych == 'e') goto yy170;
goto yy72;
yy161:
yych = *++YYCURSOR;
if(yych != 'p') goto yy72;
yych = *++YYCURSOR;
if(yych != 'r') goto yy72;
yych = *++YYCURSOR;
if(yych != 'N') goto yy72;
yych = *++YYCURSOR;
if(yych != 'a') goto yy72;
yych = *++YYCURSOR;
if(yych != 'm') goto yy72;
yych = *++YYCURSOR;
if(yych != 'e') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy169;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy169;
if(yych <= 'z') goto yy71;
}
}
yy169:
#line 81 "scanner.re"
{ RET(OrgSprNames); }
#line 870 "scanner.c"
yy170:
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 'g') goto yy72;
yych = *++YYCURSOR;
if(yych != 'h') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy176;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy176;
if(yych <= 'z') goto yy71;
}
}
yy176:
#line 78 "scanner.re"
{ RET(OrgHeights); }
#line 898 "scanner.c"
yy177:
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 'o') goto yy72;
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych == 'L') goto yy184;
if(yych != 's') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy183;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy183;
if(yych <= 'z') goto yy71;
}
}
yy183:
#line 77 "scanner.re"
{ RET(Actions); }
#line 927 "scanner.c"
yy184:
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 's') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy188;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy188;
if(yych <= 'z') goto yy71;
}
}
yy188:
#line 79 "scanner.re"
{ RET(ActionList); }
#line 951 "scanner.c"
yy189:
yych = *++YYCURSOR;
if(yych != 'i') goto yy72;
yych = *++YYCURSOR;
if(yych != 'n') goto yy72;
yych = *++YYCURSOR;
if(yych != 't') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy193;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy193;
if(yych <= 'z') goto yy71;
}
}
yy193:
#line 76 "scanner.re"
{ RET(PRINT); }
#line 975 "scanner.c"
yy194:
yych = *++YYCURSOR;
if(yych != 'd') goto yy72;
yych = *++YYCURSOR;
if(yych != 'l') goto yy72;
++YYCURSOR;
if((yych = *YYCURSOR) <= 'Z') {
if(yych <= '/') goto yy197;
if(yych <= '9') goto yy71;
if(yych >= 'A') goto yy71;
} else {
if(yych <= '_') {
if(yych >= '_') goto yy71;
} else {
if(yych <= '`') goto yy197;
if(yych <= 'z') goto yy71;
}
}
yy197:
#line 75 "scanner.re"
{ RET(ENDL); }
#line 997 "scanner.c"
yy198:
++YYCURSOR;
if(YYLIMIT == YYCURSOR) YYFILL(1);
yych = *YYCURSOR;
if(yych == 0x0A) goto yy202;
goto yy198;
yy200:
++YYCURSOR;
#line 67 "scanner.re"
{ goto comment; }
#line 1008 "scanner.c"
yy202:
++YYCURSOR;
#line 69 "scanner.re"
{
if(cursor == s->eof) RET(EOI);
s->tok = s->pos = cursor; s->line++;
goto std;
}
#line 1017 "scanner.c"
}
#line 128 "scanner.re"
comment:
#line 1024 "scanner.c"
{
YYCTYPE yych;
if((YYLIMIT - YYCURSOR) < 2) YYFILL(2);
yych = *YYCURSOR;
if(yych == 0x0A) goto yy208;
if(yych != '*') goto yy210;
++YYCURSOR;
if((yych = *YYCURSOR) == '/') goto yy211;
yy207:
#line 139 "scanner.re"
{ goto comment; }
#line 1036 "scanner.c"
yy208:
++YYCURSOR;
#line 134 "scanner.re"
{
if(cursor == s->eof) RET(EOI);
s->tok = s->pos = cursor; s->line++;
goto comment;
}
#line 1045 "scanner.c"
yy210:
yych = *++YYCURSOR;
goto yy207;
yy211:
++YYCURSOR;
#line 132 "scanner.re"
{ goto std; }
#line 1053 "scanner.c"
}
#line 140 "scanner.re"
}
int lex(Scanner *s, struct Token *tok)
{
int tokentype = scan(s);
char *p, *q;
tok->val = 0;
tok->string = NULL;
switch (tokentype)
{
case NUM:
tok->val = strtol((char *)s->tok, NULL, 0);
break;
case STRING:
tok->string = (char *)malloc(s->cur - s->tok - 1);
strncpy(tok->string, (char *)s->tok + 1, s->cur - s->tok - 2);
tok->string[s->cur - s->tok - 2] = '\0';
for (p = q = tok->string; *p; ++p, ++q)
{
if (p[0] == '\\' && p[1] == '\\')
++p;
*q = *p;
}
break;
case SYM:
tok->string = (char *)malloc(s->cur - s->tok + 1);
strncpy(tok->string, (char *)s->tok, s->cur - s->tok);
tok->string[s->cur - s->tok] = '\0';
break;
}
return tokentype;
}