* it under the terms of the MIT license. See LICENSE for details.
*/
-#include <stdarg.h>
-#include <string.h>
-#include <assert.h>
-
#include <jansson.h>
#include "jansson_private.h"
const char *fmt;
char token;
json_error_t *error;
+ size_t flags;
int line;
int column;
} scanner_t;
+static const char *type_names[] = {
+ "object",
+ "array",
+ "string",
+ "integer",
+ "real",
+ "true",
+ "false",
+ "null"
+};
+
+#define type_name(x) type_names[json_typeof(x)]
+
static void next_token(scanner_t *s)
{
const char *t = s->fmt;
case 's': /* string */
{
const char *str = va_arg(*ap, const char *);
- if(!str)
- {
+ if(!str) {
set_error(s, "NULL string");
return NULL;
}
case 'i': /* integer */
return json_integer(va_arg(*ap, int));
- case 'f': /* double-precision float */
+ case 'f': /* real */
return json_real(va_arg(*ap, double));
case 'O': /* a json_t object; increments refcount */
case 'o': /* a json_t object; doesn't increment refcount */
return va_arg(*ap, json_t *);
- default: /* Whoops! */
+ default:
set_error(s, "Unrecognized format character '%c'", s->token);
return NULL;
}
{
int ret = -1;
int wildcard = 0;
- hashtable_t key_set;
- if(hashtable_init(&key_set, jsonp_hash_key, jsonp_key_equal, NULL, NULL)) {
- set_error(s, "Out of memory");
- return -1;
+ /* Use a set (emulated by a hashtable) to check that all object
+ keys are accessed. Checking that the correct number of keys
+ were accessed is not enough, as the same key can be unpacked
+ multiple times.
+ */
+ hashtable_t *key_set;
+
+ if(!(s->flags & JSON_UNPACK_ONLY)) {
+ key_set = hashtable_create(jsonp_hash_key, jsonp_key_equal, NULL, NULL);
+ if(!key_set) {
+ set_error(s, "Out of memory");
+ return -1;
+ }
}
if(!json_is_object(root)) {
- set_error(s, "Expected object, got %i", json_typeof(root));
+ set_error(s, "Expected object, got %s", type_name(root));
goto error;
}
next_token(s);
json_t *value;
if(wildcard) {
- set_error(s, "Expected '}', got '%c'", s->token);
+ set_error(s, "Expected '}' after '*', got '%c'", s->token);
goto error;
}
if(unpack(s, value, ap))
goto error;
- hashtable_set(&key_set, (void *)key, NULL);
+ if(!(s->flags & JSON_UNPACK_ONLY))
+ hashtable_set(key_set, (void *)key, NULL);
+
next_token(s);
}
- if(!wildcard && key_set.size != json_object_size(root)) {
- long diff = (long)json_object_size(root) - (long)key_set.size;
+ if(s->flags & JSON_UNPACK_ONLY)
+ wildcard = 1;
+
+ if(!wildcard && key_set->size != json_object_size(root)) {
+ long diff = (long)json_object_size(root) - (long)key_set->size;
set_error(s, "%li object items left unpacked", diff);
goto error;
}
+
ret = 0;
error:
- hashtable_close(&key_set);
+ if(!(s->flags & JSON_UNPACK_ONLY))
+ hashtable_destroy(key_set);
+
return ret;
}
int wildcard = 0;
if(!json_is_array(root)) {
- set_error(s, "Expected array, got %d", json_typeof(root));
+ set_error(s, "Expected array, got %s", type_name(root));
return -1;
}
next_token(s);
json_t *value;
if(wildcard) {
- set_error(s, "Expected ']', got '%c'", s->token);
+ set_error(s, "Expected ']' after '*', got '%c'", s->token);
return -1;
}
i++;
}
+ if(s->flags & JSON_UNPACK_ONLY)
+ wildcard = 1;
+
if(!wildcard && i != json_array_size(root)) {
long diff = (long)json_array_size(root) - (long)i;
set_error(s, "%li array items left upacked", diff);
return unpack_array(s, root, ap);
case 's':
- {
- const char **str;
-
- if(!json_is_string(root))
- {
- set_error(s, "Type mismatch! Object (%i) wasn't a string.",
- json_typeof(root));
+ if(!json_is_string(root)) {
+ set_error(s, "Expected string, got %s", type_name(root));
return -1;
}
- str = va_arg(*ap, const char **);
- if(!str) {
- set_error(s, "Passed a NULL string pointer!");
- return -1;
- }
+ if(!(s->flags & JSON_VALIDATE_ONLY)) {
+ const char **str;
- *str = json_string_value(root);
+ str = va_arg(*ap, const char **);
+ if(!str) {
+ set_error(s, "NULL string");
+ return -1;
+ }
+
+ *str = json_string_value(root);
+ }
return 0;
- }
case 'i':
- if(!json_is_integer(root))
- {
- set_error(s, "Type mismatch! Object (%i) wasn't an integer.",
- json_typeof(root));
+ if(!json_is_integer(root)) {
+ set_error(s, "Expected integer, got %s", type_name(root));
return -1;
}
- *va_arg(*ap, int*) = json_integer_value(root);
+
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ *va_arg(*ap, int*) = json_integer_value(root);
+
return 0;
case 'b':
- if(!json_is_boolean(root))
- {
- set_error(s, "Type mismatch! Object (%i) wasn't a boolean.",
- json_typeof(root));
+ if(!json_is_boolean(root)) {
+ set_error(s, "Expected true or false, got %s", type_name(root));
return -1;
}
- *va_arg(*ap, int*) = json_is_true(root);
+
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ *va_arg(*ap, int*) = json_is_true(root);
+
return 0;
case 'f':
- if(!json_is_number(root))
- {
- set_error(s, "Type mismatch! Object (%i) wasn't a real.",
- json_typeof(root));
+ if(!json_is_real(root)) {
+ set_error(s, "Expected real, got %s", type_name(root));
+ return -1;
+ }
+
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ *va_arg(*ap, double*) = json_real_value(root);
+
+ return 0;
+
+ case 'F':
+ if(!json_is_number(root)) {
+ set_error(s, "Expected real or integer, got %s",
+ type_name(root));
return -1;
}
- *va_arg(*ap, double*) = json_number_value(root);
+
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ *va_arg(*ap, double*) = json_number_value(root);
+
return 0;
case 'O':
- json_incref(root);
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ json_incref(root);
/* Fall through */
case 'o':
- *va_arg(*ap, json_t**) = root;
+ if(!(s->flags & JSON_VALIDATE_ONLY))
+ *va_arg(*ap, json_t**) = root;
+
return 0;
case 'n':
- /* Don't assign, just validate */
- if(!json_is_null(root))
- {
- set_error(s, "Type mismatch! Object (%i) wasn't null.",
- json_typeof(root));
+ /* Never assign, just validate */
+ if(!json_is_null(root)) {
+ set_error(s, "Expected null, got %s", type_name(root));
return -1;
}
return 0;
}
}
-json_t *json_pack(json_error_t *error, const char *fmt, ...)
+json_t *json_vpack_ex(json_error_t *error, size_t flags,
+ const char *fmt, va_list ap)
{
scanner_t s;
json_t *value;
- va_list ap;
jsonp_error_init(error, "");
if(!fmt || !*fmt) {
- jsonp_error_set(error, 1, 1, "Null or empty format string!");
+ jsonp_error_set(error, 1, 1, "Null or empty format string");
return NULL;
}
s.error = error;
+ s.flags = flags;
s.fmt = fmt;
s.line = 1;
s.column = 0;
next_token(&s);
-
- va_start(ap, fmt);
value = pack(&s, &ap);
- va_end(ap);
next_token(&s);
if(s.token) {
+ json_decref(value);
set_error(&s, "Garbage after format string");
return NULL;
}
return value;
}
-int json_unpack(json_t *root, json_error_t *error, const char *fmt, ...)
+json_t *json_pack_ex(json_error_t *error, size_t flags, const char *fmt, ...)
{
- scanner_t s;
+ json_t *value;
va_list ap;
- int result;
+
+ va_start(ap, fmt);
+ value = json_vpack_ex(error, flags, fmt, ap);
+ va_end(ap);
+
+ return value;
+}
+
+json_t *json_pack(const char *fmt, ...)
+{
+ json_t *value;
+ va_list ap;
+
+ va_start(ap, fmt);
+ value = json_vpack_ex(NULL, 0, fmt, ap);
+ va_end(ap);
+
+ return value;
+}
+
+int json_vunpack_ex(json_t *root, json_error_t *error, size_t flags,
+ const char *fmt, va_list ap)
+{
+ scanner_t s;
jsonp_error_init(error, "");
if(!fmt || !*fmt) {
- jsonp_error_set(error, 1, 1, "Null or empty format string!");
+ jsonp_error_set(error, 1, 1, "Null or empty format string");
return -1;
}
s.error = error;
+ s.flags = flags;
s.fmt = fmt;
s.line = 1;
s.column = 0;
next_token(&s);
- va_start(ap, fmt);
- result = unpack(&s, root, &ap);
- va_end(ap);
-
- if(result)
+ if(unpack(&s, root, &ap))
return -1;
next_token(&s);
return 0;
}
+
+int json_unpack_ex(json_t *root, json_error_t *error, size_t flags, const char *fmt, ...)
+{
+ int ret;
+ va_list ap;
+
+ va_start(ap, fmt);
+ ret = json_vunpack_ex(root, error, flags, fmt, ap);
+ va_end(ap);
+
+ return ret;
+}
+
+int json_unpack(json_t *root, const char *fmt, ...)
+{
+ int ret;
+ va_list ap;
+
+ va_start(ap, fmt);
+ ret = json_vunpack_ex(root, NULL, 0, fmt, ap);
+ va_end(ap);
+
+ return ret;
+}