vnc: Migrate to using QTAILQ instead of custom implementation
[qemu/cris-port.git] / qjson.c
blob9ad8a91208e24f4ed3c57b04ccd4396445185625
1 /*
2 * QObject JSON integration
4 * Copyright IBM, Corp. 2009
6 * Authors:
7 * Anthony Liguori <aliguori@us.ibm.com>
9 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
10 * See the COPYING.LIB file in the top-level directory.
14 #include "json-lexer.h"
15 #include "json-parser.h"
16 #include "json-streamer.h"
17 #include "qjson.h"
18 #include "qint.h"
19 #include "qlist.h"
20 #include "qbool.h"
21 #include "qfloat.h"
22 #include "qdict.h"
24 typedef struct JSONParsingState
26 JSONMessageParser parser;
27 va_list *ap;
28 QObject *result;
29 } JSONParsingState;
31 static void parse_json(JSONMessageParser *parser, QList *tokens)
33 JSONParsingState *s = container_of(parser, JSONParsingState, parser);
34 s->result = json_parser_parse(tokens, s->ap);
37 QObject *qobject_from_jsonv(const char *string, va_list *ap)
39 JSONParsingState state = {};
41 state.ap = ap;
43 json_message_parser_init(&state.parser, parse_json);
44 json_message_parser_feed(&state.parser, string, strlen(string));
45 json_message_parser_flush(&state.parser);
46 json_message_parser_destroy(&state.parser);
48 return state.result;
51 QObject *qobject_from_json(const char *string)
53 return qobject_from_jsonv(string, NULL);
56 QObject *qobject_from_jsonf(const char *string, ...)
58 QObject *obj;
59 va_list ap;
61 va_start(ap, string);
62 obj = qobject_from_jsonv(string, &ap);
63 va_end(ap);
65 return obj;
68 typedef struct ToJsonIterState
70 int count;
71 QString *str;
72 } ToJsonIterState;
74 static void to_json(const QObject *obj, QString *str);
76 static void to_json_dict_iter(const char *key, QObject *obj, void *opaque)
78 ToJsonIterState *s = opaque;
79 QString *qkey;
81 if (s->count) {
82 qstring_append(s->str, ", ");
85 qkey = qstring_from_str(key);
86 to_json(QOBJECT(qkey), s->str);
87 QDECREF(qkey);
89 qstring_append(s->str, ": ");
90 to_json(obj, s->str);
91 s->count++;
94 static void to_json_list_iter(QObject *obj, void *opaque)
96 ToJsonIterState *s = opaque;
98 if (s->count) {
99 qstring_append(s->str, ", ");
102 to_json(obj, s->str);
103 s->count++;
106 static void to_json(const QObject *obj, QString *str)
108 switch (qobject_type(obj)) {
109 case QTYPE_QINT: {
110 QInt *val = qobject_to_qint(obj);
111 char buffer[1024];
113 snprintf(buffer, sizeof(buffer), "%" PRId64, qint_get_int(val));
114 qstring_append(str, buffer);
115 break;
117 case QTYPE_QSTRING: {
118 QString *val = qobject_to_qstring(obj);
119 const char *ptr;
121 ptr = qstring_get_str(val);
122 qstring_append(str, "\"");
123 while (*ptr) {
124 if ((ptr[0] & 0xE0) == 0xE0 &&
125 (ptr[1] & 0x80) && (ptr[2] & 0x80)) {
126 uint16_t wchar;
127 char escape[7];
129 wchar = (ptr[0] & 0x0F) << 12;
130 wchar |= (ptr[1] & 0x3F) << 6;
131 wchar |= (ptr[2] & 0x3F);
132 ptr += 2;
134 snprintf(escape, sizeof(escape), "\\u%04X", wchar);
135 qstring_append(str, escape);
136 } else if ((ptr[0] & 0xE0) == 0xC0 && (ptr[1] & 0x80)) {
137 uint16_t wchar;
138 char escape[7];
140 wchar = (ptr[0] & 0x1F) << 6;
141 wchar |= (ptr[1] & 0x3F);
142 ptr++;
144 snprintf(escape, sizeof(escape), "\\u%04X", wchar);
145 qstring_append(str, escape);
146 } else switch (ptr[0]) {
147 case '\"':
148 qstring_append(str, "\\\"");
149 break;
150 case '\\':
151 qstring_append(str, "\\\\");
152 break;
153 case '\b':
154 qstring_append(str, "\\b");
155 break;
156 case '\n':
157 qstring_append(str, "\\n");
158 break;
159 case '\r':
160 qstring_append(str, "\\r");
161 break;
162 case '\t':
163 qstring_append(str, "\\t");
164 break;
165 default: {
166 if (ptr[0] <= 0x1F) {
167 char escape[7];
168 snprintf(escape, sizeof(escape), "\\u%04X", ptr[0]);
169 qstring_append(str, escape);
170 } else {
171 char buf[2] = { ptr[0], 0 };
172 qstring_append(str, buf);
174 break;
177 ptr++;
179 qstring_append(str, "\"");
180 break;
182 case QTYPE_QDICT: {
183 ToJsonIterState s;
184 QDict *val = qobject_to_qdict(obj);
186 s.count = 0;
187 s.str = str;
188 qstring_append(str, "{");
189 qdict_iter(val, to_json_dict_iter, &s);
190 qstring_append(str, "}");
191 break;
193 case QTYPE_QLIST: {
194 ToJsonIterState s;
195 QList *val = qobject_to_qlist(obj);
197 s.count = 0;
198 s.str = str;
199 qstring_append(str, "[");
200 qlist_iter(val, (void *)to_json_list_iter, &s);
201 qstring_append(str, "]");
202 break;
204 case QTYPE_QFLOAT: {
205 QFloat *val = qobject_to_qfloat(obj);
206 char buffer[1024];
207 int len;
209 len = snprintf(buffer, sizeof(buffer), "%f", qfloat_get_double(val));
210 while (len > 0 && buffer[len - 1] == '0') {
211 len--;
214 if (len && buffer[len - 1] == '.') {
215 buffer[len - 1] = 0;
216 } else {
217 buffer[len] = 0;
220 qstring_append(str, buffer);
221 break;
223 case QTYPE_QBOOL: {
224 QBool *val = qobject_to_qbool(obj);
226 if (qbool_get_int(val)) {
227 qstring_append(str, "true");
228 } else {
229 qstring_append(str, "false");
231 break;
233 case QTYPE_QERROR:
234 /* XXX: should QError be emitted? */
235 case QTYPE_NONE:
236 break;
240 QString *qobject_to_json(const QObject *obj)
242 QString *str = qstring_new();
244 to_json(obj, str);
246 return str;