From d8f2bb11281f2ac5c52db49d39aaabdbcf3030a8 Mon Sep 17 00:00:00 2001
From: default <nobody@localhost>
Date: Sat, 5 Aug 2023 14:44:25 +0200
Subject: [PATCH] Partial import of xs_json_load() from xs.

---
 xs_json.h | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/xs_json.h b/xs_json.h
index d702a85..2a7766e 100644
--- a/xs_json.h
+++ b/xs_json.h
@@ -8,6 +8,7 @@ xs_str *xs_json_dumps_pp(const xs_val *data, int indent);
 int xs_json_dump_pp(const xs_val *data, int indent, FILE *f);
 #define xs_json_dumps(data) xs_json_dumps_pp(data, 0)
 xs_val *xs_json_loads(const xs_str *json);
+xs_val *xs_json_load(FILE *f);
 
 
 #ifdef XS_IMPLEMENTATION
@@ -539,6 +540,15 @@ xs_val *xs_json_loads(const xs_str *json)
     return v;
 }
 
+
+xs_val *xs_json_load(FILE *f)
+/* loads a JSON file */
+{
+    xs *o = xs_readall(f);
+    return o ? xs_json_loads(o) : NULL;
+}
+
+
 #endif /* XS_IMPLEMENTATION */
 
 #endif /* _XS_JSON_H */