/* Generated by re2c 1.2.1 on Mon May 18 17:14:55 2020 */

/*

* STEP Part 21 Parser

*

* Copyright (c) 2020, Christopher HORLER (cshorler@googlemail.com)

*

* All rights reserved.

*

* This file is part of the STEPCODE project.

*

* Redistribution and use in source and binary forms, with or without

* modification, are permitted provided that the following conditions are met:

*

* Redistributions of source code must retain the above copyright notice,

* this list of conditions and the following disclaimer.

*

* Redistributions in binary form must reproduce the above copyright notice,

* this list of conditions and the following disclaimer in the documentation

* and/or other materials provided with the distribution.

*

* Neither the name of the <ORGANIZATION> nor the names of its contributors may

* be used to endorse or promote products derived from this software without

* specific prior written permission.

*

* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"

* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

* ARE DISCLAIMED.

* IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY

* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

*/

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <stddef.h>

#include <stdint.h>

#include <stdbool.h>

#include <stdarg.h>

#include <assert.h>

#include <sqlite3.h>

#define YYCTYPE unsigned char

#define YYCURSOR in->cur

#define YYLIMIT in->lim

#define YYMARKER in->mrk

#define YYCTXMARKER in->ctxmrk

#define YYFILL(n) do { \

if (fill(in, n) != 0) { \

fprintf(stderr, "lexer fill(...) failed, exiting\n"); \

exit(1); \

} \

} while (0)

#define YYMAXFILL 17

#define INIT_BUF_SZ 4096

#define INIT_STACK_SZ 64

/* reserved literals '(' ')' ';' '=' */

#define T_P21_START 'S'

#define T_P21_END 'X'

#define T_HEADER 'H'

#define T_DATA 'D'

#define T_ENDSEC 'E'

#define T_EID 'I'

#define T_KEYWORD 'K'

#define T_VARIANT 'V'

#define T_EOF '\x00'

#define T_ERROR '\x01'

#define V_REAL 'r'

#define V_INTEGER 'i'

#define V_STRING 's'

#define V_BINARY 'b'

#define V_ENUMERATION 'e'

#define V_EID T_EID

#define V_DERIVED '*'

#define V_EMPTY '$'

#define P_FILE 'f'

#define P_HEADERSECTION 'h'

#define P_DATASECTION 'd'

#define P_HEADERENTITY 'x'

#define P_SIMPLEENTITY 's'

#define P_COMPLEXENTITY 'c'

#define P_SIMPLERECORD 'u'

#define P_LIST 'l'

#define P_PARAMETER 'p'

int debug = 1;

#define dprintf(fmt, ...) \

do { if (debug) fprintf(stderr, "%s:%3d " fmt, __FILE__, __LINE__, ##__VA_ARGS__); } while (0)

/* ppfu https://stackoverflow.com/a/11763277/1162349 */

#define GET_MACRO(_1, _2, _3, _4, NAME, ...) NAME

#define _EXPAND(x) x

/* for lookahead */

#define PUSH_SYMBOL(...) _EXPAND(GET_MACRO(__VA_ARGS__, _4, _3, _PUSH_SYMBOL2, _PUSH_SYMBOL1)(__VA_ARGS__))

#define _PUSH_SYMBOL1(token) in->sym[in->nsym++] = (Symbol){(token), 0, n, in->lineno, in->sp - in->basemrk}

#define _PUSH_SYMBOL2(token, vtype) in->sym[in->nsym++] = (Symbol){(token), (vtype), n, in->lineno, in->sp - in->basemrk}

/* for parse stack */

#define PUSH_TERMINAL(stack, sym) do { \

Symbol it = (sym); \

push((stack), it); \

if (it.token == T_ERROR) goto err; \

} while (0)

#define PUSH_TERMINAL_EXT(cxt, stack, sym) do { \

Symbol it = (sym); \

push((stack), it); \

if (it.token == T_ERROR) goto err; \

else if (it.token == '(') (cxt) = (stack)->idx_top - 1; \

else if (it.token == ')') (stack)->items[(cxt)].n = (stack)->idx_top - (cxt) - 1; \

} while (0)

/* test for one in a set of 1 to 4 e.g. {t0, t1, t2, t3} */

#define LOOKAHEAD(x, ...) _EXPAND(GET_MACRO(__VA_ARGS__, _LOOKAHEAD4, _LOOKAHEAD3, _LOOKAHEAD2, _LOOKAHEAD1)(x, __VA_ARGS__))

#define _LOOKAHEAD1(x, t0) ((t0) == (x).token)

#define _LOOKAHEAD2(x, t0, t1) ((t0) == (x).token || (t1) == (x).token)

#define _LOOKAHEAD3(x, t0, t1, t2) (_LOOKAHEAD2(x, t0, t1) || (t2) == (x).token)

#define _LOOKAHEAD4(x, t0, t1, t2, t3) (_LOOKAHEAD2(x, t0, t1) || _LOOKAHEAD2(x, t2, t3))

/* lexeme */

typedef struct {

uint8_t token;

union {

uint8_t vtype;

uint8_t errtoken;

};

uint16_t n;

uint32_t lineno;

union {

ptrdiff_t offset; /* from basemrk */

void *data; /* production allocation if applicable */

};

} Symbol;

typedef struct SimpleRecord_ {

Symbol *kw; /* 'KEYWORD' */

Symbol *args;/* '(' */

} SimpleRecord;

typedef struct SimpleRecord_ HeaderEntity;

typedef struct {

Symbol *eid; /* '#<idN>' */

Symbol *eq; /* '=' */

Symbol *kw; /* 'KEYWORD' */

Symbol *args;/* '(' */

} SimpleEntity;

typedef struct {

Symbol *eid; /* '#<idN>' */

Symbol *eq; /* '=' */

Symbol *subsupers;/* '(' */

} ComplexEntity;

typedef struct {

FILE *file;

size_t bufsz;

unsigned char *cur, *mrk, *ctxmrk, *lim;

unsigned char *sp, *basemrk;

int eof;

uint32_t lineno;

int nsym;

Symbol sym[3];

unsigned char *buf;

} Input;

typedef struct {

int idx_top;

int idx_lim;

Symbol *items;

} Stack;

/* LL(3) parser */

typedef struct {

bool error;

bool hold;

Input *in;

Stack *stack;

} P21Parser;

typedef void (p21_action_cb_t) (P21Parser *, int, void *);

typedef void (p21_error_cb_t) (P21Parser *, int, uint8_t);

typedef void (p21_ud_cb_t) (void *);

typedef struct {

void *userdata;

p21_error_cb_t *error_cb;

p21_ud_cb_t *ud_init_cb;

p21_ud_cb_t *ud_exit_cb;

p21_action_cb_t *exchange_file_cb;

p21_action_cb_t *header_start_cb;

p21_action_cb_t *header_entity_list_cb;

p21_action_cb_t *data_section_list_cb;

p21_action_cb_t *data_start_cb;

p21_action_cb_t *header_entity_cb;

p21_action_cb_t *simple_entity_instance_cb;

p21_action_cb_t *complex_entity_instance_cb;

p21_action_cb_t *parameter_list_cb;

p21_action_cb_t *parameter_cb;

p21_action_cb_t *entity_instance_list_cb;

p21_action_cb_t *entity_instance_cb;

p21_action_cb_t *simple_record_list_cb;

p21_action_cb_t *simple_record_cb;

} P21ParserActions;

void report_error(P21Parser *, const char *);

void _recover(Input *, uint8_t, uint8_t, uint8_t);

Symbol lpop(Input *, uint8_t);

void p21_parse(P21Parser *, P21ParserActions *);

void p21_exchange_file(P21Parser *, P21ParserActions *);

void p21_header_section(P21Parser *, P21ParserActions *);

void p21_header_entity_list(P21Parser *, P21ParserActions *);

void p21_header_entity(P21Parser *, P21ParserActions *);

void p21_data_section_list(P21Parser *, P21ParserActions *);

void p21_data_section(P21Parser *, P21ParserActions *);

void p21_entity_instance(P21Parser *, P21ParserActions *);

void p21_simple_entity_instance(P21Parser *, P21ParserActions *);

void p21_complex_entity_instance(P21Parser *, P21ParserActions *);

void p21_entity_instance_list(P21Parser *, P21ParserActions *);

void p21_parameter(P21Parser *, P21ParserActions *);

void p21_parameter_list(P21Parser *, P21ParserActions *);

void p21_simple_record(P21Parser *, P21ParserActions *);

void p21_simple_record_list(P21Parser *, P21ParserActions *);

void push(Stack *stack, Symbol it) {

if (stack->idx_top == stack->idx_lim) {

Symbol *nitems = realloc(stack->items, 2 * stack->idx_lim * sizeof stack->items[0]);

if (!nitems) {

fprintf(stderr, "failed to grow parser stack, memory exhausted\n");

exit(1);

}

stack->items = nitems;

stack->idx_lim *= 2;

}

stack->items[stack->idx_top++] = it;

}

/* mock implementations */

void drop(Stack *stack, uint32_t n) {

assert(stack->idx_top >= n);

stack->idx_top -= n;

}

void unwind(Stack *stack, int bsp) {

stack->idx_top = bsp;

}

Symbol *pop(Stack *stack) {

assert(stack->idx_top >= 1);

stack->idx_top--;

return stack->items + stack->idx_top;

}

Symbol *peek(Stack *stack) {

assert(stack->idx_top >= 1);

return stack->items + stack->idx_top - 1;

}

Symbol lpop(Input *in, uint8_t token) {

Symbol *stack = in->sym;

Symbol sym = stack[0];

/* missing input or unexpected lookahead token */

if (in->nsym == 0)

return (Symbol){T_ERROR, token, 0, in->lineno};

else if (sym.token != token)

return (Symbol){T_ERROR, token, 0, sym.lineno};

if (!--in->nsym) {

memset(&in->sym[0], 0, sizeof in->sym[0]);

} else {

memmove(&in->sym[0], &in->sym[1], in->nsym * sizeof in->sym[0]);

memset(&in->sym[in->nsym], 0, sizeof in->sym[0]);

}

return sym;

}

static int fill(Input *in, size_t need)

{

size_t free;

unsigned char *newbuf;

if (in->eof) {

return 1;

}

free = in->basemrk - in->buf;

if (free < need) {

newbuf = realloc(in->buf, 2 * in->bufsz + YYMAXFILL);

if (!newbuf) {

fprintf(stderr, "fatal - buffer memory exhausted, exiting\n");

return 2;

}

in->bufsz *= 2;

in->lim = newbuf + (in->lim - in->buf);

in->cur = newbuf + (in->cur - in->buf);

in->mrk = newbuf + (in->mrk - in->buf);

in->ctxmrk = newbuf + (in->ctxmrk - in->buf);

in->basemrk = newbuf + (in->basemrk - in->buf);

in->sp = newbuf + (in->sp - in->buf);

in->buf = newbuf;

/* don't memmove() here! */

free = (in->buf + in->bufsz) - in->lim;

} else {

memmove(in->buf, in->basemrk, in->lim - in->basemrk);

in->lim -= free;

in->cur -= free;

in->mrk -= free;

in->ctxmrk -= free;

in->basemrk -= free;

in->sp -= free;

}

in->lim += fread(in->lim, 1, free, in->file);

if (in->lim < in->buf + in->bufsz) {

in->eof = 1;

memset(in->lim, 0, YYMAXFILL);

in->lim += YYMAXFILL;

}

return 0;

}

static void p21_init(P21Parser *p, FILE *file)

{

Stack *stack;

Input *in;

in = malloc(sizeof *in);

if (!in)

goto err;

memset(in, 0, sizeof *in);

in->bufsz = INIT_BUF_SZ;

in->buf = malloc(INIT_BUF_SZ + YYMAXFILL);

if (!in->buf)

goto err;

in->file = file;

in->cur = in->basemrk = in->sp = in->lim = in->buf + INIT_BUF_SZ;

in->lineno = 1;

fill(in, 1);

stack = malloc(sizeof *stack);

if (!stack)

goto err;

memset(stack, 0, sizeof *stack);

stack->idx_lim = 16;

stack->idx_top = 0;

stack->items = malloc(stack->idx_lim * sizeof stack->items[0]);

if (!stack->items)

goto err;

p->in = in;

p->stack = stack;

p->error = false;

return;

err:

fprintf(stderr, "failed to initialise parser\n");

exit(1);

}

/* noop error handler */

void default_error_handler(P21Parser *p, int bsp, uint8_t t) {

Symbol *sym = peek(p->stack);

if (sym->token == T_ERROR)

pop(p->stack);

push(p->stack, (Symbol){t});

}

/* TODO: this needs to be reworked */

void report_error(P21Parser *p, const char *cxt) {

Input *in = p->in;

Symbol *it = peek(p->stack);

int lineno;

unsigned char *cur;

fprintf(stderr, cxt);

if (it->token == T_ERROR) {

fprintf(stderr, " syntax error - line: %d\n", it->lineno);

fprintf(stderr, " expected '%c' (token type) ", it->errtoken);

} else {

cur = in->cur;

lineno = in->lineno;

while (1) {

if (*(cur - 2) == '\r' && *(cur - 1) == '\n') { cur -= 2; --lineno; }

else if (*(cur - 1) == '\n') { --cur; --lineno; }

else { break; }

}

fprintf(stderr, " syntax error - line: %d\n", lineno);

}

if (!in->nsym) {

cur = in->cur;

lineno = in->lineno;

while (1) {

if (*cur == '\r' && *(cur + 1) == '\n') { cur -= 2; --lineno; }

else if (*cur == '\n') { --cur; --lineno; }

else { break; }

}

fprintf(stderr, " unexpected character '%c' (line: %d)\n", *cur, lineno);

} else {

fprintf(stderr, " got '%c' (token type)\n", in->sym[0].token);

}

}

void lex_comment(Input *in) {

size_t n;

int comment_lvl = 1;

while (1) {

in->sp = in->cur;

{

YYCTYPE yych;

if ((YYLIMIT - YYCURSOR) < 2) YYFILL(2);

yych = *YYCURSOR;

if (yych <= '*') {

if (yych <= '\r') {

if (yych == '\n') goto yy4;

if (yych >= '\r') goto yy6;

} else {

if (yych <= 0x001F) goto yy2;

if (yych <= ' ') goto yy7;

if (yych <= ')') goto yy10;

goto yy13;

}

} else {

if (yych <= '[') {

if (yych == '/') goto yy16;

if (yych <= 'Z') goto yy10;

} else {

if (yych == ']') goto yy2;

if (yych <= '~') goto yy10;

}

}

yy2:

++YYCURSOR;

yy3:

{ n = in->cur - in->sp; }

{ YYCURSOR--; break; }

yy4:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ in->lineno++; continue; }

yy6:

yych = *++YYCURSOR;

if (yych == '\n') goto yy4;

goto yy3;

yy7:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '/') {

if (yych <= ')') {

if (yych <= 0x001F) goto yy9;

if (yych <= ' ') goto yy7;

goto yy10;

} else {

if (yych <= '*') goto yy9;

if (yych <= '.') goto yy10;

}

} else {

if (yych <= '\\') {

if (yych != '[') goto yy10;

} else {

if (yych <= ']') goto yy9;

if (yych <= '~') goto yy10;

}

}

yy9:

{ n = in->cur - in->sp; }

{ continue; }

yy10:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '/') {

if (yych <= ')') {

if (yych >= ' ') goto yy10;

} else {

if (yych <= '*') goto yy12;

if (yych <= '.') goto yy10;

}

} else {

if (yych <= '\\') {

if (yych != '[') goto yy10;

} else {

if (yych <= ']') goto yy12;

if (yych <= '~') goto yy10;

}

}

yy12:

{ n = in->cur - in->sp; }

{ continue; }

yy13:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '*') goto yy13;

if (yych == '/') goto yy18;

{ n = in->cur - in->sp; }

{ continue; }

yy16:

yych = *++YYCURSOR;

if (yych == '*') goto yy20;

{ n = in->cur - in->sp; }

{ continue; }

yy18:

++YYCURSOR;

{ n = in->cur - in->sp; }

{

if (!--comment_lvl) { break; }

else { continue; }

}

yy20:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ lex_comment(in); continue; }

}

}

return;

err:

fprintf(stderr, "invalid character in comment, exiting\n");

exit(1);

}

#define recover(in, ...) GET_MACRO(__VA_ARGS__, _4, _RECOVER3, _RECOVER2, _RECOVER1)(in, __VA_ARGS__)

#define _RECOVER1(in, u0) _recover((in), (u0), 0U, 0U)

#define _RECOVER2(in, u0, u1) _recover((in), (u0), (u1), 0U)

#define _RECOVER3(in, u0, u1, u2) _recover((in), (u0), (u1), (u2))

void _recover(Input *in, uint8_t u0, uint8_t u1, uint8_t u2) {

size_t n;

Symbol sym;

while (in->nsym) {

if (LOOKAHEAD(in->sym[0], u0, u1, u2, T_EOF))

break;

--in->nsym;

memmove(&in->sym[0], &in->sym[1], in->nsym * sizeof in->sym[0]);

memset(&in->sym[in->nsym], 0, sizeof in->sym[0]);

}

if (in->nsym)

return;

while (1) {

in->sp = in->cur;

{

YYCTYPE yych;

unsigned int yyaccept = 0;

if ((YYLIMIT - YYCURSOR) < 17) YYFILL(17);

yych = *YYCURSOR;

if (yych <= '-') {

if (yych <= '"') {

if (yych <= '\r') {

if (yych == '\n') goto yy26;

if (yych >= '\r') goto yy28;

} else {

if (yych <= 0x001F) goto yy24;

if (yych <= ' ') goto yy29;

if (yych <= '!') goto yy32;

goto yy33;

}

} else {

if (yych <= '\'') {

if (yych <= '#') goto yy34;

if (yych <= '$') goto yy35;

if (yych >= '\'') goto yy37;

} else {

if (yych <= '*') {

if (yych <= ')') goto yy38;

goto yy40;

} else {

if (yych != ',') goto yy42;

}

}

}

} else {

if (yych <= 'E') {

if (yych <= ':') {

if (yych <= '.') goto yy43;

if (yych <= '/') goto yy44;

if (yych <= '9') goto yy45;

} else {

if (yych <= '@') {

if (yych <= ';') goto yy38;

} else {

if (yych <= 'C') goto yy48;

if (yych <= 'D') goto yy51;

goto yy52;

}

}

} else {

if (yych <= 'Z') {

if (yych <= 'G') goto yy48;

if (yych <= 'H') goto yy53;

if (yych <= 'I') goto yy54;

goto yy48;

} else {

if (yych <= '_') {

if (yych >= '_') goto yy48;

} else {

if (yych <= '`') goto yy24;

if (yych <= 'z') goto yy48;

}

}

}

}

yy24:

++YYCURSOR;

yy25:

{ n = in->cur - in->sp; }

{ YYCURSOR--; break; }

yy26:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ in->lineno++; continue; }

yy28:

yych = *++YYCURSOR;

if (yych == '\n') goto yy26;

goto yy25;

yy29:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == ' ') goto yy29;

{ n = in->cur - in->sp; }

{ continue; }

yy32:

yych = *++YYCURSOR;

if (yych <= '^') {

if (yych <= '@') goto yy25;

if (yych <= 'Z') goto yy48;

goto yy25;

} else {

if (yych == '`') goto yy25;

if (yych <= 'z') goto yy48;

goto yy25;

}

yy33:

yyaccept = 0;

yych = *(YYMARKER = ++YYCURSOR);

if (yych <= '/') goto yy25;

if (yych <= '3') goto yy55;

goto yy25;

yy34:

yych = *++YYCURSOR;

if (yych <= '/') goto yy25;

if (yych <= '9') goto yy58;

goto yy25;

yy35:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_EMPTY}; goto check; }

yy37:

yyaccept = 0;

yych = *(YYMARKER = ++YYCURSOR);

if (yych <= '[') {

if (yych <= 0x001F) goto yy25;

if (yych <= 'Z') goto yy62;

goto yy25;

} else {

if (yych == ']') goto yy25;

if (yych <= '~') goto yy62;

goto yy25;

}

yy38:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ sym = (Symbol){*in->sp}; goto check; }

yy40:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_DERIVED}; goto check; }

yy42:

yyaccept = 0;

yych = *(YYMARKER = ++YYCURSOR);

if (yych <= ',') {

if (yych == '+') goto yy66;

goto yy25;

} else {

if (yych <= '-') goto yy66;

if (yych <= '/') goto yy25;

if (yych <= '9') goto yy45;

goto yy25;

}

yy43:

yyaccept = 0;

yych = *(YYMARKER = ++YYCURSOR);

if (yych <= '@') goto yy25;

if (yych <= 'Z') goto yy68;

if (yych == '_') goto yy68;

goto yy25;

yy44:

yych = *++YYCURSOR;

if (yych == '*') goto yy70;

goto yy25;

yy45:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '.') goto yy72;

if (yych <= '/') goto yy47;

if (yych <= '9') goto yy45;

yy47:

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_INTEGER}; goto check; }

yy48:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

yy49:

if (yych <= 'Z') {

if (yych <= '/') goto yy50;

if (yych <= '9') goto yy48;

if (yych >= 'A') goto yy48;

} else {

if (yych <= '_') {

if (yych >= '_') goto yy48;

} else {

if (yych <= '`') goto yy50;

if (yych <= 'z') goto yy48;

}

}

yy50:

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_KEYWORD}; goto check; }

yy51:

yych = *++YYCURSOR;

if (yych == 'A') goto yy75;

goto yy49;

yy52:

yych = *++YYCURSOR;

if (yych == 'N') goto yy76;

goto yy49;

yy53:

yych = *++YYCURSOR;

if (yych == 'E') goto yy77;

goto yy49;

yy54:

yych = *++YYCURSOR;

if (yych == 'S') goto yy78;

goto yy49;

yy55:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '/') {

if (yych == '"') goto yy79;

} else {

if (yych <= '9') goto yy55;

if (yych <= '@') goto yy57;

if (yych <= 'F') goto yy55;

}

yy57:

YYCURSOR = YYMARKER;

if (yyaccept <= 1) {

if (yyaccept == 0) {

goto yy25;

} else {

goto yy64;

}

} else {

if (yyaccept == 2) {

goto yy74;

} else {

goto yy50;

}

}

yy58:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '/') goto yy60;

if (yych <= '9') goto yy58;

yy60:

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_EID}; goto check; }

yy61:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

yy62:

if (yych <= 'Z') {

if (yych <= 0x001F) goto yy57;

if (yych != '\'') goto yy61;

} else {

if (yych <= '\\') {

if (yych <= '[') goto yy57;

goto yy65;

} else {

if (yych <= ']') goto yy57;

if (yych <= '~') goto yy61;

goto yy57;

}

}

yyaccept = 1;

YYMARKER = ++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '\'') goto yy61;

yy64:

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_STRING}; goto check; }

yy65:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= 'S') {

if (yych <= '@') goto yy57;

if (yych <= 'I') goto yy81;

if (yych <= 'R') goto yy57;

goto yy82;

} else {

if (yych <= 'X') {

if (yych <= 'W') goto yy57;

goto yy83;

} else {

if (yych == '\\') goto yy61;

goto yy57;

}

}

yy66:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= ',') {

if (yych == '+') goto yy66;

goto yy57;

} else {

if (yych <= '-') goto yy66;

if (yych <= '/') goto yy57;

if (yych <= '9') goto yy45;

goto yy57;

}

yy68:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '9') {

if (yych == '.') goto yy84;

if (yych <= '/') goto yy57;

goto yy68;

} else {

if (yych <= 'Z') {

if (yych <= '@') goto yy57;

goto yy68;

} else {

if (yych == '_') goto yy68;

goto yy57;

}

}

yy70:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ lex_comment(in); continue; }

yy72:

yyaccept = 2;

YYMARKER = ++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '/') goto yy74;

if (yych <= '9') goto yy72;

if (yych == 'E') goto yy86;

yy74:

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_REAL}; goto check; }

yy75:

yych = *++YYCURSOR;

if (yych == 'T') goto yy88;

goto yy49;

yy76:

yych = *++YYCURSOR;

if (yych == 'D') goto yy89;

goto yy49;

yy77:

yych = *++YYCURSOR;

if (yych == 'A') goto yy90;

goto yy49;

yy78:

yych = *++YYCURSOR;

if (yych == 'O') goto yy91;

goto yy49;

yy79:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_BINARY}; goto check; }

yy81:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '\\') goto yy61;

goto yy57;

yy82:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '\\') goto yy92;

goto yy57;

yy83:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '3') {

if (yych == '2') goto yy93;

goto yy57;

} else {

if (yych <= '4') goto yy94;

if (yych == '\\') goto yy95;

goto yy57;

}

yy84:

++YYCURSOR;

{ n = in->cur - in->sp; }

{ sym = (Symbol){T_VARIANT, V_ENUMERATION}; goto check; }

yy86:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= ',') {

if (yych == '+') goto yy86;

goto yy57;

} else {

if (yych <= '-') goto yy86;

if (yych <= '/') goto yy57;

if (yych <= '9') goto yy96;

goto yy57;

}

yy88:

yych = *++YYCURSOR;

if (yych == 'A') goto yy98;

goto yy49;

yy89:

yyaccept = 3;

yych = *(YYMARKER = ++YYCURSOR);

if (yych == '-') goto yy99;

if (yych == 'S') goto yy100;

goto yy49;

yy90:

yych = *++YYCURSOR;

if (yych == 'D') goto yy101;

goto yy49;

yy91:

yyaccept = 3;

yych = *(YYMARKER = ++YYCURSOR);

if (yych == '-') goto yy102;

goto yy49;

yy92:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych <= '[') {

if (yych <= 0x001F) goto yy57;

if (yych <= 'Z') goto yy61;

goto yy57;

} else {

if (yych == ']') goto yy57;

if (yych <= '~') goto yy61;

goto yy57;

}

yy93:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '\\') goto yy103;

goto yy57;

yy94:

++YYCURSOR;

if (YYLIMIT <= YYCURSOR) YYFILL(1);

yych = *YYCURSOR;

if (yych == '\\') goto yy104;