]>
Commit | Line | Data |
---|---|---|
a4da2e3e DG |
1 | /* |
2 | * (C) Copyright David Gibson <dwg@au1.ibm.com>, IBM Corporation. 2005. | |
3 | * | |
4 | * | |
5 | * This program is free software; you can redistribute it and/or | |
6 | * modify it under the terms of the GNU General Public License as | |
7 | * published by the Free Software Foundation; either version 2 of the | |
8 | * License, or (at your option) any later version. | |
9 | * | |
10 | * This program is distributed in the hope that it will be useful, | |
11 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 | * General Public License for more details. | |
14 | * | |
15 | * You should have received a copy of the GNU General Public License | |
16 | * along with this program; if not, write to the Free Software | |
17 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 | |
18 | * USA | |
19 | */ | |
20 | ||
658f29a5 | 21 | %option noyywrap nounput noinput never-interactive |
a4da2e3e | 22 | |
a4da2e3e DG |
23 | %x BYTESTRING |
24 | %x PROPNODENAME | |
25 | %s V1 | |
26 | ||
27 | PROPNODECHAR [a-zA-Z0-9,._+*#?@-] | |
28 | PATHCHAR ({PROPNODECHAR}|[/]) | |
29 | LABEL [a-zA-Z_][a-zA-Z0-9_]* | |
ed95d745 | 30 | STRING \"([^\\"]|\\.)*\" |
cd296721 | 31 | CHAR_LITERAL '([^']|\\')*' |
ed95d745 DG |
32 | WS [[:space:]] |
33 | COMMENT "/*"([^*]|\*+[^*/])*\*+"/" | |
34 | LINECOMMENT "//".*\n | |
a4da2e3e DG |
35 | |
36 | %{ | |
37 | #include "dtc.h" | |
38 | #include "srcpos.h" | |
39 | #include "dtc-parser.tab.h" | |
40 | ||
658f29a5 | 41 | YYLTYPE yylloc; |
47605971 | 42 | extern bool treesource_error; |
658f29a5 JB |
43 | |
44 | /* CAUTION: this will stop working if we ever use yyless() or yyunput() */ | |
45 | #define YY_USER_ACTION \ | |
46 | { \ | |
47 | srcpos_update(&yylloc, yytext, yyleng); \ | |
48 | } | |
a4da2e3e DG |
49 | |
50 | /*#define LEXDEBUG 1*/ | |
51 | ||
52 | #ifdef LEXDEBUG | |
53 | #define DPRINT(fmt, ...) fprintf(stderr, fmt, ##__VA_ARGS__) | |
54 | #else | |
55 | #define DPRINT(fmt, ...) do { } while (0) | |
56 | #endif | |
57 | ||
658f29a5 | 58 | static int dts_version = 1; |
a4da2e3e | 59 | |
658f29a5 | 60 | #define BEGIN_DEFAULT() DPRINT("<V1>\n"); \ |
a4da2e3e | 61 | BEGIN(V1); \ |
ed95d745 DG |
62 | |
63 | static void push_input_file(const char *filename); | |
47605971 RH |
64 | static bool pop_input_file(void); |
65 | static void lexical_error(const char *fmt, ...); | |
a4da2e3e DG |
66 | %} |
67 | ||
68 | %% | |
ed95d745 DG |
69 | <*>"/include/"{WS}*{STRING} { |
70 | char *name = strchr(yytext, '\"') + 1; | |
71 | yytext[yyleng-1] = '\0'; | |
72 | push_input_file(name); | |
a4da2e3e DG |
73 | } |
74 | ||
706b78f3 | 75 | <*>^"#"(line)?[ \t]+[0-9]+[ \t]+{STRING}([ \t]+[0-9]+)? { |
91feabc2 RH |
76 | char *line, *fnstart, *fnend; |
77 | struct data fn; | |
cd296721 SW |
78 | /* skip text before line # */ |
79 | line = yytext; | |
47605971 | 80 | while (!isdigit((unsigned char)*line)) |
cd296721 | 81 | line++; |
91feabc2 RH |
82 | |
83 | /* regexp ensures that first and list " | |
84 | * in the whole yytext are those at | |
85 | * beginning and end of the filename string */ | |
86 | fnstart = memchr(yytext, '"', yyleng); | |
87 | for (fnend = yytext + yyleng - 1; | |
88 | *fnend != '"'; fnend--) | |
89 | ; | |
90 | assert(fnstart && fnend && (fnend > fnstart)); | |
91 | ||
92 | fn = data_copy_escape_string(fnstart + 1, | |
93 | fnend - fnstart - 1); | |
94 | ||
95 | /* Don't allow nuls in filenames */ | |
96 | if (memchr(fn.val, '\0', fn.len - 1)) | |
97 | lexical_error("nul in line number directive"); | |
98 | ||
cd296721 | 99 | /* -1 since #line is the number of the next line */ |
91feabc2 RH |
100 | srcpos_set_line(xstrdup(fn.val), atoi(line) - 1); |
101 | data_free(fn); | |
cd296721 SW |
102 | } |
103 | ||
a4da2e3e DG |
104 | <*><<EOF>> { |
105 | if (!pop_input_file()) { | |
106 | yyterminate(); | |
107 | } | |
108 | } | |
109 | ||
ed95d745 | 110 | <*>{STRING} { |
a4da2e3e DG |
111 | DPRINT("String: %s\n", yytext); |
112 | yylval.data = data_copy_escape_string(yytext+1, | |
113 | yyleng-2); | |
a4da2e3e DG |
114 | return DT_STRING; |
115 | } | |
116 | ||
117 | <*>"/dts-v1/" { | |
a4da2e3e DG |
118 | DPRINT("Keyword: /dts-v1/\n"); |
119 | dts_version = 1; | |
120 | BEGIN_DEFAULT(); | |
121 | return DT_V1; | |
122 | } | |
123 | ||
6f05afcb RH |
124 | <*>"/plugin/" { |
125 | DPRINT("Keyword: /plugin/\n"); | |
126 | return DT_PLUGIN; | |
127 | } | |
128 | ||
a4da2e3e | 129 | <*>"/memreserve/" { |
a4da2e3e DG |
130 | DPRINT("Keyword: /memreserve/\n"); |
131 | BEGIN_DEFAULT(); | |
132 | return DT_MEMRESERVE; | |
133 | } | |
134 | ||
cd296721 SW |
135 | <*>"/bits/" { |
136 | DPRINT("Keyword: /bits/\n"); | |
137 | BEGIN_DEFAULT(); | |
138 | return DT_BITS; | |
139 | } | |
140 | ||
141 | <*>"/delete-property/" { | |
142 | DPRINT("Keyword: /delete-property/\n"); | |
143 | DPRINT("<PROPNODENAME>\n"); | |
144 | BEGIN(PROPNODENAME); | |
145 | return DT_DEL_PROP; | |
146 | } | |
147 | ||
148 | <*>"/delete-node/" { | |
149 | DPRINT("Keyword: /delete-node/\n"); | |
150 | DPRINT("<PROPNODENAME>\n"); | |
151 | BEGIN(PROPNODENAME); | |
152 | return DT_DEL_NODE; | |
153 | } | |
154 | ||
a4da2e3e | 155 | <*>{LABEL}: { |
a4da2e3e | 156 | DPRINT("Label: %s\n", yytext); |
658f29a5 | 157 | yylval.labelref = xstrdup(yytext); |
a4da2e3e DG |
158 | yylval.labelref[yyleng-1] = '\0'; |
159 | return DT_LABEL; | |
160 | } | |
161 | ||
cd296721 | 162 | <V1>([0-9]+|0[xX][0-9a-fA-F]+)(U|L|UL|LL|ULL)? { |
47605971 RH |
163 | char *e; |
164 | DPRINT("Integer Literal: '%s'\n", yytext); | |
165 | ||
166 | errno = 0; | |
167 | yylval.integer = strtoull(yytext, &e, 0); | |
168 | ||
91feabc2 RH |
169 | if (*e && e[strspn(e, "UL")]) { |
170 | lexical_error("Bad integer literal '%s'", | |
171 | yytext); | |
172 | } | |
47605971 RH |
173 | |
174 | if (errno == ERANGE) | |
175 | lexical_error("Integer literal '%s' out of range", | |
176 | yytext); | |
177 | else | |
178 | /* ERANGE is the only strtoull error triggerable | |
179 | * by strings matching the pattern */ | |
180 | assert(errno == 0); | |
a4da2e3e DG |
181 | return DT_LITERAL; |
182 | } | |
183 | ||
cd296721 | 184 | <*>{CHAR_LITERAL} { |
47605971 RH |
185 | struct data d; |
186 | DPRINT("Character literal: %s\n", yytext); | |
187 | ||
188 | d = data_copy_escape_string(yytext+1, yyleng-2); | |
189 | if (d.len == 1) { | |
190 | lexical_error("Empty character literal"); | |
191 | yylval.integer = 0; | |
6f05afcb RH |
192 | } else { |
193 | yylval.integer = (unsigned char)d.val[0]; | |
47605971 | 194 | |
6f05afcb RH |
195 | if (d.len > 2) |
196 | lexical_error("Character literal has %d" | |
197 | " characters instead of 1", | |
198 | d.len - 1); | |
199 | } | |
47605971 | 200 | |
6f05afcb | 201 | data_free(d); |
cd296721 SW |
202 | return DT_CHAR_LITERAL; |
203 | } | |
204 | ||
658f29a5 | 205 | <*>\&{LABEL} { /* label reference */ |
a4da2e3e | 206 | DPRINT("Ref: %s\n", yytext+1); |
658f29a5 | 207 | yylval.labelref = xstrdup(yytext+1); |
a4da2e3e DG |
208 | return DT_REF; |
209 | } | |
210 | ||
47605971 | 211 | <*>"&{/"{PATHCHAR}*\} { /* new-style path reference */ |
a4da2e3e DG |
212 | yytext[yyleng-1] = '\0'; |
213 | DPRINT("Ref: %s\n", yytext+2); | |
658f29a5 | 214 | yylval.labelref = xstrdup(yytext+2); |
a4da2e3e DG |
215 | return DT_REF; |
216 | } | |
217 | ||
218 | <BYTESTRING>[0-9a-fA-F]{2} { | |
a4da2e3e DG |
219 | yylval.byte = strtol(yytext, NULL, 16); |
220 | DPRINT("Byte: %02x\n", (int)yylval.byte); | |
221 | return DT_BYTE; | |
222 | } | |
223 | ||
224 | <BYTESTRING>"]" { | |
a4da2e3e DG |
225 | DPRINT("/BYTESTRING\n"); |
226 | BEGIN_DEFAULT(); | |
227 | return ']'; | |
228 | } | |
229 | ||
cd296721 | 230 | <PROPNODENAME>\\?{PROPNODECHAR}+ { |
a4da2e3e | 231 | DPRINT("PropNodeName: %s\n", yytext); |
cd296721 SW |
232 | yylval.propnodename = xstrdup((yytext[0] == '\\') ? |
233 | yytext + 1 : yytext); | |
a4da2e3e DG |
234 | BEGIN_DEFAULT(); |
235 | return DT_PROPNODENAME; | |
236 | } | |
237 | ||
ed95d745 | 238 | "/incbin/" { |
ed95d745 DG |
239 | DPRINT("Binary Include\n"); |
240 | return DT_INCBIN; | |
a4da2e3e DG |
241 | } |
242 | ||
ed95d745 DG |
243 | <*>{WS}+ /* eat whitespace */ |
244 | <*>{COMMENT}+ /* eat C-style comments */ | |
245 | <*>{LINECOMMENT}+ /* eat C++-style comments */ | |
a4da2e3e | 246 | |
cd296721 SW |
247 | <*>"<<" { return DT_LSHIFT; }; |
248 | <*>">>" { return DT_RSHIFT; }; | |
249 | <*>"<=" { return DT_LE; }; | |
250 | <*>">=" { return DT_GE; }; | |
251 | <*>"==" { return DT_EQ; }; | |
252 | <*>"!=" { return DT_NE; }; | |
253 | <*>"&&" { return DT_AND; }; | |
254 | <*>"||" { return DT_OR; }; | |
255 | ||
a4da2e3e | 256 | <*>. { |
a4da2e3e DG |
257 | DPRINT("Char: %c (\\x%02x)\n", yytext[0], |
258 | (unsigned)yytext[0]); | |
259 | if (yytext[0] == '[') { | |
260 | DPRINT("<BYTESTRING>\n"); | |
261 | BEGIN(BYTESTRING); | |
262 | } | |
263 | if ((yytext[0] == '{') | |
264 | || (yytext[0] == ';')) { | |
265 | DPRINT("<PROPNODENAME>\n"); | |
266 | BEGIN(PROPNODENAME); | |
267 | } | |
268 | return yytext[0]; | |
269 | } | |
270 | ||
271 | %% | |
272 | ||
ed95d745 | 273 | static void push_input_file(const char *filename) |
a4da2e3e | 274 | { |
ed95d745 | 275 | assert(filename); |
a4da2e3e | 276 | |
658f29a5 | 277 | srcfile_push(filename); |
a4da2e3e | 278 | |
658f29a5 | 279 | yyin = current_srcfile->f; |
a4da2e3e | 280 | |
658f29a5 | 281 | yypush_buffer_state(yy_create_buffer(yyin, YY_BUF_SIZE)); |
a4da2e3e DG |
282 | } |
283 | ||
284 | ||
47605971 | 285 | static bool pop_input_file(void) |
a4da2e3e | 286 | { |
658f29a5 | 287 | if (srcfile_pop() == 0) |
47605971 | 288 | return false; |
a4da2e3e | 289 | |
658f29a5 JB |
290 | yypop_buffer_state(); |
291 | yyin = current_srcfile->f; | |
a4da2e3e | 292 | |
47605971 RH |
293 | return true; |
294 | } | |
295 | ||
296 | static void lexical_error(const char *fmt, ...) | |
297 | { | |
298 | va_list ap; | |
299 | ||
300 | va_start(ap, fmt); | |
301 | srcpos_verror(&yylloc, "Lexical error", fmt, ap); | |
302 | va_end(ap); | |
303 | ||
304 | treesource_error = true; | |
a4da2e3e | 305 | } |