int t; /* type */
} constval;
+#if 0
struct token_s *next;
struct token_s *prev;
+#endif
lex_ctx ctx;
};
+#if 0
token* token_new();
void token_delete(token*);
token* token_copy(const token *cp);
void token_delete_all(token *t);
token* token_copy_all(const token *cp);
+#endif
/* Lexer
*
TOKEN_KEYWORD, /* loop */
+ TOKEN_DOTS, /* 3 dots, ... */
+
TOKEN_STRINGCONST, /* not the typename but an actual "string" */
TOKEN_CHARCONST,
TOKEN_VECTORCONST,
TOKEN_INTCONST,
TOKEN_FLOATCONST,
+ TOKEN_WHITE,
+ TOKEN_EOL,
+
TOKEN_EOF,
/* We use '< TOKEN_ERROR', so TOKEN_FATAL must come after it and any
"TOKEN_TYPENAME",
"TOKEN_OPERATOR",
"TOKEN_KEYWORD",
+ "TOKEN_DOTS",
"TOKEN_STRINGCONST",
"TOKEN_CHARCONST",
"TOKEN_VECTORCONST",
"TOKEN_INTCONST",
"TOKEN_FLOATCONST",
+ "TOKEN_WHITE",
+ "TOKEN_EOL",
"TOKEN_EOF",
"TOKEN_ERROR",
"TOKEN_FATAL",
bool eof;
- token *tok;
+ token tok; /* not a pointer anymore */
struct {
bool noops;
+ bool nodigraphs; /* used when lexing string constants */
+ bool preprocessing; /* whitespace and EOLs become actual tokens */
} flags;
int framevalue;
#define opid2(a,b) ((a<<8)|b)
#define opid3(a,b,c) ((a<<16)|(b<<8)|c)
-static const oper_info operators[] = {
+static const oper_info c_operators[] = {
{ "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX}, /* paren expression - non function call */
{ "++", 1, opid3('S','+','+'), ASSOC_LEFT, 16, 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 },
{ ",", 2, opid1(','), ASSOC_LEFT, 1, 0 }
};
-static const size_t operator_count = (sizeof(operators) / sizeof(operators[0]));
+static const size_t c_operator_count = (sizeof(c_operators) / sizeof(c_operators[0]));
-typedef struct
-{
- lex_file *lex;
- int error;
- lex_ctx ctx;
+static const oper_info qcc_operators[] = {
+ { "(", 0, opid1('('), ASSOC_LEFT, 99, OP_PREFIX}, /* paren expression - non function call */
- token *tokens;
- token *lastok;
+ { ".", 2, opid1('.'), ASSOC_LEFT, 15, 0 },
+ { "(", 0, opid1('('), ASSOC_LEFT, 15, 0 }, /* function call */
+ { "[", 2, opid1('['), ASSOC_LEFT, 15, 0 }, /* array subscript */
- token *tok; /* current token */
+ { "!", 1, opid2('!', 'P'), ASSOC_RIGHT, 14, OP_PREFIX },
+ { "+", 1, opid2('+','P'), ASSOC_RIGHT, 14, OP_PREFIX },
+ { "-", 1, opid2('-','P'), ASSOC_RIGHT, 14, OP_PREFIX },
- MEM_VECTOR_MAKE(ast_value*, globals);
-} parse_file;
+ { "*", 2, opid1('*'), ASSOC_LEFT, 13, 0 },
+ { "/", 2, opid1('/'), ASSOC_LEFT, 13, 0 },
+ { "&", 2, opid1('&'), ASSOC_LEFT, 13, 0 },
+ { "|", 2, opid1('|'), ASSOC_LEFT, 13, 0 },
-MEM_VECTOR_PROTO(parse_file, ast_value*, globals);
+ { "+", 2, opid1('+'), ASSOC_LEFT, 12, 0 },
+ { "-", 2, opid1('-'), ASSOC_LEFT, 12, 0 },
-parse_file* parse_open(const char *file);
-void parse_file_close(parse_file*);
+ { "<", 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 },
-bool parse(parse_file*);
+ { "&&", 2, opid2('&','&'), ASSOC_LEFT, 5, 0 },
+ { "||", 2, opid2('|','|'), ASSOC_LEFT, 5, 0 },
-bool parse_iskey(parse_file *self, const char *ident);
+ { ",", 2, opid1(','), ASSOC_LEFT, 1, 0 }
+};
+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, ...);
#endif