]>
Commit | Line | Data |
---|---|---|
4a5fcab7 | 1 | /* |
6e8e5cb9 | 2 | * JSON Parser |
4a5fcab7 AL |
3 | * |
4 | * Copyright IBM, Corp. 2009 | |
5 | * | |
6 | * Authors: | |
7 | * Anthony Liguori <aliguori@us.ibm.com> | |
8 | * | |
9 | * This work is licensed under the terms of the GNU LGPL, version 2.1 or later. | |
10 | * See the COPYING.LIB file in the top-level directory. | |
11 | * | |
12 | */ | |
13 | ||
f2ad72b3 | 14 | #include "qemu/osdep.h" |
2bc7cfea | 15 | #include "qemu/cutils.h" |
e59f39d4 | 16 | #include "qemu/unicode.h" |
da34e65c | 17 | #include "qapi/error.h" |
4a5fcab7 | 18 | #include "qemu-common.h" |
6b673957 | 19 | #include "qapi/qmp/qbool.h" |
452fcdbc | 20 | #include "qapi/qmp/qdict.h" |
47e6b297 | 21 | #include "qapi/qmp/qlist.h" |
15280c36 MA |
22 | #include "qapi/qmp/qnull.h" |
23 | #include "qapi/qmp/qnum.h" | |
6b673957 | 24 | #include "qapi/qmp/qstring.h" |
86cdf9ec | 25 | #include "json-parser-int.h" |
4a5fcab7 | 26 | |
abe7c206 MA |
27 | struct JSONToken { |
28 | JSONTokenType type; | |
29 | int x; | |
30 | int y; | |
31 | char str[]; | |
32 | }; | |
33 | ||
4a5fcab7 AL |
34 | typedef struct JSONParserContext |
35 | { | |
ef749d07 | 36 | Error *err; |
9bada897 | 37 | JSONToken *current; |
95385fe9 | 38 | GQueue *buf; |
ada74c3b | 39 | va_list *ap; |
4a5fcab7 AL |
40 | } JSONParserContext; |
41 | ||
42 | #define BUG_ON(cond) assert(!(cond)) | |
43 | ||
44 | /** | |
45 | * TODO | |
46 | * | |
47 | * 0) make errors meaningful again | |
48 | * 1) add geometry information to tokens | |
49 | * 3) should we return a parsed size? | |
50 | * 4) deal with premature EOI | |
51 | */ | |
52 | ||
ada74c3b | 53 | static QObject *parse_value(JSONParserContext *ctxt); |
4a5fcab7 | 54 | |
4a5fcab7 AL |
55 | /** |
56 | * Error handler | |
57 | */ | |
8b7968f7 | 58 | static void GCC_FMT_ATTR(3, 4) parse_error(JSONParserContext *ctxt, |
9bada897 | 59 | JSONToken *token, const char *msg, ...) |
4a5fcab7 | 60 | { |
c96c84a9 | 61 | va_list ap; |
ef749d07 | 62 | char message[1024]; |
574bf16f MA |
63 | |
64 | if (ctxt->err) { | |
65 | return; | |
66 | } | |
c96c84a9 | 67 | va_start(ap, msg); |
ef749d07 | 68 | vsnprintf(message, sizeof(message), msg, ap); |
c96c84a9 | 69 | va_end(ap); |
f231b88d | 70 | error_setg(&ctxt->err, "JSON parse error, %s", message); |
4a5fcab7 AL |
71 | } |
72 | ||
dc45a07c | 73 | static int cvt4hex(const char *s) |
4a5fcab7 | 74 | { |
dc45a07c MA |
75 | int cp, i; |
76 | ||
77 | cp = 0; | |
78 | for (i = 0; i < 4; i++) { | |
79 | if (!qemu_isxdigit(s[i])) { | |
80 | return -1; | |
81 | } | |
82 | cp <<= 4; | |
83 | if (s[i] >= '0' && s[i] <= '9') { | |
84 | cp |= s[i] - '0'; | |
85 | } else if (s[i] >= 'a' && s[i] <= 'f') { | |
86 | cp |= 10 + s[i] - 'a'; | |
87 | } else if (s[i] >= 'A' && s[i] <= 'F') { | |
88 | cp |= 10 + s[i] - 'A'; | |
89 | } else { | |
90 | return -1; | |
91 | } | |
4a5fcab7 | 92 | } |
dc45a07c | 93 | return cp; |
4a5fcab7 AL |
94 | } |
95 | ||
96 | /** | |
b2da4a4d | 97 | * parse_string(): Parse a JSON string |
4a5fcab7 | 98 | * |
b2da4a4d MA |
99 | * From RFC 8259 "The JavaScript Object Notation (JSON) Data |
100 | * Interchange Format": | |
101 | * | |
102 | * char = unescaped / | |
103 | * escape ( | |
104 | * %x22 / ; " quotation mark U+0022 | |
105 | * %x5C / ; \ reverse solidus U+005C | |
106 | * %x2F / ; / solidus U+002F | |
107 | * %x62 / ; b backspace U+0008 | |
108 | * %x66 / ; f form feed U+000C | |
109 | * %x6E / ; n line feed U+000A | |
110 | * %x72 / ; r carriage return U+000D | |
111 | * %x74 / ; t tab U+0009 | |
112 | * %x75 4HEXDIG ) ; uXXXX U+XXXX | |
113 | * escape = %x5C ; \ | |
114 | * quotation-mark = %x22 ; " | |
115 | * unescaped = %x20-21 / %x23-5B / %x5D-10FFFF | |
116 | * | |
117 | * Extensions over RFC 8259: | |
118 | * - Extra escape sequence in strings: | |
119 | * 0x27 (apostrophe) is recognized after escape, too | |
120 | * - Single-quoted strings: | |
121 | * Like double-quoted strings, except they're delimited by %x27 | |
122 | * (apostrophe) instead of %x22 (quotation mark), and can't contain | |
123 | * unescaped apostrophe, but can contain unescaped quotation mark. | |
124 | * | |
125 | * Note: | |
126 | * - Encoding is modified UTF-8. | |
127 | * - Invalid Unicode characters are rejected. | |
128 | * - Control characters \x00..\x1F are rejected by the lexer. | |
4a5fcab7 | 129 | */ |
b2da4a4d | 130 | static QString *parse_string(JSONParserContext *ctxt, JSONToken *token) |
4a5fcab7 | 131 | { |
9bada897 | 132 | const char *ptr = token->str; |
4a5fcab7 | 133 | QString *str; |
00ea57fa | 134 | char quote; |
dc45a07c MA |
135 | const char *beg; |
136 | int cp, trailing; | |
e59f39d4 MA |
137 | char *end; |
138 | ssize_t len; | |
139 | char utf8_buf[5]; | |
4a5fcab7 | 140 | |
00ea57fa MA |
141 | assert(*ptr == '"' || *ptr == '\''); |
142 | quote = *ptr++; | |
4a5fcab7 | 143 | str = qstring_new(); |
00ea57fa MA |
144 | |
145 | while (*ptr != quote) { | |
146 | assert(*ptr); | |
4a5fcab7 | 147 | if (*ptr == '\\') { |
dc45a07c | 148 | beg = ptr++; |
00ea57fa | 149 | switch (*ptr++) { |
4a5fcab7 | 150 | case '"': |
de6decfe | 151 | qstring_append_chr(str, '"'); |
4a5fcab7 AL |
152 | break; |
153 | case '\'': | |
de6decfe | 154 | qstring_append_chr(str, '\''); |
4a5fcab7 AL |
155 | break; |
156 | case '\\': | |
de6decfe | 157 | qstring_append_chr(str, '\\'); |
4a5fcab7 AL |
158 | break; |
159 | case '/': | |
de6decfe | 160 | qstring_append_chr(str, '/'); |
4a5fcab7 AL |
161 | break; |
162 | case 'b': | |
de6decfe | 163 | qstring_append_chr(str, '\b'); |
4a5fcab7 | 164 | break; |
bd032695 | 165 | case 'f': |
de6decfe | 166 | qstring_append_chr(str, '\f'); |
bd032695 | 167 | break; |
4a5fcab7 | 168 | case 'n': |
de6decfe | 169 | qstring_append_chr(str, '\n'); |
4a5fcab7 AL |
170 | break; |
171 | case 'r': | |
de6decfe | 172 | qstring_append_chr(str, '\r'); |
4a5fcab7 AL |
173 | break; |
174 | case 't': | |
de6decfe | 175 | qstring_append_chr(str, '\t'); |
4a5fcab7 | 176 | break; |
de6decfe | 177 | case 'u': |
dc45a07c MA |
178 | cp = cvt4hex(ptr); |
179 | ptr += 4; | |
180 | ||
181 | /* handle surrogate pairs */ | |
182 | if (cp >= 0xD800 && cp <= 0xDBFF | |
183 | && ptr[0] == '\\' && ptr[1] == 'u') { | |
184 | /* leading surrogate followed by \u */ | |
185 | cp = 0x10000 + ((cp & 0x3FF) << 10); | |
186 | trailing = cvt4hex(ptr + 2); | |
187 | if (trailing >= 0xDC00 && trailing <= 0xDFFF) { | |
188 | /* followed by trailing surrogate */ | |
189 | cp |= trailing & 0x3FF; | |
190 | ptr += 6; | |
191 | } else { | |
192 | cp = -1; /* invalid */ | |
4a5fcab7 | 193 | } |
4a5fcab7 AL |
194 | } |
195 | ||
46a628b1 MA |
196 | if (mod_utf8_encode(utf8_buf, sizeof(utf8_buf), cp) < 0) { |
197 | parse_error(ctxt, token, | |
dc45a07c MA |
198 | "%.*s is not a valid Unicode character", |
199 | (int)(ptr - beg), beg); | |
46a628b1 MA |
200 | goto out; |
201 | } | |
de6decfe MA |
202 | qstring_append(str, utf8_buf); |
203 | break; | |
4a5fcab7 AL |
204 | default: |
205 | parse_error(ctxt, token, "invalid escape sequence in string"); | |
206 | goto out; | |
207 | } | |
208 | } else { | |
e59f39d4 | 209 | cp = mod_utf8_codepoint(ptr, 6, &end); |
4b1c0cd7 | 210 | if (cp < 0) { |
e59f39d4 MA |
211 | parse_error(ctxt, token, "invalid UTF-8 sequence in string"); |
212 | goto out; | |
213 | } | |
214 | ptr = end; | |
215 | len = mod_utf8_encode(utf8_buf, sizeof(utf8_buf), cp); | |
216 | assert(len >= 0); | |
217 | qstring_append(str, utf8_buf); | |
4a5fcab7 AL |
218 | } |
219 | } | |
220 | ||
4a5fcab7 AL |
221 | return str; |
222 | ||
223 | out: | |
cb3e7f08 | 224 | qobject_unref(str); |
4a5fcab7 AL |
225 | return NULL; |
226 | } | |
227 | ||
9bada897 PB |
228 | /* Note: the token object returned by parser_context_peek_token or |
229 | * parser_context_pop_token is deleted as soon as parser_context_pop_token | |
230 | * is called again. | |
95385fe9 | 231 | */ |
9bada897 | 232 | static JSONToken *parser_context_pop_token(JSONParserContext *ctxt) |
65c0f1e9 | 233 | { |
9bada897 | 234 | g_free(ctxt->current); |
95385fe9 PB |
235 | ctxt->current = g_queue_pop_head(ctxt->buf); |
236 | return ctxt->current; | |
65c0f1e9 MR |
237 | } |
238 | ||
9bada897 | 239 | static JSONToken *parser_context_peek_token(JSONParserContext *ctxt) |
65c0f1e9 | 240 | { |
95385fe9 | 241 | return g_queue_peek_head(ctxt->buf); |
65c0f1e9 MR |
242 | } |
243 | ||
4a5fcab7 AL |
244 | /** |
245 | * Parsing rules | |
246 | */ | |
ada74c3b | 247 | static int parse_pair(JSONParserContext *ctxt, QDict *dict) |
4a5fcab7 | 248 | { |
532fb532 HR |
249 | QObject *value; |
250 | QString *key = NULL; | |
9bada897 | 251 | JSONToken *peek, *token; |
4a5fcab7 | 252 | |
65c0f1e9 | 253 | peek = parser_context_peek_token(ctxt); |
11e8a46c AL |
254 | if (peek == NULL) { |
255 | parse_error(ctxt, NULL, "premature EOI"); | |
256 | goto out; | |
257 | } | |
258 | ||
ada74c3b | 259 | key = qobject_to(QString, parse_value(ctxt)); |
532fb532 | 260 | if (!key) { |
4a5fcab7 AL |
261 | parse_error(ctxt, peek, "key is not a string in object"); |
262 | goto out; | |
263 | } | |
264 | ||
65c0f1e9 | 265 | token = parser_context_pop_token(ctxt); |
11e8a46c AL |
266 | if (token == NULL) { |
267 | parse_error(ctxt, NULL, "premature EOI"); | |
268 | goto out; | |
269 | } | |
270 | ||
9bada897 | 271 | if (token->type != JSON_COLON) { |
4a5fcab7 AL |
272 | parse_error(ctxt, token, "missing : in object pair"); |
273 | goto out; | |
274 | } | |
275 | ||
ada74c3b | 276 | value = parse_value(ctxt); |
4a5fcab7 AL |
277 | if (value == NULL) { |
278 | parse_error(ctxt, token, "Missing value in dict"); | |
279 | goto out; | |
280 | } | |
281 | ||
532fb532 | 282 | qdict_put_obj(dict, qstring_get_str(key), value); |
4a5fcab7 | 283 | |
cb3e7f08 | 284 | qobject_unref(key); |
4a5fcab7 AL |
285 | |
286 | return 0; | |
287 | ||
288 | out: | |
cb3e7f08 | 289 | qobject_unref(key); |
4a5fcab7 AL |
290 | |
291 | return -1; | |
292 | } | |
293 | ||
ada74c3b | 294 | static QObject *parse_object(JSONParserContext *ctxt) |
4a5fcab7 AL |
295 | { |
296 | QDict *dict = NULL; | |
9bada897 | 297 | JSONToken *token, *peek; |
4a5fcab7 | 298 | |
65c0f1e9 | 299 | token = parser_context_pop_token(ctxt); |
9bada897 | 300 | assert(token && token->type == JSON_LCURLY); |
4a5fcab7 AL |
301 | |
302 | dict = qdict_new(); | |
303 | ||
65c0f1e9 | 304 | peek = parser_context_peek_token(ctxt); |
11e8a46c AL |
305 | if (peek == NULL) { |
306 | parse_error(ctxt, NULL, "premature EOI"); | |
307 | goto out; | |
308 | } | |
309 | ||
9bada897 | 310 | if (peek->type != JSON_RCURLY) { |
ada74c3b | 311 | if (parse_pair(ctxt, dict) == -1) { |
4a5fcab7 AL |
312 | goto out; |
313 | } | |
314 | ||
65c0f1e9 | 315 | token = parser_context_pop_token(ctxt); |
11e8a46c AL |
316 | if (token == NULL) { |
317 | parse_error(ctxt, NULL, "premature EOI"); | |
318 | goto out; | |
319 | } | |
320 | ||
9bada897 PB |
321 | while (token->type != JSON_RCURLY) { |
322 | if (token->type != JSON_COMMA) { | |
4a5fcab7 AL |
323 | parse_error(ctxt, token, "expected separator in dict"); |
324 | goto out; | |
325 | } | |
4a5fcab7 | 326 | |
ada74c3b | 327 | if (parse_pair(ctxt, dict) == -1) { |
4a5fcab7 AL |
328 | goto out; |
329 | } | |
330 | ||
65c0f1e9 | 331 | token = parser_context_pop_token(ctxt); |
11e8a46c AL |
332 | if (token == NULL) { |
333 | parse_error(ctxt, NULL, "premature EOI"); | |
334 | goto out; | |
335 | } | |
4a5fcab7 | 336 | } |
4a5fcab7 | 337 | } else { |
a491af47 | 338 | (void)parser_context_pop_token(ctxt); |
4a5fcab7 AL |
339 | } |
340 | ||
4a5fcab7 AL |
341 | return QOBJECT(dict); |
342 | ||
343 | out: | |
cb3e7f08 | 344 | qobject_unref(dict); |
4a5fcab7 AL |
345 | return NULL; |
346 | } | |
347 | ||
ada74c3b | 348 | static QObject *parse_array(JSONParserContext *ctxt) |
4a5fcab7 AL |
349 | { |
350 | QList *list = NULL; | |
9bada897 | 351 | JSONToken *token, *peek; |
4a5fcab7 | 352 | |
65c0f1e9 | 353 | token = parser_context_pop_token(ctxt); |
9bada897 | 354 | assert(token && token->type == JSON_LSQUARE); |
4a5fcab7 AL |
355 | |
356 | list = qlist_new(); | |
357 | ||
65c0f1e9 | 358 | peek = parser_context_peek_token(ctxt); |
11e8a46c AL |
359 | if (peek == NULL) { |
360 | parse_error(ctxt, NULL, "premature EOI"); | |
361 | goto out; | |
362 | } | |
363 | ||
9bada897 | 364 | if (peek->type != JSON_RSQUARE) { |
4a5fcab7 AL |
365 | QObject *obj; |
366 | ||
ada74c3b | 367 | obj = parse_value(ctxt); |
4a5fcab7 AL |
368 | if (obj == NULL) { |
369 | parse_error(ctxt, token, "expecting value"); | |
370 | goto out; | |
371 | } | |
372 | ||
373 | qlist_append_obj(list, obj); | |
374 | ||
65c0f1e9 | 375 | token = parser_context_pop_token(ctxt); |
11e8a46c AL |
376 | if (token == NULL) { |
377 | parse_error(ctxt, NULL, "premature EOI"); | |
378 | goto out; | |
379 | } | |
380 | ||
9bada897 PB |
381 | while (token->type != JSON_RSQUARE) { |
382 | if (token->type != JSON_COMMA) { | |
4a5fcab7 AL |
383 | parse_error(ctxt, token, "expected separator in list"); |
384 | goto out; | |
385 | } | |
386 | ||
ada74c3b | 387 | obj = parse_value(ctxt); |
4a5fcab7 AL |
388 | if (obj == NULL) { |
389 | parse_error(ctxt, token, "expecting value"); | |
390 | goto out; | |
391 | } | |
392 | ||
393 | qlist_append_obj(list, obj); | |
394 | ||
65c0f1e9 | 395 | token = parser_context_pop_token(ctxt); |
11e8a46c AL |
396 | if (token == NULL) { |
397 | parse_error(ctxt, NULL, "premature EOI"); | |
398 | goto out; | |
399 | } | |
4a5fcab7 | 400 | } |
4a5fcab7 | 401 | } else { |
a491af47 | 402 | (void)parser_context_pop_token(ctxt); |
4a5fcab7 AL |
403 | } |
404 | ||
4a5fcab7 AL |
405 | return QOBJECT(list); |
406 | ||
407 | out: | |
cb3e7f08 | 408 | qobject_unref(list); |
4a5fcab7 AL |
409 | return NULL; |
410 | } | |
411 | ||
65c0f1e9 | 412 | static QObject *parse_keyword(JSONParserContext *ctxt) |
4a5fcab7 | 413 | { |
9bada897 | 414 | JSONToken *token; |
4a5fcab7 | 415 | |
65c0f1e9 | 416 | token = parser_context_pop_token(ctxt); |
9bada897 | 417 | assert(token && token->type == JSON_KEYWORD); |
50e2a467 | 418 | |
9bada897 | 419 | if (!strcmp(token->str, "true")) { |
d538b255 | 420 | return QOBJECT(qbool_from_bool(true)); |
9bada897 | 421 | } else if (!strcmp(token->str, "false")) { |
d538b255 | 422 | return QOBJECT(qbool_from_bool(false)); |
9bada897 | 423 | } else if (!strcmp(token->str, "null")) { |
006ca09f | 424 | return QOBJECT(qnull()); |
4a5fcab7 | 425 | } |
9bada897 | 426 | parse_error(ctxt, token, "invalid keyword '%s'", token->str); |
4a5fcab7 AL |
427 | return NULL; |
428 | } | |
429 | ||
ada74c3b | 430 | static QObject *parse_interpolation(JSONParserContext *ctxt) |
4a5fcab7 | 431 | { |
9bada897 | 432 | JSONToken *token; |
4a5fcab7 | 433 | |
65c0f1e9 | 434 | token = parser_context_pop_token(ctxt); |
61030280 | 435 | assert(token && token->type == JSON_INTERP); |
6b9606f6 | 436 | |
9bada897 | 437 | if (!strcmp(token->str, "%p")) { |
ada74c3b | 438 | return va_arg(*ctxt->ap, QObject *); |
9bada897 | 439 | } else if (!strcmp(token->str, "%i")) { |
ada74c3b | 440 | return QOBJECT(qbool_from_bool(va_arg(*ctxt->ap, int))); |
9bada897 | 441 | } else if (!strcmp(token->str, "%d")) { |
ada74c3b | 442 | return QOBJECT(qnum_from_int(va_arg(*ctxt->ap, int))); |
9bada897 | 443 | } else if (!strcmp(token->str, "%ld")) { |
ada74c3b | 444 | return QOBJECT(qnum_from_int(va_arg(*ctxt->ap, long))); |
53a0d616 | 445 | } else if (!strcmp(token->str, "%lld")) { |
ada74c3b | 446 | return QOBJECT(qnum_from_int(va_arg(*ctxt->ap, long long))); |
53a0d616 | 447 | } else if (!strcmp(token->str, "%" PRId64)) { |
ada74c3b | 448 | return QOBJECT(qnum_from_int(va_arg(*ctxt->ap, int64_t))); |
2bc7cfea | 449 | } else if (!strcmp(token->str, "%u")) { |
ada74c3b | 450 | return QOBJECT(qnum_from_uint(va_arg(*ctxt->ap, unsigned int))); |
2bc7cfea | 451 | } else if (!strcmp(token->str, "%lu")) { |
ada74c3b | 452 | return QOBJECT(qnum_from_uint(va_arg(*ctxt->ap, unsigned long))); |
53a0d616 | 453 | } else if (!strcmp(token->str, "%llu")) { |
ada74c3b | 454 | return QOBJECT(qnum_from_uint(va_arg(*ctxt->ap, unsigned long long))); |
53a0d616 | 455 | } else if (!strcmp(token->str, "%" PRIu64)) { |
ada74c3b | 456 | return QOBJECT(qnum_from_uint(va_arg(*ctxt->ap, uint64_t))); |
9bada897 | 457 | } else if (!strcmp(token->str, "%s")) { |
ada74c3b | 458 | return QOBJECT(qstring_from_str(va_arg(*ctxt->ap, const char *))); |
9bada897 | 459 | } else if (!strcmp(token->str, "%f")) { |
ada74c3b | 460 | return QOBJECT(qnum_from_double(va_arg(*ctxt->ap, double))); |
4a5fcab7 | 461 | } |
f7617d45 | 462 | parse_error(ctxt, token, "invalid interpolation '%s'", token->str); |
4a5fcab7 AL |
463 | return NULL; |
464 | } | |
465 | ||
65c0f1e9 | 466 | static QObject *parse_literal(JSONParserContext *ctxt) |
4a5fcab7 | 467 | { |
9bada897 | 468 | JSONToken *token; |
4a5fcab7 | 469 | |
65c0f1e9 | 470 | token = parser_context_pop_token(ctxt); |
d538b255 | 471 | assert(token); |
11e8a46c | 472 | |
9bada897 | 473 | switch (token->type) { |
4a5fcab7 | 474 | case JSON_STRING: |
b2da4a4d | 475 | return QOBJECT(parse_string(ctxt, token)); |
3d5b3ec6 | 476 | case JSON_INTEGER: { |
01b2ffce MAL |
477 | /* |
478 | * Represent JSON_INTEGER as QNUM_I64 if possible, else as | |
2bc7cfea MAL |
479 | * QNUM_U64, else as QNUM_DOUBLE. Note that qemu_strtoi64() |
480 | * and qemu_strtou64() fail with ERANGE when it's not | |
481 | * possible. | |
3d5b3ec6 | 482 | * |
01b2ffce | 483 | * qnum_get_int() will then work for any signed 64-bit |
2bc7cfea MAL |
484 | * JSON_INTEGER, qnum_get_uint() for any unsigned 64-bit |
485 | * integer, and qnum_get_double() both for any JSON_INTEGER | |
486 | * and any JSON_FLOAT (with precision loss for integers beyond | |
487 | * 53 bits) | |
3d5b3ec6 | 488 | */ |
2bc7cfea | 489 | int ret; |
3d5b3ec6 | 490 | int64_t value; |
2bc7cfea | 491 | uint64_t uvalue; |
3d5b3ec6 | 492 | |
2bc7cfea MAL |
493 | ret = qemu_strtoi64(token->str, NULL, 10, &value); |
494 | if (!ret) { | |
01b2ffce | 495 | return QOBJECT(qnum_from_int(value)); |
3d5b3ec6 | 496 | } |
2bc7cfea MAL |
497 | assert(ret == -ERANGE); |
498 | ||
499 | if (token->str[0] != '-') { | |
500 | ret = qemu_strtou64(token->str, NULL, 10, &uvalue); | |
501 | if (!ret) { | |
502 | return QOBJECT(qnum_from_uint(uvalue)); | |
503 | } | |
504 | assert(ret == -ERANGE); | |
505 | } | |
3d5b3ec6 MR |
506 | /* fall through to JSON_FLOAT */ |
507 | } | |
4a5fcab7 | 508 | case JSON_FLOAT: |
6e8e5cb9 EB |
509 | /* FIXME dependent on locale; a pervasive issue in QEMU */ |
510 | /* FIXME our lexer matches RFC 7159 in forbidding Inf or NaN, | |
511 | * but those might be useful extensions beyond JSON */ | |
01b2ffce | 512 | return QOBJECT(qnum_from_double(strtod(token->str, NULL))); |
4a5fcab7 | 513 | default: |
d538b255 | 514 | abort(); |
4a5fcab7 | 515 | } |
4a5fcab7 AL |
516 | } |
517 | ||
ada74c3b | 518 | static QObject *parse_value(JSONParserContext *ctxt) |
4a5fcab7 | 519 | { |
9bada897 | 520 | JSONToken *token; |
4a5fcab7 | 521 | |
d538b255 MA |
522 | token = parser_context_peek_token(ctxt); |
523 | if (token == NULL) { | |
524 | parse_error(ctxt, NULL, "premature EOI"); | |
525 | return NULL; | |
4a5fcab7 AL |
526 | } |
527 | ||
9bada897 | 528 | switch (token->type) { |
d538b255 | 529 | case JSON_LCURLY: |
ada74c3b | 530 | return parse_object(ctxt); |
d538b255 | 531 | case JSON_LSQUARE: |
ada74c3b | 532 | return parse_array(ctxt); |
61030280 | 533 | case JSON_INTERP: |
ada74c3b | 534 | return parse_interpolation(ctxt); |
d538b255 MA |
535 | case JSON_INTEGER: |
536 | case JSON_FLOAT: | |
537 | case JSON_STRING: | |
538 | return parse_literal(ctxt); | |
539 | case JSON_KEYWORD: | |
540 | return parse_keyword(ctxt); | |
541 | default: | |
542 | parse_error(ctxt, token, "expecting value"); | |
543 | return NULL; | |
544 | } | |
4a5fcab7 AL |
545 | } |
546 | ||
abe7c206 MA |
547 | JSONToken *json_token(JSONTokenType type, int x, int y, GString *tokstr) |
548 | { | |
549 | JSONToken *token = g_malloc(sizeof(JSONToken) + tokstr->len + 1); | |
550 | ||
551 | token->type = type; | |
552 | memcpy(token->str, tokstr->str, tokstr->len); | |
553 | token->str[tokstr->len] = 0; | |
554 | token->x = x; | |
555 | token->y = y; | |
556 | return token; | |
557 | } | |
558 | ||
62815d85 | 559 | QObject *json_parser_parse(GQueue *tokens, va_list *ap, Error **errp) |
4a5fcab7 | 560 | { |
ada74c3b | 561 | JSONParserContext ctxt = { .buf = tokens, .ap = ap }; |
4a5fcab7 AL |
562 | QObject *result; |
563 | ||
ada74c3b | 564 | result = parse_value(&ctxt); |
5d50113c | 565 | assert(ctxt.err || g_queue_is_empty(ctxt.buf)); |
65c0f1e9 | 566 | |
e8b19d7d | 567 | error_propagate(errp, ctxt.err); |
4a5fcab7 | 568 | |
e8b19d7d MAL |
569 | while (!g_queue_is_empty(ctxt.buf)) { |
570 | parser_context_pop_token(&ctxt); | |
571 | } | |
572 | g_free(ctxt.current); | |
ef749d07 | 573 | |
4a5fcab7 AL |
574 | return result; |
575 | } |