xref: /openbmc/qemu/qobject/qlit.c (revision b54f310129609e58badb98c064a5532efd5fa6b2)
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