commit d8f2bb1

Partial import of xs_json_load() from xs.

 1@@ -8,6 +8,7 @@ xs_str *xs_json_dumps_pp(const xs_val *data, int indent);
 2 int xs_json_dump_pp(const xs_val *data, int indent, FILE *f);
 3 #define xs_json_dumps(data) xs_json_dumps_pp(data, 0)
 4 xs_val *xs_json_loads(const xs_str *json);
 5+xs_val *xs_json_load(FILE *f);
 6 
 7 
 8 #ifdef XS_IMPLEMENTATION
 9@@ -539,6 +540,15 @@ xs_val *xs_json_loads(const xs_str *json)
10     return v;
11 }
12 
13+
14+xs_val *xs_json_load(FILE *f)
15+/* loads a JSON file */
16+{
17+    xs *o = xs_readall(f);
18+    return o ? xs_json_loads(o) : NULL;
19+}
20+
21+
22 #endif /* XS_IMPLEMENTATION */
23 
24 #endif /* _XS_JSON_H */