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