X-Git-Url: https://git.xonotic.org/?p=xonotic%2Fgmqcc.git;a=blobdiff_plain;f=lexer.h;h=d0ca190d38915d7f41f42ca25bb6e9e6464d5ab3;hp=24ac39a63f7f574d1e9a8a7dfc1f8236cc51612a;hb=a68f0fcb355db42acabe72da5939fbd1b04f6016;hpb=c3f4b7153b3815daf271829148f40d545a6140ef diff --git a/lexer.h b/lexer.h index 24ac39a..d0ca190 100644 --- a/lexer.h +++ b/lexer.h @@ -22,7 +22,6 @@ */ #ifndef GMQCC_LEXER_HDR #define GMQCC_LEXER_HDR - typedef struct token_s token; struct token_s { @@ -31,7 +30,7 @@ struct token_s { char *value; union { - vector v; + vec3_t v; int i; double f; int t; /* type */ @@ -42,7 +41,7 @@ struct token_s { struct token_s *prev; #endif - lex_ctx ctx; + lex_ctx_t ctx; }; #if 0 @@ -114,6 +113,7 @@ typedef struct lex_file_s { char *name; size_t line; size_t sline; /* line at the start of a token */ + size_t column; int peek[256]; size_t peekpos; @@ -123,11 +123,11 @@ typedef struct lex_file_s { token tok; /* not a pointer anymore */ struct { - bool noops; - bool nodigraphs; /* used when lexing string constants */ - bool preprocessing; /* whitespace and EOLs become actual tokens */ - bool mergelines; /* backslash at the end of a line escapes the newline */ - } flags; + unsigned noops:1; + unsigned nodigraphs:1; /* used when lexing string constants */ + unsigned preprocessing:1; /* whitespace and EOLs become actual tokens */ + unsigned mergelines:1; /* backslash at the end of a line escapes the newline */ + } flags; /* sizeof == 1 */ int framevalue; frame_macro *frames; @@ -161,180 +161,186 @@ typedef struct { unsigned int assoc; signed int prec; unsigned int flags; + bool folds; } oper_info; -#define opid1(a) (a) -#define opid2(a,b) ((a<<8)|b) -#define opid3(a,b,c) ((a<<16)|(b<<8)|c) +/* + * Explicit uint8_t casts since the left operand of shift operator cannot + * be negative, even though it won't happen, this supresses the future + * possibility. + */ +#define opid1(a) ((uint8_t)a) +#define opid2(a,b) (((uint8_t)a<<8) |(uint8_t)b) +#define opid3(a,b,c) (((uint8_t)a<<16)|((uint8_t)b<<8)|(uint8_t)c) static const oper_info c_operators[] = { - { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX}, /* paren expression - non function call */ + { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX, false}, /* paren expression - non function call */ - { "++", 1, opid3('S','+','+'), ASSOC_LEFT, 17, OP_SUFFIX}, - { "--", 1, opid3('S','-','-'), ASSOC_LEFT, 17, OP_SUFFIX}, - { ".", 2, opid1('.'), ASSOC_LEFT, 17, 0 }, - { "(", 0, opid1('('), ASSOC_LEFT, 17, 0 }, /* function call */ - { "[", 2, opid1('['), ASSOC_LEFT, 17, 0 }, /* array subscript */ + { "++", 1, opid3('S','+','+'), ASSOC_LEFT, 17, OP_SUFFIX, false}, + { "--", 1, opid3('S','-','-'), ASSOC_LEFT, 17, OP_SUFFIX, false}, + { ".", 2, opid1('.'), ASSOC_LEFT, 17, 0, false}, + { "(", 0, opid1('('), ASSOC_LEFT, 17, 0, false}, /* function call */ + { "[", 2, opid1('['), ASSOC_LEFT, 17, 0, false}, /* array subscript */ - { "++", 1, opid3('+','+','P'), ASSOC_RIGHT, 16, OP_PREFIX }, - { "--", 1, opid3('-','-','P'), ASSOC_RIGHT, 16, OP_PREFIX }, + { "++", 1, opid3('+','+','P'), ASSOC_RIGHT, 16, OP_PREFIX, false}, + { "--", 1, opid3('-','-','P'), ASSOC_RIGHT, 16, OP_PREFIX, false}, - { "**", 2, opid2('*', '*'), ASSOC_RIGHT, 15, 0 }, + { "**", 2, opid2('*','*'), ASSOC_RIGHT, 15, 0, true}, - { "!", 1, opid2('!', 'P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "~", 1, opid2('~', 'P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX }, -/* { "&", 1, opid2('&','P'), ASSOC_RIGHT, 14, OP_PREFIX }, */ + { "!", 1, opid2('!','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + { "~", 1, opid2('~','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, + { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, +/* { "&", 1, opid2('&','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, */ - { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0 }, - { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0 }, - { "%", 2, opid1('%'), ASSOC_LEFT, 13, 0 }, + { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0, true}, + { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0, true}, + { "%", 2, opid1('%'), ASSOC_LEFT, 13, 0, true}, - { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0 }, - { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0 }, + { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0, true}, + { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0, true}, - { "<<", 2, opid2('<','<'), ASSOC_LEFT, 11, 0 }, - { ">>", 2, opid2('>','>'), ASSOC_LEFT, 11, 0 }, + { "<<", 2, opid2('<','<'), ASSOC_LEFT, 11, 0, true}, + { ">>", 2, opid2('>','>'), ASSOC_LEFT, 11, 0, true}, - { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0 }, - { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0 }, - { "<=>", 2, opid3('<','=','>'), ASSOC_LEFT, 10, 0 }, - { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0 }, - { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0 }, + { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0, false}, + { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0, false}, + { "<=>", 2, opid3('<','=','>'), ASSOC_LEFT, 10, 0, true}, + { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0, false}, + { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0, false}, - { "==", 2, opid2('=','='), ASSOC_LEFT, 9, 0 }, - { "!=", 2, opid2('!','='), ASSOC_LEFT, 9, 0 }, + { "==", 2, opid2('=','='), ASSOC_LEFT, 9, 0, true}, + { "!=", 2, opid2('!','='), ASSOC_LEFT, 9, 0, true}, - { "&", 2, opid1('&'), ASSOC_LEFT, 8, 0 }, + { "&", 2, opid1('&'), ASSOC_LEFT, 8, 0, true}, - { "^", 2, opid1('^'), ASSOC_LEFT, 7, 0 }, + { "^", 2, opid1('^'), ASSOC_LEFT, 7, 0, true}, - { "|", 2, opid1('|'), ASSOC_LEFT, 6, 0 }, + { "|", 2, opid1('|'), ASSOC_LEFT, 6, 0, true}, - { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0 }, + { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0, true}, - { "||", 2, opid2('|','|'), ASSOC_LEFT, 4, 0 }, + { "||", 2, opid2('|','|'), ASSOC_LEFT, 4, 0, true}, - { "?", 3, opid2('?',':'), ASSOC_RIGHT, 3, 0 }, + { "?", 3, opid2('?',':'), ASSOC_RIGHT, 3, 0, true}, - { "=", 2, opid1('='), ASSOC_RIGHT, 2, 0 }, - { "+=", 2, opid2('+','='), ASSOC_RIGHT, 2, 0 }, - { "-=", 2, opid2('-','='), ASSOC_RIGHT, 2, 0 }, - { "*=", 2, opid2('*','='), ASSOC_RIGHT, 2, 0 }, - { "/=", 2, opid2('/','='), ASSOC_RIGHT, 2, 0 }, - { "%=", 2, opid2('%','='), ASSOC_RIGHT, 2, 0 }, - { ">>=", 2, opid3('>','>','='), ASSOC_RIGHT, 2, 0 }, - { "<<=", 2, opid3('<','<','='), ASSOC_RIGHT, 2, 0 }, - { "&=", 2, opid2('&','='), ASSOC_RIGHT, 2, 0 }, - { "^=", 2, opid2('^','='), ASSOC_RIGHT, 2, 0 }, - { "|=", 2, opid2('|','='), ASSOC_RIGHT, 2, 0 }, - { "&~=", 2, opid3('&','~','='), ASSOC_RIGHT, 2, 0 }, + { "=", 2, opid1('='), ASSOC_RIGHT, 2, 0, false}, + { "+=", 2, opid2('+','='), ASSOC_RIGHT, 2, 0, false}, + { "-=", 2, opid2('-','='), ASSOC_RIGHT, 2, 0, false}, + { "*=", 2, opid2('*','='), ASSOC_RIGHT, 2, 0, false}, + { "/=", 2, opid2('/','='), ASSOC_RIGHT, 2, 0, false}, + { "%=", 2, opid2('%','='), ASSOC_RIGHT, 2, 0, false}, + { ">>=", 2, opid3('>','>','='), ASSOC_RIGHT, 2, 0, false}, + { "<<=", 2, opid3('<','<','='), ASSOC_RIGHT, 2, 0, false}, + { "&=", 2, opid2('&','='), ASSOC_RIGHT, 2, 0, false}, + { "^=", 2, opid2('^','='), ASSOC_RIGHT, 2, 0, false}, + { "|=", 2, opid2('|','='), ASSOC_RIGHT, 2, 0, false}, + { "&~=", 2, opid3('&','~','='), ASSOC_RIGHT, 2, 0, false}, - { ":", 0, opid2(':','?'), ASSOC_RIGHT, 1, 0 }, + { ":", 0, opid2(':','?'), ASSOC_RIGHT, 1, 0, false}, - { ",", 2, opid1(','), ASSOC_LEFT, 0, 0 } + { ",", 2, opid1(','), ASSOC_LEFT, 0, 0, false} }; static const size_t c_operator_count = (sizeof(c_operators) / sizeof(c_operators[0])); static const oper_info fte_operators[] = { - { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX}, /* paren expression - non function call */ - - { "++", 1, opid3('S','+','+'), ASSOC_LEFT, 15, OP_SUFFIX}, - { "--", 1, opid3('S','-','-'), ASSOC_LEFT, 15, OP_SUFFIX}, - { ".", 2, opid1('.'), ASSOC_LEFT, 15, 0 }, - { "(", 0, opid1('('), ASSOC_LEFT, 15, 0 }, /* function call */ - { "[", 2, opid1('['), ASSOC_LEFT, 15, 0 }, /* array subscript */ - - { "!", 1, opid2('!', 'P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "++", 1, opid3('+','+','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "--", 1, opid3('-','-','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - - { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0 }, - { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0 }, - { "&", 2, opid1('&'), ASSOC_LEFT, 13, 0 }, - { "|", 2, opid1('|'), ASSOC_LEFT, 13, 0 }, - - { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0 }, - { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0 }, - - { "<<", 2, opid2('<','<'), ASSOC_LEFT, 11, 0 }, - { ">>", 2, opid2('>','>'), ASSOC_LEFT, 11, 0 }, - - { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0 }, - { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0 }, - { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0 }, - { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0 }, - { "==", 2, opid2('=','='), ASSOC_LEFT, 10, 0 }, - { "!=", 2, opid2('!','='), ASSOC_LEFT, 10, 0 }, - - { "?", 3, opid2('?',':'), ASSOC_RIGHT, 9, 0 }, - - { "=", 2, opid1('='), ASSOC_RIGHT, 8, 0 }, - { "+=", 2, opid2('+','='), ASSOC_RIGHT, 8, 0 }, - { "-=", 2, opid2('-','='), ASSOC_RIGHT, 8, 0 }, - { "*=", 2, opid2('*','='), ASSOC_RIGHT, 8, 0 }, - { "/=", 2, opid2('/','='), ASSOC_RIGHT, 8, 0 }, - { "%=", 2, opid2('%','='), ASSOC_RIGHT, 8, 0 }, - { "&=", 2, opid2('&','='), ASSOC_RIGHT, 8, 0 }, - { "|=", 2, opid2('|','='), ASSOC_RIGHT, 8, 0 }, - { "&~=", 2, opid3('&','~','='), ASSOC_RIGHT, 8, 0 }, - - { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0 }, - { "||", 2, opid2('|','|'), ASSOC_LEFT, 5, 0 }, + { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX, false}, /* paren expression - non function call */ + + { "++", 1, opid3('S','+','+'), ASSOC_LEFT, 15, OP_SUFFIX, false}, + { "--", 1, opid3('S','-','-'), ASSOC_LEFT, 15, OP_SUFFIX, false}, + { ".", 2, opid1('.'), ASSOC_LEFT, 15, 0, false}, + { "(", 0, opid1('('), ASSOC_LEFT, 15, 0, false}, /* function call */ + { "[", 2, opid1('['), ASSOC_LEFT, 15, 0, false}, /* array subscript */ + + { "!", 1, opid2('!','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, + { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + { "++", 1, opid3('+','+','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, + { "--", 1, opid3('-','-','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, + + { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0, true}, + { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0, true}, + { "&", 2, opid1('&'), ASSOC_LEFT, 13, 0, true}, + { "|", 2, opid1('|'), ASSOC_LEFT, 13, 0, true}, + + { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0, true}, + { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0, true}, + + { "<<", 2, opid2('<','<'), ASSOC_LEFT, 11, 0, true}, + { ">>", 2, opid2('>','>'), ASSOC_LEFT, 11, 0, true}, + + { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0, false}, + { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0, false}, + { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0, false}, + { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0, false}, + { "==", 2, opid2('=','='), ASSOC_LEFT, 10, 0, true}, + { "!=", 2, opid2('!','='), ASSOC_LEFT, 10, 0, true}, + + { "?", 3, opid2('?',':'), ASSOC_RIGHT, 9, 0, true}, + + { "=", 2, opid1('='), ASSOC_RIGHT, 8, 0, false}, + { "+=", 2, opid2('+','='), ASSOC_RIGHT, 8, 0, false}, + { "-=", 2, opid2('-','='), ASSOC_RIGHT, 8, 0, false}, + { "*=", 2, opid2('*','='), ASSOC_RIGHT, 8, 0, false}, + { "/=", 2, opid2('/','='), ASSOC_RIGHT, 8, 0, false}, + { "%=", 2, opid2('%','='), ASSOC_RIGHT, 8, 0, false}, + { "&=", 2, opid2('&','='), ASSOC_RIGHT, 8, 0, false}, + { "|=", 2, opid2('|','='), ASSOC_RIGHT, 8, 0, false}, + { "&~=", 2, opid3('&','~','='), ASSOC_RIGHT, 8, 0, false}, + + { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0, true}, + { "||", 2, opid2('|','|'), ASSOC_LEFT, 5, 0, true}, /* Leave precedence 3 for : with -fcorrect-ternary */ - { ",", 2, opid1(','), ASSOC_LEFT, 2, 0 }, - { ":", 0, opid2(':','?'), ASSOC_RIGHT, 1, 0 } + { ",", 2, opid1(','), ASSOC_LEFT, 2, 0, false}, + { ":", 0, opid2(':','?'), ASSOC_RIGHT, 1, 0, false} }; static const size_t fte_operator_count = (sizeof(fte_operators) / sizeof(fte_operators[0])); static const oper_info qcc_operators[] = { - { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX}, /* paren expression - non function call */ - - { ".", 2, opid1('.'), ASSOC_LEFT, 15, 0 }, - { "(", 0, opid1('('), ASSOC_LEFT, 15, 0 }, /* function call */ - { "[", 2, opid1('['), ASSOC_LEFT, 15, 0 }, /* array subscript */ - - { "!", 1, opid2('!', 'P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX }, - - { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0 }, - { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0 }, - { "&", 2, opid1('&'), ASSOC_LEFT, 13, 0 }, - { "|", 2, opid1('|'), ASSOC_LEFT, 13, 0 }, - - { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0 }, - { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0 }, - - { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0 }, - { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0 }, - { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0 }, - { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0 }, - { "==", 2, opid2('=','='), ASSOC_LEFT, 10, 0 }, - { "!=", 2, opid2('!','='), ASSOC_LEFT, 10, 0 }, - - { "=", 2, opid1('='), ASSOC_RIGHT, 8, 0 }, - { "+=", 2, opid2('+','='), ASSOC_RIGHT, 8, 0 }, - { "-=", 2, opid2('-','='), ASSOC_RIGHT, 8, 0 }, - { "*=", 2, opid2('*','='), ASSOC_RIGHT, 8, 0 }, - { "/=", 2, opid2('/','='), ASSOC_RIGHT, 8, 0 }, - { "%=", 2, opid2('%','='), ASSOC_RIGHT, 8, 0 }, - { "&=", 2, opid2('&','='), ASSOC_RIGHT, 8, 0 }, - { "|=", 2, opid2('|','='), ASSOC_RIGHT, 8, 0 }, - - { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0 }, - { "||", 2, opid2('|','|'), ASSOC_LEFT, 5, 0 }, - - { ",", 2, opid1(','), ASSOC_LEFT, 2, 0 }, + { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX, false}, /* paren expression - non function call */ + + { ".", 2, opid1('.'), ASSOC_LEFT, 15, 0, false}, + { "(", 0, opid1('('), ASSOC_LEFT, 15, 0, false}, /* function call */ + { "[", 2, opid1('['), ASSOC_LEFT, 15, 0, false}, /* array subscript */ + + { "!", 1, opid2('!','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX, false}, + { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX, true}, + + { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0, true}, + { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0, true}, + { "&", 2, opid1('&'), ASSOC_LEFT, 13, 0, true}, + { "|", 2, opid1('|'), ASSOC_LEFT, 13, 0, true}, + + { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0, true}, + { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0, true}, + + { "<", 2, opid1('<'), ASSOC_LEFT, 10, 0, false}, + { ">", 2, opid1('>'), ASSOC_LEFT, 10, 0, false}, + { "<=", 2, opid2('<','='), ASSOC_LEFT, 10, 0, false}, + { ">=", 2, opid2('>','='), ASSOC_LEFT, 10, 0, false}, + { "==", 2, opid2('=','='), ASSOC_LEFT, 10, 0, true}, + { "!=", 2, opid2('!','='), ASSOC_LEFT, 10, 0, true}, + + { "=", 2, opid1('='), ASSOC_RIGHT, 8, 0, false}, + { "+=", 2, opid2('+','='), ASSOC_RIGHT, 8, 0, false}, + { "-=", 2, opid2('-','='), ASSOC_RIGHT, 8, 0, false}, + { "*=", 2, opid2('*','='), ASSOC_RIGHT, 8, 0, false}, + { "/=", 2, opid2('/','='), ASSOC_RIGHT, 8, 0, false}, + { "%=", 2, opid2('%','='), ASSOC_RIGHT, 8, 0, false}, + { "&=", 2, opid2('&','='), ASSOC_RIGHT, 8, 0, false}, + { "|=", 2, opid2('|','='), ASSOC_RIGHT, 8, 0, false}, + + { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0, true}, + { "||", 2, opid2('|','|'), ASSOC_LEFT, 5, 0, true}, + + { ",", 2, opid1(','), ASSOC_LEFT, 2, 0, false}, }; static const size_t qcc_operator_count = (sizeof(qcc_operators) / sizeof(qcc_operators[0])); extern const oper_info *operators; extern size_t operator_count; -void lexerror(lex_file*, const char *fmt, ...); +/*void lexerror(lex_file*, const char *fmt, ...);*/ #endif