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 or later.
10 * See the COPYING file in the top-level directory.
13 #include "qom/object.h"
14 #include "qemu-common.h"
15 #include "qapi/visitor.h"
16 #include "qapi-visit.h"
17 #include "qapi/string-input-visitor.h"
18 #include "qapi/string-output-visitor.h"
19 #include "qapi/qmp/qerror.h"
22 /* TODO: replace QObject with a simpler visitor to avoid a dependency
23 * of the QOM core on QObject? */
24 #include "qom/qom-qobject.h"
25 #include "qapi/qmp/qobject.h"
26 #include "qapi/qmp/qbool.h"
27 #include "qapi/qmp/qint.h"
28 #include "qapi/qmp/qstring.h"
30 #define MAX_INTERFACES 32
32 typedef struct InterfaceImpl InterfaceImpl
;
33 typedef struct TypeImpl TypeImpl
;
48 void (*class_init
)(ObjectClass
*klass
, void *data
);
49 void (*class_base_init
)(ObjectClass
*klass
, void *data
);
50 void (*class_finalize
)(ObjectClass
*klass
, void *data
);
54 void (*instance_init
)(Object
*obj
);
55 void (*instance_post_init
)(Object
*obj
);
56 void (*instance_finalize
)(Object
*obj
);
61 TypeImpl
*parent_type
;
66 InterfaceImpl interfaces
[MAX_INTERFACES
];
69 static Type type_interface
;
71 static GHashTable
*type_table_get(void)
73 static GHashTable
*type_table
;
75 if (type_table
== NULL
) {
76 type_table
= g_hash_table_new(g_str_hash
, g_str_equal
);
82 static bool enumerating_types
;
84 static void type_table_add(TypeImpl
*ti
)
86 assert(!enumerating_types
);
87 g_hash_table_insert(type_table_get(), (void *)ti
->name
, ti
);
90 static TypeImpl
*type_table_lookup(const char *name
)
92 return g_hash_table_lookup(type_table_get(), name
);
95 static TypeImpl
*type_new(const TypeInfo
*info
)
97 TypeImpl
*ti
= g_malloc0(sizeof(*ti
));
100 g_assert(info
->name
!= NULL
);
102 if (type_table_lookup(info
->name
) != NULL
) {
103 fprintf(stderr
, "Registering `%s' which already exists\n", info
->name
);
107 ti
->name
= g_strdup(info
->name
);
108 ti
->parent
= g_strdup(info
->parent
);
110 ti
->class_size
= info
->class_size
;
111 ti
->instance_size
= info
->instance_size
;
113 ti
->class_init
= info
->class_init
;
114 ti
->class_base_init
= info
->class_base_init
;
115 ti
->class_finalize
= info
->class_finalize
;
116 ti
->class_data
= info
->class_data
;
118 ti
->instance_init
= info
->instance_init
;
119 ti
->instance_post_init
= info
->instance_post_init
;
120 ti
->instance_finalize
= info
->instance_finalize
;
122 ti
->abstract
= info
->abstract
;
124 for (i
= 0; info
->interfaces
&& info
->interfaces
[i
].type
; i
++) {
125 ti
->interfaces
[i
].typename
= g_strdup(info
->interfaces
[i
].type
);
127 ti
->num_interfaces
= i
;
132 static TypeImpl
*type_register_internal(const TypeInfo
*info
)
141 TypeImpl
*type_register(const TypeInfo
*info
)
143 assert(info
->parent
);
144 return type_register_internal(info
);
147 TypeImpl
*type_register_static(const TypeInfo
*info
)
149 return type_register(info
);
152 static TypeImpl
*type_get_by_name(const char *name
)
158 return type_table_lookup(name
);
161 static TypeImpl
*type_get_parent(TypeImpl
*type
)
163 if (!type
->parent_type
&& type
->parent
) {
164 type
->parent_type
= type_get_by_name(type
->parent
);
165 g_assert(type
->parent_type
!= NULL
);
168 return type
->parent_type
;
171 static bool type_has_parent(TypeImpl
*type
)
173 return (type
->parent
!= NULL
);
176 static size_t type_class_get_size(TypeImpl
*ti
)
178 if (ti
->class_size
) {
179 return ti
->class_size
;
182 if (type_has_parent(ti
)) {
183 return type_class_get_size(type_get_parent(ti
));
186 return sizeof(ObjectClass
);
189 static size_t type_object_get_size(TypeImpl
*ti
)
191 if (ti
->instance_size
) {
192 return ti
->instance_size
;
195 if (type_has_parent(ti
)) {
196 return type_object_get_size(type_get_parent(ti
));
202 static bool type_is_ancestor(TypeImpl
*type
, TypeImpl
*target_type
)
206 /* Check if typename is a direct ancestor of type */
208 if (type
== target_type
) {
212 type
= type_get_parent(type
);
218 static void type_initialize(TypeImpl
*ti
);
220 static void type_initialize_interface(TypeImpl
*ti
, TypeImpl
*interface_type
,
221 TypeImpl
*parent_type
)
223 InterfaceClass
*new_iface
;
225 TypeImpl
*iface_impl
;
227 info
.parent
= parent_type
->name
;
228 info
.name
= g_strdup_printf("%s::%s", ti
->name
, interface_type
->name
);
229 info
.abstract
= true;
231 iface_impl
= type_new(&info
);
232 iface_impl
->parent_type
= parent_type
;
233 type_initialize(iface_impl
);
234 g_free((char *)info
.name
);
236 new_iface
= (InterfaceClass
*)iface_impl
->class;
237 new_iface
->concrete_class
= ti
->class;
238 new_iface
->interface_type
= interface_type
;
240 ti
->class->interfaces
= g_slist_append(ti
->class->interfaces
,
244 static void type_initialize(TypeImpl
*ti
)
252 ti
->class_size
= type_class_get_size(ti
);
253 ti
->instance_size
= type_object_get_size(ti
);
255 ti
->class = g_malloc0(ti
->class_size
);
257 parent
= type_get_parent(ti
);
259 type_initialize(parent
);
263 g_assert(parent
->class_size
<= ti
->class_size
);
264 memcpy(ti
->class, parent
->class, parent
->class_size
);
265 ti
->class->interfaces
= NULL
;
267 for (e
= parent
->class->interfaces
; e
; e
= e
->next
) {
268 InterfaceClass
*iface
= e
->data
;
269 ObjectClass
*klass
= OBJECT_CLASS(iface
);
271 type_initialize_interface(ti
, iface
->interface_type
, klass
->type
);
274 for (i
= 0; i
< ti
->num_interfaces
; i
++) {
275 TypeImpl
*t
= type_get_by_name(ti
->interfaces
[i
].typename
);
276 for (e
= ti
->class->interfaces
; e
; e
= e
->next
) {
277 TypeImpl
*target_type
= OBJECT_CLASS(e
->data
)->type
;
279 if (type_is_ancestor(target_type
, t
)) {
288 type_initialize_interface(ti
, t
, t
);
292 ti
->class->type
= ti
;
295 if (parent
->class_base_init
) {
296 parent
->class_base_init(ti
->class, ti
->class_data
);
298 parent
= type_get_parent(parent
);
301 if (ti
->class_init
) {
302 ti
->class_init(ti
->class, ti
->class_data
);
306 static void object_init_with_type(Object
*obj
, TypeImpl
*ti
)
308 if (type_has_parent(ti
)) {
309 object_init_with_type(obj
, type_get_parent(ti
));
312 if (ti
->instance_init
) {
313 ti
->instance_init(obj
);
317 static void object_post_init_with_type(Object
*obj
, TypeImpl
*ti
)
319 if (ti
->instance_post_init
) {
320 ti
->instance_post_init(obj
);
323 if (type_has_parent(ti
)) {
324 object_post_init_with_type(obj
, type_get_parent(ti
));
328 void object_initialize_with_type(void *data
, size_t size
, TypeImpl
*type
)
332 g_assert(type
!= NULL
);
333 type_initialize(type
);
335 g_assert(type
->instance_size
>= sizeof(Object
));
336 g_assert(type
->abstract
== false);
337 g_assert(size
>= type
->instance_size
);
339 memset(obj
, 0, type
->instance_size
);
340 obj
->class = type
->class;
342 QTAILQ_INIT(&obj
->properties
);
343 object_init_with_type(obj
, type
);
344 object_post_init_with_type(obj
, type
);
347 void object_initialize(void *data
, size_t size
, const char *typename
)
349 TypeImpl
*type
= type_get_by_name(typename
);
351 object_initialize_with_type(data
, size
, type
);
354 static inline bool object_property_is_child(ObjectProperty
*prop
)
356 return strstart(prop
->type
, "child<", NULL
);
359 static inline bool object_property_is_link(ObjectProperty
*prop
)
361 return strstart(prop
->type
, "link<", NULL
);
364 static void object_property_del_all(Object
*obj
)
366 while (!QTAILQ_EMPTY(&obj
->properties
)) {
367 ObjectProperty
*prop
= QTAILQ_FIRST(&obj
->properties
);
369 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
372 prop
->release(obj
, prop
->name
, prop
->opaque
);
381 static void object_property_del_child(Object
*obj
, Object
*child
, Error
**errp
)
383 ObjectProperty
*prop
;
385 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
386 if (object_property_is_child(prop
) && prop
->opaque
== child
) {
387 object_property_del(obj
, prop
->name
, errp
);
393 void object_unparent(Object
*obj
)
400 if (obj
->class->unparent
) {
401 (obj
->class->unparent
)(obj
);
404 object_property_del_child(obj
->parent
, obj
, NULL
);
410 static void object_deinit(Object
*obj
, TypeImpl
*type
)
412 if (type
->instance_finalize
) {
413 type
->instance_finalize(obj
);
416 if (type_has_parent(type
)) {
417 object_deinit(obj
, type_get_parent(type
));
421 static void object_finalize(void *data
)
424 TypeImpl
*ti
= obj
->class->type
;
426 object_deinit(obj
, ti
);
427 object_property_del_all(obj
);
429 g_assert(obj
->ref
== 0);
435 Object
*object_new_with_type(Type type
)
439 g_assert(type
!= NULL
);
440 type_initialize(type
);
442 obj
= g_malloc(type
->instance_size
);
443 object_initialize_with_type(obj
, type
->instance_size
, type
);
449 Object
*object_new(const char *typename
)
451 TypeImpl
*ti
= type_get_by_name(typename
);
453 return object_new_with_type(ti
);
456 Object
*object_dynamic_cast(Object
*obj
, const char *typename
)
458 if (obj
&& object_class_dynamic_cast(object_get_class(obj
), typename
)) {
465 Object
*object_dynamic_cast_assert(Object
*obj
, const char *typename
,
466 const char *file
, int line
, const char *func
)
468 trace_object_dynamic_cast_assert(obj
? obj
->class->type
->name
: "(null)",
469 typename
, file
, line
, func
);
471 #ifdef CONFIG_QOM_CAST_DEBUG
475 for (i
= 0; obj
&& i
< OBJECT_CLASS_CAST_CACHE
; i
++) {
476 if (obj
->class->object_cast_cache
[i
] == typename
) {
481 inst
= object_dynamic_cast(obj
, typename
);
484 fprintf(stderr
, "%s:%d:%s: Object %p is not an instance of type %s\n",
485 file
, line
, func
, obj
, typename
);
491 if (obj
&& obj
== inst
) {
492 for (i
= 1; i
< OBJECT_CLASS_CAST_CACHE
; i
++) {
493 obj
->class->object_cast_cache
[i
- 1] =
494 obj
->class->object_cast_cache
[i
];
496 obj
->class->object_cast_cache
[i
- 1] = typename
;
504 ObjectClass
*object_class_dynamic_cast(ObjectClass
*class,
505 const char *typename
)
507 ObjectClass
*ret
= NULL
;
508 TypeImpl
*target_type
;
515 /* A simple fast path that can trigger a lot for leaf classes. */
517 if (type
->name
== typename
) {
521 target_type
= type_get_by_name(typename
);
523 /* target class type unknown, so fail the cast */
527 if (type
->class->interfaces
&&
528 type_is_ancestor(target_type
, type_interface
)) {
532 for (i
= class->interfaces
; i
; i
= i
->next
) {
533 ObjectClass
*target_class
= i
->data
;
535 if (type_is_ancestor(target_class
->type
, target_type
)) {
541 /* The match was ambiguous, don't allow a cast */
545 } else if (type_is_ancestor(type
, target_type
)) {
552 ObjectClass
*object_class_dynamic_cast_assert(ObjectClass
*class,
553 const char *typename
,
554 const char *file
, int line
,
559 trace_object_class_dynamic_cast_assert(class ? class->type
->name
: "(null)",
560 typename
, file
, line
, func
);
562 #ifdef CONFIG_QOM_CAST_DEBUG
565 for (i
= 0; class && i
< OBJECT_CLASS_CAST_CACHE
; i
++) {
566 if (class->class_cast_cache
[i
] == typename
) {
572 if (!class || !class->interfaces
) {
577 ret
= object_class_dynamic_cast(class, typename
);
579 fprintf(stderr
, "%s:%d:%s: Object %p is not an instance of type %s\n",
580 file
, line
, func
, class, typename
);
584 #ifdef CONFIG_QOM_CAST_DEBUG
585 if (class && ret
== class) {
586 for (i
= 1; i
< OBJECT_CLASS_CAST_CACHE
; i
++) {
587 class->class_cast_cache
[i
- 1] = class->class_cast_cache
[i
];
589 class->class_cast_cache
[i
- 1] = typename
;
596 const char *object_get_typename(Object
*obj
)
598 return obj
->class->type
->name
;
601 ObjectClass
*object_get_class(Object
*obj
)
606 bool object_class_is_abstract(ObjectClass
*klass
)
608 return klass
->type
->abstract
;
611 const char *object_class_get_name(ObjectClass
*klass
)
613 return klass
->type
->name
;
616 ObjectClass
*object_class_by_name(const char *typename
)
618 TypeImpl
*type
= type_get_by_name(typename
);
624 type_initialize(type
);
629 ObjectClass
*object_class_get_parent(ObjectClass
*class)
631 TypeImpl
*type
= type_get_parent(class->type
);
637 type_initialize(type
);
642 typedef struct OCFData
644 void (*fn
)(ObjectClass
*klass
, void *opaque
);
645 const char *implements_type
;
646 bool include_abstract
;
650 static void object_class_foreach_tramp(gpointer key
, gpointer value
,
653 OCFData
*data
= opaque
;
654 TypeImpl
*type
= value
;
657 type_initialize(type
);
660 if (!data
->include_abstract
&& type
->abstract
) {
664 if (data
->implements_type
&&
665 !object_class_dynamic_cast(k
, data
->implements_type
)) {
669 data
->fn(k
, data
->opaque
);
672 void object_class_foreach(void (*fn
)(ObjectClass
*klass
, void *opaque
),
673 const char *implements_type
, bool include_abstract
,
676 OCFData data
= { fn
, implements_type
, include_abstract
, opaque
};
678 enumerating_types
= true;
679 g_hash_table_foreach(type_table_get(), object_class_foreach_tramp
, &data
);
680 enumerating_types
= false;
683 int object_child_foreach(Object
*obj
, int (*fn
)(Object
*child
, void *opaque
),
686 ObjectProperty
*prop
;
689 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
690 if (object_property_is_child(prop
)) {
691 ret
= fn(prop
->opaque
, opaque
);
700 static void object_class_get_list_tramp(ObjectClass
*klass
, void *opaque
)
702 GSList
**list
= opaque
;
704 *list
= g_slist_prepend(*list
, klass
);
707 GSList
*object_class_get_list(const char *implements_type
,
708 bool include_abstract
)
712 object_class_foreach(object_class_get_list_tramp
,
713 implements_type
, include_abstract
, &list
);
717 void object_ref(Object
*obj
)
719 atomic_inc(&obj
->ref
);
722 void object_unref(Object
*obj
)
724 g_assert(obj
->ref
> 0);
726 /* parent always holds a reference to its children */
727 if (atomic_fetch_dec(&obj
->ref
) == 1) {
728 object_finalize(obj
);
732 void object_property_add(Object
*obj
, const char *name
, const char *type
,
733 ObjectPropertyAccessor
*get
,
734 ObjectPropertyAccessor
*set
,
735 ObjectPropertyRelease
*release
,
736 void *opaque
, Error
**errp
)
738 ObjectProperty
*prop
;
740 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
741 if (strcmp(prop
->name
, name
) == 0) {
742 error_setg(errp
, "attempt to add duplicate property '%s'"
743 " to object (type '%s')", name
,
744 object_get_typename(obj
));
749 prop
= g_malloc0(sizeof(*prop
));
751 prop
->name
= g_strdup(name
);
752 prop
->type
= g_strdup(type
);
756 prop
->release
= release
;
757 prop
->opaque
= opaque
;
759 QTAILQ_INSERT_TAIL(&obj
->properties
, prop
, node
);
762 ObjectProperty
*object_property_find(Object
*obj
, const char *name
,
765 ObjectProperty
*prop
;
767 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
768 if (strcmp(prop
->name
, name
) == 0) {
773 error_setg(errp
, "Property '.%s' not found", name
);
777 void object_property_del(Object
*obj
, const char *name
, Error
**errp
)
779 ObjectProperty
*prop
= object_property_find(obj
, name
, errp
);
785 prop
->release(obj
, name
, prop
->opaque
);
788 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
795 void object_property_get(Object
*obj
, Visitor
*v
, const char *name
,
798 ObjectProperty
*prop
= object_property_find(obj
, name
, errp
);
804 error_set(errp
, QERR_PERMISSION_DENIED
);
806 prop
->get(obj
, v
, prop
->opaque
, name
, errp
);
810 void object_property_set(Object
*obj
, Visitor
*v
, const char *name
,
813 ObjectProperty
*prop
= object_property_find(obj
, name
, errp
);
819 error_set(errp
, QERR_PERMISSION_DENIED
);
821 prop
->set(obj
, v
, prop
->opaque
, name
, errp
);
825 void object_property_set_str(Object
*obj
, const char *value
,
826 const char *name
, Error
**errp
)
828 QString
*qstr
= qstring_from_str(value
);
829 object_property_set_qobject(obj
, QOBJECT(qstr
), name
, errp
);
834 char *object_property_get_str(Object
*obj
, const char *name
,
837 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
844 qstring
= qobject_to_qstring(ret
);
846 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "string");
849 retval
= g_strdup(qstring_get_str(qstring
));
856 void object_property_set_link(Object
*obj
, Object
*value
,
857 const char *name
, Error
**errp
)
859 gchar
*path
= object_get_canonical_path(value
);
860 object_property_set_str(obj
, path
, name
, errp
);
864 Object
*object_property_get_link(Object
*obj
, const char *name
,
867 char *str
= object_property_get_str(obj
, name
, errp
);
868 Object
*target
= NULL
;
871 target
= object_resolve_path(str
, NULL
);
873 error_set(errp
, QERR_DEVICE_NOT_FOUND
, str
);
881 void object_property_set_bool(Object
*obj
, bool value
,
882 const char *name
, Error
**errp
)
884 QBool
*qbool
= qbool_from_int(value
);
885 object_property_set_qobject(obj
, QOBJECT(qbool
), name
, errp
);
890 bool object_property_get_bool(Object
*obj
, const char *name
,
893 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
900 qbool
= qobject_to_qbool(ret
);
902 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "boolean");
905 retval
= qbool_get_int(qbool
);
912 void object_property_set_int(Object
*obj
, int64_t value
,
913 const char *name
, Error
**errp
)
915 QInt
*qint
= qint_from_int(value
);
916 object_property_set_qobject(obj
, QOBJECT(qint
), name
, errp
);
921 int64_t object_property_get_int(Object
*obj
, const char *name
,
924 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
931 qint
= qobject_to_qint(ret
);
933 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "int");
936 retval
= qint_get_int(qint
);
943 int object_property_get_enum(Object
*obj
, const char *name
,
944 const char *strings
[], Error
**errp
)
946 StringOutputVisitor
*sov
;
947 StringInputVisitor
*siv
;
950 sov
= string_output_visitor_new(false);
951 object_property_get(obj
, string_output_get_visitor(sov
), name
, errp
);
952 siv
= string_input_visitor_new(string_output_get_string(sov
));
953 string_output_visitor_cleanup(sov
);
954 visit_type_enum(string_input_get_visitor(siv
),
955 &ret
, strings
, NULL
, name
, errp
);
956 string_input_visitor_cleanup(siv
);
961 void object_property_get_uint16List(Object
*obj
, const char *name
,
962 uint16List
**list
, Error
**errp
)
964 StringOutputVisitor
*ov
;
965 StringInputVisitor
*iv
;
967 ov
= string_output_visitor_new(false);
968 object_property_get(obj
, string_output_get_visitor(ov
),
970 iv
= string_input_visitor_new(string_output_get_string(ov
));
971 visit_type_uint16List(string_input_get_visitor(iv
),
973 string_output_visitor_cleanup(ov
);
974 string_input_visitor_cleanup(iv
);
977 void object_property_parse(Object
*obj
, const char *string
,
978 const char *name
, Error
**errp
)
980 StringInputVisitor
*mi
;
981 mi
= string_input_visitor_new(string
);
982 object_property_set(obj
, string_input_get_visitor(mi
), name
, errp
);
984 string_input_visitor_cleanup(mi
);
987 char *object_property_print(Object
*obj
, const char *name
, bool human
,
990 StringOutputVisitor
*mo
;
993 mo
= string_output_visitor_new(human
);
994 object_property_get(obj
, string_output_get_visitor(mo
), name
, errp
);
995 string
= string_output_get_string(mo
);
996 string_output_visitor_cleanup(mo
);
1000 const char *object_property_get_type(Object
*obj
, const char *name
, Error
**errp
)
1002 ObjectProperty
*prop
= object_property_find(obj
, name
, errp
);
1010 Object
*object_get_root(void)
1012 static Object
*root
;
1015 root
= object_new("container");
1021 static void object_get_child_property(Object
*obj
, Visitor
*v
, void *opaque
,
1022 const char *name
, Error
**errp
)
1024 Object
*child
= opaque
;
1027 path
= object_get_canonical_path(child
);
1028 visit_type_str(v
, &path
, name
, errp
);
1032 static void object_finalize_child_property(Object
*obj
, const char *name
,
1035 Object
*child
= opaque
;
1037 object_unref(child
);
1040 void object_property_add_child(Object
*obj
, const char *name
,
1041 Object
*child
, Error
**errp
)
1043 Error
*local_err
= NULL
;
1046 type
= g_strdup_printf("child<%s>", object_get_typename(OBJECT(child
)));
1048 object_property_add(obj
, name
, type
, object_get_child_property
, NULL
,
1049 object_finalize_child_property
, child
, &local_err
);
1051 error_propagate(errp
, local_err
);
1055 g_assert(child
->parent
== NULL
);
1056 child
->parent
= obj
;
1062 void object_property_allow_set_link(Object
*obj
, const char *name
,
1063 Object
*val
, Error
**errp
)
1065 /* Allow the link to be set, always */
1070 void (*check
)(Object
*, const char *, Object
*, Error
**);
1071 ObjectPropertyLinkFlags flags
;
1074 static void object_get_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
1075 const char *name
, Error
**errp
)
1077 LinkProperty
*lprop
= opaque
;
1078 Object
**child
= lprop
->child
;
1082 path
= object_get_canonical_path(*child
);
1083 visit_type_str(v
, &path
, name
, errp
);
1087 visit_type_str(v
, &path
, name
, errp
);
1092 * object_resolve_link:
1094 * Lookup an object and ensure its type matches the link property type. This
1095 * is similar to object_resolve_path() except type verification against the
1096 * link property is performed.
1098 * Returns: The matched object or NULL on path lookup failures.
1100 static Object
*object_resolve_link(Object
*obj
, const char *name
,
1101 const char *path
, Error
**errp
)
1105 bool ambiguous
= false;
1108 /* Go from link<FOO> to FOO. */
1109 type
= object_property_get_type(obj
, name
, NULL
);
1110 target_type
= g_strndup(&type
[5], strlen(type
) - 6);
1111 target
= object_resolve_path_type(path
, target_type
, &ambiguous
);
1114 error_set(errp
, ERROR_CLASS_GENERIC_ERROR
,
1115 "Path '%s' does not uniquely identify an object", path
);
1116 } else if (!target
) {
1117 target
= object_resolve_path(path
, &ambiguous
);
1118 if (target
|| ambiguous
) {
1119 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, target_type
);
1121 error_set(errp
, QERR_DEVICE_NOT_FOUND
, path
);
1125 g_free(target_type
);
1130 static void object_set_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
1131 const char *name
, Error
**errp
)
1133 Error
*local_err
= NULL
;
1134 LinkProperty
*prop
= opaque
;
1135 Object
**child
= prop
->child
;
1136 Object
*old_target
= *child
;
1137 Object
*new_target
= NULL
;
1140 visit_type_str(v
, &path
, name
, &local_err
);
1142 if (!local_err
&& strcmp(path
, "") != 0) {
1143 new_target
= object_resolve_link(obj
, name
, path
, &local_err
);
1148 error_propagate(errp
, local_err
);
1152 prop
->check(obj
, name
, new_target
, &local_err
);
1154 error_propagate(errp
, local_err
);
1159 object_ref(new_target
);
1161 *child
= new_target
;
1162 if (old_target
!= NULL
) {
1163 object_unref(old_target
);
1167 static void object_release_link_property(Object
*obj
, const char *name
,
1170 LinkProperty
*prop
= opaque
;
1172 if ((prop
->flags
& OBJ_PROP_LINK_UNREF_ON_RELEASE
) && *prop
->child
) {
1173 object_unref(*prop
->child
);
1178 void object_property_add_link(Object
*obj
, const char *name
,
1179 const char *type
, Object
**child
,
1180 void (*check
)(Object
*, const char *,
1181 Object
*, Error
**),
1182 ObjectPropertyLinkFlags flags
,
1185 Error
*local_err
= NULL
;
1186 LinkProperty
*prop
= g_malloc(sizeof(*prop
));
1189 prop
->child
= child
;
1190 prop
->check
= check
;
1191 prop
->flags
= flags
;
1193 full_type
= g_strdup_printf("link<%s>", type
);
1195 object_property_add(obj
, name
, full_type
,
1196 object_get_link_property
,
1197 check
? object_set_link_property
: NULL
,
1198 object_release_link_property
,
1202 error_propagate(errp
, local_err
);
1209 gchar
*object_get_canonical_path_component(Object
*obj
)
1211 ObjectProperty
*prop
= NULL
;
1214 g_assert(obj
->parent
!= NULL
);
1216 QTAILQ_FOREACH(prop
, &obj
->parent
->properties
, node
) {
1217 if (!object_property_is_child(prop
)) {
1221 if (prop
->opaque
== obj
) {
1222 return g_strdup(prop
->name
);
1226 /* obj had a parent but was not a child, should never happen */
1227 g_assert_not_reached();
1231 gchar
*object_get_canonical_path(Object
*obj
)
1233 Object
*root
= object_get_root();
1234 char *newpath
, *path
= NULL
;
1236 while (obj
!= root
) {
1237 char *component
= object_get_canonical_path_component(obj
);
1240 newpath
= g_strdup_printf("%s/%s", component
, path
);
1251 newpath
= g_strdup_printf("/%s", path
? path
: "");
1257 Object
*object_resolve_path_component(Object
*parent
, const gchar
*part
)
1259 ObjectProperty
*prop
= object_property_find(parent
, part
, NULL
);
1264 if (object_property_is_link(prop
)) {
1265 LinkProperty
*lprop
= prop
->opaque
;
1266 return *lprop
->child
;
1267 } else if (object_property_is_child(prop
)) {
1268 return prop
->opaque
;
1274 static Object
*object_resolve_abs_path(Object
*parent
,
1276 const char *typename
,
1281 if (parts
[index
] == NULL
) {
1282 return object_dynamic_cast(parent
, typename
);
1285 if (strcmp(parts
[index
], "") == 0) {
1286 return object_resolve_abs_path(parent
, parts
, typename
, index
+ 1);
1289 child
= object_resolve_path_component(parent
, parts
[index
]);
1294 return object_resolve_abs_path(child
, parts
, typename
, index
+ 1);
1297 static Object
*object_resolve_partial_path(Object
*parent
,
1299 const char *typename
,
1303 ObjectProperty
*prop
;
1305 obj
= object_resolve_abs_path(parent
, parts
, typename
, 0);
1307 QTAILQ_FOREACH(prop
, &parent
->properties
, node
) {
1310 if (!object_property_is_child(prop
)) {
1314 found
= object_resolve_partial_path(prop
->opaque
, parts
,
1315 typename
, ambiguous
);
1326 if (ambiguous
&& *ambiguous
) {
1334 Object
*object_resolve_path_type(const char *path
, const char *typename
,
1340 parts
= g_strsplit(path
, "/", 0);
1343 if (parts
[0] == NULL
|| strcmp(parts
[0], "") != 0) {
1347 obj
= object_resolve_partial_path(object_get_root(), parts
,
1348 typename
, ambiguous
);
1350 obj
= object_resolve_abs_path(object_get_root(), parts
, typename
, 1);
1358 Object
*object_resolve_path(const char *path
, bool *ambiguous
)
1360 return object_resolve_path_type(path
, TYPE_OBJECT
, ambiguous
);
1363 typedef struct StringProperty
1365 char *(*get
)(Object
*, Error
**);
1366 void (*set
)(Object
*, const char *, Error
**);
1369 static void property_get_str(Object
*obj
, Visitor
*v
, void *opaque
,
1370 const char *name
, Error
**errp
)
1372 StringProperty
*prop
= opaque
;
1375 value
= prop
->get(obj
, errp
);
1377 visit_type_str(v
, &value
, name
, errp
);
1382 static void property_set_str(Object
*obj
, Visitor
*v
, void *opaque
,
1383 const char *name
, Error
**errp
)
1385 StringProperty
*prop
= opaque
;
1387 Error
*local_err
= NULL
;
1389 visit_type_str(v
, &value
, name
, &local_err
);
1391 error_propagate(errp
, local_err
);
1395 prop
->set(obj
, value
, errp
);
1399 static void property_release_str(Object
*obj
, const char *name
,
1402 StringProperty
*prop
= opaque
;
1406 void object_property_add_str(Object
*obj
, const char *name
,
1407 char *(*get
)(Object
*, Error
**),
1408 void (*set
)(Object
*, const char *, Error
**),
1411 Error
*local_err
= NULL
;
1412 StringProperty
*prop
= g_malloc0(sizeof(*prop
));
1417 object_property_add(obj
, name
, "string",
1418 get
? property_get_str
: NULL
,
1419 set
? property_set_str
: NULL
,
1420 property_release_str
,
1423 error_propagate(errp
, local_err
);
1428 typedef struct BoolProperty
1430 bool (*get
)(Object
*, Error
**);
1431 void (*set
)(Object
*, bool, Error
**);
1434 static void property_get_bool(Object
*obj
, Visitor
*v
, void *opaque
,
1435 const char *name
, Error
**errp
)
1437 BoolProperty
*prop
= opaque
;
1440 value
= prop
->get(obj
, errp
);
1441 visit_type_bool(v
, &value
, name
, errp
);
1444 static void property_set_bool(Object
*obj
, Visitor
*v
, void *opaque
,
1445 const char *name
, Error
**errp
)
1447 BoolProperty
*prop
= opaque
;
1449 Error
*local_err
= NULL
;
1451 visit_type_bool(v
, &value
, name
, &local_err
);
1453 error_propagate(errp
, local_err
);
1457 prop
->set(obj
, value
, errp
);
1460 static void property_release_bool(Object
*obj
, const char *name
,
1463 BoolProperty
*prop
= opaque
;
1467 void object_property_add_bool(Object
*obj
, const char *name
,
1468 bool (*get
)(Object
*, Error
**),
1469 void (*set
)(Object
*, bool, Error
**),
1472 Error
*local_err
= NULL
;
1473 BoolProperty
*prop
= g_malloc0(sizeof(*prop
));
1478 object_property_add(obj
, name
, "bool",
1479 get
? property_get_bool
: NULL
,
1480 set
? property_set_bool
: NULL
,
1481 property_release_bool
,
1484 error_propagate(errp
, local_err
);
1489 static char *qdev_get_type(Object
*obj
, Error
**errp
)
1491 return g_strdup(object_get_typename(obj
));
1494 static void property_get_uint8_ptr(Object
*obj
, Visitor
*v
,
1495 void *opaque
, const char *name
,
1498 uint8_t value
= *(uint8_t *)opaque
;
1499 visit_type_uint8(v
, &value
, name
, errp
);
1502 static void property_get_uint16_ptr(Object
*obj
, Visitor
*v
,
1503 void *opaque
, const char *name
,
1506 uint16_t value
= *(uint16_t *)opaque
;
1507 visit_type_uint16(v
, &value
, name
, errp
);
1510 static void property_get_uint32_ptr(Object
*obj
, Visitor
*v
,
1511 void *opaque
, const char *name
,
1514 uint32_t value
= *(uint32_t *)opaque
;
1515 visit_type_uint32(v
, &value
, name
, errp
);
1518 static void property_get_uint64_ptr(Object
*obj
, Visitor
*v
,
1519 void *opaque
, const char *name
,
1522 uint64_t value
= *(uint64_t *)opaque
;
1523 visit_type_uint64(v
, &value
, name
, errp
);
1526 void object_property_add_uint8_ptr(Object
*obj
, const char *name
,
1527 const uint8_t *v
, Error
**errp
)
1529 object_property_add(obj
, name
, "uint8", property_get_uint8_ptr
,
1530 NULL
, NULL
, (void *)v
, errp
);
1533 void object_property_add_uint16_ptr(Object
*obj
, const char *name
,
1534 const uint16_t *v
, Error
**errp
)
1536 object_property_add(obj
, name
, "uint16", property_get_uint16_ptr
,
1537 NULL
, NULL
, (void *)v
, errp
);
1540 void object_property_add_uint32_ptr(Object
*obj
, const char *name
,
1541 const uint32_t *v
, Error
**errp
)
1543 object_property_add(obj
, name
, "uint32", property_get_uint32_ptr
,
1544 NULL
, NULL
, (void *)v
, errp
);
1547 void object_property_add_uint64_ptr(Object
*obj
, const char *name
,
1548 const uint64_t *v
, Error
**errp
)
1550 object_property_add(obj
, name
, "uint64", property_get_uint64_ptr
,
1551 NULL
, NULL
, (void *)v
, errp
);
1554 static void object_instance_init(Object
*obj
)
1556 object_property_add_str(obj
, "type", qdev_get_type
, NULL
, NULL
);
1559 static void register_types(void)
1561 static TypeInfo interface_info
= {
1562 .name
= TYPE_INTERFACE
,
1563 .class_size
= sizeof(InterfaceClass
),
1567 static TypeInfo object_info
= {
1568 .name
= TYPE_OBJECT
,
1569 .instance_size
= sizeof(Object
),
1570 .instance_init
= object_instance_init
,
1574 type_interface
= type_register_internal(&interface_info
);
1575 type_register_internal(&object_info
);
1578 type_init(register_types
)