1 | | |
2 | | |
3 | | |
4 | | |
5 | | |
6 | | |
7 | | |
8 | | |
9 | | |
10 | | |
11 | | |
12 | | |
13 | | |
14 | | |
15 | | |
16 | | |
17 | | |
18 | | |
19 | | |
20 | | |
21 | | |
22 | | |
23 | | |
24 | | |
25 | | |
26 | | |
27 | | |
28 | | |
29 | | |
30 | | |
31 | | |
32 | | |
33 | | |
34 | | |
35 | | |
36 | | |
37 | | |
38 | | |
39 | | |
40 | | |
41 | | |
42 | | |
43 | | |
44 | | |
45 | | |
46 | | |
47 | | |
| | | | | | | | #include "global.h" | #include "lex.h" | #include "stuff.h" | #include "bignum.h" | #include "pike_compiler.h" | #include "interpret.h" | | #include <ctype.h> | | #define LEXDEBUG 0 | | | | static unsigned INT32 eight = 8, sixteen = 16, ten = 10; | | | | #define SHIFT 0 | #include "lexer0.h" | #undef SHIFT | #define SHIFT 1 | #include "lexer1.h" | #undef SHIFT | #define SHIFT 2 | #include "lexer2.h" | #undef SHIFT | | int yylex(YYSTYPE *yylval) | { | struct lex *lex; | CHECK_COMPILER(); | lex = &THIS_COMPILATION->lex; | #if LEXDEBUG>8 | fprintf(stderr, "YYLEX: Calling lexer at 0x%08lx\n", | (long)lex->current_lexer); | #endif /* LEXDEBUG > 8 */ | return(lex->current_lexer(lex, yylval)); | } | | |
|