2 * Copyright (c) 2009-2011 Petri Lehtinen <petri@digip.org>
3 * Copyright (c) 2011 Graeme Smecher <graeme.smecher@mail.mcgill.ca>
5 * Jansson is free software; you can redistribute it and/or modify
6 * it under the terms of the MIT license. See LICENSE for details.
10 #include "jansson_private.h"
21 static const char *type_names[] = {
32 #define type_name(x) type_names[json_typeof(x)]
34 static void next_token(scanner_t *s)
36 const char *t = s->fmt;
39 /* skip space and ignored chars */
40 while(*t == ' ' || *t == '\t' || *t == '\n' || *t == ',' || *t == ':') {
57 static void set_error(scanner_t *s, const char *fmt, ...)
61 jsonp_error_vset(s->error, s->line, s->column, fmt, ap);
65 static json_t *pack(scanner_t *s, va_list *ap);
67 static json_t *pack_object(scanner_t *s, va_list *ap)
69 json_t *object = json_object();
72 while(s->token != '}') {
77 set_error(s, "Unexpected end of format string");
82 set_error(s, "Expected format 's', got '%c'\n", *s->fmt);
86 key = va_arg(*ap, const char *);
88 set_error(s, "NULL object key");
98 if(json_object_set_new(object, key, value)) {
99 set_error(s, "Unable to add key \"%s\"", key);
113 static json_t *pack_array(scanner_t *s, va_list *ap)
115 json_t *array = json_array();
118 while(s->token != ']') {
122 set_error(s, "Unexpected end of format string");
130 if(json_array_append_new(array, value)) {
131 set_error(s, "Unable to append to array");
144 static json_t *pack(scanner_t *s, va_list *ap)
148 return pack_object(s, ap);
151 return pack_array(s, ap);
153 case 's': /* string */
155 const char *str = va_arg(*ap, const char *);
157 set_error(s, "NULL string");
160 return json_string(str);
166 case 'b': /* boolean */
167 return va_arg(*ap, int) ? json_true() : json_false();
169 case 'i': /* integer */
170 return json_integer(va_arg(*ap, int));
173 return json_real(va_arg(*ap, double));
175 case 'O': /* a json_t object; increments refcount */
176 return json_incref(va_arg(*ap, json_t *));
178 case 'o': /* a json_t object; doesn't increment refcount */
179 return va_arg(*ap, json_t *);
182 set_error(s, "Unrecognized format character '%c'", s->token);
187 static int unpack(scanner_t *s, json_t *root, va_list *ap);
189 static int unpack_object(scanner_t *s, json_t *root, va_list *ap)
194 /* Use a set (emulated by a hashtable) to check that all object
195 keys are accessed. Checking that the correct number of keys
196 were accessed is not enough, as the same key can be unpacked
199 hashtable_t *key_set;
201 if(!(s->flags & JSON_UNPACK_ONLY)) {
202 key_set = hashtable_create(jsonp_hash_key, jsonp_key_equal, NULL, NULL);
204 set_error(s, "Out of memory");
209 if(!json_is_object(root)) {
210 set_error(s, "Expected object, got %s", type_name(root));
215 while(s->token != '}') {
220 set_error(s, "Expected '}' after '*', got '%c'", s->token);
225 set_error(s, "Unexpected end of format string");
229 if(s->token == '*') {
235 if(s->token != 's') {
236 set_error(s, "Expected format 's', got '%c'\n", *s->fmt);
240 key = va_arg(*ap, const char *);
242 set_error(s, "NULL object key");
248 value = json_object_get(root, key);
249 if(unpack(s, value, ap))
252 if(!(s->flags & JSON_UNPACK_ONLY))
253 hashtable_set(key_set, (void *)key, NULL);
258 if(s->flags & JSON_UNPACK_ONLY)
261 if(!wildcard && key_set->size != json_object_size(root)) {
262 long diff = (long)json_object_size(root) - (long)key_set->size;
263 set_error(s, "%li object items left unpacked", diff);
270 if(!(s->flags & JSON_UNPACK_ONLY))
271 hashtable_destroy(key_set);
276 static int unpack_array(scanner_t *s, json_t *root, va_list *ap)
281 if(!json_is_array(root)) {
282 set_error(s, "Expected array, got %s", type_name(root));
287 while(s->token != ']') {
291 set_error(s, "Expected ']' after '*', got '%c'", s->token);
296 set_error(s, "Unexpected end of format string");
300 if(s->token == '*') {
306 value = json_array_get(root, i);
308 set_error(s, "Array index %lu out of range", (unsigned long)i);
312 if(unpack(s, value, ap))
319 if(s->flags & JSON_UNPACK_ONLY)
322 if(!wildcard && i != json_array_size(root)) {
323 long diff = (long)json_array_size(root) - (long)i;
324 set_error(s, "%li array items left upacked", diff);
331 static int unpack(scanner_t *s, json_t *root, va_list *ap)
336 return unpack_object(s, root, ap);
339 return unpack_array(s, root, ap);
342 if(!json_is_string(root)) {
343 set_error(s, "Expected string, got %s", type_name(root));
347 if(!(s->flags & JSON_VALIDATE_ONLY)) {
350 str = va_arg(*ap, const char **);
352 set_error(s, "NULL string");
356 *str = json_string_value(root);
361 if(!json_is_integer(root)) {
362 set_error(s, "Expected integer, got %s", type_name(root));
366 if(!(s->flags & JSON_VALIDATE_ONLY))
367 *va_arg(*ap, int*) = json_integer_value(root);
372 if(!json_is_boolean(root)) {
373 set_error(s, "Expected true or false, got %s", type_name(root));
377 if(!(s->flags & JSON_VALIDATE_ONLY))
378 *va_arg(*ap, int*) = json_is_true(root);
383 if(!json_is_real(root)) {
384 set_error(s, "Expected real, got %s", type_name(root));
388 if(!(s->flags & JSON_VALIDATE_ONLY))
389 *va_arg(*ap, double*) = json_real_value(root);
394 if(!json_is_number(root)) {
395 set_error(s, "Expected real or integer, got %s",
400 if(!(s->flags & JSON_VALIDATE_ONLY))
401 *va_arg(*ap, double*) = json_number_value(root);
406 if(!(s->flags & JSON_VALIDATE_ONLY))
411 if(!(s->flags & JSON_VALIDATE_ONLY))
412 *va_arg(*ap, json_t**) = root;
417 /* Never assign, just validate */
418 if(!json_is_null(root)) {
419 set_error(s, "Expected null, got %s", type_name(root));
425 set_error(s, "Unknown format character '%c'", s->token);
430 json_t *json_vpack_ex(json_error_t *error, size_t flags,
431 const char *fmt, va_list ap)
436 jsonp_error_init(error, "");
439 jsonp_error_set(error, 1, 1, "Null or empty format string");
450 value = pack(&s, &ap);
455 set_error(&s, "Garbage after format string");
462 json_t *json_pack_ex(json_error_t *error, size_t flags, const char *fmt, ...)
468 value = json_vpack_ex(error, flags, fmt, ap);
474 json_t *json_pack(const char *fmt, ...)
480 value = json_vpack_ex(NULL, 0, fmt, ap);
486 int json_vunpack_ex(json_t *root, json_error_t *error, size_t flags,
487 const char *fmt, va_list ap)
491 jsonp_error_init(error, "");
494 jsonp_error_set(error, 1, 1, "Null or empty format string");
506 if(unpack(&s, root, &ap))
511 set_error(&s, "Garbage after format string");
518 int json_unpack_ex(json_t *root, json_error_t *error, size_t flags, const char *fmt, ...)
524 ret = json_vunpack_ex(root, error, flags, fmt, ap);
530 int json_unpack(json_t *root, const char *fmt, ...)
536 ret = json_vunpack_ex(root, NULL, 0, fmt, ap);