2 * HMP commands related to QOM
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.
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"
19 void hmp_qom_list(Monitor
*mon
, const QDict
*qdict
)
21 const char *path
= qdict_get_try_str(qdict
, "path");
22 ObjectPropertyInfoList
*list
;
26 monitor_printf(mon
, "/\n");
30 list
= qmp_qom_list(path
, &err
);
32 ObjectPropertyInfoList
*start
= list
;
33 while (list
!= NULL
) {
34 ObjectPropertyInfo
*value
= list
->value
;
36 monitor_printf(mon
, "%s (%s)\n",
37 value
->name
, value
->type
);
40 qapi_free_ObjectPropertyInfoList(start
);
42 hmp_handle_error(mon
, err
);
45 void hmp_qom_set(Monitor
*mon
, const QDict
*qdict
)
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");
53 obj
= qobject_from_json(value
, &err
);
55 qmp_qom_set(path
, property
, obj
, &err
);
58 hmp_handle_error(mon
, err
);
61 void hmp_qom_get(Monitor
*mon
, const QDict
*qdict
)
63 const char *path
= qdict_get_str(qdict
, "path");
64 const char *property
= qdict_get_str(qdict
, "property");
66 QObject
*obj
= qmp_qom_get(path
, property
, &err
);
69 QString
*str
= qobject_to_json_pretty(obj
);
70 monitor_printf(mon
, "%s\n", qstring_get_str(str
));
74 hmp_handle_error(mon
, err
);
77 typedef struct QOMCompositionState
{
80 } QOMCompositionState
;
82 static void print_qom_composition(Monitor
*mon
, Object
*obj
, int indent
);
84 static int qom_composition_compare(const void *a
, const void *b
, void *ignore
)
86 return g_strcmp0(a
? object_get_canonical_path_component(a
) : NULL
,
87 b
? object_get_canonical_path_component(b
) : NULL
);
90 static int insert_qom_composition_child(Object
*obj
, void *opaque
)
92 GQueue
*children
= opaque
;
94 g_queue_insert_sorted(children
, obj
, qom_composition_compare
, NULL
);
98 static void print_qom_composition(Monitor
*mon
, Object
*obj
, int indent
)
104 if (obj
== object_get_root()) {
107 name
= object_get_canonical_path_component(obj
);
109 monitor_printf(mon
, "%*s/%s (%s)\n", indent
, "", name
,
110 object_get_typename(obj
));
113 g_queue_init(&children
);
114 object_child_foreach(obj
, insert_qom_composition_child
, &children
);
115 while ((child
= g_queue_pop_head(&children
))) {
116 print_qom_composition(mon
, child
, indent
+ 2);
120 void hmp_info_qom_tree(Monitor
*mon
, const QDict
*dict
)
122 const char *path
= qdict_get_try_str(dict
, "path");
124 bool ambiguous
= false;
127 obj
= object_resolve_path(path
, &ambiguous
);
129 monitor_printf(mon
, "Path '%s' could not be resolved.\n", path
);
133 monitor_printf(mon
, "Warning: Path '%s' is ambiguous.\n", path
);
137 obj
= qdev_get_machine();
139 print_qom_composition(mon
, obj
, 0);