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 "qom/object.h"
  16
  17 void hmp_qom_list(Monitor *mon, const QDict *qdict)
  18 {
  19     const char *path = qdict_get_try_str(qdict, "path");
  20     ObjectPropertyInfoList *list;
  21     Error *err = NULL;
  22
  23     if (path == NULL) {
  24         monitor_printf(mon, "/\n");
  25         return;
  26     }
  27
  28     list = qmp_qom_list(path, &err);
  29     if (err == NULL) {
  30         ObjectPropertyInfoList *start = list;
  31         while (list != NULL) {
  32             ObjectPropertyInfo *value = list->value;
  33
  34             monitor_printf(mon, "%s (%s)\n",
  35                            value->name, value->type);
  36             list = list->next;
  37         }
  38         qapi_free_ObjectPropertyInfoList(start);
  39     }
  40     hmp_handle_error(mon, err);
  41 }
  42
  43 void hmp_qom_set(Monitor *mon, const QDict *qdict)
  44 {
  45     const char *path = qdict_get_str(qdict, "path");
  46     const char *property = qdict_get_str(qdict, "property");
  47     const char *value = qdict_get_str(qdict, "value");
  48     Error *err = NULL;
  49     bool ambiguous = false;
  50     Object *obj;
  51
  52     obj = object_resolve_path(path, &ambiguous);
  53     if (obj == NULL) {
  54         error_set(&err, ERROR_CLASS_DEVICE_NOT_FOUND,
  55                   "Device '%s' not found", path);
  56     } else {
  57         if (ambiguous) {
  58             monitor_printf(mon, "Warning: Path '%s' is ambiguous\n", path);
  59         }
  60         object_property_parse(obj, value, property, &err);
  61     }
  62     hmp_handle_error(mon, err);
  63 }
  64
  65 typedef struct QOMCompositionState {
  66     Monitor *mon;
  67     int indent;
  68 } QOMCompositionState;
  69
  70 static void print_qom_composition(Monitor *mon, Object *obj, int indent);
  71
  72 static int print_qom_composition_child(Object *obj, void *opaque)
  73 {
  74     QOMCompositionState *s = opaque;
  75
  76     print_qom_composition(s->mon, obj, s->indent);
  77
  78     return 0;
  79 }
  80
  81 static void print_qom_composition(Monitor *mon, Object *obj, int indent)
  82 {
  83     QOMCompositionState s = {
  84         .mon = mon,
  85         .indent = indent + 2,
  86     };
  87     char *name;
  88
  89     if (obj == object_get_root()) {
  90         name = g_strdup("");
  91     } else {
  92         name = object_get_canonical_path_component(obj);
  93     }
  94     monitor_printf(mon, "%*s/%s (%s)\n", indent, "", name,
  95                    object_get_typename(obj));
  96     g_free(name);
  97     object_child_foreach(obj, print_qom_composition_child, &s);
  98 }
  99
 100 void hmp_info_qom_tree(Monitor *mon, const QDict *dict)
 101 {
 102     const char *path = qdict_get_try_str(dict, "path");
 103     Object *obj;
 104     bool ambiguous = false;
 105
 106     if (path) {
 107         obj = object_resolve_path(path, &ambiguous);
 108         if (!obj) {
 109             monitor_printf(mon, "Path '%s' could not be resolved.\n", path);
 110             return;
 111         }
 112         if (ambiguous) {
 113             monitor_printf(mon, "Warning: Path '%s' is ambiguous.\n", path);
 114             return;
 115         }
 116     } else {
 117         obj = qdev_get_machine();
 118     }
 119     print_qom_composition(mon, obj, 0);
 120 }