qobject/qlit.c

   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         assert(0);
 122     }
 123
 124     return NULL;
 125 }