2 * QMP commands related to QOM
4 * Copyright IBM, Corp. 2011
7 * Anthony Liguori <aliguori@us.ibm.com>
9 * This work is licensed under the terms of the GNU GPL, version 2. See
10 * the COPYING file in the top-level directory.
12 * Contributions after 2012-01-13 are licensed under the terms of the
13 * GNU GPL, version 2 or (at your option) any later version.
16 #include "qemu/osdep.h"
17 #include "block/qdict.h"
18 #include "hw/qdev-core.h"
19 #include "qapi/error.h"
20 #include "qapi/qapi-commands-qdev.h"
21 #include "qapi/qapi-commands-qom.h"
22 #include "qapi/qmp/qdict.h"
23 #include "qapi/qmp/qerror.h"
24 #include "qemu/cutils.h"
25 #include "qom/object_interfaces.h"
26 #include "qom/qom-qobject.h"
28 ObjectPropertyInfoList
*qmp_qom_list(const char *path
, Error
**errp
)
31 bool ambiguous
= false;
32 ObjectPropertyInfoList
*props
= NULL
;
34 ObjectPropertyIterator iter
;
36 obj
= object_resolve_path(path
, &ambiguous
);
39 error_setg(errp
, "Path '%s' is ambiguous", path
);
41 error_set(errp
, ERROR_CLASS_DEVICE_NOT_FOUND
,
42 "Device '%s' not found", path
);
47 object_property_iter_init(&iter
, obj
);
48 while ((prop
= object_property_iter_next(&iter
))) {
49 ObjectPropertyInfo
*value
= g_malloc0(sizeof(ObjectPropertyInfo
));
51 QAPI_LIST_PREPEND(props
, value
);
53 value
->name
= g_strdup(prop
->name
);
54 value
->type
= g_strdup(prop
->type
);
60 void qmp_qom_set(const char *path
, const char *property
, QObject
*value
,
65 obj
= object_resolve_path(path
, NULL
);
67 error_set(errp
, ERROR_CLASS_DEVICE_NOT_FOUND
,
68 "Device '%s' not found", path
);
72 object_property_set_qobject(obj
, property
, value
, errp
);
75 QObject
*qmp_qom_get(const char *path
, const char *property
, Error
**errp
)
79 obj
= object_resolve_path(path
, NULL
);
81 error_set(errp
, ERROR_CLASS_DEVICE_NOT_FOUND
,
82 "Device '%s' not found", path
);
86 return object_property_get_qobject(obj
, property
, errp
);
89 static void qom_list_types_tramp(ObjectClass
*klass
, void *data
)
91 ObjectTypeInfoList
**pret
= data
;
93 ObjectClass
*parent
= object_class_get_parent(klass
);
95 info
= g_malloc0(sizeof(*info
));
96 info
->name
= g_strdup(object_class_get_name(klass
));
97 info
->has_abstract
= info
->abstract
= object_class_is_abstract(klass
);
99 info
->has_parent
= true;
100 info
->parent
= g_strdup(object_class_get_name(parent
));
103 QAPI_LIST_PREPEND(*pret
, info
);
106 ObjectTypeInfoList
*qmp_qom_list_types(bool has_implements
,
107 const char *implements
,
112 ObjectTypeInfoList
*ret
= NULL
;
114 module_load_qom_all();
115 object_class_foreach(qom_list_types_tramp
, implements
, abstract
, &ret
);
120 ObjectPropertyInfoList
*qmp_device_list_properties(const char *typename
,
125 ObjectProperty
*prop
;
126 ObjectPropertyIterator iter
;
127 ObjectPropertyInfoList
*prop_list
= NULL
;
129 klass
= module_object_class_by_name(typename
);
131 error_set(errp
, ERROR_CLASS_DEVICE_NOT_FOUND
,
132 "Device '%s' not found", typename
);
136 if (!object_class_dynamic_cast(klass
, TYPE_DEVICE
)
137 || object_class_is_abstract(klass
)) {
138 error_setg(errp
, QERR_INVALID_PARAMETER_VALUE
, "typename",
139 "a non-abstract device type");
143 obj
= object_new(typename
);
145 object_property_iter_init(&iter
, obj
);
146 while ((prop
= object_property_iter_next(&iter
))) {
147 ObjectPropertyInfo
*info
;
149 /* Skip Object and DeviceState properties */
150 if (strcmp(prop
->name
, "type") == 0 ||
151 strcmp(prop
->name
, "realized") == 0 ||
152 strcmp(prop
->name
, "hotpluggable") == 0 ||
153 strcmp(prop
->name
, "hotplugged") == 0 ||
154 strcmp(prop
->name
, "parent_bus") == 0) {
158 /* Skip legacy properties since they are just string versions of
159 * properties that we already list.
161 if (strstart(prop
->name
, "legacy-", NULL
)) {
165 info
= g_new0(ObjectPropertyInfo
, 1);
166 info
->name
= g_strdup(prop
->name
);
167 info
->type
= g_strdup(prop
->type
);
168 info
->has_description
= !!prop
->description
;
169 info
->description
= g_strdup(prop
->description
);
170 info
->default_value
= qobject_ref(prop
->defval
);
171 info
->has_default_value
= !!info
->default_value
;
173 QAPI_LIST_PREPEND(prop_list
, info
);
181 ObjectPropertyInfoList
*qmp_qom_list_properties(const char *typename
,
186 ObjectProperty
*prop
;
187 ObjectPropertyIterator iter
;
188 ObjectPropertyInfoList
*prop_list
= NULL
;
190 klass
= object_class_by_name(typename
);
192 error_set(errp
, ERROR_CLASS_DEVICE_NOT_FOUND
,
193 "Class '%s' not found", typename
);
197 if (!object_class_dynamic_cast(klass
, TYPE_OBJECT
)) {
198 error_setg(errp
, QERR_INVALID_PARAMETER_VALUE
, "typename",
203 if (object_class_is_abstract(klass
)) {
204 object_class_property_iter_init(&iter
, klass
);
206 obj
= object_new(typename
);
207 object_property_iter_init(&iter
, obj
);
209 while ((prop
= object_property_iter_next(&iter
))) {
210 ObjectPropertyInfo
*info
;
212 info
= g_malloc0(sizeof(*info
));
213 info
->name
= g_strdup(prop
->name
);
214 info
->type
= g_strdup(prop
->type
);
215 info
->has_description
= !!prop
->description
;
216 info
->description
= g_strdup(prop
->description
);
218 QAPI_LIST_PREPEND(prop_list
, info
);
226 void qmp_object_add(QDict
*qdict
, QObject
**ret_data
, Error
**errp
)
228 user_creatable_add_dict(qdict
, false, errp
);
231 void qmp_object_del(const char *id
, Error
**errp
)
233 user_creatable_del(id
, errp
);