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 "qemu/object.h"
14 #include "qemu-common.h"
15 #include "qapi/qapi-visit-core.h"
19 #define MAX_INTERFACES 32
21 typedef struct InterfaceImpl InterfaceImpl
;
22 typedef struct TypeImpl TypeImpl
;
27 void (*interface_initfn
)(ObjectClass
*class, void *data
);
39 void (*class_init
)(ObjectClass
*klass
, void *data
);
40 void (*class_finalize
)(ObjectClass
*klass
, void *data
);
44 void (*instance_init
)(Object
*obj
);
45 void (*instance_finalize
)(Object
*obj
);
50 TypeImpl
*parent_type
;
55 InterfaceImpl interfaces
[MAX_INTERFACES
];
58 typedef struct Interface
64 #define INTERFACE(obj) OBJECT_CHECK(Interface, obj, TYPE_INTERFACE)
66 static GHashTable
*type_table_get(void)
68 static GHashTable
*type_table
;
70 if (type_table
== NULL
) {
71 type_table
= g_hash_table_new(g_str_hash
, g_str_equal
);
77 static void type_table_add(TypeImpl
*ti
)
79 g_hash_table_insert(type_table_get(), (void *)ti
->name
, ti
);
82 static TypeImpl
*type_table_lookup(const char *name
)
84 return g_hash_table_lookup(type_table_get(), name
);
87 TypeImpl
*type_register(const TypeInfo
*info
)
89 TypeImpl
*ti
= g_malloc0(sizeof(*ti
));
91 g_assert(info
->name
!= NULL
);
93 if (type_table_lookup(info
->name
) != NULL
) {
94 fprintf(stderr
, "Registering `%s' which already exists\n", info
->name
);
98 ti
->name
= g_strdup(info
->name
);
99 ti
->parent
= g_strdup(info
->parent
);
101 ti
->class_size
= info
->class_size
;
102 ti
->instance_size
= info
->instance_size
;
104 ti
->class_init
= info
->class_init
;
105 ti
->class_finalize
= info
->class_finalize
;
106 ti
->class_data
= info
->class_data
;
108 ti
->instance_init
= info
->instance_init
;
109 ti
->instance_finalize
= info
->instance_finalize
;
111 ti
->abstract
= info
->abstract
;
113 if (info
->interfaces
) {
116 for (i
= 0; info
->interfaces
[i
].type
; i
++) {
117 ti
->interfaces
[i
].parent
= info
->interfaces
[i
].type
;
118 ti
->interfaces
[i
].interface_initfn
= info
->interfaces
[i
].interface_initfn
;
119 ti
->num_interfaces
++;
128 TypeImpl
*type_register_static(const TypeInfo
*info
)
130 return type_register(info
);
133 static TypeImpl
*type_get_by_name(const char *name
)
139 return type_table_lookup(name
);
142 static TypeImpl
*type_get_parent(TypeImpl
*type
)
144 if (!type
->parent_type
&& type
->parent
) {
145 type
->parent_type
= type_get_by_name(type
->parent
);
146 g_assert(type
->parent_type
!= NULL
);
149 return type
->parent_type
;
152 static bool type_has_parent(TypeImpl
*type
)
154 return (type
->parent
!= NULL
);
157 static size_t type_class_get_size(TypeImpl
*ti
)
159 if (ti
->class_size
) {
160 return ti
->class_size
;
163 if (type_has_parent(ti
)) {
164 return type_class_get_size(type_get_parent(ti
));
167 return sizeof(ObjectClass
);
170 static void type_class_interface_init(TypeImpl
*ti
, InterfaceImpl
*iface
)
173 .instance_size
= sizeof(Interface
),
174 .parent
= iface
->parent
,
175 .class_size
= sizeof(InterfaceClass
),
176 .class_init
= iface
->interface_initfn
,
179 char *name
= g_strdup_printf("<%s::%s>", ti
->name
, iface
->parent
);
182 iface
->type
= type_register(&info
);
186 static void type_class_init(TypeImpl
*ti
)
188 size_t class_size
= sizeof(ObjectClass
);
195 ti
->class_size
= type_class_get_size(ti
);
197 ti
->class = g_malloc0(ti
->class_size
);
198 ti
->class->type
= ti
;
200 if (type_has_parent(ti
)) {
201 TypeImpl
*parent
= type_get_parent(ti
);
203 type_class_init(parent
);
205 class_size
= parent
->class_size
;
206 g_assert(parent
->class_size
<= ti
->class_size
);
208 memcpy((void *)ti
->class + sizeof(ObjectClass
),
209 (void *)parent
->class + sizeof(ObjectClass
),
210 parent
->class_size
- sizeof(ObjectClass
));
213 memset((void *)ti
->class + class_size
, 0, ti
->class_size
- class_size
);
215 for (i
= 0; i
< ti
->num_interfaces
; i
++) {
216 type_class_interface_init(ti
, &ti
->interfaces
[i
]);
219 if (ti
->class_init
) {
220 ti
->class_init(ti
->class, ti
->class_data
);
224 static void object_interface_init(Object
*obj
, InterfaceImpl
*iface
)
226 TypeImpl
*ti
= iface
->type
;
227 Interface
*iface_obj
;
229 iface_obj
= INTERFACE(object_new(ti
->name
));
230 iface_obj
->obj
= obj
;
232 obj
->interfaces
= g_slist_prepend(obj
->interfaces
, iface_obj
);
235 static void object_init_with_type(Object
*obj
, TypeImpl
*ti
)
239 if (type_has_parent(ti
)) {
240 object_init_with_type(obj
, type_get_parent(ti
));
243 for (i
= 0; i
< ti
->num_interfaces
; i
++) {
244 object_interface_init(obj
, &ti
->interfaces
[i
]);
247 if (ti
->instance_init
) {
248 ti
->instance_init(obj
);
252 void object_initialize_with_type(void *data
, TypeImpl
*type
)
256 g_assert(type
!= NULL
);
257 g_assert(type
->instance_size
>= sizeof(ObjectClass
));
259 type_class_init(type
);
260 g_assert(type
->abstract
== false);
262 memset(obj
, 0, type
->instance_size
);
263 obj
->class = type
->class;
264 QTAILQ_INIT(&obj
->properties
);
265 object_init_with_type(obj
, type
);
268 void object_initialize(void *data
, const char *typename
)
270 TypeImpl
*type
= type_get_by_name(typename
);
272 object_initialize_with_type(data
, type
);
275 static void object_property_del_all(Object
*obj
)
277 while (!QTAILQ_EMPTY(&obj
->properties
)) {
278 ObjectProperty
*prop
= QTAILQ_FIRST(&obj
->properties
);
280 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
283 prop
->release(obj
, prop
->name
, prop
->opaque
);
292 static void object_property_del_child(Object
*obj
, Object
*child
, Error
**errp
)
294 ObjectProperty
*prop
;
296 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
297 if (!strstart(prop
->type
, "child<", NULL
)) {
301 if (prop
->opaque
== child
) {
302 object_property_del(obj
, prop
->name
, errp
);
307 void object_unparent(Object
*obj
)
310 object_property_del_child(obj
->parent
, obj
, NULL
);
314 static void object_deinit(Object
*obj
, TypeImpl
*type
)
316 if (type
->instance_finalize
) {
317 type
->instance_finalize(obj
);
320 while (obj
->interfaces
) {
321 Interface
*iface_obj
= obj
->interfaces
->data
;
322 obj
->interfaces
= g_slist_delete_link(obj
->interfaces
, obj
->interfaces
);
323 object_delete(OBJECT(iface_obj
));
326 if (type_has_parent(type
)) {
327 object_deinit(obj
, type_get_parent(type
));
330 object_unparent(obj
);
333 void object_finalize(void *data
)
336 TypeImpl
*ti
= obj
->class->type
;
338 object_deinit(obj
, ti
);
339 object_property_del_all(obj
);
341 g_assert(obj
->ref
== 0);
344 Object
*object_new_with_type(Type type
)
348 g_assert(type
!= NULL
);
350 obj
= g_malloc(type
->instance_size
);
351 object_initialize_with_type(obj
, type
);
357 Object
*object_new(const char *typename
)
359 TypeImpl
*ti
= type_get_by_name(typename
);
361 return object_new_with_type(ti
);
364 void object_delete(Object
*obj
)
367 g_assert(obj
->ref
== 0);
371 static bool object_is_type(Object
*obj
, const char *typename
)
373 TypeImpl
*target_type
= type_get_by_name(typename
);
374 TypeImpl
*type
= obj
->class->type
;
377 /* Check if typename is a direct ancestor of type */
379 if (type
== target_type
) {
383 type
= type_get_parent(type
);
386 /* Check if obj has an interface of typename */
387 for (i
= obj
->interfaces
; i
; i
= i
->next
) {
388 Interface
*iface
= i
->data
;
390 if (object_is_type(OBJECT(iface
), typename
)) {
398 Object
*object_dynamic_cast(Object
*obj
, const char *typename
)
402 /* Check if typename is a direct ancestor */
403 if (object_is_type(obj
, typename
)) {
407 /* Check if obj has an interface of typename */
408 for (i
= obj
->interfaces
; i
; i
= i
->next
) {
409 Interface
*iface
= i
->data
;
411 if (object_is_type(OBJECT(iface
), typename
)) {
412 return OBJECT(iface
);
416 /* Check if obj is an interface and its containing object is a direct
417 * ancestor of typename */
418 if (object_is_type(obj
, TYPE_INTERFACE
)) {
419 Interface
*iface
= INTERFACE(obj
);
421 if (object_is_type(iface
->obj
, typename
)) {
430 static void register_interface(void)
432 static TypeInfo interface_info
= {
433 .name
= TYPE_INTERFACE
,
434 .instance_size
= sizeof(Interface
),
438 type_register_static(&interface_info
);
441 device_init(register_interface
);
443 Object
*object_dynamic_cast_assert(Object
*obj
, const char *typename
)
447 inst
= object_dynamic_cast(obj
, typename
);
450 fprintf(stderr
, "Object %p is not an instance of type %s\n",
458 ObjectClass
*object_class_dynamic_cast(ObjectClass
*class,
459 const char *typename
)
461 TypeImpl
*target_type
= type_get_by_name(typename
);
462 TypeImpl
*type
= class->type
;
465 if (type
== target_type
) {
469 type
= type_get_parent(type
);
475 ObjectClass
*object_class_dynamic_cast_assert(ObjectClass
*class,
476 const char *typename
)
478 ObjectClass
*ret
= object_class_dynamic_cast(class, typename
);
481 fprintf(stderr
, "Object %p is not an instance of type %s\n",
489 const char *object_get_typename(Object
*obj
)
491 return obj
->class->type
->name
;
494 ObjectClass
*object_get_class(Object
*obj
)
499 const char *object_class_get_name(ObjectClass
*klass
)
501 return klass
->type
->name
;
504 ObjectClass
*object_class_by_name(const char *typename
)
506 TypeImpl
*type
= type_get_by_name(typename
);
512 type_class_init(type
);
517 typedef struct OCFData
519 void (*fn
)(ObjectClass
*klass
, void *opaque
);
520 const char *implements_type
;
521 bool include_abstract
;
525 static void object_class_foreach_tramp(gpointer key
, gpointer value
,
528 OCFData
*data
= opaque
;
529 TypeImpl
*type
= value
;
532 type_class_init(type
);
535 if (!data
->include_abstract
&& type
->abstract
) {
539 if (data
->implements_type
&&
540 !object_class_dynamic_cast(k
, data
->implements_type
)) {
544 data
->fn(k
, data
->opaque
);
547 void object_class_foreach(void (*fn
)(ObjectClass
*klass
, void *opaque
),
548 const char *implements_type
, bool include_abstract
,
551 OCFData data
= { fn
, implements_type
, include_abstract
, opaque
};
553 g_hash_table_foreach(type_table_get(), object_class_foreach_tramp
, &data
);
556 void object_ref(Object
*obj
)
561 void object_unref(Object
*obj
)
563 g_assert(obj
->ref
> 0);
566 /* parent always holds a reference to its children */
568 object_finalize(obj
);
572 void object_property_add(Object
*obj
, const char *name
, const char *type
,
573 ObjectPropertyAccessor
*get
,
574 ObjectPropertyAccessor
*set
,
575 ObjectPropertyRelease
*release
,
576 void *opaque
, Error
**errp
)
578 ObjectProperty
*prop
= g_malloc0(sizeof(*prop
));
580 prop
->name
= g_strdup(name
);
581 prop
->type
= g_strdup(type
);
585 prop
->release
= release
;
586 prop
->opaque
= opaque
;
588 QTAILQ_INSERT_TAIL(&obj
->properties
, prop
, node
);
591 static ObjectProperty
*object_property_find(Object
*obj
, const char *name
)
593 ObjectProperty
*prop
;
595 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
596 if (strcmp(prop
->name
, name
) == 0) {
604 void object_property_del(Object
*obj
, const char *name
, Error
**errp
)
606 ObjectProperty
*prop
= object_property_find(obj
, name
);
608 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
610 prop
->release(obj
, prop
->name
, prop
->opaque
);
617 void object_property_get(Object
*obj
, Visitor
*v
, const char *name
,
620 ObjectProperty
*prop
= object_property_find(obj
, name
);
623 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
628 error_set(errp
, QERR_PERMISSION_DENIED
);
630 prop
->get(obj
, v
, prop
->opaque
, name
, errp
);
634 void object_property_set(Object
*obj
, Visitor
*v
, const char *name
,
637 ObjectProperty
*prop
= object_property_find(obj
, name
);
640 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
645 error_set(errp
, QERR_PERMISSION_DENIED
);
647 prop
->set(obj
, v
, prop
->opaque
, name
, errp
);
651 const char *object_property_get_type(Object
*obj
, const char *name
, Error
**errp
)
653 ObjectProperty
*prop
= object_property_find(obj
, name
);
656 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
663 Object
*object_get_root(void)
668 root
= object_new("container");
674 static void object_get_child_property(Object
*obj
, Visitor
*v
, void *opaque
,
675 const char *name
, Error
**errp
)
677 Object
*child
= opaque
;
680 path
= object_get_canonical_path(child
);
681 visit_type_str(v
, &path
, name
, errp
);
685 static void object_finalize_child_property(Object
*obj
, const char *name
,
688 Object
*child
= opaque
;
693 void object_property_add_child(Object
*obj
, const char *name
,
694 Object
*child
, Error
**errp
)
698 type
= g_strdup_printf("child<%s>", object_get_typename(OBJECT(child
)));
700 object_property_add(obj
, name
, type
, object_get_child_property
,
701 NULL
, object_finalize_child_property
, child
, errp
);
704 g_assert(child
->parent
== NULL
);
710 static void object_get_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
711 const char *name
, Error
**errp
)
713 Object
**child
= opaque
;
717 path
= object_get_canonical_path(*child
);
718 visit_type_str(v
, &path
, name
, errp
);
722 visit_type_str(v
, &path
, name
, errp
);
726 static void object_set_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
727 const char *name
, Error
**errp
)
729 Object
**child
= opaque
;
730 bool ambiguous
= false;
734 type
= object_property_get_type(obj
, name
, NULL
);
736 visit_type_str(v
, &path
, name
, errp
);
739 object_unref(*child
);
742 if (strcmp(path
, "") != 0) {
745 target
= object_resolve_path(path
, &ambiguous
);
749 target_type
= g_strdup(&type
[5]);
750 target_type
[strlen(target_type
) - 2] = 0;
752 if (object_dynamic_cast(target
, target_type
)) {
756 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, type
);
761 error_set(errp
, QERR_DEVICE_NOT_FOUND
, path
);
770 void object_property_add_link(Object
*obj
, const char *name
,
771 const char *type
, Object
**child
,
776 full_type
= g_strdup_printf("link<%s>", type
);
778 object_property_add(obj
, name
, full_type
,
779 object_get_link_property
,
780 object_set_link_property
,
786 gchar
*object_get_canonical_path(Object
*obj
)
788 Object
*root
= object_get_root();
789 char *newpath
= NULL
, *path
= NULL
;
791 while (obj
!= root
) {
792 ObjectProperty
*prop
= NULL
;
794 g_assert(obj
->parent
!= NULL
);
796 QTAILQ_FOREACH(prop
, &obj
->parent
->properties
, node
) {
797 if (!strstart(prop
->type
, "child<", NULL
)) {
801 if (prop
->opaque
== obj
) {
803 newpath
= g_strdup_printf("%s/%s", prop
->name
, path
);
807 path
= g_strdup(prop
->name
);
813 g_assert(prop
!= NULL
);
818 newpath
= g_strdup_printf("/%s", path
);
824 static Object
*object_resolve_abs_path(Object
*parent
,
828 ObjectProperty
*prop
;
831 if (parts
[index
] == NULL
) {
835 if (strcmp(parts
[index
], "") == 0) {
836 return object_resolve_abs_path(parent
, parts
, index
+ 1);
839 prop
= object_property_find(parent
, parts
[index
]);
845 if (strstart(prop
->type
, "link<", NULL
)) {
846 Object
**pchild
= prop
->opaque
;
850 } else if (strstart(prop
->type
, "child<", NULL
)) {
851 child
= prop
->opaque
;
858 return object_resolve_abs_path(child
, parts
, index
+ 1);
861 static Object
*object_resolve_partial_path(Object
*parent
,
866 ObjectProperty
*prop
;
868 obj
= object_resolve_abs_path(parent
, parts
, 0);
870 QTAILQ_FOREACH(prop
, &parent
->properties
, node
) {
873 if (!strstart(prop
->type
, "child<", NULL
)) {
877 found
= object_resolve_partial_path(prop
->opaque
, parts
, ambiguous
);
888 if (ambiguous
&& *ambiguous
) {
896 Object
*object_resolve_path(const char *path
, bool *ambiguous
)
898 bool partial_path
= true;
902 parts
= g_strsplit(path
, "/", 0);
903 if (parts
== NULL
|| parts
[0] == NULL
) {
905 return object_get_root();
908 if (strcmp(parts
[0], "") == 0) {
909 partial_path
= false;
916 obj
= object_resolve_partial_path(object_get_root(), parts
, ambiguous
);
918 obj
= object_resolve_abs_path(object_get_root(), parts
, 1);
926 typedef struct StringProperty
928 char *(*get
)(Object
*, Error
**);
929 void (*set
)(Object
*, const char *, Error
**);
932 static void object_property_get_str(Object
*obj
, Visitor
*v
, void *opaque
,
933 const char *name
, Error
**errp
)
935 StringProperty
*prop
= opaque
;
938 value
= prop
->get(obj
, errp
);
940 visit_type_str(v
, &value
, name
, errp
);
945 static void object_property_set_str(Object
*obj
, Visitor
*v
, void *opaque
,
946 const char *name
, Error
**errp
)
948 StringProperty
*prop
= opaque
;
950 Error
*local_err
= NULL
;
952 visit_type_str(v
, &value
, name
, &local_err
);
954 error_propagate(errp
, local_err
);
958 prop
->set(obj
, value
, errp
);
962 static void object_property_release_str(Object
*obj
, const char *name
,
965 StringProperty
*prop
= opaque
;
969 void object_property_add_str(Object
*obj
, const char *name
,
970 char *(*get
)(Object
*, Error
**),
971 void (*set
)(Object
*, const char *, Error
**),
974 StringProperty
*prop
= g_malloc0(sizeof(*prop
));
979 object_property_add(obj
, name
, "string",
980 get
? object_property_get_str
: NULL
,
981 set
? object_property_set_str
: NULL
,
982 object_property_release_str
,