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, value, property, &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     return g_strcmp0(a ? object_get_canonical_path_component(a) : NULL,
 100                      b ? object_get_canonical_path_component(b) : NULL);
 101 }
 102
 103 static int insert_qom_composition_child(Object *obj, void *opaque)
 104 {
 105     GQueue *children = opaque;
 106
 107     g_queue_insert_sorted(children, obj, qom_composition_compare, NULL);
 108     return 0;
 109 }
 110
 111 static void print_qom_composition(Monitor *mon, Object *obj, int indent)
 112 {
 113     char *name;
 114     GQueue children;
 115     Object *child;
 116
 117     if (obj == object_get_root()) {
 118         name = g_strdup("");
 119     } else {
 120         name = object_get_canonical_path_component(obj);
 121     }
 122     monitor_printf(mon, "%*s/%s (%s)\n", indent, "", name,
 123                    object_get_typename(obj));
 124     g_free(name);
 125
 126     g_queue_init(&children);
 127     object_child_foreach(obj, insert_qom_composition_child, &children);
 128     while ((child = g_queue_pop_head(&children))) {
 129         print_qom_composition(mon, child, indent + 2);
 130     }
 131 }
 132
 133 void hmp_info_qom_tree(Monitor *mon, const QDict *dict)
 134 {
 135     const char *path = qdict_get_try_str(dict, "path");
 136     Object *obj;
 137     bool ambiguous = false;
 138
 139     if (path) {
 140         obj = object_resolve_path(path, &ambiguous);
 141         if (!obj) {
 142             monitor_printf(mon, "Path '%s' could not be resolved.\n", path);
 143             return;
 144         }
 145         if (ambiguous) {
 146             monitor_printf(mon, "Warning: Path '%s' is ambiguous.\n", path);
 147             return;
 148         }
 149     } else {
 150         obj = qdev_get_machine();
 151     }
 152     print_qom_composition(mon, obj, 0);
 153 }