qobject/qjson.c - third_party/qemu - Git at Google

 /*
  * QObject JSON integration
  *
  * Copyright IBM, Corp. 2009
  *
  * Authors:
  *  Anthony Liguori   <aliguori@us.ibm.com>
  *
  * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
  * See the COPYING.LIB file in the top-level directory.
  *
  */

 #include "qemu/osdep.h"
 #include "qapi/error.h"
 #include "qapi/qmp/json-parser.h"
 #include "qapi/qmp/qjson.h"
 #include "qapi/qmp/qbool.h"
 #include "qapi/qmp/qdict.h"
 #include "qapi/qmp/qlist.h"
 #include "qapi/qmp/qnum.h"
 #include "qapi/qmp/qstring.h"
 #include "qemu/unicode.h"

 typedef struct JSONParsingState
 {
     JSONMessageParser parser;
     QObject *result;
     Error *err;
 } JSONParsingState;

 static void consume_json(void *opaque, QObject *json, Error *err)
 {
     JSONParsingState *s = opaque;

     assert(!json != !err);
     assert(!s->result || !s->err);

     if (s->result) {
         qobject_unref(s->result);
         s->result = NULL;
         error_setg(&s->err, "Expecting at most one JSON value");
     }
     if (s->err) {
         qobject_unref(json);
         error_free(err);
         return;
     }
     s->result = json;
     s->err = err;
 }

 /*
  * Parse @string as JSON value.
  * If @ap is non-null, interpolate %-escapes.
  * Takes ownership of %p arguments.
  * On success, return the JSON value.
  * On failure, store an error through @errp and return NULL.
  * Ownership of %p arguments becomes indeterminate then.  To avoid
  * leaks, callers passing %p must terminate on error, e.g. by passing
  * &error_abort.
  */
 static QObject *qobject_from_jsonv(const char *string, va_list *ap,
                                    Error **errp)
 {
     JSONParsingState state = {};

     json_message_parser_init(&state.parser, consume_json, &state, ap);
     json_message_parser_feed(&state.parser, string, strlen(string));
     json_message_parser_flush(&state.parser);
     json_message_parser_destroy(&state.parser);

     if (!state.result && !state.err) {
         error_setg(&state.err, "Expecting a JSON value");
     }

     error_propagate(errp, state.err);
     return state.result;
 }

 QObject *qobject_from_json(const char *string, Error **errp)
 {
     return qobject_from_jsonv(string, NULL, errp);
 }

 /*
  * Parse @string as JSON value with %-escapes interpolated.
  * Abort on error.  Do not use with untrusted @string.
  * Return the resulting QObject.  It is never null.
  */
 QObject *qobject_from_vjsonf_nofail(const char *string, va_list ap)
 {
     va_list ap_copy;
     QObject *obj;

     /* va_copy() is needed when va_list is an array type */
     va_copy(ap_copy, ap);
     obj = qobject_from_jsonv(string, &ap_copy, &error_abort);
     va_end(ap_copy);

     assert(obj);
     return obj;
 }

 /*
  * Parse @string as JSON value with %-escapes interpolated.
  * Abort on error.  Do not use with untrusted @string.
  * Return the resulting QObject.  It is never null.
  */
 QObject *qobject_from_jsonf_nofail(const char *string, ...)
 {
     QObject *obj;
     va_list ap;

     va_start(ap, string);
     obj = qobject_from_vjsonf_nofail(string, ap);
     va_end(ap);

     return obj;
 }

 /*
  * Parse @string as JSON object with %-escapes interpolated.
  * Abort on error.  Do not use with untrusted @string.
  * Return the resulting QDict.  It is never null.
  */
 QDict *qdict_from_vjsonf_nofail(const char *string, va_list ap)
 {
     QDict *qdict;

     qdict = qobject_to(QDict, qobject_from_vjsonf_nofail(string, ap));
     assert(qdict);
     return qdict;
 }

 /*
  * Parse @string as JSON object with %-escapes interpolated.
  * Abort on error.  Do not use with untrusted @string.
  * Return the resulting QDict.  It is never null.
  */
 QDict *qdict_from_jsonf_nofail(const char *string, ...)
 {
     QDict *qdict;
     va_list ap;

     va_start(ap, string);
     qdict = qdict_from_vjsonf_nofail(string, ap);
     va_end(ap);
     return qdict;
 }

 typedef struct ToJsonIterState
 {
     int indent;
     int pretty;
     int count;
     QString *str;
 } ToJsonIterState;

 static void to_json(const QObject *obj, QString *str, int pretty, int indent);

 static void to_json_dict_iter(const char *key, QObject *obj, void *opaque)
 {
     ToJsonIterState *s = opaque;
     QString *qkey;
     int j;

     if (s->count) {
         qstring_append(s->str, s->pretty ? "," : ", ");
     }

     if (s->pretty) {
         qstring_append(s->str, "\n");
         for (j = 0 ; j < s->indent ; j++)
             qstring_append(s->str, "    ");
     }

     qkey = qstring_from_str(key);
     to_json(QOBJECT(qkey), s->str, s->pretty, s->indent);
     qobject_unref(qkey);

     qstring_append(s->str, ": ");
     to_json(obj, s->str, s->pretty, s->indent);
     s->count++;
 }

 static void to_json_list_iter(QObject *obj, void *opaque)
 {
     ToJsonIterState *s = opaque;
     int j;

     if (s->count) {
         qstring_append(s->str, s->pretty ? "," : ", ");
     }

     if (s->pretty) {
         qstring_append(s->str, "\n");
         for (j = 0 ; j < s->indent ; j++)
             qstring_append(s->str, "    ");
     }

     to_json(obj, s->str, s->pretty, s->indent);
     s->count++;
 }

 static void to_json(const QObject *obj, QString *str, int pretty, int indent)
 {
     switch (qobject_type(obj)) {
     case QTYPE_QNULL:
         qstring_append(str, "null");
         break;
     case QTYPE_QNUM: {
         QNum *val = qobject_to(QNum, obj);
         char *buffer = qnum_to_string(val);
         qstring_append(str, buffer);
         g_free(buffer);
         break;
     }
     case QTYPE_QSTRING: {
         QString *val = qobject_to(QString, obj);
         const char *ptr;
         int cp;
         char buf[16];
         char *end;

         ptr = qstring_get_str(val);
         qstring_append(str, "\"");

         for (; *ptr; ptr = end) {
             cp = mod_utf8_codepoint(ptr, 6, &end);
             switch (cp) {
             case '\"':
                 qstring_append(str, "\\\"");
                 break;
             case '\\':
                 qstring_append(str, "\\\\");
                 break;
             case '\b':
                 qstring_append(str, "\\b");
                 break;
             case '\f':
                 qstring_append(str, "\\f");
                 break;
             case '\n':
                 qstring_append(str, "\\n");
                 break;
             case '\r':
                 qstring_append(str, "\\r");
                 break;
             case '\t':
                 qstring_append(str, "\\t");
                 break;
             default:
                 if (cp < 0) {
                     cp = 0xFFFD; /* replacement character */
                 }
                 if (cp > 0xFFFF) {
                     /* beyond BMP; need a surrogate pair */
                     snprintf(buf, sizeof(buf), "\\u%04X\\u%04X",
                              0xD800 + ((cp - 0x10000) >> 10),
                              0xDC00 + ((cp - 0x10000) & 0x3FF));
                 } else if (cp < 0x20 || cp >= 0x7F) {
                     snprintf(buf, sizeof(buf), "\\u%04X", cp);
                 } else {
                     buf[0] = cp;
                     buf[1] = 0;
                 }
                 qstring_append(str, buf);
             }
         };

         qstring_append(str, "\"");
         break;
     }
     case QTYPE_QDICT: {
         ToJsonIterState s;
         QDict *val = qobject_to(QDict, obj);

         s.count = 0;
         s.str = str;
         s.indent = indent + 1;
         s.pretty = pretty;
         qstring_append(str, "{");
         qdict_iter(val, to_json_dict_iter, &s);
         if (pretty) {
             int j;
             qstring_append(str, "\n");
             for (j = 0 ; j < indent ; j++)
                 qstring_append(str, "    ");
         }
         qstring_append(str, "}");
         break;
     }
     case QTYPE_QLIST: {
         ToJsonIterState s;
         QList *val = qobject_to(QList, obj);

         s.count = 0;
         s.str = str;
         s.indent = indent + 1;
         s.pretty = pretty;
         qstring_append(str, "[");
         qlist_iter(val, (void *)to_json_list_iter, &s);
         if (pretty) {
             int j;
             qstring_append(str, "\n");
             for (j = 0 ; j < indent ; j++)
                 qstring_append(str, "    ");
         }
         qstring_append(str, "]");
         break;
     }
     case QTYPE_QBOOL: {
         QBool *val = qobject_to(QBool, obj);

         if (qbool_get_bool(val)) {
             qstring_append(str, "true");
         } else {
             qstring_append(str, "false");
         }
         break;
     }
     default:
         abort();
     }
 }

 QString *qobject_to_json(const QObject *obj)
 {
     QString *str = qstring_new();

     to_json(obj, str, 0, 0);

     return str;
 }

 QString *qobject_to_json_pretty(const QObject *obj)
 {
     QString *str = qstring_new();

     to_json(obj, str, 1, 0);

     return str;
 }
	/*
	* QObject JSON integration
	*
	* Copyright IBM, Corp. 2009
	*
	* Authors:
	* Anthony Liguori <aliguori@us.ibm.com>
	*
	* This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
	* See the COPYING.LIB file in the top-level directory.
	*
	*/

	#include "qemu/osdep.h"
	#include "qapi/error.h"
	#include "qapi/qmp/json-parser.h"
	#include "qapi/qmp/qjson.h"
	#include "qapi/qmp/qbool.h"
	#include "qapi/qmp/qdict.h"
	#include "qapi/qmp/qlist.h"
	#include "qapi/qmp/qnum.h"
	#include "qapi/qmp/qstring.h"
	#include "qemu/unicode.h"

	typedef struct JSONParsingState
	{
	JSONMessageParser parser;
	QObject *result;
	Error *err;
	} JSONParsingState;

	static void consume_json(void opaque, QObject json, Error *err)
	{
	JSONParsingState *s = opaque;

	assert(!json != !err);
	assert(!s->result \|\| !s->err);

	if (s->result) {
	qobject_unref(s->result);
	s->result = NULL;
	error_setg(&s->err, "Expecting at most one JSON value");
	}
	if (s->err) {
	qobject_unref(json);
	error_free(err);
	return;
	}
	s->result = json;
	s->err = err;
	}

	/*
	* Parse @string as JSON value.
	* If @ap is non-null, interpolate %-escapes.
	* Takes ownership of %p arguments.
	* On success, return the JSON value.
	* On failure, store an error through @errp and return NULL.
	* Ownership of %p arguments becomes indeterminate then. To avoid
	* leaks, callers passing %p must terminate on error, e.g. by passing
	* &error_abort.
	*/
	static QObject qobject_from_jsonv(const char string, va_list *ap,
	Error **errp)
	{
	JSONParsingState state = {};

	json_message_parser_init(&state.parser, consume_json, &state, ap);
	json_message_parser_feed(&state.parser, string, strlen(string));
	json_message_parser_flush(&state.parser);
	json_message_parser_destroy(&state.parser);

	if (!state.result && !state.err) {
	error_setg(&state.err, "Expecting a JSON value");
	}

	error_propagate(errp, state.err);
	return state.result;
	}

	QObject qobject_from_json(const char string, Error **errp)
	{
	return qobject_from_jsonv(string, NULL, errp);
	}

	/*
	* Parse @string as JSON value with %-escapes interpolated.
	* Abort on error. Do not use with untrusted @string.
	* Return the resulting QObject. It is never null.
	*/
	QObject qobject_from_vjsonf_nofail(const char string, va_list ap)
	{
	va_list ap_copy;
	QObject *obj;

	/* va_copy() is needed when va_list is an array type */
	va_copy(ap_copy, ap);
	obj = qobject_from_jsonv(string, &ap_copy, &error_abort);
	va_end(ap_copy);

	assert(obj);
	return obj;
	}

	/*
	* Parse @string as JSON value with %-escapes interpolated.
	* Abort on error. Do not use with untrusted @string.
	* Return the resulting QObject. It is never null.
	*/
	QObject qobject_from_jsonf_nofail(const char string, ...)
	{
	QObject *obj;
	va_list ap;

	va_start(ap, string);
	obj = qobject_from_vjsonf_nofail(string, ap);
	va_end(ap);

	return obj;
	}

	/*
	* Parse @string as JSON object with %-escapes interpolated.
	* Abort on error. Do not use with untrusted @string.
	* Return the resulting QDict. It is never null.
	*/
	QDict qdict_from_vjsonf_nofail(const char string, va_list ap)
	{
	QDict *qdict;

	qdict = qobject_to(QDict, qobject_from_vjsonf_nofail(string, ap));
	assert(qdict);
	return qdict;
	}

	/*
	* Parse @string as JSON object with %-escapes interpolated.
	* Abort on error. Do not use with untrusted @string.
	* Return the resulting QDict. It is never null.
	*/
	QDict qdict_from_jsonf_nofail(const char string, ...)
	{
	QDict *qdict;
	va_list ap;

	va_start(ap, string);
	qdict = qdict_from_vjsonf_nofail(string, ap);
	va_end(ap);
	return qdict;
	}

	typedef struct ToJsonIterState
	{
	int indent;
	int pretty;
	int count;
	QString *str;
	} ToJsonIterState;

	static void to_json(const QObject obj, QString str, int pretty, int indent);

	static void to_json_dict_iter(const char key, QObject obj, void *opaque)
	{
	ToJsonIterState *s = opaque;
	QString *qkey;
	int j;

	if (s->count) {
	qstring_append(s->str, s->pretty ? "," : ", ");
	}

	if (s->pretty) {
	qstring_append(s->str, "\n");
	for (j = 0 ; j < s->indent ; j++)
	qstring_append(s->str, " ");
	}

	qkey = qstring_from_str(key);
	to_json(QOBJECT(qkey), s->str, s->pretty, s->indent);
	qobject_unref(qkey);

	qstring_append(s->str, ": ");
	to_json(obj, s->str, s->pretty, s->indent);
	s->count++;
	}

	static void to_json_list_iter(QObject obj, void opaque)
	{
	ToJsonIterState *s = opaque;
	int j;

	if (s->count) {
	qstring_append(s->str, s->pretty ? "," : ", ");
	}

	if (s->pretty) {
	qstring_append(s->str, "\n");
	for (j = 0 ; j < s->indent ; j++)
	qstring_append(s->str, " ");
	}

	to_json(obj, s->str, s->pretty, s->indent);
	s->count++;
	}

	static void to_json(const QObject obj, QString str, int pretty, int indent)
	{
	switch (qobject_type(obj)) {
	case QTYPE_QNULL:
	qstring_append(str, "null");
	break;
	case QTYPE_QNUM: {
	QNum *val = qobject_to(QNum, obj);
	char *buffer = qnum_to_string(val);
	qstring_append(str, buffer);
	g_free(buffer);
	break;
	}
	case QTYPE_QSTRING: {
	QString *val = qobject_to(QString, obj);
	const char *ptr;
	int cp;
	char buf[16];
	char *end;

	ptr = qstring_get_str(val);
	qstring_append(str, "\"");

	for (; *ptr; ptr = end) {
	cp = mod_utf8_codepoint(ptr, 6, &end);
	switch (cp) {
	case '\"':
	qstring_append(str, "\\\"");
	break;
	case '\\':
	qstring_append(str, "\\\\");
	break;
	case '\b':
	qstring_append(str, "\\b");
	break;
	case '\f':
	qstring_append(str, "\\f");
	break;
	case '\n':
	qstring_append(str, "\\n");
	break;
	case '\r':
	qstring_append(str, "\\r");
	break;
	case '\t':
	qstring_append(str, "\\t");
	break;
	default:
	if (cp < 0) {
	cp = 0xFFFD; /* replacement character */
	}
	if (cp > 0xFFFF) {
	/* beyond BMP; need a surrogate pair */
	snprintf(buf, sizeof(buf), "\\u%04X\\u%04X",
	0xD800 + ((cp - 0x10000) >> 10),
	0xDC00 + ((cp - 0x10000) & 0x3FF));
	} else if (cp < 0x20 \|\| cp >= 0x7F) {
	snprintf(buf, sizeof(buf), "\\u%04X", cp);
	} else {
	buf[0] = cp;
	buf[1] = 0;
	}
	qstring_append(str, buf);
	}
	};

	qstring_append(str, "\"");
	break;
	}
	case QTYPE_QDICT: {
	ToJsonIterState s;
	QDict *val = qobject_to(QDict, obj);

	s.count = 0;
	s.str = str;
	s.indent = indent + 1;
	s.pretty = pretty;
	qstring_append(str, "{");
	qdict_iter(val, to_json_dict_iter, &s);
	if (pretty) {
	int j;
	qstring_append(str, "\n");
	for (j = 0 ; j < indent ; j++)
	qstring_append(str, " ");
	}
	qstring_append(str, "}");
	break;
	}
	case QTYPE_QLIST: {
	ToJsonIterState s;
	QList *val = qobject_to(QList, obj);

	s.count = 0;
	s.str = str;
	s.indent = indent + 1;
	s.pretty = pretty;
	qstring_append(str, "[");
	qlist_iter(val, (void *)to_json_list_iter, &s);
	if (pretty) {
	int j;
	qstring_append(str, "\n");
	for (j = 0 ; j < indent ; j++)
	qstring_append(str, " ");
	}
	qstring_append(str, "]");
	break;
	}
	case QTYPE_QBOOL: {
	QBool *val = qobject_to(QBool, obj);

	if (qbool_get_bool(val)) {
	qstring_append(str, "true");
	} else {
	qstring_append(str, "false");
	}
	break;
	}
	default:
	abort();
	}
	}

	QString qobject_to_json(const QObject obj)
	{
	QString *str = qstring_new();

	to_json(obj, str, 0, 0);

	return str;
	}

	QString qobject_to_json_pretty(const QObject obj)
	{
	QString *str = qstring_new();

	to_json(obj, str, 1, 0);

	return str;
	}