xref: /openbmc/qemu/qobject/qlit.c (revision 7d87775f)
1 /*
2  * QLit literal qobject
3  *
4  * Copyright IBM, Corp. 2009
5  * Copyright (c) 2013, 2015, 2017 Red Hat Inc.
6  *
7  * Authors:
8  *  Anthony Liguori   <aliguori@us.ibm.com>
9  *  Markus Armbruster <armbru@redhat.com>
10  *  Marc-André Lureau <marcandre.lureau@redhat.com>
11  *
12  * This work is licensed under the terms of the GNU LGPL, version 2.1 or later.
13  * See the COPYING.LIB file in the top-level directory.
14  */
15 
16 #include "qemu/osdep.h"
17 
18 #include "qapi/qmp/qlit.h"
19 #include "qapi/qmp/qbool.h"
20 #include "qapi/qmp/qlist.h"
21 #include "qapi/qmp/qnum.h"
22 #include "qapi/qmp/qdict.h"
23 #include "qapi/qmp/qstring.h"
24 #include "qapi/qmp/qnull.h"
25 
26 static bool qlit_equal_qdict(const QLitObject *lhs, const QDict *qdict)
27 {
28     int i;
29 
30     for (i = 0; lhs->value.qdict[i].key; i++) {
31         QObject *obj = qdict_get(qdict, lhs->value.qdict[i].key);
32 
33         if (!qlit_equal_qobject(&lhs->value.qdict[i].value, obj)) {
34             return false;
35         }
36     }
37 
38     /* Note: the literal qdict must not contain duplicates, this is
39      * considered a programming error and it isn't checked here. */
40     if (qdict_size(qdict) != i) {
41         return false;
42     }
43 
44     return true;
45 }
46 
47 static bool qlit_equal_qlist(const QLitObject *lhs, const QList *qlist)
48 {
49     QListEntry *e;
50     int i = 0;
51 
52     QLIST_FOREACH_ENTRY(qlist, e) {
53         QObject *obj = qlist_entry_obj(e);
54 
55         if (!qlit_equal_qobject(&lhs->value.qlist[i], obj)) {
56             return false;
57         }
58         i++;
59     }
60 
61     return !e && lhs->value.qlist[i].type == QTYPE_NONE;
62 }
63 
64 bool qlit_equal_qobject(const QLitObject *lhs, const QObject *rhs)
65 {
66     if (!rhs || lhs->type != qobject_type(rhs)) {
67         return false;
68     }
69 
70     switch (lhs->type) {
71     case QTYPE_QBOOL:
72         return lhs->value.qbool == qbool_get_bool(qobject_to(QBool, rhs));
73     case QTYPE_QNUM:
74         return lhs->value.qnum ==  qnum_get_int(qobject_to(QNum, rhs));
75     case QTYPE_QSTRING:
76         return (strcmp(lhs->value.qstr,
77                        qstring_get_str(qobject_to(QString, rhs))) == 0);
78     case QTYPE_QDICT:
79         return qlit_equal_qdict(lhs, qobject_to(QDict, rhs));
80     case QTYPE_QLIST:
81         return qlit_equal_qlist(lhs, qobject_to(QList, rhs));
82     case QTYPE_QNULL:
83         return true;
84     default:
85         break;
86     }
87 
88     return false;
89 }
90 
91 QObject *qobject_from_qlit(const QLitObject *qlit)
92 {
93     switch (qlit->type) {
94     case QTYPE_QNULL:
95         return QOBJECT(qnull());
96     case QTYPE_QNUM:
97         return QOBJECT(qnum_from_int(qlit->value.qnum));
98     case QTYPE_QSTRING:
99         return QOBJECT(qstring_from_str(qlit->value.qstr));
100     case QTYPE_QDICT: {
101         QDict *qdict = qdict_new();
102         QLitDictEntry *e;
103 
104         for (e = qlit->value.qdict; e->key; e++) {
105             qdict_put_obj(qdict, e->key, qobject_from_qlit(&e->value));
106         }
107         return QOBJECT(qdict);
108     }
109     case QTYPE_QLIST: {
110         QList *qlist = qlist_new();
111         QLitObject *e;
112 
113         for (e = qlit->value.qlist; e->type != QTYPE_NONE; e++) {
114             qlist_append_obj(qlist, qobject_from_qlit(e));
115         }
116         return QOBJECT(qlist);
117     }
118     case QTYPE_QBOOL:
119         return QOBJECT(qbool_from_bool(qlit->value.qbool));
120     default:
121         g_assert_not_reached();
122     }
123 
124     return NULL;
125 }
126