qom/qom-hmp-cmds.c

   1 /*
   2  * HMP commands related to QOM
   3  *
   4  * This work is licensed under the terms of the GNU GPL, version 2 or
   5  * later.  See the COPYING file in the top-level directory.
   6  */
   7
   8 #include "qemu/osdep.h"
   9 #include "hw/qdev-core.h"
  10 #include "monitor/hmp.h"
  11 #include "monitor/monitor.h"
  12 #include "qapi/error.h"
  13 #include "qapi/qapi-commands-qom.h"
  14 #include "qapi/qmp/qdict.h"
  15 #include "qapi/qmp/qjson.h"
  16 #include "qapi/qmp/qstring.h"
  17 #include "qom/object.h"
  18
  19 void hmp_qom_list(Monitor *mon, const QDict *qdict)
  20 {
  21     const char *path = qdict_get_try_str(qdict, "path");
  22     ObjectPropertyInfoList *list;
  23     Error *err = NULL;
  24
  25     if (path == NULL) {
  26         monitor_printf(mon, "/\n");
  27         return;
  28     }
  29
  30     list = qmp_qom_list(path, &err);
  31     if (err == NULL) {
  32         ObjectPropertyInfoList *start = list;
  33         while (list != NULL) {
  34             ObjectPropertyInfo *value = list->value;
  35
  36             monitor_printf(mon, "%s (%s)\n",
  37                            value->name, value->type);
  38             list = list->next;
  39         }
  40         qapi_free_ObjectPropertyInfoList(start);
  41     }
  42     hmp_handle_error(mon, err);
  43 }
  44
  45 void hmp_qom_set(Monitor *mon, const QDict *qdict)
  46 {
  47     const bool json = qdict_get_try_bool(qdict, "json", false);
  48     const char *path = qdict_get_str(qdict, "path");
  49     const char *property = qdict_get_str(qdict, "property");
  50     const char *value = qdict_get_str(qdict, "value");
  51     Error *err = NULL;
  52
  53     if (!json) {
  54         Object *obj = object_resolve_path(path, NULL);
  55
  56         if (!obj) {
  57             error_set(&err, ERROR_CLASS_DEVICE_NOT_FOUND,
  58                       "Device '%s' not found", path);
  59         } else {
  60             object_property_parse(obj, property, value, &err);
  61         }
  62     } else {
  63         QObject *obj = qobject_from_json(value, &err);
  64
  65         if (!err) {
  66             qmp_qom_set(path, property, obj, &err);
  67         }
  68     }
  69
  70     hmp_handle_error(mon, err);
  71 }
  72
  73 void hmp_qom_get(Monitor *mon, const QDict *qdict)
  74 {
  75     const char *path = qdict_get_str(qdict, "path");
  76     const char *property = qdict_get_str(qdict, "property");
  77     Error *err = NULL;
  78     QObject *obj = qmp_qom_get(path, property, &err);
  79
  80     if (err == NULL) {
  81         QString *str = qobject_to_json_pretty(obj);
  82         monitor_printf(mon, "%s\n", qstring_get_str(str));
  83         qobject_unref(str);
  84     }
  85
  86     qobject_unref(obj);
  87     hmp_handle_error(mon, err);
  88 }
  89
  90 typedef struct QOMCompositionState {
  91     Monitor *mon;
  92     int indent;
  93 } QOMCompositionState;
  94
  95 static void print_qom_composition(Monitor *mon, Object *obj, int indent);
  96
  97 static int qom_composition_compare(const void *a, const void *b, void *ignore)
  98 {
  99     g_autofree char *ac = object_get_canonical_path_component(a);
 100     g_autofree char *bc = object_get_canonical_path_component(b);
 101
 102     return g_strcmp0(ac, bc);
 103 }
 104
 105 static int insert_qom_composition_child(Object *obj, void *opaque)
 106 {
 107     GQueue *children = opaque;
 108
 109     g_queue_insert_sorted(children, obj, qom_composition_compare, NULL);
 110     return 0;
 111 }
 112
 113 static void print_qom_composition(Monitor *mon, Object *obj, int indent)
 114 {
 115     char *name;
 116     GQueue children;
 117     Object *child;
 118
 119     if (obj == object_get_root()) {
 120         name = g_strdup("");
 121     } else {
 122         name = object_get_canonical_path_component(obj);
 123     }
 124     monitor_printf(mon, "%*s/%s (%s)\n", indent, "", name,
 125                    object_get_typename(obj));
 126     g_free(name);
 127
 128     g_queue_init(&children);
 129     object_child_foreach(obj, insert_qom_composition_child, &children);
 130     while ((child = g_queue_pop_head(&children))) {
 131         print_qom_composition(mon, child, indent + 2);
 132     }
 133 }
 134
 135 void hmp_info_qom_tree(Monitor *mon, const QDict *dict)
 136 {
 137     const char *path = qdict_get_try_str(dict, "path");
 138     Object *obj;
 139     bool ambiguous = false;
 140
 141     if (path) {
 142         obj = object_resolve_path(path, &ambiguous);
 143         if (!obj) {
 144             monitor_printf(mon, "Path '%s' could not be resolved.\n", path);
 145             return;
 146         }
 147         if (ambiguous) {
 148             monitor_printf(mon, "Warning: Path '%s' is ambiguous.\n", path);
 149             return;
 150         }
 151     } else {
 152         obj = qdev_get_machine();
 153     }
 154     print_qom_composition(mon, obj, 0);
 155 }