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.
14 #include "jansson_private.h"
24 static void next_token(scanner_t *s)
26 const char *t = s->fmt;
29 /* skip space and ignored chars */
30 while(*t == ' ' || *t == '\t' || *t == '\n' || *t == ',' || *t == ':') {
47 static void set_error(scanner_t *s, const char *fmt, ...)
51 jsonp_error_vset(s->error, s->line, s->column, fmt, ap);
55 static json_t *pack(scanner_t *s, va_list *ap);
57 static json_t *pack_object(scanner_t *s, va_list *ap)
59 json_t *object = json_object();
62 while(s->token != '}') {
67 set_error(s, "Unexpected end of format string");
72 set_error(s, "Expected format 's', got '%c'\n", *s->fmt);
76 key = va_arg(*ap, const char *);
78 set_error(s, "NULL object key");
88 if(json_object_set_new(object, key, value)) {
89 set_error(s, "Unable to add key \"%s\"", key);
103 static json_t *pack_array(scanner_t *s, va_list *ap)
105 json_t *array = json_array();
108 while(s->token != ']') {
112 set_error(s, "Unexpected end of format string");
120 if(json_array_append_new(array, value)) {
121 set_error(s, "Unable to append to array");
134 static json_t *pack(scanner_t *s, va_list *ap)
138 return pack_object(s, ap);
141 return pack_array(s, ap);
143 case 's': /* string */
145 const char *str = va_arg(*ap, const char *);
148 set_error(s, "NULL string");
151 return json_string(str);
157 case 'b': /* boolean */
158 return va_arg(*ap, int) ? json_true() : json_false();
160 case 'i': /* integer */
161 return json_integer(va_arg(*ap, int));
163 case 'f': /* double-precision float */
164 return json_real(va_arg(*ap, double));
166 case 'O': /* a json_t object; increments refcount */
167 return json_incref(va_arg(*ap, json_t *));
169 case 'o': /* a json_t object; doesn't increment refcount */
170 return va_arg(*ap, json_t *);
172 default: /* Whoops! */
173 set_error(s, "Unrecognized format character '%c'", s->token);
178 static int unpack(scanner_t *s, json_t *root, va_list *ap);
180 static int unpack_object(scanner_t *s, json_t *root, va_list *ap)
182 if(!json_is_object(root)) {
183 set_error(s, "Expected object, got %i", json_typeof(root));
188 while(s->token != '}') {
193 set_error(s, "Unexpected end of format string");
197 if(s->token != 's') {
198 set_error(s, "Expected format 's', got '%c'\n", *s->fmt);
202 key = va_arg(*ap, const char *);
204 set_error(s, "NULL object key");
210 value = json_object_get(root, key);
211 if(unpack(s, value, ap))
220 static int unpack_array(scanner_t *s, json_t *root, va_list *ap)
224 if(!json_is_array(root)) {
225 set_error(s, "Expected array, got %d", json_typeof(root));
230 while(s->token != ']') {
234 set_error(s, "Unexpected end of format string");
238 value = json_array_get(root, i);
240 set_error(s, "Array index %lu out of range", (unsigned long)i);
244 if(unpack(s, value, ap))
251 if(i != json_array_size(root)) {
252 long diff = (long)json_array_size(root) - (long)i;
253 set_error(s, "%li array items were not upacked", diff);
260 static int unpack(scanner_t *s, json_t *root, va_list *ap)
265 return unpack_object(s, root, ap);
268 return unpack_array(s, root, ap);
274 if(!json_is_string(root))
276 set_error(s, "Type mismatch! Object (%i) wasn't a string.",
281 str = va_arg(*ap, const char **);
283 set_error(s, "Passed a NULL string pointer!");
287 *str = json_string_value(root);
292 if(!json_is_integer(root))
294 set_error(s, "Type mismatch! Object (%i) wasn't an integer.",
298 *va_arg(*ap, int*) = json_integer_value(root);
302 if(!json_is_boolean(root))
304 set_error(s, "Type mismatch! Object (%i) wasn't a boolean.",
308 *va_arg(*ap, int*) = json_is_true(root);
312 if(!json_is_number(root))
314 set_error(s, "Type mismatch! Object (%i) wasn't a real.",
318 *va_arg(*ap, double*) = json_number_value(root);
326 *va_arg(*ap, json_t**) = root;
330 /* Don't assign, just validate */
331 if(!json_is_null(root))
333 set_error(s, "Type mismatch! Object (%i) wasn't null.",
340 set_error(s, "Unknown format character '%c'", s->token);
345 json_t *json_pack(json_error_t *error, const char *fmt, ...)
351 jsonp_error_init(error, "");
354 jsonp_error_set(error, 1, 1, "Null or empty format string!");
366 value = pack(&s, &ap);
371 set_error(&s, "Garbage after format string");
378 int json_unpack(json_t *root, json_error_t *error, const char *fmt, ...)
384 jsonp_error_init(error, "");
387 jsonp_error_set(error, 1, 1, "Null or empty format string!");
399 result = unpack(&s, root, &ap);
407 set_error(&s, "Garbage after format string");