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 char *path = qdict_get_str(qdict, "path");
  48     const char *property = qdict_get_str(qdict, "property");
  49     const char *value = qdict_get_str(qdict, "value");
  50     Error *err = NULL;
  51     QObject *obj;
  52
  53     obj = qobject_from_json(value, &err);
  54     if (err == NULL) {
  55         qmp_qom_set(path, property, obj, &err);
  56     }
  57
  58     hmp_handle_error(mon, err);
  59 }
  60
  61 void hmp_qom_get(Monitor *mon, const QDict *qdict)
  62 {
  63     const char *path = qdict_get_str(qdict, "path");
  64     const char *property = qdict_get_str(qdict, "property");
  65     Error *err = NULL;
  66     QObject *obj = qmp_qom_get(path, property, &err);
  67
  68     if (err == NULL) {
  69         QString *str = qobject_to_json_pretty(obj);
  70         monitor_printf(mon, "%s\n", qstring_get_str(str));
  71         qobject_unref(str);
  72     }
  73
  74     qobject_unref(obj);
  75     hmp_handle_error(mon, err);
  76 }
  77
  78 typedef struct QOMCompositionState {
  79     Monitor *mon;
  80     int indent;
  81 } QOMCompositionState;
  82
  83 static void print_qom_composition(Monitor *mon, Object *obj, int indent);
  84
  85 static int qom_composition_compare(const void *a, const void *b, void *ignore)
  86 {
  87     return g_strcmp0(a ? object_get_canonical_path_component(a) : NULL,
  88                      b ? object_get_canonical_path_component(b) : NULL);
  89 }
  90
  91 static int insert_qom_composition_child(Object *obj, void *opaque)
  92 {
  93     GQueue *children = opaque;
  94
  95     g_queue_insert_sorted(children, obj, qom_composition_compare, NULL);
  96     return 0;
  97 }
  98
  99 static void print_qom_composition(Monitor *mon, Object *obj, int indent)
 100 {
 101     char *name;
 102     GQueue children;
 103     Object *child;
 104
 105     if (obj == object_get_root()) {
 106         name = g_strdup("");
 107     } else {
 108         name = object_get_canonical_path_component(obj);
 109     }
 110     monitor_printf(mon, "%*s/%s (%s)\n", indent, "", name,
 111                    object_get_typename(obj));
 112     g_free(name);
 113
 114     g_queue_init(&children);
 115     object_child_foreach(obj, insert_qom_composition_child, &children);
 116     while ((child = g_queue_pop_head(&children))) {
 117         print_qom_composition(mon, child, indent + 2);
 118     }
 119 }
 120
 121 void hmp_info_qom_tree(Monitor *mon, const QDict *dict)
 122 {
 123     const char *path = qdict_get_try_str(dict, "path");
 124     Object *obj;
 125     bool ambiguous = false;
 126
 127     if (path) {
 128         obj = object_resolve_path(path, &ambiguous);
 129         if (!obj) {
 130             monitor_printf(mon, "Path '%s' could not be resolved.\n", path);
 131             return;
 132         }
 133         if (ambiguous) {
 134             monitor_printf(mon, "Warning: Path '%s' is ambiguous.\n", path);
 135             return;
 136         }
 137     } else {
 138         obj = qdev_get_machine();
 139     }
 140     print_qom_composition(mon, obj, 0);
 141 }