1 #ifndef JV_H
2 #define JV_H
3 
4 #include <stdarg.h>
5 #include <stdint.h>
6 #include <stdio.h>
7 
8 typedef enum {
9   JV_KIND_INVALID,
10   JV_KIND_NULL,
11   JV_KIND_FALSE,
12   JV_KIND_TRUE,
13   JV_KIND_NUMBER,
14   JV_KIND_STRING,
15   JV_KIND_ARRAY,
16   JV_KIND_OBJECT
17 } jv_kind;
18 
19 struct jv_refcnt;
20 
21 /* All of the fields of this struct are private.
22    Really. Do not play with them. */
23 typedef struct {
24   unsigned char kind_flags;
25   unsigned char pad_;
26   unsigned short offset;  /* array offsets */
27   int size;
28   union {
29     struct jv_refcnt* ptr;
30     double number;
31   } u;
32 } jv;
33 
34 /*
35  * All jv_* functions consume (decref) input and produce (incref) output
36  * Except jv_copy
37  */
38 
39 jv_kind jv_get_kind(jv);
40 const char* jv_kind_name(jv_kind);
jv_is_valid(jv x)41 static int jv_is_valid(jv x) { return jv_get_kind(x) != JV_KIND_INVALID; }
42 
43 jv jv_copy(jv);
44 void jv_free(jv);
45 
46 int jv_get_refcnt(jv);
47 
48 int jv_equal(jv, jv);
49 int jv_identical(jv, jv);
50 int jv_contains(jv, jv);
51 
52 jv jv_invalid(void);
53 jv jv_invalid_with_msg(jv);
54 jv jv_invalid_get_msg(jv);
55 int jv_invalid_has_msg(jv);
56 
57 
58 jv jv_null(void);
59 jv jv_true(void);
60 jv jv_false(void);
61 jv jv_bool(int);
62 
63 jv jv_number(double);
64 double jv_number_value(jv);
65 int jv_is_integer(jv);
66 
67 jv jv_array(void);
68 jv jv_array_sized(int);
69 int jv_array_length(jv);
70 jv jv_array_get(jv, int);
71 jv jv_array_set(jv, int, jv);
72 jv jv_array_append(jv, jv);
73 jv jv_array_concat(jv, jv);
74 jv jv_array_slice(jv, int, int);
75 jv jv_array_indexes(jv, jv);
76 #define jv_array_foreach(a, i, x) \
77   for (int jv_len__ = jv_array_length(jv_copy(a)), i=0, jv_j__ = 1;     \
78        jv_j__; jv_j__ = 0)                                              \
79     for (jv x;                                                          \
80          i < jv_len__ ?                                                 \
81            (x = jv_array_get(jv_copy(a), i), 1) : 0;                    \
82          i++)
83 
84 #define JV_ARRAY_1(e) (jv_array_append(jv_array(),e))
85 #define JV_ARRAY_2(e1,e2) (jv_array_append(JV_ARRAY_1(e1),e2))
86 #define JV_ARRAY_3(e1,e2,e3) (jv_array_append(JV_ARRAY_2(e1,e2),e3))
87 #define JV_ARRAY_4(e1,e2,e3,e4) (jv_array_append(JV_ARRAY_3(e1,e2,e3),e4))
88 #define JV_ARRAY_5(e1,e2,e3,e4,e5) (jv_array_append(JV_ARRAY_4(e1,e2,e3,e4),e5))
89 #define JV_ARRAY_6(e1,e2,e3,e4,e5,e6) (jv_array_append(JV_ARRAY_5(e1,e2,e3,e4,e5),e6))
90 #define JV_ARRAY_7(e1,e2,e3,e4,e5,e6,e7) (jv_array_append(JV_ARRAY_6(e1,e2,e3,e4,e5,e6),e7))
91 #define JV_ARRAY_8(e1,e2,e3,e4,e5,e6,e7,e8) (jv_array_append(JV_ARRAY_7(e1,e2,e3,e4,e5,e6,e7),e8))
92 #define JV_ARRAY_9(e1,e2,e3,e4,e5,e6,e7,e8,e9) (jv_array_append(JV_ARRAY_8(e1,e2,e3,e4,e5,e6,e7,e8),e9))
93 #define JV_ARRAY_IDX(_1,_2,_3,_4,_5,_6,_7,_8,_9,NAME,...) NAME
94 #define JV_ARRAY(...) \
95   JV_ARRAY_IDX(__VA_ARGS__, JV_ARRAY_9, JV_ARRAY_8, JV_ARRAY_7, JV_ARRAY_6, JV_ARRAY_5, JV_ARRAY_4, JV_ARRAY_3, JV_ARRAY_2, JV_ARRAY_1, dummy)(__VA_ARGS__)
96 
97 #ifdef __GNUC__
98 #define JV_PRINTF_LIKE(fmt_arg_num, args_num) \
99   __attribute__ ((__format__( __printf__, fmt_arg_num, args_num)))
100 #define JV_VPRINTF_LIKE(fmt_arg_num) \
101   __attribute__ ((__format__( __printf__, fmt_arg_num, 0)))
102 #endif
103 
104 
105 jv jv_string(const char*);
106 jv jv_string_sized(const char*, int);
107 jv jv_string_empty(int len);
108 int jv_string_length_bytes(jv);
109 int jv_string_length_codepoints(jv);
110 unsigned long jv_string_hash(jv);
111 const char* jv_string_value(jv);
112 jv jv_string_indexes(jv j, jv k);
113 jv jv_string_slice(jv j, int start, int end);
114 jv jv_string_concat(jv, jv);
115 jv jv_string_vfmt(const char*, va_list) JV_VPRINTF_LIKE(1);
116 jv jv_string_fmt(const char*, ...) JV_PRINTF_LIKE(1, 2);
117 jv jv_string_append_codepoint(jv a, uint32_t c);
118 jv jv_string_append_buf(jv a, const char* buf, int len);
119 jv jv_string_append_str(jv a, const char* str);
120 jv jv_string_split(jv j, jv sep);
121 jv jv_string_explode(jv j);
122 jv jv_string_implode(jv j);
123 
124 jv jv_object(void);
125 jv jv_object_get(jv object, jv key);
126 int jv_object_has(jv object, jv key);
127 jv jv_object_set(jv object, jv key, jv value);
128 jv jv_object_delete(jv object, jv key);
129 int jv_object_length(jv object);
130 jv jv_object_merge(jv, jv);
131 jv jv_object_merge_recursive(jv, jv);
132 
133 int jv_object_iter(jv);
134 int jv_object_iter_next(jv, int);
135 int jv_object_iter_valid(jv, int);
136 jv jv_object_iter_key(jv, int);
137 jv jv_object_iter_value(jv, int);
138 #define jv_object_foreach(t, k, v)                                      \
139   for (int jv_i__ = jv_object_iter(t), jv_j__ = 1; jv_j__; jv_j__ = 0)  \
140     for (jv k, v;                                                       \
141          jv_object_iter_valid((t), jv_i__) ?                            \
142            (k = jv_object_iter_key(t, jv_i__),                          \
143             v = jv_object_iter_value(t, jv_i__),                        \
144             1)                                                          \
145            : 0;                                                         \
146          jv_i__ = jv_object_iter_next(t, jv_i__))                       \
147 
148 #define jv_object_keys_foreach(t, k)                                 \
149   for (int jv_i__ = jv_object_iter(t), jv_j__ = 1; jv_j__; jv_j__ = 0)  \
150     for (jv k;                                                          \
151          jv_object_iter_valid((t), jv_i__) ?                            \
152            (k = jv_object_iter_key(t, jv_i__),                          \
153             1)                                                          \
154            : 0;                                                         \
155          jv_i__ = jv_object_iter_next(t, jv_i__))
156 
157 #define JV_OBJECT_1(k1) (jv_object_set(jv_object(),(k1),jv_null()))
158 #define JV_OBJECT_2(k1,v1) (jv_object_set(jv_object(),(k1),(v1)))
159 #define JV_OBJECT_3(k1,v1,k2) (jv_object_set(JV_OBJECT_2((k1),(v1)),(k2),jv_null()))
160 #define JV_OBJECT_4(k1,v1,k2,v2) (jv_object_set(JV_OBJECT_2((k1),(v1)),(k2),(v2)))
161 #define JV_OBJECT_5(k1,v1,k2,v2,k3) (jv_object_set(JV_OBJECT_4((k1),(v1),(k2),(v2)),(k3),jv_null()))
162 #define JV_OBJECT_6(k1,v1,k2,v2,k3,v3) (jv_object_set(JV_OBJECT_4((k1),(v1),(k2),(v2)),(k3),(v3)))
163 #define JV_OBJECT_7(k1,v1,k2,v2,k3,v3,k4) (jv_object_set(JV_OBJECT_6((k1),(v1),(k2),(v2),(k3),(v3)),(k4),jv_null()))
164 #define JV_OBJECT_8(k1,v1,k2,v2,k3,v3,k4,v4) (jv_object_set(JV_OBJECT_6((k1),(v1),(k2),(v2),(k3),(v3)),(k4),(v4)))
165 #define JV_OBJECT_9(k1,v1,k2,v2,k3,v3,k4,v4,k5) \
166     (jv_object_set(JV_OBJECT_8((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4)),(k5),jv_null()))
167 #define JV_OBJECT_10(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5) \
168     (jv_object_set(JV_OBJECT_8((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4)),(k5),(v5)))
169 #define JV_OBJECT_11(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6) \
170     (jv_object_set(JV_OBJECT_10((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5)),(k6),jv_null()))
171 #define JV_OBJECT_12(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6) \
172     (jv_object_set(JV_OBJECT_10((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5)),(k6),(v6)))
173 #define JV_OBJECT_13(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7) \
174     (jv_object_set(JV_OBJECT_12((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6)),(k7),jv_null()))
175 #define JV_OBJECT_14(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7,v7) \
176     (jv_object_set(JV_OBJECT_12((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6)),(k7),(v7)))
177 #define JV_OBJECT_15(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7,v7,k8) \
178     (jv_object_set(JV_OBJECT_14((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6),(k7),(v7)),(k8),jv_null()))
179 #define JV_OBJECT_16(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7,v7,k8,v8) \
180     (jv_object_set(JV_OBJECT_14((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6),(k7),(v7)),(k8),(v8)))
181 #define JV_OBJECT_17(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7,v7,k8,v8,k9) \
182     (jv_object_set(JV_OBJECT_16((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6),(k7),(v7),(k8),(v8)),(k9),jv_null()))
183 #define JV_OBJECT_18(k1,v1,k2,v2,k3,v3,k4,v4,k5,v5,k6,v6,k7,v7,k8,v8,k9,v9) \
184     (jv_object_set(JV_OBJECT_16((k1),(v1),(k2),(v2),(k3),(v3),(k4),(v4),(k5),(v5),(k6),(v6),(k7),(v7),(k8),(v8)),(k9),(v9)))
185 #define JV_OBJECT_IDX(_1,_2,_3,_4,_5,_6,_7,_8,_9,_10,_11,_12,_13,_14,_15,_16,_17,_18,NAME,...) NAME
186 #define JV_OBJECT(...) \
187   JV_OBJECT_IDX(__VA_ARGS__, \
188                 JV_OBJECT_18, JV_OBJECT_17, JV_OBJECT_16, JV_OBJECT_15, \
189                 JV_OBJECT_14, JV_OBJECT_13, JV_OBJECT_12, JV_OBJECT_11, \
190                 JV_OBJECT_10, JV_OBJECT_9, JV_OBJECT_8, JV_OBJECT_7,    \
191                 JV_OBJECT_6, JV_OBJECT_5, JV_OBJECT_4, JV_OBJECT_3,     \
192                 JV_OBJECT_2, JV_OBJECT_1)(__VA_ARGS__)
193 
194 
195 
196 int jv_get_refcnt(jv);
197 
198 enum jv_print_flags {
199   JV_PRINT_PRETTY   = 1,
200   JV_PRINT_ASCII    = 2,
201   JV_PRINT_COLOR    = 4, JV_PRINT_COLOUR = 4,
202   JV_PRINT_SORTED   = 8,
203   JV_PRINT_INVALID  = 16,
204   JV_PRINT_REFCOUNT = 32,
205   JV_PRINT_TAB      = 64,
206   JV_PRINT_ISATTY   = 128,
207   JV_PRINT_SPACE0   = 256,
208   JV_PRINT_SPACE1   = 512,
209   JV_PRINT_SPACE2   = 1024,
210 };
211 #define JV_PRINT_INDENT_FLAGS(n) \
212     ((n) < 0 || (n) > 7 ? JV_PRINT_TAB | JV_PRINT_PRETTY : (n) == 0 ? 0 : (n) << 8 | JV_PRINT_PRETTY)
213 void jv_dumpf(jv, FILE *f, int flags);
214 void jv_dump(jv, int flags);
215 void jv_show(jv, int flags);
216 jv jv_dump_string(jv, int flags);
217 char *jv_dump_string_trunc(jv x, char *outbuf, size_t bufsize);
218 
219 enum {
220   JV_PARSE_SEQ              = 1,
221   JV_PARSE_STREAMING        = 2,
222   JV_PARSE_STREAM_ERRORS    = 4,
223 };
224 
225 jv jv_parse(const char* string);
226 jv jv_parse_sized(const char* string, int length);
227 
228 typedef void (*jv_nomem_handler_f)(void *);
229 void jv_nomem_handler(jv_nomem_handler_f, void *);
230 
231 jv jv_load_file(const char *, int);
232 
233 typedef struct jv_parser jv_parser;
234 jv_parser* jv_parser_new(int);
235 void jv_parser_set_buf(jv_parser*, const char*, int, int);
236 int jv_parser_remaining(jv_parser*);
237 jv jv_parser_next(jv_parser*);
238 void jv_parser_free(jv_parser*);
239 
240 jv jv_get(jv, jv);
241 jv jv_set(jv, jv, jv);
242 jv jv_has(jv, jv);
243 jv jv_setpath(jv, jv, jv);
244 jv jv_getpath(jv, jv);
245 jv jv_delpaths(jv, jv);
246 jv jv_keys(jv /*object or array*/);
247 jv jv_keys_unsorted(jv /*object or array*/);
248 int jv_cmp(jv, jv);
249 jv jv_group(jv, jv);
250 jv jv_sort(jv, jv);
251 
252 
253 #endif
254 
255 
256 /*
257 
258 true/false/null:
259 check kind
260 
261 number:
262 introduce/eliminate jv
263 to integer
264 
265 array:
266 copy
267 free
268 slice
269 index
270 update
271 
272 updateslice?
273 
274 
275  */
276