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"
16 #include "qapi/string-input-visitor.h"
17 #include "qapi/string-output-visitor.h"
19 /* TODO: replace QObject with a simpler visitor to avoid a dependency
20 * of the QOM core on QObject? */
21 #include "qemu/qom-qobject.h"
27 #define MAX_INTERFACES 32
29 typedef struct InterfaceImpl InterfaceImpl
;
30 typedef struct TypeImpl TypeImpl
;
35 void (*interface_initfn
)(ObjectClass
*class, void *data
);
47 void (*class_init
)(ObjectClass
*klass
, void *data
);
48 void (*class_finalize
)(ObjectClass
*klass
, void *data
);
52 void (*instance_init
)(Object
*obj
);
53 void (*instance_finalize
)(Object
*obj
);
58 TypeImpl
*parent_type
;
63 InterfaceImpl interfaces
[MAX_INTERFACES
];
66 typedef struct Interface
72 #define INTERFACE(obj) OBJECT_CHECK(Interface, obj, TYPE_INTERFACE)
74 static Type type_interface
;
76 static GHashTable
*type_table_get(void)
78 static GHashTable
*type_table
;
80 if (type_table
== NULL
) {
81 type_table
= g_hash_table_new(g_str_hash
, g_str_equal
);
87 static void type_table_add(TypeImpl
*ti
)
89 g_hash_table_insert(type_table_get(), (void *)ti
->name
, ti
);
92 static TypeImpl
*type_table_lookup(const char *name
)
94 return g_hash_table_lookup(type_table_get(), name
);
97 TypeImpl
*type_register(const TypeInfo
*info
)
99 TypeImpl
*ti
= g_malloc0(sizeof(*ti
));
101 g_assert(info
->name
!= NULL
);
103 if (type_table_lookup(info
->name
) != NULL
) {
104 fprintf(stderr
, "Registering `%s' which already exists\n", info
->name
);
108 ti
->name
= g_strdup(info
->name
);
109 ti
->parent
= g_strdup(info
->parent
);
111 ti
->class_size
= info
->class_size
;
112 ti
->instance_size
= info
->instance_size
;
114 ti
->class_init
= info
->class_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_finalize
= info
->instance_finalize
;
121 ti
->abstract
= info
->abstract
;
123 if (info
->interfaces
) {
126 for (i
= 0; info
->interfaces
[i
].type
; i
++) {
127 ti
->interfaces
[i
].parent
= info
->interfaces
[i
].type
;
128 ti
->interfaces
[i
].interface_initfn
= info
->interfaces
[i
].interface_initfn
;
129 ti
->num_interfaces
++;
138 TypeImpl
*type_register_static(const TypeInfo
*info
)
140 return type_register(info
);
143 static TypeImpl
*type_get_by_name(const char *name
)
149 return type_table_lookup(name
);
152 static TypeImpl
*type_get_parent(TypeImpl
*type
)
154 if (!type
->parent_type
&& type
->parent
) {
155 type
->parent_type
= type_get_by_name(type
->parent
);
156 g_assert(type
->parent_type
!= NULL
);
159 return type
->parent_type
;
162 static bool type_has_parent(TypeImpl
*type
)
164 return (type
->parent
!= NULL
);
167 static size_t type_class_get_size(TypeImpl
*ti
)
169 if (ti
->class_size
) {
170 return ti
->class_size
;
173 if (type_has_parent(ti
)) {
174 return type_class_get_size(type_get_parent(ti
));
177 return sizeof(ObjectClass
);
180 static void type_class_interface_init(TypeImpl
*ti
, InterfaceImpl
*iface
)
183 .instance_size
= sizeof(Interface
),
184 .parent
= iface
->parent
,
185 .class_size
= sizeof(InterfaceClass
),
186 .class_init
= iface
->interface_initfn
,
189 char *name
= g_strdup_printf("<%s::%s>", ti
->name
, iface
->parent
);
192 iface
->type
= type_register(&info
);
196 static void type_class_init(TypeImpl
*ti
)
198 size_t class_size
= sizeof(ObjectClass
);
205 ti
->class_size
= type_class_get_size(ti
);
207 ti
->class = g_malloc0(ti
->class_size
);
208 ti
->class->type
= ti
;
210 if (type_has_parent(ti
)) {
211 TypeImpl
*parent
= type_get_parent(ti
);
213 type_class_init(parent
);
215 class_size
= parent
->class_size
;
216 g_assert(parent
->class_size
<= ti
->class_size
);
218 memcpy((void *)ti
->class + sizeof(ObjectClass
),
219 (void *)parent
->class + sizeof(ObjectClass
),
220 parent
->class_size
- sizeof(ObjectClass
));
223 memset((void *)ti
->class + class_size
, 0, ti
->class_size
- class_size
);
225 for (i
= 0; i
< ti
->num_interfaces
; i
++) {
226 type_class_interface_init(ti
, &ti
->interfaces
[i
]);
229 if (ti
->class_init
) {
230 ti
->class_init(ti
->class, ti
->class_data
);
234 static void object_interface_init(Object
*obj
, InterfaceImpl
*iface
)
236 TypeImpl
*ti
= iface
->type
;
237 Interface
*iface_obj
;
239 iface_obj
= INTERFACE(object_new(ti
->name
));
240 iface_obj
->obj
= obj
;
242 obj
->interfaces
= g_slist_prepend(obj
->interfaces
, iface_obj
);
245 static void object_init_with_type(Object
*obj
, TypeImpl
*ti
)
249 if (type_has_parent(ti
)) {
250 object_init_with_type(obj
, type_get_parent(ti
));
253 for (i
= 0; i
< ti
->num_interfaces
; i
++) {
254 object_interface_init(obj
, &ti
->interfaces
[i
]);
257 if (ti
->instance_init
) {
258 ti
->instance_init(obj
);
262 void object_initialize_with_type(void *data
, TypeImpl
*type
)
266 g_assert(type
!= NULL
);
267 g_assert(type
->instance_size
>= sizeof(Object
));
269 type_class_init(type
);
270 g_assert(type
->abstract
== false);
272 memset(obj
, 0, type
->instance_size
);
273 obj
->class = type
->class;
274 QTAILQ_INIT(&obj
->properties
);
275 object_init_with_type(obj
, type
);
278 void object_initialize(void *data
, const char *typename
)
280 TypeImpl
*type
= type_get_by_name(typename
);
282 object_initialize_with_type(data
, type
);
285 static void object_property_del_all(Object
*obj
)
287 while (!QTAILQ_EMPTY(&obj
->properties
)) {
288 ObjectProperty
*prop
= QTAILQ_FIRST(&obj
->properties
);
290 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
293 prop
->release(obj
, prop
->name
, prop
->opaque
);
302 static void object_property_del_child(Object
*obj
, Object
*child
, Error
**errp
)
304 ObjectProperty
*prop
;
306 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
307 if (!strstart(prop
->type
, "child<", NULL
)) {
311 if (prop
->opaque
== child
) {
312 object_property_del(obj
, prop
->name
, errp
);
317 void object_unparent(Object
*obj
)
320 object_property_del_child(obj
->parent
, obj
, NULL
);
324 static void object_deinit(Object
*obj
, TypeImpl
*type
)
326 if (type
->instance_finalize
) {
327 type
->instance_finalize(obj
);
330 while (obj
->interfaces
) {
331 Interface
*iface_obj
= obj
->interfaces
->data
;
332 obj
->interfaces
= g_slist_delete_link(obj
->interfaces
, obj
->interfaces
);
333 object_delete(OBJECT(iface_obj
));
336 if (type_has_parent(type
)) {
337 object_deinit(obj
, type_get_parent(type
));
340 object_unparent(obj
);
343 void object_finalize(void *data
)
346 TypeImpl
*ti
= obj
->class->type
;
348 object_deinit(obj
, ti
);
349 object_property_del_all(obj
);
351 g_assert(obj
->ref
== 0);
354 Object
*object_new_with_type(Type type
)
358 g_assert(type
!= NULL
);
360 obj
= g_malloc(type
->instance_size
);
361 object_initialize_with_type(obj
, type
);
367 Object
*object_new(const char *typename
)
369 TypeImpl
*ti
= type_get_by_name(typename
);
371 return object_new_with_type(ti
);
374 void object_delete(Object
*obj
)
377 g_assert(obj
->ref
== 0);
381 static bool type_is_ancestor(TypeImpl
*type
, TypeImpl
*target_type
)
385 /* Check if typename is a direct ancestor of type */
387 if (type
== target_type
) {
391 type
= type_get_parent(type
);
397 static bool object_is_type(Object
*obj
, TypeImpl
*target_type
)
399 return !target_type
|| type_is_ancestor(obj
->class->type
, target_type
);
402 Object
*object_dynamic_cast(Object
*obj
, const char *typename
)
404 TypeImpl
*target_type
= type_get_by_name(typename
);
407 /* Check if typename is a direct ancestor. Special-case TYPE_OBJECT,
408 * we want to go back from interfaces to the parent.
410 if (target_type
&& object_is_type(obj
, target_type
)) {
414 /* Check if obj is an interface and its containing object is a direct
415 * ancestor of typename. In principle we could do this test at the very
416 * beginning of object_dynamic_cast, avoiding a second call to
417 * object_is_type. However, casting between interfaces is relatively
418 * rare, and object_is_type(obj, type_interface) would fail almost always.
420 * Perhaps we could add a magic value to the object header for increased
421 * (run-time) type safety and to speed up tests like this one. If we ever
422 * do that we can revisit the order here.
424 if (object_is_type(obj
, type_interface
)) {
425 assert(!obj
->interfaces
);
426 obj
= INTERFACE(obj
)->obj
;
427 if (object_is_type(obj
, target_type
)) {
436 /* Check if obj has an interface of typename */
437 for (i
= obj
->interfaces
; i
; i
= i
->next
) {
438 Interface
*iface
= i
->data
;
440 if (object_is_type(OBJECT(iface
), target_type
)) {
441 return OBJECT(iface
);
449 static void register_types(void)
451 static TypeInfo interface_info
= {
452 .name
= TYPE_INTERFACE
,
453 .instance_size
= sizeof(Interface
),
457 type_interface
= type_register_static(&interface_info
);
460 type_init(register_types
)
462 Object
*object_dynamic_cast_assert(Object
*obj
, const char *typename
)
466 inst
= object_dynamic_cast(obj
, typename
);
469 fprintf(stderr
, "Object %p is not an instance of type %s\n",
477 ObjectClass
*object_class_dynamic_cast(ObjectClass
*class,
478 const char *typename
)
480 TypeImpl
*target_type
= type_get_by_name(typename
);
481 TypeImpl
*type
= class->type
;
484 if (type
== target_type
) {
488 type
= type_get_parent(type
);
494 ObjectClass
*object_class_dynamic_cast_assert(ObjectClass
*class,
495 const char *typename
)
497 ObjectClass
*ret
= object_class_dynamic_cast(class, typename
);
500 fprintf(stderr
, "Object %p is not an instance of type %s\n",
508 const char *object_get_typename(Object
*obj
)
510 return obj
->class->type
->name
;
513 ObjectClass
*object_get_class(Object
*obj
)
518 const char *object_class_get_name(ObjectClass
*klass
)
520 return klass
->type
->name
;
523 ObjectClass
*object_class_by_name(const char *typename
)
525 TypeImpl
*type
= type_get_by_name(typename
);
531 type_class_init(type
);
536 typedef struct OCFData
538 void (*fn
)(ObjectClass
*klass
, void *opaque
);
539 const char *implements_type
;
540 bool include_abstract
;
544 static void object_class_foreach_tramp(gpointer key
, gpointer value
,
547 OCFData
*data
= opaque
;
548 TypeImpl
*type
= value
;
551 type_class_init(type
);
554 if (!data
->include_abstract
&& type
->abstract
) {
558 if (data
->implements_type
&&
559 !object_class_dynamic_cast(k
, data
->implements_type
)) {
563 data
->fn(k
, data
->opaque
);
566 void object_class_foreach(void (*fn
)(ObjectClass
*klass
, void *opaque
),
567 const char *implements_type
, bool include_abstract
,
570 OCFData data
= { fn
, implements_type
, include_abstract
, opaque
};
572 g_hash_table_foreach(type_table_get(), object_class_foreach_tramp
, &data
);
575 void object_ref(Object
*obj
)
580 void object_unref(Object
*obj
)
582 g_assert(obj
->ref
> 0);
585 /* parent always holds a reference to its children */
587 object_finalize(obj
);
591 void object_property_add(Object
*obj
, const char *name
, const char *type
,
592 ObjectPropertyAccessor
*get
,
593 ObjectPropertyAccessor
*set
,
594 ObjectPropertyRelease
*release
,
595 void *opaque
, Error
**errp
)
597 ObjectProperty
*prop
= g_malloc0(sizeof(*prop
));
599 prop
->name
= g_strdup(name
);
600 prop
->type
= g_strdup(type
);
604 prop
->release
= release
;
605 prop
->opaque
= opaque
;
607 QTAILQ_INSERT_TAIL(&obj
->properties
, prop
, node
);
610 static ObjectProperty
*object_property_find(Object
*obj
, const char *name
)
612 ObjectProperty
*prop
;
614 QTAILQ_FOREACH(prop
, &obj
->properties
, node
) {
615 if (strcmp(prop
->name
, name
) == 0) {
623 void object_property_del(Object
*obj
, const char *name
, Error
**errp
)
625 ObjectProperty
*prop
= object_property_find(obj
, name
);
627 QTAILQ_REMOVE(&obj
->properties
, prop
, node
);
629 prop
->release(obj
, prop
->name
, prop
->opaque
);
636 void object_property_get(Object
*obj
, Visitor
*v
, const char *name
,
639 ObjectProperty
*prop
= object_property_find(obj
, name
);
642 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
647 error_set(errp
, QERR_PERMISSION_DENIED
);
649 prop
->get(obj
, v
, prop
->opaque
, name
, errp
);
653 void object_property_set(Object
*obj
, Visitor
*v
, const char *name
,
656 ObjectProperty
*prop
= object_property_find(obj
, name
);
659 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
664 error_set(errp
, QERR_PERMISSION_DENIED
);
666 prop
->set(obj
, v
, prop
->opaque
, name
, errp
);
670 void object_property_set_str(Object
*obj
, const char *value
,
671 const char *name
, Error
**errp
)
673 QString
*qstr
= qstring_from_str(value
);
674 object_property_set_qobject(obj
, QOBJECT(qstr
), name
, errp
);
679 char *object_property_get_str(Object
*obj
, const char *name
,
682 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
689 qstring
= qobject_to_qstring(ret
);
691 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "string");
694 retval
= g_strdup(qstring_get_str(qstring
));
701 void object_property_set_link(Object
*obj
, Object
*value
,
702 const char *name
, Error
**errp
)
704 object_property_set_str(obj
, object_get_canonical_path(value
),
708 Object
*object_property_get_link(Object
*obj
, const char *name
,
711 char *str
= object_property_get_str(obj
, name
, errp
);
712 Object
*target
= NULL
;
715 target
= object_resolve_path(str
, NULL
);
717 error_set(errp
, QERR_DEVICE_NOT_FOUND
, str
);
725 void object_property_set_bool(Object
*obj
, bool value
,
726 const char *name
, Error
**errp
)
728 QBool
*qbool
= qbool_from_int(value
);
729 object_property_set_qobject(obj
, QOBJECT(qbool
), name
, errp
);
734 bool object_property_get_bool(Object
*obj
, const char *name
,
737 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
744 qbool
= qobject_to_qbool(ret
);
746 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "boolean");
749 retval
= qbool_get_int(qbool
);
756 void object_property_set_int(Object
*obj
, int64_t value
,
757 const char *name
, Error
**errp
)
759 QInt
*qint
= qint_from_int(value
);
760 object_property_set_qobject(obj
, QOBJECT(qint
), name
, errp
);
765 int64_t object_property_get_int(Object
*obj
, const char *name
,
768 QObject
*ret
= object_property_get_qobject(obj
, name
, errp
);
775 qint
= qobject_to_qint(ret
);
777 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, "int");
780 retval
= qint_get_int(qint
);
787 void object_property_parse(Object
*obj
, const char *string
,
788 const char *name
, Error
**errp
)
790 StringInputVisitor
*mi
;
791 mi
= string_input_visitor_new(string
);
792 object_property_set(obj
, string_input_get_visitor(mi
), name
, errp
);
794 string_input_visitor_cleanup(mi
);
797 char *object_property_print(Object
*obj
, const char *name
,
800 StringOutputVisitor
*mo
;
803 mo
= string_output_visitor_new();
804 object_property_get(obj
, string_output_get_visitor(mo
), name
, NULL
);
805 string
= string_output_get_string(mo
);
806 string_output_visitor_cleanup(mo
);
810 const char *object_property_get_type(Object
*obj
, const char *name
, Error
**errp
)
812 ObjectProperty
*prop
= object_property_find(obj
, name
);
815 error_set(errp
, QERR_PROPERTY_NOT_FOUND
, "", name
);
822 Object
*object_get_root(void)
827 root
= object_new("container");
833 static void object_get_child_property(Object
*obj
, Visitor
*v
, void *opaque
,
834 const char *name
, Error
**errp
)
836 Object
*child
= opaque
;
839 path
= object_get_canonical_path(child
);
840 visit_type_str(v
, &path
, name
, errp
);
844 static void object_finalize_child_property(Object
*obj
, const char *name
,
847 Object
*child
= opaque
;
852 void object_property_add_child(Object
*obj
, const char *name
,
853 Object
*child
, Error
**errp
)
857 /* Registering an interface object in the composition tree will mightily
858 * confuse object_get_canonical_path (which, on the other hand, knows how
859 * to get the canonical path of an interface object).
861 assert(!object_is_type(obj
, type_interface
));
863 type
= g_strdup_printf("child<%s>", object_get_typename(OBJECT(child
)));
865 object_property_add(obj
, name
, type
, object_get_child_property
,
866 NULL
, object_finalize_child_property
, child
, errp
);
869 g_assert(child
->parent
== NULL
);
875 static void object_get_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
876 const char *name
, Error
**errp
)
878 Object
**child
= opaque
;
882 path
= object_get_canonical_path(*child
);
883 visit_type_str(v
, &path
, name
, errp
);
887 visit_type_str(v
, &path
, name
, errp
);
891 static void object_set_link_property(Object
*obj
, Visitor
*v
, void *opaque
,
892 const char *name
, Error
**errp
)
894 Object
**child
= opaque
;
896 bool ambiguous
= false;
901 type
= object_property_get_type(obj
, name
, NULL
);
903 visit_type_str(v
, &path
, name
, errp
);
908 if (strcmp(path
, "") != 0) {
911 /* Go from link<FOO> to FOO. */
912 target_type
= g_strndup(&type
[5], strlen(type
) - 6);
913 target
= object_resolve_path_type(path
, target_type
, &ambiguous
);
916 error_set(errp
, QERR_AMBIGUOUS_PATH
, path
);
921 target
= object_resolve_path(path
, &ambiguous
);
922 if (target
|| ambiguous
) {
923 error_set(errp
, QERR_INVALID_PARAMETER_TYPE
, name
, target_type
);
925 error_set(errp
, QERR_DEVICE_NOT_FOUND
, path
);
933 if (old_target
!= NULL
) {
934 object_unref(old_target
);
938 void object_property_add_link(Object
*obj
, const char *name
,
939 const char *type
, Object
**child
,
944 full_type
= g_strdup_printf("link<%s>", type
);
946 object_property_add(obj
, name
, full_type
,
947 object_get_link_property
,
948 object_set_link_property
,
954 gchar
*object_get_canonical_path(Object
*obj
)
956 Object
*root
= object_get_root();
957 char *newpath
= NULL
, *path
= NULL
;
959 if (object_is_type(obj
, type_interface
)) {
960 obj
= INTERFACE(obj
)->obj
;
963 while (obj
!= root
) {
964 ObjectProperty
*prop
= NULL
;
966 g_assert(obj
->parent
!= NULL
);
968 QTAILQ_FOREACH(prop
, &obj
->parent
->properties
, node
) {
969 if (!strstart(prop
->type
, "child<", NULL
)) {
973 if (prop
->opaque
== obj
) {
975 newpath
= g_strdup_printf("%s/%s", prop
->name
, path
);
979 path
= g_strdup(prop
->name
);
985 g_assert(prop
!= NULL
);
990 newpath
= g_strdup_printf("/%s", path
);
996 static Object
*object_resolve_abs_path(Object
*parent
,
998 const char *typename
,
1001 ObjectProperty
*prop
;
1004 if (parts
[index
] == NULL
) {
1005 return object_dynamic_cast(parent
, typename
);
1008 if (strcmp(parts
[index
], "") == 0) {
1009 return object_resolve_abs_path(parent
, parts
, typename
, index
+ 1);
1012 prop
= object_property_find(parent
, parts
[index
]);
1018 if (strstart(prop
->type
, "link<", NULL
)) {
1019 Object
**pchild
= prop
->opaque
;
1023 } else if (strstart(prop
->type
, "child<", NULL
)) {
1024 child
= prop
->opaque
;
1031 return object_resolve_abs_path(child
, parts
, typename
, index
+ 1);
1034 static Object
*object_resolve_partial_path(Object
*parent
,
1036 const char *typename
,
1040 ObjectProperty
*prop
;
1042 obj
= object_resolve_abs_path(parent
, parts
, typename
, 0);
1044 QTAILQ_FOREACH(prop
, &parent
->properties
, node
) {
1047 if (!strstart(prop
->type
, "child<", NULL
)) {
1051 found
= object_resolve_partial_path(prop
->opaque
, parts
,
1052 typename
, ambiguous
);
1063 if (ambiguous
&& *ambiguous
) {
1071 Object
*object_resolve_path_type(const char *path
, const char *typename
,
1074 bool partial_path
= true;
1078 parts
= g_strsplit(path
, "/", 0);
1079 if (parts
== NULL
|| parts
[0] == NULL
) {
1081 return object_get_root();
1084 if (strcmp(parts
[0], "") == 0) {
1085 partial_path
= false;
1092 obj
= object_resolve_partial_path(object_get_root(), parts
,
1093 typename
, ambiguous
);
1095 obj
= object_resolve_abs_path(object_get_root(), parts
, typename
, 1);
1103 Object
*object_resolve_path(const char *path
, bool *ambiguous
)
1105 return object_resolve_path_type(path
, TYPE_OBJECT
, ambiguous
);
1108 typedef struct StringProperty
1110 char *(*get
)(Object
*, Error
**);
1111 void (*set
)(Object
*, const char *, Error
**);
1114 static void property_get_str(Object
*obj
, Visitor
*v
, void *opaque
,
1115 const char *name
, Error
**errp
)
1117 StringProperty
*prop
= opaque
;
1120 value
= prop
->get(obj
, errp
);
1122 visit_type_str(v
, &value
, name
, errp
);
1127 static void property_set_str(Object
*obj
, Visitor
*v
, void *opaque
,
1128 const char *name
, Error
**errp
)
1130 StringProperty
*prop
= opaque
;
1132 Error
*local_err
= NULL
;
1134 visit_type_str(v
, &value
, name
, &local_err
);
1136 error_propagate(errp
, local_err
);
1140 prop
->set(obj
, value
, errp
);
1144 static void property_release_str(Object
*obj
, const char *name
,
1147 StringProperty
*prop
= opaque
;
1151 void object_property_add_str(Object
*obj
, const char *name
,
1152 char *(*get
)(Object
*, Error
**),
1153 void (*set
)(Object
*, const char *, Error
**),
1156 StringProperty
*prop
= g_malloc0(sizeof(*prop
));
1161 object_property_add(obj
, name
, "string",
1162 get
? property_get_str
: NULL
,
1163 set
? property_set_str
: NULL
,
1164 property_release_str
,