mojoshader_lexer.re
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
/**
* MojoShader; generate shader programs from bytecode of compiled
* Direct3D shaders.
*
* Please see the file LICENSE.txt in the source's root directory.
*
* This file written by Ryan C. Gordon.
*/
// This was originally based on examples/pp-c.re from re2c: http://re2c.org/
// re2c is public domain code.
//
// You build mojoshader_lexer_preprocessor.c from the .re file with re2c...
// re2c -is -o mojoshader_lexer_preprocessor.c mojoshader_lexer_preprocessor.re
//
// Changes to the lexer are done to the .re file, not the C code!
//
// Please note that this isn't a perfect C lexer, since it is used for both
// HLSL and shader assembly language, and follows the quirks of Microsoft's
// tools.
#define __MOJOSHADER_INTERNAL__ 1
#include "mojoshader_internal.h"
typedef unsigned char uchar;
27
/*!max:re2c */
28
#define RET(t) do { return update_state(s, eoi, cursor, token, t); } while (0)
29
30
31
32
#define YYCTYPE uchar
#define YYCURSOR cursor
#define YYLIMIT limit
#define YYMARKER s->lexer_marker
33
#define YYFILL(n) { if ((n) == 1) { cursor = sentinel; limit = cursor + YYMAXFILL; eoi = 1; } }
35
36
static uchar sentinel[YYMAXFILL];
37
38
static Token update_state(IncludeState *s, int eoi, const uchar *cur,
const uchar *tok, const Token val)
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
if (eoi)
{
s->bytes_left = 0;
s->source = (const char *) s->source_base + s->orig_length;
if ( (tok >= sentinel) && (tok < (sentinel+YYMAXFILL)) )
s->token = s->source;
else
s->token = (const char *) tok;
} // if
else
{
s->bytes_left -= (unsigned int) (cur - ((const uchar *) s->source));
s->source = (const char *) cur;
s->token = (const char *) tok;
} // else
55
s->tokenlen = (unsigned int) (s->source - s->token);
56
57
s->tokenval = val;
return val;
58
59
} // update_state
60
Token preprocessor_lexer(IncludeState *s)
61
62
63
{
const uchar *cursor = (const uchar *) s->source;
const uchar *token;
64
const uchar *matchptr;
65
const uchar *limit = cursor + s->bytes_left;
67
int saw_newline = 0;
68
69
scanner_loop:
70
if (YYLIMIT == YYCURSOR) YYFILL(1);
71
72
73
token = cursor;
/*!re2c
74
ANY = [\000-\377];
75
ANYLEGAL = [a-zA-Z0-9_/'*=+%^&|!#<>()[{}.,~^:;? \t\v\f\r\n\-\]\\];
76
77
78
79
80
81
82
83
84
O = [0-7];
D = [0-9];
L = [a-zA-Z_];
H = [a-fA-F0-9];
E = [Ee] [+-]? D+;
FS = [fFlL];
IS = [uUlL]*;
ESC = [\\] ([abfnrtv?'"\\] | "x" H+ | O+);
PP = "#" [ \t]*;
85
NEWLINE = ("\r\n" | "\r" | "\n");
86
87
88
89
WHITESPACE = [ \t\v\f]+;
*/
/*!re2c
90
91
"\\" [ \t\v\f]* NEWLINE { s->line++; goto scanner_loop; }
92
93
94
95
96
97
"/*" { goto multilinecomment; }
"//" { goto singlelinecomment; }
L (L|D)* { RET(TOKEN_IDENTIFIER); }
("0" [xX] H+ IS?) | ("0" D+ IS?) | (D+ IS?) |
98
(['] (ESC|ANY\[\r\n\\'])* ['])
99
100
101
102
103
{ RET(TOKEN_INT_LITERAL); }
(D+ E FS?) | (D* "." D+ E? FS?) | (D+ "." D* E? FS?)
{ RET(TOKEN_FLOAT_LITERAL); }
104
(["] (ESC|ANY\[\r\n\\"])* ["])
105
{ RET(TOKEN_STRING_LITERAL); }
107
108
109
110
111
112
113
114
115
116
117
118
">>=" { RET(TOKEN_RSHIFTASSIGN); }
"<<=" { RET(TOKEN_LSHIFTASSIGN); }
"+=" { RET(TOKEN_ADDASSIGN); }
"-=" { RET(TOKEN_SUBASSIGN); }
"*=" { RET(TOKEN_MULTASSIGN); }
"/=" { RET(TOKEN_DIVASSIGN); }
"%=" { RET(TOKEN_MODASSIGN); }
"^=" { RET(TOKEN_XORASSIGN); }
"&=" { RET(TOKEN_ANDASSIGN); }
"|=" { RET(TOKEN_ORASSIGN); }
"++" { RET(TOKEN_INCREMENT); }
"--" { RET(TOKEN_DECREMENT); }
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
">>" { RET(TOKEN_RSHIFT); }
"<<" { RET(TOKEN_LSHIFT); }
"&&" { RET(TOKEN_ANDAND); }
"||" { RET(TOKEN_OROR); }
"<=" { RET(TOKEN_LEQ); }
">=" { RET(TOKEN_GEQ); }
"==" { RET(TOKEN_EQL); }
"!=" { RET(TOKEN_NEQ); }
"##" { RET(TOKEN_HASHHASH); }
"(" { RET('('); }
")" { RET(')'); }
"[" { RET('['); }
"]" { RET(']'); }
"." { RET('.'); }
"," { RET(','); }
"&" { RET('&'); }
"!" { RET('!'); }
"~" { RET('~'); }
"-" { RET('-'); }
"+" { RET('+'); }
"*" { RET('*'); }
"/" { RET('/'); }
"%" { RET('%'); }
"<" { RET('<'); }
">" { RET('>'); }
"^" { RET('^'); }
"|" { RET('|'); }
":" { RET(':'); }
";" { RET(';'); }
"{" { RET('{'); }
"}" { RET('}'); }
"=" { RET('='); }
"?" { RET('?'); }
153
154
"\000" { if (eoi) { RET(TOKEN_EOI); } goto bad_chars; }
155
156
157
158
159
160
161
162
163
164
165
166
PP "include" { RET(TOKEN_PP_INCLUDE); }
PP "line" { RET(TOKEN_PP_LINE); }
PP "define" { RET(TOKEN_PP_DEFINE); }
PP "undef" { RET(TOKEN_PP_UNDEF); }
PP "if" { RET(TOKEN_PP_IF); }
PP "ifdef" { RET(TOKEN_PP_IFDEF); }
PP "ifndef" { RET(TOKEN_PP_IFNDEF); }
PP "else" { RET(TOKEN_PP_ELSE); }
PP "elif" { RET(TOKEN_PP_ELIF); }
PP "endif" { RET(TOKEN_PP_ENDIF); }
PP "error" { RET(TOKEN_PP_ERROR); }
167
WHITESPACE { if (s->report_whitespace) RET(' '); goto scanner_loop; }
168
NEWLINE { s->line++; RET('\n'); }
169
ANY { goto bad_chars; }
170
171
172
*/
multilinecomment:
173
if (YYLIMIT == YYCURSOR) YYFILL(1);
174
matchptr = cursor;
175
176
// The "*\/" is just to avoid screwing up text editor syntax highlighting.
/*!re2c
177
178
179
"*\/" {
if (saw_newline)
RET('\n');
180
181
else if (s->report_whitespace)
RET(' ');
182
183
184
185
goto scanner_loop;
}
NEWLINE {
s->line++;
186
token = matchptr;
187
188
189
saw_newline = 1;
goto multilinecomment;
}
190
191
192
193
194
"\000" {
if (eoi)
RET(TOKEN_INCOMPLETE_COMMENT);
goto multilinecomment;
}
195
ANY { goto multilinecomment; }
196
197
198
*/
singlelinecomment:
199
if (YYLIMIT == YYCURSOR) YYFILL(1);
200
matchptr = cursor;
202
NEWLINE { s->line++; token = matchptr; RET('\n'); }
203
"\000" { if (eoi) { RET(TOKEN_EOI); } goto singlelinecomment; }
204
ANY { goto singlelinecomment; }
205
206
207
*/
bad_chars:
208
if (YYLIMIT == YYCURSOR) YYFILL(1);
210
ANYLEGAL { cursor--; RET(TOKEN_BAD_CHARS); }
211
212
213
214
215
216
217
218
219
220
221
222
"\000" {
if (eoi)
{
assert( !((token >= sentinel) &&
(token < sentinel+YYMAXFILL)) );
eoi = 0;
cursor = (uchar *) s->source_base + s->orig_length;
RET(TOKEN_BAD_CHARS); // next call will be EOI.
}
goto bad_chars;
}
223
ANY { goto bad_chars; }
224
225
226
227
*/
assert(0 && "Shouldn't hit this code");
RET(TOKEN_UNKNOWN);
228
} // preprocessor_lexer
229
230
// end of mojoshader_lexer_preprocessor.re (or .c) ...