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 } 156