X-Git-Url: http://git.efficios.com/?p=babeltrace.git;a=blobdiff_plain;f=lib%2Fctf-ir%2Ffield-types.c;h=11764121f76f6274996148d20ad4284f59be005a;hp=3e41cd69e3185d31ba523b0c0ac9f140aaa937dc;hb=312c056ae3d374b253fa0cfe5ed576c0b0e5e569;hpb=225f3384db6d41dc4dbe27e8183ebeca16c63db3 diff --git a/lib/ctf-ir/field-types.c b/lib/ctf-ir/field-types.c index 3e41cd69..11764121 100644 --- a/lib/ctf-ir/field-types.c +++ b/lib/ctf-ir/field-types.c @@ -29,272 +29,126 @@ #define BT_LOG_TAG "FIELD-TYPES" #include +#include #include #include +#include +#include #include +#include #include #include #include -#include #include #include #include #include +#include #include #include #include -struct range_overlap_query { - union { - uint64_t _unsigned; - int64_t _signed; - } range_start; - - union { - uint64_t _unsigned; - int64_t _signed; - } range_end; - int overlaps; - GQuark mapping_name; -}; - -static -void bt_ctf_field_type_destroy(struct bt_object *); -static -void bt_ctf_field_type_integer_destroy(struct bt_ctf_field_type *); static -void bt_ctf_field_type_enumeration_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_floating_point_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_structure_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_variant_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_array_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_sequence_destroy(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_string_destroy(struct bt_ctf_field_type *); +struct bt_field_type *bt_field_type_integer_copy( + struct bt_field_type *ft); static -void (* const type_destroy_funcs[])(struct bt_ctf_field_type *) = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_destroy, - [BT_CTF_FIELD_TYPE_ID_ENUM] = - bt_ctf_field_type_enumeration_destroy, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = - bt_ctf_field_type_floating_point_destroy, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = bt_ctf_field_type_structure_destroy, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_destroy, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_destroy, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_destroy, - [BT_CTF_FIELD_TYPE_ID_STRING] = bt_ctf_field_type_string_destroy, -}; +struct bt_field_type *bt_field_type_enumeration_copy_recursive( + struct bt_field_type *ft); static -void generic_field_type_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_integer_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_enumeration_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_structure_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_variant_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_array_freeze(struct bt_ctf_field_type *); -static -void bt_ctf_field_type_sequence_freeze(struct bt_ctf_field_type *); +struct bt_field_type *bt_field_type_floating_point_copy( + struct bt_field_type *ft); static -type_freeze_func const type_freeze_funcs[] = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_freeze, - [BT_CTF_FIELD_TYPE_ID_ENUM] = bt_ctf_field_type_enumeration_freeze, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = generic_field_type_freeze, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = bt_ctf_field_type_structure_freeze, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_freeze, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_freeze, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_freeze, - [BT_CTF_FIELD_TYPE_ID_STRING] = generic_field_type_freeze, -}; +struct bt_field_type *bt_field_type_structure_copy_recursive( + struct bt_field_type *ft); static -int bt_ctf_field_type_integer_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_enumeration_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_floating_point_serialize( - struct bt_ctf_field_type *, struct metadata_context *); -static -int bt_ctf_field_type_structure_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_variant_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_array_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_sequence_serialize(struct bt_ctf_field_type *, - struct metadata_context *); -static -int bt_ctf_field_type_string_serialize(struct bt_ctf_field_type *, - struct metadata_context *); +struct bt_field_type *bt_field_type_variant_copy_recursive( + struct bt_field_type *ft); static -type_serialize_func const type_serialize_funcs[] = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_serialize, - [BT_CTF_FIELD_TYPE_ID_ENUM] = - bt_ctf_field_type_enumeration_serialize, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = - bt_ctf_field_type_floating_point_serialize, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = - bt_ctf_field_type_structure_serialize, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_serialize, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_serialize, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_serialize, - [BT_CTF_FIELD_TYPE_ID_STRING] = bt_ctf_field_type_string_serialize, -}; +struct bt_field_type *bt_field_type_array_copy_recursive( + struct bt_field_type *ft); static -void bt_ctf_field_type_integer_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_enumeration_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_floating_point_set_byte_order( - struct bt_ctf_field_type *, enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_structure_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_variant_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_array_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); -static -void bt_ctf_field_type_sequence_set_byte_order(struct bt_ctf_field_type *, - enum bt_ctf_byte_order byte_order); +struct bt_field_type *bt_field_type_sequence_copy_recursive( + struct bt_field_type *type); static -void (* const set_byte_order_funcs[])(struct bt_ctf_field_type *, - enum bt_ctf_byte_order) = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_ENUM] = - bt_ctf_field_type_enumeration_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = - bt_ctf_field_type_floating_point_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = - bt_ctf_field_type_structure_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_set_byte_order, - [BT_CTF_FIELD_TYPE_ID_STRING] = NULL, +struct bt_field_type *bt_field_type_string_copy(struct bt_field_type *ft); + +static struct bt_field_type_common_methods bt_field_type_integer_methods = { + .freeze = bt_field_type_common_generic_freeze, + .validate = bt_field_type_common_integer_validate, + .set_byte_order = bt_field_type_common_integer_set_byte_order, + .copy = (bt_field_type_common_method_copy) + bt_field_type_integer_copy, + .compare = bt_field_type_common_integer_compare, }; -static -struct bt_ctf_field_type *bt_ctf_field_type_integer_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_structure_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_variant_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_array_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_sequence_copy( - struct bt_ctf_field_type *); -static -struct bt_ctf_field_type *bt_ctf_field_type_string_copy( - struct bt_ctf_field_type *); +static struct bt_field_type_common_methods bt_field_type_floating_point_methods = { + .freeze = bt_field_type_common_generic_freeze, + .validate = NULL, + .set_byte_order = bt_field_type_common_floating_point_set_byte_order, + .copy = (bt_field_type_common_method_copy) + bt_field_type_floating_point_copy, + .compare = bt_field_type_common_floating_point_compare, +}; -static -struct bt_ctf_field_type *(* const type_copy_funcs[])( - struct bt_ctf_field_type *) = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_copy, - [BT_CTF_FIELD_TYPE_ID_ENUM] = bt_ctf_field_type_enumeration_copy, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = bt_ctf_field_type_floating_point_copy, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = bt_ctf_field_type_structure_copy, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_copy, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_copy, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_copy, - [BT_CTF_FIELD_TYPE_ID_STRING] = bt_ctf_field_type_string_copy, +static struct bt_field_type_common_methods bt_field_type_enumeration_methods = { + .freeze = bt_field_type_common_enumeration_freeze_recursive, + .validate = bt_field_type_common_enumeration_validate_recursive, + .set_byte_order = bt_field_type_common_enumeration_set_byte_order_recursive, + .copy = (bt_field_type_common_method_copy) + bt_field_type_enumeration_copy_recursive, + .compare = bt_field_type_common_enumeration_compare_recursive, }; -static -int bt_ctf_field_type_integer_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_floating_point_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_enumeration_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_string_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_structure_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_variant_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_array_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); -static -int bt_ctf_field_type_sequence_compare(struct bt_ctf_field_type *, - struct bt_ctf_field_type *); +static struct bt_field_type_common_methods bt_field_type_string_methods = { + .freeze = bt_field_type_common_generic_freeze, + .validate = NULL, + .set_byte_order = NULL, + .copy = (bt_field_type_common_method_copy) + bt_field_type_string_copy, + .compare = bt_field_type_common_string_compare, +}; -static -int (* const type_compare_funcs[])(struct bt_ctf_field_type *, - struct bt_ctf_field_type *) = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_compare, - [BT_CTF_FIELD_TYPE_ID_ENUM] = bt_ctf_field_type_enumeration_compare, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = bt_ctf_field_type_floating_point_compare, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = bt_ctf_field_type_structure_compare, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_compare, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_compare, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_compare, - [BT_CTF_FIELD_TYPE_ID_STRING] = bt_ctf_field_type_string_compare, +static struct bt_field_type_common_methods bt_field_type_array_methods = { + .freeze = bt_field_type_common_array_freeze_recursive, + .validate = bt_field_type_common_array_validate_recursive, + .set_byte_order = bt_field_type_common_array_set_byte_order_recursive, + .copy = (bt_field_type_common_method_copy) + bt_field_type_array_copy_recursive, + .compare = bt_field_type_common_array_compare_recursive, }; -static -int bt_ctf_field_type_integer_validate(struct bt_ctf_field_type *); -static -int bt_ctf_field_type_enumeration_validate(struct bt_ctf_field_type *); -static -int bt_ctf_field_type_structure_validate(struct bt_ctf_field_type *); -static -int bt_ctf_field_type_variant_validate(struct bt_ctf_field_type *); -static -int bt_ctf_field_type_array_validate(struct bt_ctf_field_type *); -static -int bt_ctf_field_type_sequence_validate(struct bt_ctf_field_type *); +static struct bt_field_type_common_methods bt_field_type_sequence_methods = { + .freeze = bt_field_type_common_sequence_freeze_recursive, + .validate = bt_field_type_common_sequence_validate_recursive, + .set_byte_order = bt_field_type_common_sequence_set_byte_order_recursive, + .copy = (bt_field_type_common_method_copy) + bt_field_type_sequence_copy_recursive, + .compare = bt_field_type_common_sequence_compare_recursive, +}; -static -int (* const type_validate_funcs[])(struct bt_ctf_field_type *) = { - [BT_CTF_FIELD_TYPE_ID_INTEGER] = bt_ctf_field_type_integer_validate, - [BT_CTF_FIELD_TYPE_ID_FLOAT] = NULL, - [BT_CTF_FIELD_TYPE_ID_STRING] = NULL, - [BT_CTF_FIELD_TYPE_ID_ENUM] = bt_ctf_field_type_enumeration_validate, - [BT_CTF_FIELD_TYPE_ID_STRUCT] = bt_ctf_field_type_structure_validate, - [BT_CTF_FIELD_TYPE_ID_VARIANT] = bt_ctf_field_type_variant_validate, - [BT_CTF_FIELD_TYPE_ID_ARRAY] = bt_ctf_field_type_array_validate, - [BT_CTF_FIELD_TYPE_ID_SEQUENCE] = bt_ctf_field_type_sequence_validate, +static struct bt_field_type_common_methods bt_field_type_structure_methods = { + .freeze = bt_field_type_common_structure_freeze_recursive, + .validate = bt_field_type_common_structure_validate_recursive, + .set_byte_order = bt_field_type_common_structure_set_byte_order_recursive, + .copy = (bt_field_type_common_method_copy) + bt_field_type_structure_copy_recursive, + .compare = bt_field_type_common_structure_compare_recursive, +}; + +static struct bt_field_type_common_methods bt_field_type_variant_methods = { + .freeze = bt_field_type_common_variant_freeze_recursive, + .validate = bt_field_type_common_variant_validate_recursive, + .set_byte_order = bt_field_type_common_variant_set_byte_order_recursive, + .copy = (bt_field_type_common_method_copy) + bt_field_type_variant_copy_recursive, + .compare = bt_field_type_common_variant_compare_recursive, }; static @@ -303,13 +157,403 @@ void destroy_enumeration_mapping(struct enumeration_mapping *mapping) g_free(mapping); } +BT_HIDDEN +void bt_field_type_common_initialize(struct bt_field_type_common *ft, + bool init_bo, bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + BT_ASSERT(ft && (ft->id > BT_FIELD_TYPE_ID_UNKNOWN) && + (ft->id < BT_FIELD_TYPE_ID_NR)); + + bt_object_init(ft, release_func); + ft->methods = methods; + + if (init_bo) { + int ret; + const enum bt_byte_order bo = BT_BYTE_ORDER_NATIVE; + + BT_LOGD("Setting initial field type's byte order: bo=%s", + bt_common_byte_order_string(bo)); + ret = bt_field_type_common_set_byte_order(ft, bo); + BT_ASSERT(ret == 0); + } + + ft->alignment = 1; +} + +BT_HIDDEN +void bt_field_type_common_integer_initialize( + struct bt_field_type_common *ft, + unsigned int size, bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); + + BT_ASSERT(size > 0); + BT_LOGD("Initializing common integer field type object: size=%u", + size); + ft->id = BT_FIELD_TYPE_ID_INTEGER; + int_ft->size = size; + int_ft->base = BT_INTEGER_BASE_DECIMAL; + int_ft->encoding = BT_STRING_ENCODING_NONE; + bt_field_type_common_initialize(ft, true, release_func, methods); + BT_LOGD("Initialized common integer field type object: addr=%p, size=%u", + ft, size); +} + +BT_HIDDEN +void bt_field_type_common_floating_point_initialize( + struct bt_field_type_common *ft, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); + + BT_LOGD_STR("Initializing common floating point number field type object."); + ft->id = BT_FIELD_TYPE_ID_FLOAT; + flt_ft->exp_dig = sizeof(float) * CHAR_BIT - FLT_MANT_DIG; + flt_ft->mant_dig = FLT_MANT_DIG; + bt_field_type_common_initialize(ft, true, release_func, methods); + BT_LOGD("Initialized common floating point number field type object: addr=%p, " + "exp-size=%u, mant-size=%u", ft, flt_ft->exp_dig, + flt_ft->mant_dig); +} + +BT_HIDDEN +void bt_field_type_common_enumeration_initialize( + struct bt_field_type_common *ft, + struct bt_field_type_common *container_ft, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); + + BT_ASSERT(container_ft); + BT_LOGD("Initializing common enumeration field type object: int-ft-addr=%p", + container_ft); + ft->id = BT_FIELD_TYPE_ID_ENUM; + enum_ft->container_ft = bt_get(container_ft); + enum_ft->entries = g_ptr_array_new_with_free_func( + (GDestroyNotify) destroy_enumeration_mapping); + bt_field_type_common_initialize(ft, false, release_func, methods); + BT_LOGD("Initialized common enumeration field type object: addr=%p, " + "int-ft-addr=%p, int-ft-size=%u", ft, container_ft, + bt_field_type_common_integer_get_size(container_ft)); +} + +BT_HIDDEN +void bt_field_type_common_string_initialize( + struct bt_field_type_common *ft, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_string *string_ft = BT_FROM_COMMON(ft); + + BT_LOGD_STR("Initializing common string field type object."); + ft->id = BT_FIELD_TYPE_ID_STRING; + bt_field_type_common_initialize(ft, true, release_func, methods); + string_ft->encoding = BT_STRING_ENCODING_UTF8; + ft->alignment = CHAR_BIT; + BT_LOGD("Initialized common string field type object: addr=%p", ft); +} + +BT_HIDDEN +void bt_field_type_common_structure_initialize( + struct bt_field_type_common *ft, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); + + BT_LOGD_STR("Initializing common structure field type object."); + ft->id = BT_FIELD_TYPE_ID_STRUCT; + struct_ft->fields = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_common_structure_field)); + struct_ft->field_name_to_index = g_hash_table_new(NULL, NULL); + bt_field_type_common_initialize(ft, true, release_func, methods); + BT_LOGD("Initialized common structure field type object: addr=%p", ft); +} + +BT_HIDDEN +void bt_field_type_common_array_initialize( + struct bt_field_type_common *ft, + struct bt_field_type_common *element_ft, + unsigned int length, bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); + + BT_ASSERT(element_ft); + BT_LOGD("Initializing common array field type object: element-ft-addr=%p, " + "length=%u", element_ft, length); + ft->id = BT_FIELD_TYPE_ID_ARRAY; + array_ft->element_ft = bt_get(element_ft); + array_ft->length = length; + bt_field_type_common_initialize(ft, false, release_func, methods); + BT_LOGD("Initialized common array field type object: addr=%p, " + "element-ft-addr=%p, length=%u", ft, element_ft, length); +} + +BT_HIDDEN +void bt_field_type_common_sequence_initialize( + struct bt_field_type_common *ft, + struct bt_field_type_common *element_ft, + const char *length_field_name, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); + + BT_ASSERT(element_ft); + BT_ASSERT(length_field_name); + BT_ASSERT(bt_identifier_is_valid(length_field_name)); + BT_LOGD("Initializing common sequence field type object: element-ft-addr=%p, " + "length-field-name=\"%s\"", element_ft, length_field_name); + ft->id = BT_FIELD_TYPE_ID_SEQUENCE; + seq_ft->element_ft = bt_get(element_ft); + seq_ft->length_field_name = g_string_new(length_field_name); + bt_field_type_common_initialize(ft, false, release_func, methods); + BT_LOGD("Initialized common sequence field type object: addr=%p, " + "element-ft-addr=%p, length-field-name=\"%s\"", + ft, element_ft, length_field_name); +} + +BT_HIDDEN +void bt_field_type_common_variant_initialize( + struct bt_field_type_common *ft, + struct bt_field_type_common *tag_ft, + const char *tag_name, + bt_object_release_func release_func, + struct bt_field_type_common_methods *methods) +{ + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + + BT_ASSERT(!tag_name || bt_identifier_is_valid(tag_name)); + BT_LOGD("Initializing common variant field type object: " + "tag-ft-addr=%p, tag-field-name=\"%s\"", + tag_ft, tag_name); + ft->id = BT_FIELD_TYPE_ID_VARIANT; + var_ft->tag_name = g_string_new(tag_name); + var_ft->choice_name_to_index = g_hash_table_new(NULL, NULL); + var_ft->choices = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_common_variant_choice)); + + if (tag_ft) { + var_ft->tag_ft = bt_get(tag_ft); + } + + bt_field_type_common_initialize(ft, true, release_func, methods); + /* A variant's alignment is undefined */ + ft->alignment = 0; + BT_LOGD("Initialized common variant field type object: addr=%p, " + "tag-ft-addr=%p, tag-field-name=\"%s\"", + ft, tag_ft, tag_name); +} + +BT_HIDDEN +void bt_field_type_common_integer_destroy(struct bt_object *obj) +{ + struct bt_field_type_common_integer *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying integer field type object: addr=%p", ft); + BT_LOGD_STR("Putting mapped clock class."); + bt_put(ft->mapped_clock_class); + g_free(ft); +} + +BT_HIDDEN +void bt_field_type_common_floating_point_destroy(struct bt_object *obj) +{ + struct bt_field_type_common_floating_point *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying floating point number field type object: addr=%p", ft); + g_free(ft); +} + +BT_HIDDEN +void bt_field_type_common_enumeration_destroy_recursive(struct bt_object *obj) +{ + struct bt_field_type_common_enumeration *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying enumeration field type object: addr=%p", ft); + g_ptr_array_free(ft->entries, TRUE); + BT_LOGD_STR("Putting container field type."); + bt_put(ft->container_ft); + g_free(ft); +} + +BT_HIDDEN +void bt_field_type_common_string_destroy(struct bt_object *obj) +{ + struct bt_field_type_common_string *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying string field type object: addr=%p", ft); + g_free(ft); +} + static -void destroy_structure_field(struct structure_field *field) +void bt_field_type_common_structure_field_finalize( + struct bt_field_type_common_structure_field *field) { + if (!field) { + return; + } + + BT_LOGD("Finalizing structure field type's field: " + "addr=%p, field-ft-addr=%p, field-name=\"%s\"", + field, field->type, g_quark_to_string(field->name)); + BT_LOGD_STR("Putting field type."); bt_put(field->type); - g_free(field); } +BT_HIDDEN +void bt_field_type_common_structure_destroy_recursive(struct bt_object *obj) +{ + struct bt_field_type_common_structure *ft = (void *) obj; + uint64_t i; + + if (!ft) { + return; + } + + BT_LOGD("Destroying structure field type object: addr=%p", ft); + + if (ft->fields) { + for (i = 0; i < ft->fields->len; i++) { + bt_field_type_common_structure_field_finalize( + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + ft, i)); + } + + g_array_free(ft->fields, TRUE); + } + + if (ft->field_name_to_index) { + g_hash_table_destroy(ft->field_name_to_index); + } + + g_free(ft); +} + +BT_HIDDEN +void bt_field_type_common_array_destroy_recursive(struct bt_object *obj) +{ + struct bt_field_type_common_array *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying array field type object: addr=%p", ft); + BT_LOGD_STR("Putting element field type."); + bt_put(ft->element_ft); + g_free(ft); +} + +BT_HIDDEN +void bt_field_type_common_sequence_destroy_recursive(struct bt_object *obj) +{ + struct bt_field_type_common_sequence *ft = (void *) obj; + + if (!ft) { + return; + } + + BT_LOGD("Destroying sequence field type object: addr=%p", ft); + BT_LOGD_STR("Putting element field type."); + bt_put(ft->element_ft); + g_string_free(ft->length_field_name, TRUE); + BT_LOGD_STR("Putting length field path."); + bt_put(ft->length_field_path); + g_free(ft); +} + +static +void bt_field_type_common_variant_choice_finalize( + struct bt_field_type_common_variant_choice *choice) +{ + if (!choice) { + return; + } + + BT_LOGD("Finalizing variant field type's choice: " + "addr=%p, field-ft-addr=%p, field-name=\"%s\"", + choice, choice->type, g_quark_to_string(choice->name)); + BT_LOGD_STR("Putting field type."); + bt_put(choice->type); + + if (choice->ranges) { + g_array_free(choice->ranges, TRUE); + } +} + +BT_HIDDEN +void bt_field_type_common_variant_destroy_recursive(struct bt_object *obj) +{ + struct bt_field_type_common_variant *ft = (void *) obj; + uint64_t i; + + if (!ft) { + return; + } + + BT_LOGD("Destroying variant field type object: addr=%p", ft); + + if (ft->choices) { + for (i = 0; i < ft->choices->len; i++) { + bt_field_type_common_variant_choice_finalize( + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + ft, i)); + } + + g_array_free(ft->choices, TRUE); + } + + if (ft->choice_name_to_index) { + g_hash_table_destroy(ft->choice_name_to_index); + } + + if (ft->tag_name) { + g_string_free(ft->tag_name, TRUE); + } + + BT_LOGD_STR("Putting tag field type."); + bt_put(ft->tag_ft); + BT_LOGD_STR("Putting tag field path."); + bt_put(ft->tag_field_path); + g_free(ft); +} + +struct range_overlap_query { + union { + uint64_t _unsigned; + int64_t _signed; + } range_start; + + union { + uint64_t _unsigned; + int64_t _signed; + } range_end; + int overlaps; + GQuark mapping_name; +}; + static void check_ranges_overlap(gpointer element, gpointer query) { @@ -387,33 +631,15 @@ gint compare_enumeration_mappings_unsigned(struct enumeration_mapping **a, } static -void bt_ctf_field_type_init(struct bt_ctf_field_type *type, bt_bool init_bo) -{ - assert(type && (type->id > BT_CTF_FIELD_TYPE_ID_UNKNOWN) && - (type->id < BT_CTF_NR_TYPE_IDS)); - - bt_object_init(type, bt_ctf_field_type_destroy); - type->freeze = type_freeze_funcs[type->id]; - type->serialize = type_serialize_funcs[type->id]; - - if (init_bo) { - int ret = bt_ctf_field_type_set_byte_order(type, - BT_CTF_BYTE_ORDER_NATIVE); - assert(ret == 0); - } - - type->alignment = 1; -} - -static -int add_structure_field(GPtrArray *fields, +int add_structure_variant_member(GArray *members, GHashTable *field_name_to_index, - struct bt_ctf_field_type *field_type, - const char *field_name) + struct bt_field_type_common *field_type, const char *field_name, + bool is_variant) { int ret = 0; GQuark name_quark = g_quark_from_string(field_name); - struct structure_field *field; + struct bt_field_type_common **member_ft; + GQuark *member_name; /* Make sure structure does not contain a field of the same name */ if (g_hash_table_lookup_extended(field_name_to_index, @@ -424,58 +650,53 @@ int add_structure_field(GPtrArray *fields, goto end; } - field = g_new0(struct structure_field, 1); - if (!field) { - BT_LOGE_STR("Failed to allocate one structure/variant field type field."); - ret = -1; - goto end; + g_array_set_size(members, members->len + 1); + + if (is_variant) { + struct bt_field_type_common_variant_choice *choice = + &g_array_index(members, + struct bt_field_type_common_variant_choice, + members->len - 1); + + member_ft = &choice->type; + member_name = &choice->name; + BT_ASSERT(!choice->ranges); + choice->ranges = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_common_variant_choice_range)); + BT_ASSERT(choice->ranges); + } else { + struct bt_field_type_common_structure_field *field = + &g_array_index(members, + struct bt_field_type_common_structure_field, + members->len - 1); + + member_ft = &field->type; + member_name = &field->name; } - bt_get(field_type); - field->name = name_quark; - field->type = field_type; + *member_name = name_quark; + *member_ft = bt_get(field_type); g_hash_table_insert(field_name_to_index, GUINT_TO_POINTER(name_quark), - GUINT_TO_POINTER(fields->len)); - g_ptr_array_add(fields, field); - BT_LOGV("Added structure/variant field type field: field-ft-addr=%p, " - "field-name=\"%s\"", field_type, field_name); + GUINT_TO_POINTER(members->len - 1)); + BT_LOGV("Added structure/variant field type member: member-ft-addr=%p, " + "member-name=\"%s\"", field_type, field_name); + end: return ret; } -static -void bt_ctf_field_type_destroy(struct bt_object *obj) +BT_HIDDEN +int bt_field_type_common_integer_validate(struct bt_field_type_common *ft) { - struct bt_ctf_field_type *type; - enum bt_ctf_field_type_id type_id; + int ret = 0; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - BT_LOGD("Destroying field type object: addr=%p", obj); - type = container_of(obj, struct bt_ctf_field_type, base); - type_id = type->id; - if (type_id <= BT_CTF_FIELD_TYPE_ID_UNKNOWN || - type_id >= BT_CTF_NR_TYPE_IDS) { - BT_LOGW("Unknown field type ID: addr=%p, id=%d", obj, type_id); - return; - } - - type_destroy_funcs[type_id](type); -} - -static -int bt_ctf_field_type_integer_validate(struct bt_ctf_field_type *type) -{ - int ret = 0; - - struct bt_ctf_field_type_integer *integer = - container_of(type, struct bt_ctf_field_type_integer, - parent); - - if (integer->mapped_clock && integer->is_signed) { + if (int_ft->mapped_clock_class && int_ft->is_signed) { BT_LOGW("Invalid integer field type: cannot be signed and have a mapped clock class: " "ft-addr=%p, clock-class-addr=%p, clock-class-name=\"%s\"", - type, integer->mapped_clock, - bt_ctf_clock_class_get_name(integer->mapped_clock)); + ft, int_ft->mapped_clock_class, + bt_clock_class_get_name(int_ft->mapped_clock_class)); ret = -1; goto end; } @@ -485,22 +706,21 @@ end: } static -struct enumeration_mapping *get_enumeration_mapping( - struct bt_ctf_field_type *type, uint64_t index) +struct enumeration_mapping *bt_field_type_common_enumeration_get_mapping_by_index( + struct bt_field_type_common *ft, uint64_t index) { + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); struct enumeration_mapping *mapping = NULL; - struct bt_ctf_field_type_enumeration *enumeration; - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - if (index >= enumeration->entries->len) { + if (index >= enum_ft->entries->len) { BT_LOGW("Invalid parameter: index is out of bounds: " "addr=%p, index=%" PRIu64 ", count=%u", - type, index, enumeration->entries->len); + ft, index, enum_ft->entries->len); goto end; } - mapping = g_ptr_array_index(enumeration->entries, index); + mapping = g_ptr_array_index(enum_ft->entries, index); + end: return mapping; } @@ -510,35 +730,32 @@ end: * Only used when freezing an enumeration. */ static -void set_enumeration_range_overlap( - struct bt_ctf_field_type *type) +void bt_field_type_common_enumeration_set_range_overlap( + struct bt_field_type_common_enumeration *ft) { int64_t i, j, len; - struct bt_ctf_field_type *container_type; - struct bt_ctf_field_type_enumeration *enumeration_type; int is_signed; BT_LOGV("Setting enumeration field type's overlap flag: addr=%p", - type); - enumeration_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - - len = enumeration_type->entries->len; - container_type = enumeration_type->container; - is_signed = bt_ctf_field_type_integer_get_signed(container_type); + ft); + len = ft->entries->len; + is_signed = bt_field_type_common_integer_is_signed( + BT_TO_COMMON(ft->container_ft)); for (i = 0; i < len; i++) { for (j = i + 1; j < len; j++) { struct enumeration_mapping *mapping[2]; - mapping[0] = get_enumeration_mapping(type, i); - mapping[1] = get_enumeration_mapping(type, j); + mapping[0] = bt_field_type_common_enumeration_get_mapping_by_index( + BT_TO_COMMON(ft), i); + mapping[1] = bt_field_type_common_enumeration_get_mapping_by_index( + BT_TO_COMMON(ft), j); if (is_signed) { if (mapping[0]->range_start._signed <= mapping[1]->range_end._signed && mapping[0]->range_end._signed >= mapping[1]->range_start._signed) { - enumeration_type->has_overlapping_ranges = BT_TRUE; + ft->has_overlapping_ranges = BT_TRUE; goto end; } } else { @@ -546,7 +763,7 @@ void set_enumeration_range_overlap( <= mapping[1]->range_end._unsigned && mapping[0]->range_end._unsigned >= mapping[1]->range_start._unsigned) { - enumeration_type->has_overlapping_ranges = BT_TRUE; + ft->has_overlapping_ranges = BT_TRUE; goto end; } } @@ -554,240 +771,181 @@ void set_enumeration_range_overlap( } end: - if (enumeration_type->has_overlapping_ranges) { + if (ft->has_overlapping_ranges) { BT_LOGV_STR("Enumeration field type has overlapping ranges."); } else { BT_LOGV_STR("Enumeration field type has no overlapping ranges."); } } -static -int bt_ctf_field_type_enumeration_validate(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_enumeration_validate_recursive( + struct bt_field_type_common *ft) { int ret = 0; + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); - struct bt_ctf_field_type_enumeration *enumeration = - container_of(type, struct bt_ctf_field_type_enumeration, - parent); - struct bt_ctf_field_type *container_type = - bt_ctf_field_type_enumeration_get_container_type(type); - - assert(container_type); - ret = bt_ctf_field_type_validate(container_type); + ret = bt_field_type_common_integer_validate( + BT_TO_COMMON(enum_ft->container_ft)); if (ret) { BT_LOGW("Invalid enumeration field type: container type is invalid: " "enum-ft-addr=%p, int-ft-addr=%p", - type, container_type); + ft, enum_ft->container_ft); goto end; } /* Ensure enum has entries */ - if (enumeration->entries->len == 0) { + if (enum_ft->entries->len == 0) { BT_LOGW("Invalid enumeration field type: no entries: " - "addr=%p", type); + "addr=%p", ft); ret = -1; goto end; } end: - BT_PUT(container_type); return ret; } -static -int bt_ctf_field_type_sequence_validate(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_sequence_validate_recursive( + struct bt_field_type_common *ft) { int ret = 0; - struct bt_ctf_field_type *element_type = NULL; - struct bt_ctf_field_type_sequence *sequence = - container_of(type, struct bt_ctf_field_type_sequence, - parent); + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); /* Length field name should be set at this point */ - if (sequence->length_field_name->len == 0) { + if (seq_ft->length_field_name->len == 0) { BT_LOGW("Invalid sequence field type: no length field name: " - "addr=%p", type); + "addr=%p", ft); ret = -1; goto end; } - element_type = bt_ctf_field_type_sequence_get_element_type(type); - assert(element_type); - ret = bt_ctf_field_type_validate(element_type); + ret = bt_field_type_common_validate(seq_ft->element_ft); if (ret) { BT_LOGW("Invalid sequence field type: invalid element field type: " "seq-ft-addr=%p, element-ft-add=%p", - type, element_type); + ft, seq_ft->element_ft); } end: - BT_PUT(element_type); - return ret; } -static -int bt_ctf_field_type_array_validate(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_array_validate_recursive( + struct bt_field_type_common *ft) { int ret = 0; - struct bt_ctf_field_type *element_type = NULL; + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - element_type = bt_ctf_field_type_array_get_element_type(type); - assert(element_type); - ret = bt_ctf_field_type_validate(element_type); + ret = bt_field_type_common_validate(array_ft->element_ft); if (ret) { BT_LOGW("Invalid array field type: invalid element field type: " "array-ft-addr=%p, element-ft-add=%p", - type, element_type); + ft, array_ft->element_ft); } - BT_PUT(element_type); return ret; } -static -int bt_ctf_field_type_structure_validate(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_structure_validate_recursive( + struct bt_field_type_common *ft) { int ret = 0; - struct bt_ctf_field_type *child_type = NULL; - int64_t field_count = bt_ctf_field_type_structure_get_field_count(type); + struct bt_field_type_common *child_ft = NULL; + int64_t field_count = + bt_field_type_common_structure_get_field_count(ft); int64_t i; - assert(field_count >= 0); + BT_ASSERT(field_count >= 0); for (i = 0; i < field_count; ++i) { const char *field_name; - ret = bt_ctf_field_type_structure_get_field_by_index(type, - &field_name, &child_type, i); - assert(ret == 0); - ret = bt_ctf_field_type_validate(child_type); + ret = bt_field_type_common_structure_borrow_field_by_index(ft, + &field_name, &child_ft, i); + BT_ASSERT(ret == 0); + ret = bt_field_type_common_validate(child_ft); if (ret) { BT_LOGW("Invalid structure field type: " "a contained field type is invalid: " "struct-ft-addr=%p, field-ft-addr=%p, " "field-name=\"%s\", field-index=%" PRId64, - type, child_type, field_name, i); + ft, child_ft, field_name, i); goto end; } - - BT_PUT(child_type); } end: - BT_PUT(child_type); - return ret; } static -bt_bool bt_ctf_field_type_enumeration_has_overlapping_ranges( - struct bt_ctf_field_type_enumeration *enumeration_type) +bt_bool bt_field_type_common_enumeration_has_overlapping_ranges( + struct bt_field_type_common_enumeration *enum_ft) { - if (!enumeration_type->parent.frozen) { - set_enumeration_range_overlap(&enumeration_type->parent); - } - return enumeration_type->has_overlapping_ranges; -} - -static -int bt_ctf_field_type_enumeration_get_mapping_name( - struct bt_ctf_field_type *enum_field_type, - uint64_t index, - const char **mapping_name) -{ - int ret = 0; - struct enumeration_mapping *mapping; - - assert(enum_field_type); - mapping = get_enumeration_mapping(enum_field_type, index); - assert(mapping); - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); + if (!enum_ft->common.frozen) { + bt_field_type_common_enumeration_set_range_overlap(enum_ft); } - return ret; + return enum_ft->has_overlapping_ranges; } -static -int bt_ctf_field_type_variant_validate(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_variant_validate_recursive( + struct bt_field_type_common *ft) { int ret = 0; int64_t field_count; - struct bt_ctf_field_type *child_type = NULL; - struct bt_ctf_field_type_variant *variant = - container_of(type, struct bt_ctf_field_type_variant, - parent); + struct bt_field_type_common *child_ft = NULL; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); int64_t i; - int64_t tag_mappings_count; - if (variant->tag_name->len == 0) { + if (var_ft->tag_name->len == 0) { BT_LOGW("Invalid variant field type: no tag field name: " - "addr=%p", type); + "addr=%p", ft); ret = -1; goto end; } - if (!variant->tag) { + if (!var_ft->tag_ft) { BT_LOGW("Invalid variant field type: no tag field type: " - "addr=%p, tag-field-name=\"%s\"", type, - variant->tag_name->str); + "addr=%p, tag-field-name=\"%s\"", var_ft, + var_ft->tag_name->str); ret = -1; goto end; } - if (bt_ctf_field_type_enumeration_has_overlapping_ranges( - variant->tag)) { + if (bt_field_type_common_enumeration_has_overlapping_ranges(var_ft->tag_ft)) { BT_LOGW("Invalid variant field type: enumeration tag field type has overlapping ranges: " "variant-ft-addr=%p, tag-field-name=\"%s\", " - "enum-ft-addr=%p", type, variant->tag_name->str, - variant->tag); + "enum-ft-addr=%p", ft, var_ft->tag_name->str, + var_ft->tag_ft); ret = -1; goto end; } - tag_mappings_count = - bt_ctf_field_type_enumeration_get_mapping_count( - (struct bt_ctf_field_type *) variant->tag); - /* - * Validate that each mapping found in the tag has a name which - * is also the name of a field in this variant field type. + * It is valid to have a variant field type which does not have + * the fields corresponding to each label in the associated + * enumeration. * - * The opposite is accepted: variant FT fields which cannot be - * selected because the variant FT tag has no mapping named as - * such. This scenario, while not ideal, cannot cause any error. + * It is also valid to have variant field type fields which + * cannot be selected because the variant field type tag has no + * mapping named as such. This scenario, while not ideal, cannot + * cause any error. + * + * If a non-existing field happens to be selected by an + * enumeration while reading a variant field, an error will be + * generated at that point (while reading the stream). */ - for (i = 0; i < tag_mappings_count; ++i) { - const char *label; - struct bt_ctf_field_type *ft; - - ret = bt_ctf_field_type_enumeration_get_mapping_name( - (struct bt_ctf_field_type *) variant->tag, - i, &label); - assert(ret == 0); - assert(label); - ft = bt_ctf_field_type_variant_get_field_type_by_name( - type, label); - if (!ft) { - BT_LOGW("Invalid variant field type: " - "enumeration tag field type contains a mapping which does not name a variant field type field: " - "variant-ft-addr=%p, tag-field-name=\"%s\", " - "enum-ft-addr=%p, mapping-name=\"%s\"", - type, variant->tag_name->str, variant->tag, - label); - ret = -1; - goto end; - } - - BT_PUT(ft); - } - - field_count = bt_ctf_field_type_variant_get_field_count(type); + field_count = bt_field_type_common_variant_get_field_count(ft); if (field_count < 0) { BT_LOGW("Invalid variant field type: no fields: " "addr=%p, tag-field-name=\"%s\"", - type, variant->tag_name->str); + ft, var_ft->tag_name->str); ret = -1; goto end; } @@ -795,27 +953,23 @@ int bt_ctf_field_type_variant_validate(struct bt_ctf_field_type *type) for (i = 0; i < field_count; ++i) { const char *field_name; - ret = bt_ctf_field_type_variant_get_field_by_index(type, - &field_name, &child_type, i); - assert(ret == 0); - ret = bt_ctf_field_type_validate(child_type); + ret = bt_field_type_common_variant_borrow_field_by_index(ft, + &field_name, &child_ft, i); + BT_ASSERT(ret == 0); + ret = bt_field_type_common_validate(child_ft); if (ret) { BT_LOGW("Invalid variant field type: " "a contained field type is invalid: " "variant-ft-addr=%p, tag-field-name=\"%s\", " "field-ft-addr=%p, field-name=\"%s\", " "field-index=%" PRId64, - type, variant->tag_name->str, child_type, + ft, var_ft->tag_name->str, child_ft, field_name, i); goto end; } - - BT_PUT(child_type); } end: - BT_PUT(child_type); - return ret; } @@ -826,364 +980,357 @@ end: * applicable. */ BT_HIDDEN -int bt_ctf_field_type_validate(struct bt_ctf_field_type *type) +int bt_field_type_common_validate(struct bt_field_type_common *ft) { int ret = 0; - enum bt_ctf_field_type_id id = bt_ctf_field_type_get_type_id(type); - assert(type); + BT_ASSERT(ft); - if (type->valid) { + if (ft->valid) { /* Already marked as valid */ goto end; } - if (type_validate_funcs[id]) { - ret = type_validate_funcs[id](type); + if (ft->methods->validate) { + ret = ft->methods->validate(ft); } - if (!ret && type->frozen) { + if (ret == 0 && ft->frozen) { /* Field type is valid */ - type->valid = 1; + BT_LOGV("Marking field type as valid: addr=%p", ft); + ft->valid = 1; } end: return ret; } -struct bt_ctf_field_type *bt_ctf_field_type_integer_create(unsigned int size) +struct bt_field_type *bt_field_type_integer_create(unsigned int size) { - struct bt_ctf_field_type_integer *integer = - g_new0(struct bt_ctf_field_type_integer, 1); + struct bt_field_type_common_integer *integer = NULL; BT_LOGD("Creating integer field type object: size=%u", size); - if (!integer) { - BT_LOGE_STR("Failed to allocate one integer field type."); - return NULL; - } - if (size == 0 || size > 64) { BT_LOGW("Invalid parameter: size must be between 1 and 64: " "size=%u", size); - return NULL; + goto error; } - integer->parent.id = BT_CTF_FIELD_TYPE_ID_INTEGER; - integer->size = size; - integer->base = BT_CTF_INTEGER_BASE_DECIMAL; - integer->encoding = BT_CTF_STRING_ENCODING_NONE; - bt_ctf_field_type_init(&integer->parent, TRUE); - BT_LOGD("Created integer field type object: addr=%p, size=%u", - &integer->parent, size); - return &integer->parent; -} - -int bt_ctf_field_type_integer_get_size(struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type_integer *integer; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; + integer = g_new0(struct bt_field_type_common_integer, 1); + if (!integer) { + BT_LOGE_STR("Failed to allocate one integer field type."); + goto error; } - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + bt_field_type_common_integer_initialize(BT_TO_COMMON(integer), + size, bt_field_type_common_integer_destroy, + &bt_field_type_integer_methods); + BT_LOGD("Created integer field type object: addr=%p, size=%u", + integer, size); + goto end; + +error: + BT_PUT(integer); - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = (int) integer->size; end: - return ret; + return (void *) integer; } -int bt_ctf_field_type_integer_get_signed(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_integer_get_size(struct bt_field_type_common *ft) { - int ret = 0; - struct bt_ctf_field_type_integer *integer; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_INTEGER, + "Field type"); + return (int) int_ft->size; +} - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } +int bt_field_type_integer_get_size(struct bt_field_type *ft) +{ + return bt_field_type_common_integer_get_size((void *) ft); +} - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->is_signed; -end: - return ret; +BT_HIDDEN +bt_bool bt_field_type_common_integer_is_signed(struct bt_field_type_common *ft) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_INTEGER, + "Field type"); + return int_ft->is_signed; } -bt_bool bt_ctf_field_type_integer_is_signed( - struct bt_ctf_field_type *int_field_type) +bt_bool bt_field_type_integer_is_signed(struct bt_field_type *ft) { - return bt_ctf_field_type_integer_get_signed(int_field_type) ? - BT_TRUE : BT_FALSE; + return bt_field_type_common_integer_is_signed((void *) ft); } -int bt_ctf_field_type_integer_set_signed(struct bt_ctf_field_type *type, +BT_HIDDEN +int bt_field_type_common_integer_set_is_signed(struct bt_field_type_common *ft, bt_bool is_signed) { int ret = 0; - struct bt_ctf_field_type_integer *integer; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { + if (ft->id != BT_FIELD_TYPE_ID_INTEGER) { BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->is_signed = !!is_signed; + int_ft->is_signed = !!is_signed; BT_LOGV("Set integer field type's signedness: addr=%p, is-signed=%d", - type, is_signed); + ft, is_signed); + end: return ret; } -int bt_ctf_field_type_integer_set_size(struct bt_ctf_field_type *type, - size_t size) +int bt_field_type_integer_set_is_signed(struct bt_field_type *ft, + bt_bool is_signed) +{ + return bt_field_type_common_integer_set_is_signed((void *) ft, + is_signed); +} + +BT_HIDDEN +int bt_field_type_common_integer_set_size(struct bt_field_type_common *ft, + unsigned int size) { int ret = 0; - struct bt_ctf_field_type_integer *integer; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { + if (ft->id != BT_FIELD_TYPE_ID_INTEGER) { BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } if (size == 0 || size > 64) { BT_LOGW("Invalid parameter: size must be between 1 and 64: " - "addr=%p, size=%u", type, size); + "addr=%p, size=%u", ft, size); ret = -1; goto end; } - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->size = size; + int_ft->size = size; BT_LOGV("Set integer field type's size: addr=%p, size=%u", - type, size); + ft, size); + end: return ret; } -enum bt_ctf_integer_base bt_ctf_field_type_integer_get_base( - struct bt_ctf_field_type *type) +int bt_field_type_integer_set_size(struct bt_field_type *ft, + unsigned int size) { - enum bt_ctf_integer_base ret = BT_CTF_INTEGER_BASE_UNKNOWN; - struct bt_ctf_field_type_integer *integer; + return bt_field_type_common_integer_set_size((void *) ft, size); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } +BT_HIDDEN +enum bt_integer_base bt_field_type_common_integer_get_base( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_INTEGER, + "Field type"); + return int_ft->base; +} - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->base; -end: - return ret; +enum bt_integer_base bt_field_type_integer_get_base( + struct bt_field_type *ft) +{ + return bt_field_type_common_integer_get_base((void *) ft); } -int bt_ctf_field_type_integer_set_base(struct bt_ctf_field_type *type, - enum bt_ctf_integer_base base) +BT_HIDDEN +int bt_field_type_common_integer_set_base(struct bt_field_type_common *ft, + enum bt_integer_base base) { int ret = 0; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { + if (ft->id != BT_FIELD_TYPE_ID_INTEGER) { BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } switch (base) { - case BT_CTF_INTEGER_BASE_BINARY: - case BT_CTF_INTEGER_BASE_OCTAL: - case BT_CTF_INTEGER_BASE_DECIMAL: - case BT_CTF_INTEGER_BASE_HEXADECIMAL: + case BT_INTEGER_BASE_UNSPECIFIED: + case BT_INTEGER_BASE_BINARY: + case BT_INTEGER_BASE_OCTAL: + case BT_INTEGER_BASE_DECIMAL: + case BT_INTEGER_BASE_HEXADECIMAL: { - struct bt_ctf_field_type_integer *integer = container_of(type, - struct bt_ctf_field_type_integer, parent); - integer->base = base; + int_ft->base = base; break; } default: BT_LOGW("Invalid parameter: unknown integer field type base: " - "addr=%p, base=%d", type, base); + "addr=%p, base=%d", ft, base); ret = -1; } BT_LOGV("Set integer field type's base: addr=%p, base=%s", - type, bt_ctf_integer_base_string(base)); + ft, bt_common_integer_base_string(base)); end: return ret; } -enum bt_ctf_string_encoding bt_ctf_field_type_integer_get_encoding( - struct bt_ctf_field_type *type) +int bt_field_type_integer_set_base(struct bt_field_type *ft, + enum bt_integer_base base) { - enum bt_ctf_string_encoding ret = BT_CTF_STRING_ENCODING_UNKNOWN; - struct bt_ctf_field_type_integer *integer; + return bt_field_type_common_integer_set_base((void *) ft, base); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } +BT_HIDDEN +enum bt_string_encoding bt_field_type_common_integer_get_encoding( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_INTEGER, + "Field type"); + return int_ft->encoding; +} - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->encoding; -end: - return ret; +enum bt_string_encoding bt_field_type_integer_get_encoding( + struct bt_field_type *ft) +{ + return bt_field_type_common_integer_get_encoding((void *) ft); } -int bt_ctf_field_type_integer_set_encoding(struct bt_ctf_field_type *type, - enum bt_ctf_string_encoding encoding) +BT_HIDDEN +int bt_field_type_common_integer_set_encoding(struct bt_field_type_common *ft, + enum bt_string_encoding encoding) { int ret = 0; - struct bt_ctf_field_type_integer *integer; + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { + if (ft->id != BT_FIELD_TYPE_ID_INTEGER) { BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - if (encoding < BT_CTF_STRING_ENCODING_NONE || - encoding >= BT_CTF_STRING_ENCODING_UNKNOWN) { + if (encoding != BT_STRING_ENCODING_UTF8 && + encoding != BT_STRING_ENCODING_ASCII && + encoding != BT_STRING_ENCODING_NONE) { BT_LOGW("Invalid parameter: unknown string encoding: " - "addr=%p, encoding=%d", type, encoding); + "addr=%p, encoding=%d", ft, encoding); ret = -1; goto end; } - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->encoding = encoding; + int_ft->encoding = encoding; BT_LOGV("Set integer field type's encoding: addr=%p, encoding=%s", - type, bt_ctf_string_encoding_string(encoding)); + ft, bt_common_string_encoding_string(encoding)); + end: return ret; } -struct bt_ctf_clock_class *bt_ctf_field_type_integer_get_mapped_clock_class( - struct bt_ctf_field_type *type) +int bt_field_type_integer_set_encoding(struct bt_field_type *ft, + enum bt_string_encoding encoding) { - struct bt_ctf_field_type_integer *integer; - struct bt_ctf_clock_class *clock_class = NULL; + return bt_field_type_common_integer_set_encoding((void *) ft, encoding); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } +BT_HIDDEN +struct bt_clock_class *bt_field_type_common_integer_borrow_mapped_clock_class( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - clock_class = integer->mapped_clock; - bt_get(clock_class); -end: - return clock_class; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_INTEGER, + "Field type"); + return int_ft->mapped_clock_class; } -int bt_ctf_field_type_integer_set_mapped_clock_class( - struct bt_ctf_field_type *type, - struct bt_ctf_clock_class *clock_class) +struct bt_clock_class *bt_field_type_integer_borrow_mapped_clock_class( + struct bt_field_type *ft) { - struct bt_ctf_field_type_integer *integer; - int ret = 0; + return bt_field_type_common_integer_borrow_mapped_clock_class( + (void *) ft); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } +BT_HIDDEN +int bt_field_type_common_integer_set_mapped_clock_class_no_check_frozen( + struct bt_field_type_common *ft, + struct bt_clock_class *clock_class) +{ + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); + int ret = 0; if (!clock_class) { BT_LOGW_STR("Invalid parameter: clock class is NULL."); @@ -1191,133 +1338,158 @@ int bt_ctf_field_type_integer_set_mapped_clock_class( goto end; } - if (type->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); - ret = -1; + if (ft->id != BT_FIELD_TYPE_ID_INTEGER) { + BT_LOGW("Invalid parameter: field type is not an integer field type: " + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); goto end; } - if (!bt_ctf_clock_class_is_valid(clock_class)) { + if (!bt_clock_class_is_valid(clock_class)) { BT_LOGW("Invalid parameter: clock class is invalid: ft-addr=%p" "clock-class-addr=%p, clock-class-name=\"%s\"", - type, clock_class, - bt_ctf_clock_class_get_name(clock_class)); + ft, clock_class, + bt_clock_class_get_name(clock_class)); ret = -1; goto end; } - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - bt_put(integer->mapped_clock); - integer->mapped_clock = bt_get(clock_class); + bt_put(int_ft->mapped_clock_class); + int_ft->mapped_clock_class = bt_get(clock_class); BT_LOGV("Set integer field type's mapped clock class: ft-addr=%p, " "clock-class-addr=%p, clock-class-name=\"%s\"", - type, clock_class, bt_ctf_clock_class_get_name(clock_class)); + ft, clock_class, bt_clock_class_get_name(clock_class)); + +end: + return ret; +} + +BT_HIDDEN +int bt_field_type_common_integer_set_mapped_clock_class( + struct bt_field_type_common *ft, + struct bt_clock_class *clock_class) +{ + int ret = 0; + + if (!ft) { + BT_LOGW_STR("Invalid parameter: field type is NULL."); + ret = -1; + goto end; + } + + if (ft->frozen) { + BT_LOGW("Invalid parameter: field type is frozen: addr=%p", + ft); + ret = -1; + goto end; + } + + ret = bt_field_type_common_integer_set_mapped_clock_class_no_check_frozen( + ft, clock_class); + end: return ret; } +int bt_field_type_integer_set_mapped_clock_class(struct bt_field_type *ft, + struct bt_clock_class *clock_class) +{ + return bt_field_type_common_integer_set_mapped_clock_class((void *) ft, + clock_class); +} + static -void bt_ctf_field_type_enum_iter_destroy(struct bt_object *obj) +void bt_field_type_enum_iter_destroy(struct bt_object *obj) { - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = + struct bt_field_type_enumeration_mapping_iterator *iter = container_of(obj, - struct bt_ctf_field_type_enumeration_mapping_iterator, + struct bt_field_type_enumeration_mapping_iterator, base); - bt_put(&iter->enumeration_type->parent); + BT_LOGD("Destroying enumeration field type mapping iterator: addr=%p", + obj); + BT_LOGD_STR("Putting parent enumeration field type."); + bt_put(iter->enumeration_ft); g_free(iter); } static -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_enumeration_find_mappings_type( - struct bt_ctf_field_type *type, - enum bt_ctf_field_type_enumeration_mapping_iterator_type iterator_type) +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_common_enumeration_find_mappings_type( + struct bt_field_type_common *ft, + enum bt_field_type_enumeration_mapping_iterator_type iterator_type) { - struct bt_ctf_field_type_enumeration *enumeration_type; - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } - - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + struct bt_field_type_enumeration_mapping_iterator *iter = NULL; - enumeration_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - iter = g_new0(struct bt_ctf_field_type_enumeration_mapping_iterator, 1); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ENUM, + "Field type"); + iter = g_new0(struct bt_field_type_enumeration_mapping_iterator, 1); if (!iter) { BT_LOGE_STR("Failed to allocate one enumeration field type mapping."); goto end; } - bt_object_init(&iter->base, bt_ctf_field_type_enum_iter_destroy); - bt_get(type); - iter->enumeration_type = enumeration_type; + bt_object_init(&iter->base, bt_field_type_enum_iter_destroy); + iter->enumeration_ft = bt_get(ft); iter->index = -1; iter->type = iterator_type; + end: return iter; } -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_enumeration_find_mappings_by_name( - struct bt_ctf_field_type *type, const char *name) +BT_HIDDEN +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_common_enumeration_find_mappings_by_name( + struct bt_field_type_common *ft, const char *name) { - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; + struct bt_field_type_enumeration_mapping_iterator *iter; - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_NAME); + iter = bt_field_type_common_enumeration_find_mappings_type( + ft, ITERATOR_BY_NAME); if (!iter) { - BT_LOGE("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, mapping-name=\"%s\"", type, name); + BT_LOGW("Cannot create enumeration field type mapping iterator: " + "ft-addr=%p, mapping-name=\"%s\"", ft, name); goto error; } iter->u.name_quark = g_quark_try_string(name); if (!iter->u.name_quark) { - BT_LOGE("Cannot get GQuark: string=\"%s\"", name); - goto error; - } - - /* Advance iterator to first entry, or leave index at -1. */ - if (bt_ctf_field_type_enumeration_mapping_iterator_next(iter)) { - /* No entry found. */ - goto error; + /* + * No results are possible, set the iterator's position at the + * end. + */ + iter->index = iter->enumeration_ft->entries->len; } return iter; + error: bt_put(iter); return NULL; } -int bt_ctf_field_type_enumeration_mapping_iterator_next( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter) +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_enumeration_find_mappings_by_name( + struct bt_field_type *ft, const char *name) { - struct bt_ctf_field_type_enumeration *enumeration; - struct bt_ctf_field_type *type; - int i, ret = 0, len; + return bt_field_type_common_enumeration_find_mappings_by_name( + (void *) ft, name); +} - if (!iter) { - BT_LOGW_STR("Invalid parameter: enumeration field type mapping iterator is NULL."); - ret = -1; - goto end; - } +int bt_field_type_enumeration_mapping_iterator_next( + struct bt_field_type_enumeration_mapping_iterator *iter) +{ + struct bt_field_type_common_enumeration *enum_ft = iter->enumeration_ft; + int i, ret = 0, len; - enumeration = iter->enumeration_type; - type = &enumeration->parent; - len = enumeration->entries->len; + BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); + len = enum_ft->entries->len; for (i = iter->index + 1; i < len; i++) { struct enumeration_mapping *mapping = - get_enumeration_mapping(type, i); + bt_field_type_common_enumeration_get_mapping_by_index( + BT_TO_COMMON(enum_ft), i); switch (iter->type) { case ITERATOR_BY_NAME: @@ -1349,154 +1521,147 @@ int bt_ctf_field_type_enumeration_mapping_iterator_next( break; } default: + BT_LOGF("Invalid enumeration field type mapping iterator type: " + "type=%d", iter->type); abort(); } } ret = -1; + end: return ret; } -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_enumeration_find_mappings_by_signed_value( - struct bt_ctf_field_type *type, int64_t value) +BT_HIDDEN +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_common_enumeration_signed_find_mappings_by_value( + struct bt_field_type_common *ft, int64_t value) { - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; + struct bt_field_type_enumeration_mapping_iterator *iter; - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_SIGNED_VALUE); + iter = bt_field_type_common_enumeration_find_mappings_type( + ft, ITERATOR_BY_SIGNED_VALUE); if (!iter) { - BT_LOGE("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, value=%" PRId64, type, value); + BT_LOGW("Cannot create enumeration field type mapping iterator: " + "ft-addr=%p, value=%" PRId64, ft, value); goto error; } - if (bt_ctf_field_type_integer_get_signed( - iter->enumeration_type->container) != 1) { + if (bt_field_type_common_integer_is_signed( + BT_TO_COMMON(iter->enumeration_ft->container_ft)) != 1) { BT_LOGW("Invalid parameter: enumeration field type is unsigned: " "enum-ft-addr=%p, int-ft-addr=%p", - type, iter->enumeration_type->container); + ft, iter->enumeration_ft->container_ft); goto error; } iter->u.signed_value = value; - - /* Advance iterator to first entry, or leave index at -1. */ - if (bt_ctf_field_type_enumeration_mapping_iterator_next(iter)) { - /* No entry found. */ - goto error; - } - return iter; + error: bt_put(iter); return NULL; } -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_enumeration_find_mappings_by_unsigned_value( - struct bt_ctf_field_type *type, uint64_t value) +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_enumeration_signed_find_mappings_by_value( + struct bt_field_type *ft, int64_t value) { - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; + return bt_field_type_common_enumeration_signed_find_mappings_by_value( + (void *) ft, value); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto error; - } +BT_HIDDEN +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_common_enumeration_unsigned_find_mappings_by_value( + struct bt_field_type_common *ft, uint64_t value) +{ + struct bt_field_type_enumeration_mapping_iterator *iter; - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_UNSIGNED_VALUE); + iter = bt_field_type_common_enumeration_find_mappings_type( + ft, ITERATOR_BY_UNSIGNED_VALUE); if (!iter) { - BT_LOGE("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, value=%" PRIu64, type, value); + BT_LOGW("Cannot create enumeration field type mapping iterator: " + "ft-addr=%p, value=%" PRIu64, ft, value); goto error; } - if (bt_ctf_field_type_integer_get_signed( - iter->enumeration_type->container) != 0) { + if (bt_field_type_common_integer_is_signed( + BT_TO_COMMON(iter->enumeration_ft->container_ft)) != 0) { BT_LOGW("Invalid parameter: enumeration field type is signed: " "enum-ft-addr=%p, int-ft-addr=%p", - type, iter->enumeration_type->container); - goto error; - } - iter->u.unsigned_value = value; - - /* Advance iterator to first entry, or leave index at -1. */ - if (bt_ctf_field_type_enumeration_mapping_iterator_next(iter)) { - /* No entry found. */ + ft, iter->enumeration_ft->container_ft); goto error; } + iter->u.unsigned_value = value; return iter; + error: bt_put(iter); return NULL; } -int bt_ctf_field_type_enumeration_mapping_iterator_get_signed( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter, +struct bt_field_type_enumeration_mapping_iterator * +bt_field_type_enumeration_unsigned_find_mappings_by_value( + struct bt_field_type *ft, uint64_t value) +{ + return bt_field_type_common_enumeration_unsigned_find_mappings_by_value( + (void *) ft, value); +} + +int bt_field_type_enumeration_mapping_iterator_signed_get( + struct bt_field_type_enumeration_mapping_iterator *iter, const char **mapping_name, int64_t *range_begin, int64_t *range_end) { - int ret = 0; - - if (!iter) { - BT_LOGW_STR("Invalid parameter: enumeration field type mapping iterator is NULL."); - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_enumeration_get_mapping_signed( - &iter->enumeration_type->parent, iter->index, + BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); + BT_ASSERT_PRE(iter->index != -1, + "Invalid enumeration field type mapping iterator access: " + "addr=%p, position=-1", iter); + return bt_field_type_common_enumeration_signed_get_mapping_by_index( + (void *) iter->enumeration_ft, iter->index, mapping_name, range_begin, range_end); -end: - return ret; } -int bt_ctf_field_type_enumeration_mapping_iterator_get_unsigned( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter, +int bt_field_type_enumeration_mapping_iterator_unsigned_get( + struct bt_field_type_enumeration_mapping_iterator *iter, const char **mapping_name, uint64_t *range_begin, uint64_t *range_end) { - int ret = 0; - - if (!iter) { - BT_LOGW_STR("Invalid parameter: enumeration field type mapping iterator is NULL."); - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_enumeration_get_mapping_unsigned( - &iter->enumeration_type->parent, iter->index, + BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); + BT_ASSERT_PRE(iter->index != -1, + "Invalid enumeration field type mapping iterator access: " + "addr=%p, position=-1", iter); + return bt_field_type_common_enumeration_unsigned_get_mapping_by_index( + (void *) iter->enumeration_ft, iter->index, mapping_name, range_begin, range_end); -end: - return ret; } -int bt_ctf_field_type_enumeration_get_mapping_signed( - struct bt_ctf_field_type *enum_field_type, - uint64_t index, const char **mapping_name, int64_t *range_begin, +BT_HIDDEN +int bt_field_type_common_enumeration_signed_get_mapping_by_index( + struct bt_field_type_common *ft, uint64_t index, + const char **mapping_name, int64_t *range_begin, int64_t *range_end) { int ret = 0; struct enumeration_mapping *mapping; - if (!enum_field_type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - mapping = get_enumeration_mapping(enum_field_type, index); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, + BT_FIELD_TYPE_ID_ENUM, "Field type"); + mapping = bt_field_type_common_enumeration_get_mapping_by_index(ft, + index); if (!mapping) { - /* get_enumeration_mapping() reports any error */ + /* bt_field_type_common_enumeration_get_mapping_by_index() logs errors */ ret = -1; goto end; } if (mapping_name) { *mapping_name = g_quark_to_string(mapping->string); + BT_ASSERT(*mapping_name); } if (range_begin) { @@ -1506,34 +1671,42 @@ int bt_ctf_field_type_enumeration_get_mapping_signed( if (range_end) { *range_end = mapping->range_end._signed; } + end: return ret; } -int bt_ctf_field_type_enumeration_get_mapping_unsigned( - struct bt_ctf_field_type *enum_field_type, - uint64_t index, +int bt_field_type_enumeration_signed_get_mapping_by_index( + struct bt_field_type *ft, uint64_t index, + const char **mapping_name, int64_t *range_begin, + int64_t *range_end) +{ + return bt_field_type_common_enumeration_signed_get_mapping_by_index( + (void *) ft, index, mapping_name, range_begin, range_end); +} + +BT_HIDDEN +int bt_field_type_common_enumeration_unsigned_get_mapping_by_index( + struct bt_field_type_common *ft, uint64_t index, const char **mapping_name, uint64_t *range_begin, uint64_t *range_end) { int ret = 0; struct enumeration_mapping *mapping; - if (!enum_field_type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - mapping = get_enumeration_mapping(enum_field_type, index); - if (!mapping) { - /* get_enumeration_mapping() reports any error */ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ENUM, "Field type"); + mapping = bt_field_type_common_enumeration_get_mapping_by_index( + ft, index); + if (!mapping) { + /* bt_field_type_common_enumeration_get_mapping_by_index() reports any error */ ret = -1; goto end; } if (mapping_name) { *mapping_name = g_quark_to_string(mapping->string); + BT_ASSERT(*mapping_name); } if (range_begin) { @@ -1543,90 +1716,94 @@ int bt_ctf_field_type_enumeration_get_mapping_unsigned( if (range_end) { *range_end = mapping->range_end._unsigned; } + end: return ret; } -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_create( - struct bt_ctf_field_type *integer_container_type) +int bt_field_type_enumeration_unsigned_get_mapping_by_index( + struct bt_field_type *ft, uint64_t index, + const char **mapping_name, uint64_t *range_begin, + uint64_t *range_end) +{ + return bt_field_type_common_enumeration_unsigned_get_mapping_by_index( + (void *) ft, index, mapping_name, range_begin, range_end); +} + +struct bt_field_type *bt_field_type_enumeration_create( + struct bt_field_type *container_ft) { - struct bt_ctf_field_type_enumeration *enumeration = NULL; + struct bt_field_type_common_enumeration *enumeration = NULL; + struct bt_field_type_common *int_ft = (void *) container_ft; BT_LOGD("Creating enumeration field type object: int-ft-addr=%p", - integer_container_type); + container_ft); - if (!integer_container_type) { + if (!container_ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); goto error; } - if (integer_container_type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { + if (int_ft->id != BT_FIELD_TYPE_ID_INTEGER) { BT_LOGW("Invalid parameter: container field type is not an integer field type: " "container-ft-addr=%p, container-ft-id=%s", - integer_container_type, - bt_ctf_field_type_id_string(integer_container_type->id)); + container_ft, bt_common_field_type_id_string(int_ft->id)); goto error; } - enumeration = g_new0(struct bt_ctf_field_type_enumeration, 1); + enumeration = g_new0(struct bt_field_type_common_enumeration, 1); if (!enumeration) { BT_LOGE_STR("Failed to allocate one enumeration field type."); goto error; } - enumeration->parent.id = BT_CTF_FIELD_TYPE_ID_ENUM; - bt_get(integer_container_type); - enumeration->container = integer_container_type; - enumeration->entries = g_ptr_array_new_with_free_func( - (GDestroyNotify)destroy_enumeration_mapping); - bt_ctf_field_type_init(&enumeration->parent, FALSE); + bt_field_type_common_enumeration_initialize(BT_TO_COMMON(enumeration), + int_ft, bt_field_type_common_enumeration_destroy_recursive, + &bt_field_type_enumeration_methods); BT_LOGD("Created enumeration field type object: addr=%p, " "int-ft-addr=%p, int-ft-size=%u", - &enumeration->parent, integer_container_type, - bt_ctf_field_type_integer_get_size(integer_container_type)); - return &enumeration->parent; + enumeration, container_ft, + bt_field_type_integer_get_size(container_ft)); + goto end; + error: - g_free(enumeration); - return NULL; + BT_PUT(enumeration); + +end: + return (void *) enumeration; } -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_get_container_type( - struct bt_ctf_field_type *type) +BT_HIDDEN +struct bt_field_type_common * +bt_field_type_common_enumeration_borrow_container_field_type( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type *container_type = NULL; - struct bt_ctf_field_type_enumeration *enumeration_type; + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } - - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ENUM, "Field type"); + return BT_TO_COMMON(enum_ft->container_ft); +} - enumeration_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - container_type = enumeration_type->container; - bt_get(container_type); -end: - return container_type; +struct bt_field_type *bt_field_type_enumeration_borrow_container_field_type( + struct bt_field_type *ft) +{ + return (void *) bt_field_type_common_enumeration_borrow_container_field_type( + (void *) ft); } -int bt_ctf_field_type_enumeration_add_mapping_signed( - struct bt_ctf_field_type *type, const char *string, +BT_HIDDEN +int bt_field_type_common_enumeration_signed_add_mapping( + struct bt_field_type_common *ft, const char *string, int64_t range_start, int64_t range_end) { int ret = 0; GQuark mapping_name; struct enumeration_mapping *mapping; - struct bt_ctf_field_type_enumeration *enumeration; + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); char *escaped_string; - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; @@ -1638,17 +1815,17 @@ int bt_ctf_field_type_enumeration_add_mapping_signed( goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { + if (ft->id != BT_FIELD_TYPE_ID_ENUM) { BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } @@ -1656,14 +1833,14 @@ int bt_ctf_field_type_enumeration_add_mapping_signed( if (range_end < range_start) { BT_LOGW("Invalid parameter: range's end is lesser than range's start: " "addr=%p, range-start=%" PRId64 ", range-end=%" PRId64, - type, range_start, range_end); + ft, range_start, range_end); ret = -1; goto end; } if (strlen(string) == 0) { BT_LOGW("Invalid parameter: mapping name is an empty string: " - "enum-ft-addr=%p, mapping-name-addr=%p", type, + "enum-ft-addr=%p, mapping-name-addr=%p", ft, string); ret = -1; goto end; @@ -1673,7 +1850,7 @@ int bt_ctf_field_type_enumeration_add_mapping_signed( if (!escaped_string) { BT_LOGE("Cannot escape mapping name: enum-ft-addr=%p, " "mapping-name-addr=%p, mapping-name=\"%s\"", - type, string, string); + ft, string, string); ret = -1; goto end; } @@ -1690,32 +1867,41 @@ int bt_ctf_field_type_enumeration_add_mapping_signed( .range_end._signed = range_end, .string = mapping_name, }; - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - g_ptr_array_add(enumeration->entries, mapping); - g_ptr_array_sort(enumeration->entries, - (GCompareFunc)compare_enumeration_mappings_signed); + g_ptr_array_add(enum_ft->entries, mapping); + g_ptr_array_sort(enum_ft->entries, + (GCompareFunc) compare_enumeration_mappings_signed); BT_LOGV("Added mapping to signed enumeration field type: addr=%p, " "name=\"%s\", range-start=%" PRId64 ", " "range-end=%" PRId64, - type, string, range_start, range_end); + ft, string, range_start, range_end); + error_free: free(escaped_string); + end: return ret; } -int bt_ctf_field_type_enumeration_add_mapping_unsigned( - struct bt_ctf_field_type *type, const char *string, +int bt_field_type_enumeration_signed_add_mapping( + struct bt_field_type *ft, const char *string, + int64_t range_start, int64_t range_end) +{ + return bt_field_type_common_enumeration_signed_add_mapping( + (void *) ft, string, range_start, range_end); +} + +BT_HIDDEN +int bt_field_type_common_enumeration_unsigned_add_mapping( + struct bt_field_type_common *ft, const char *string, uint64_t range_start, uint64_t range_end) { int ret = 0; GQuark mapping_name; struct enumeration_mapping *mapping; - struct bt_ctf_field_type_enumeration *enumeration; + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); char *escaped_string; - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; @@ -1727,17 +1913,17 @@ int bt_ctf_field_type_enumeration_add_mapping_unsigned( goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { + if (ft->id != BT_FIELD_TYPE_ID_ENUM) { BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } @@ -1745,14 +1931,14 @@ int bt_ctf_field_type_enumeration_add_mapping_unsigned( if (range_end < range_start) { BT_LOGW("Invalid parameter: range's end is lesser than range's start: " "addr=%p, range-start=%" PRIu64 ", range-end=%" PRIu64, - type, range_start, range_end); + ft, range_start, range_end); ret = -1; goto end; } if (strlen(string) == 0) { BT_LOGW("Invalid parameter: mapping name is an empty string: " - "enum-ft-addr=%p, mapping-name-addr=%p", type, + "enum-ft-addr=%p, mapping-name-addr=%p", ft, string); ret = -1; goto end; @@ -1762,7 +1948,7 @@ int bt_ctf_field_type_enumeration_add_mapping_unsigned( if (!escaped_string) { BT_LOGE("Cannot escape mapping name: enum-ft-addr=%p, " "mapping-name-addr=%p, mapping-name=\"%s\"", - type, string, string); + ft, string, string); ret = -1; goto end; } @@ -1779,52 +1965,50 @@ int bt_ctf_field_type_enumeration_add_mapping_unsigned( .range_end._unsigned = range_end, .string = mapping_name, }; - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - g_ptr_array_add(enumeration->entries, mapping); - g_ptr_array_sort(enumeration->entries, - (GCompareFunc)compare_enumeration_mappings_unsigned); + g_ptr_array_add(enum_ft->entries, mapping); + g_ptr_array_sort(enum_ft->entries, + (GCompareFunc) compare_enumeration_mappings_unsigned); BT_LOGV("Added mapping to unsigned enumeration field type: addr=%p, " "name=\"%s\", range-start=%" PRIu64 ", " "range-end=%" PRIu64, - type, string, range_start, range_end); + ft, string, range_start, range_end); + error_free: free(escaped_string); + end: return ret; } -int64_t bt_ctf_field_type_enumeration_get_mapping_count( - struct bt_ctf_field_type *type) +int bt_field_type_enumeration_unsigned_add_mapping( + struct bt_field_type *ft, const char *string, + uint64_t range_start, uint64_t range_end) { - int64_t ret = 0; - struct bt_ctf_field_type_enumeration *enumeration; + return bt_field_type_common_enumeration_unsigned_add_mapping( + (void *) ft, string, range_start, range_end); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = (int64_t) -1; - goto end; - } +BT_HIDDEN +int64_t bt_field_type_common_enumeration_get_mapping_count( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = (int64_t) -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ENUM, "Field type"); + return (int64_t) enum_ft->entries->len; +} - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - ret = (int64_t) enumeration->entries->len; -end: - return ret; +int64_t bt_field_type_enumeration_get_mapping_count( + struct bt_field_type *ft) +{ + return bt_field_type_common_enumeration_get_mapping_count((void *) ft); } -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_create(void) +struct bt_field_type *bt_field_type_floating_point_create(void) { - struct bt_ctf_field_type_floating_point *floating_point = - g_new0(struct bt_ctf_field_type_floating_point, 1); + struct bt_field_type_common_floating_point *floating_point = + g_new0(struct bt_field_type_common_floating_point, 1); BT_LOGD_STR("Creating floating point number field type object."); @@ -1833,169 +2017,166 @@ struct bt_ctf_field_type *bt_ctf_field_type_floating_point_create(void) goto end; } - floating_point->parent.id = BT_CTF_FIELD_TYPE_ID_FLOAT; - floating_point->exp_dig = sizeof(float) * CHAR_BIT - FLT_MANT_DIG; - floating_point->mant_dig = FLT_MANT_DIG; - bt_ctf_field_type_init(&floating_point->parent, TRUE); + bt_field_type_common_floating_point_initialize( + BT_TO_COMMON(floating_point), + bt_field_type_common_floating_point_destroy, + &bt_field_type_floating_point_methods); BT_LOGD("Created floating point number field type object: addr=%p, " - "exp-size=%u, mant-size=%u", &floating_point->parent, + "exp-size=%u, mant-size=%u", floating_point, floating_point->exp_dig, floating_point->mant_dig); + end: - return floating_point ? &floating_point->parent : NULL; + return (void *) floating_point; } -int bt_ctf_field_type_floating_point_get_exponent_digits( - struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_floating_point_get_exponent_digits( + struct bt_field_type_common *ft) { - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { - BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_FLOAT, + "Field type"); + return (int) flt_ft->exp_dig; +} - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - ret = (int) floating_point->exp_dig; -end: - return ret; +int bt_field_type_floating_point_get_exponent_digits( + struct bt_field_type *ft) +{ + return bt_field_type_common_floating_point_get_exponent_digits( + (void *) ft); } -int bt_ctf_field_type_floating_point_set_exponent_digits( - struct bt_ctf_field_type *type, +BT_HIDDEN +int bt_field_type_common_floating_point_set_exponent_digits( + struct bt_field_type_common *ft, unsigned int exponent_digits) { int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { + if (ft->id != BT_FIELD_TYPE_ID_FLOAT) { BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); if ((exponent_digits != sizeof(float) * CHAR_BIT - FLT_MANT_DIG) && (exponent_digits != sizeof(double) * CHAR_BIT - DBL_MANT_DIG) && (exponent_digits != sizeof(long double) * CHAR_BIT - LDBL_MANT_DIG)) { BT_LOGW("Invalid parameter: invalid exponent size: " - "addr=%p, exp-size=%u", type, exponent_digits); + "addr=%p, exp-size=%u", ft, exponent_digits); ret = -1; goto end; } - floating_point->exp_dig = exponent_digits; + flt_ft->exp_dig = exponent_digits; BT_LOGV("Set floating point number field type's exponent size: addr=%p, " - "exp-size=%u", type, exponent_digits); + "exp-size=%u", ft, exponent_digits); + end: return ret; } -int bt_ctf_field_type_floating_point_get_mantissa_digits( - struct bt_ctf_field_type *type) +int bt_field_type_floating_point_set_exponent_digits( + struct bt_field_type *ft, unsigned int exponent_digits) { - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; + return bt_field_type_common_floating_point_set_exponent_digits( + (void *) ft, exponent_digits); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } +BT_HIDDEN +int bt_field_type_common_floating_point_get_mantissa_digits( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { - BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_FLOAT, + "Field type"); + return (int) flt_ft->mant_dig; +} - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - ret = (int) floating_point->mant_dig; -end: - return ret; +int bt_field_type_floating_point_get_mantissa_digits( + struct bt_field_type *ft) +{ + return bt_field_type_common_floating_point_get_mantissa_digits( + (void *) ft); } -int bt_ctf_field_type_floating_point_set_mantissa_digits( - struct bt_ctf_field_type *type, - unsigned int mantissa_digits) +BT_HIDDEN +int bt_field_type_common_floating_point_set_mantissa_digits( + struct bt_field_type_common *ft, unsigned int mantissa_digits) { int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { + if (ft->id != BT_FIELD_TYPE_ID_FLOAT) { BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - if ((mantissa_digits != FLT_MANT_DIG) && (mantissa_digits != DBL_MANT_DIG) && (mantissa_digits != LDBL_MANT_DIG)) { BT_LOGW("Invalid parameter: invalid mantissa size: " - "addr=%p, mant-size=%u", type, mantissa_digits); + "addr=%p, mant-size=%u", ft, mantissa_digits); ret = -1; goto end; } - floating_point->mant_dig = mantissa_digits; + flt_ft->mant_dig = mantissa_digits; BT_LOGV("Set floating point number field type's mantissa size: addr=%p, " - "mant-size=%u", type, mantissa_digits); + "mant-size=%u", ft, mantissa_digits); + end: return ret; } -struct bt_ctf_field_type *bt_ctf_field_type_structure_create(void) +int bt_field_type_floating_point_set_mantissa_digits( + struct bt_field_type *ft, unsigned int mantissa_digits) +{ + return bt_field_type_common_floating_point_set_mantissa_digits( + (void *) ft, mantissa_digits); +} + +struct bt_field_type *bt_field_type_structure_create(void) { - struct bt_ctf_field_type_structure *structure = - g_new0(struct bt_ctf_field_type_structure, 1); + struct bt_field_type_common_structure *structure = + g_new0(struct bt_field_type_common_structure, 1); BT_LOGD_STR("Creating structure field type object."); @@ -2004,30 +2185,63 @@ struct bt_ctf_field_type *bt_ctf_field_type_structure_create(void) goto error; } - structure->parent.id = BT_CTF_FIELD_TYPE_ID_STRUCT; - structure->fields = g_ptr_array_new_with_free_func( - (GDestroyNotify)destroy_structure_field); - structure->field_name_to_index = g_hash_table_new(NULL, NULL); - bt_ctf_field_type_init(&structure->parent, TRUE); + bt_field_type_common_structure_initialize(BT_TO_COMMON(structure), + bt_field_type_common_structure_destroy_recursive, + &bt_field_type_structure_methods); BT_LOGD("Created structure field type object: addr=%p", - &structure->parent); - return &structure->parent; + structure); + goto end; + error: - return NULL; + BT_PUT(structure); + +end: + return (void *) structure; +} + +BT_HIDDEN +int bt_field_type_common_structure_replace_field( + struct bt_field_type_common *ft, + const char *field_name, + struct bt_field_type_common *field_type) +{ + int ret = 0; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); + GQuark name_quark; + uint64_t i; + + BT_ASSERT(ft); + BT_ASSERT(field_name); + BT_ASSERT(field_type); + BT_ASSERT(ft->id == BT_FIELD_TYPE_ID_STRUCT); + name_quark = g_quark_from_string(field_name); + + for (i = 0; i < struct_ft->fields->len; i++) { + struct bt_field_type_common_structure_field *field = + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, i); + + if (field->name == name_quark) { + bt_put(field->type); + field->type = bt_get(field_type); + } + } + + return ret; } -int bt_ctf_field_type_structure_add_field(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *field_type, +BT_HIDDEN +int bt_field_type_common_structure_add_field(struct bt_field_type_common *ft, + struct bt_field_type_common *field_type, const char *field_name) { int ret = 0; - struct bt_ctf_field_type_structure *structure; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); /* * TODO: check that `field_type` does not contain `type`, * recursively. */ - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; @@ -2039,373 +2253,351 @@ int bt_ctf_field_type_structure_add_field(struct bt_ctf_field_type *type, goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); - ret = -1; - goto end; - } - - if (bt_ctf_validate_identifier(field_name)) { - BT_LOGW("Invalid parameter: field name is not a valid CTF identifier: " - "struct-ft-addr=%p, field-name=\"%s\"", - type, field_name); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT) { + if (ft->id != BT_FIELD_TYPE_ID_STRUCT) { BT_LOGW("Invalid parameter: field type is not a structure field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - if (type == field_type) { + if (ft == field_type) { BT_LOGW("Invalid parameter: structure field type and field type to add are the same: " - "addr=%p", type); + "addr=%p", ft); ret = -1; goto end; } - structure = container_of(type, - struct bt_ctf_field_type_structure, parent); - if (add_structure_field(structure->fields, - structure->field_name_to_index, field_type, field_name)) { + if (add_structure_variant_member(struct_ft->fields, + struct_ft->field_name_to_index, field_type, field_name, + false)) { BT_LOGW("Cannot add field to structure field type: " "struct-ft-addr=%p, field-ft-addr=%p, field-name=\"%s\"", - type, field_type, field_name); + ft, field_type, field_name); ret = -1; goto end; } BT_LOGV("Added structure field type field: struct-ft-addr=%p, " - "field-ft-addr=%p, field-name=\"%s\"", type, + "field-ft-addr=%p, field-name=\"%s\"", ft, field_type, field_name); + end: return ret; } -int64_t bt_ctf_field_type_structure_get_field_count( - struct bt_ctf_field_type *type) +int bt_field_type_structure_add_field(struct bt_field_type *ft, + struct bt_field_type *field_type, + const char *field_name) { - int64_t ret = 0; - struct bt_ctf_field_type_structure *structure; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = (int64_t) -1; - goto end; - } - - if (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT) { - BT_LOGW("Invalid parameter: field type is not a structure field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = (int64_t) -1; - goto end; - } - - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - ret = (int64_t) structure->fields->len; -end: - return ret; + return bt_field_type_common_structure_add_field((void *) ft, + (void *) field_type, field_name); } -int bt_ctf_field_type_structure_get_field_by_index( - struct bt_ctf_field_type *type, - const char **field_name, struct bt_ctf_field_type **field_type, - uint64_t index) +BT_HIDDEN +int64_t bt_field_type_common_structure_get_field_count( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_structure *structure; - struct structure_field *field; - int ret = 0; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCT, + "Field type"); + return (int64_t) struct_ft->fields->len; +} - if (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT) { - BT_LOGW("Invalid parameter: field type is not a structure field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } +int64_t bt_field_type_structure_get_field_count(struct bt_field_type *ft) +{ + return bt_field_type_common_structure_get_field_count((void *) ft); +} - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - if (index >= structure->fields->len) { - BT_LOGW("Invalid parameter: index is out of bounds: " - "addr=%p, index=%" PRIu64 ", count=%u", - type, index, structure->fields->len); - ret = -1; - goto end; - } +BT_HIDDEN +int bt_field_type_common_structure_borrow_field_by_index( + struct bt_field_type_common *ft, + const char **field_name, + struct bt_field_type_common **field_type, uint64_t index) +{ + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common_structure_field *field; + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCT, + "Field type"); + BT_ASSERT_PRE(index < struct_ft->fields->len, + "Index is out of bounds: index=%" PRIu64 ", " + "count=%u, %![ft-]+_F", + index, struct_ft->fields->len, ft); + field = BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(struct_ft, index); - field = g_ptr_array_index(structure->fields, index); if (field_type) { *field_type = field->type; - bt_get(field->type); } + if (field_name) { *field_name = g_quark_to_string(field->name); + BT_ASSERT(*field_name); } -end: - return ret; + + return 0; } -struct bt_ctf_field_type *bt_ctf_field_type_structure_get_field_type_by_name( - struct bt_ctf_field_type *type, - const char *name) +int bt_field_type_structure_borrow_field_by_index( + struct bt_field_type *ft, + const char **field_name, + struct bt_field_type **field_type, uint64_t index) +{ + return bt_field_type_common_structure_borrow_field_by_index( + (void *) ft, field_name, (void *) field_type, index); +} + +BT_HIDDEN +struct bt_field_type_common * +bt_field_type_common_structure_borrow_field_type_by_name( + struct bt_field_type_common *ft, const char *name) { size_t index; GQuark name_quark; - struct structure_field *field; - struct bt_ctf_field_type_structure *structure; - struct bt_ctf_field_type *field_type = NULL; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } - - if (!name) { - BT_LOGW_STR("Invalid parameter: name is NULL."); - goto end; - } - + struct bt_field_type_common_structure_field *field; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common *field_type = NULL; + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCT, + "Field type"); name_quark = g_quark_try_string(name); if (!name_quark) { - BT_LOGE("Cannot get GQuark: string=\"%s\"", name); + BT_LOGV("No such structure field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); goto end; } - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - if (!g_hash_table_lookup_extended(structure->field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *)&index)) { + if (!g_hash_table_lookup_extended(struct_ft->field_name_to_index, + GUINT_TO_POINTER(name_quark), NULL, (gpointer *) &index)) { + BT_LOGV("No such structure field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); goto end; } - field = structure->fields->pdata[index]; + field = BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, index); field_type = field->type; - bt_get(field_type); + end: return field_type; } -struct bt_ctf_field_type *bt_ctf_field_type_variant_create( - struct bt_ctf_field_type *enum_tag, const char *tag_name) +struct bt_field_type *bt_field_type_structure_borrow_field_type_by_name( + struct bt_field_type *ft, const char *name) +{ + return (void *) bt_field_type_common_structure_borrow_field_type_by_name( + (void *) ft, name); +} + +struct bt_field_type *bt_field_type_variant_create( + struct bt_field_type *tag_ft, const char *tag_name) { - struct bt_ctf_field_type_variant *variant = NULL; + struct bt_field_type_common_variant *var_ft = NULL; BT_LOGD("Creating variant field type object: " "tag-ft-addr=%p, tag-field-name=\"%s\"", - enum_tag, tag_name); + tag_ft, tag_name); - if (tag_name && bt_ctf_validate_identifier(tag_name)) { + if (tag_name && !bt_identifier_is_valid(tag_name)) { BT_LOGW("Invalid parameter: tag field name is not a valid CTF identifier: " "tag-ft-addr=%p, tag-field-name=\"%s\"", - enum_tag, tag_name); + tag_ft, tag_name); goto error; } - variant = g_new0(struct bt_ctf_field_type_variant, 1); - if (!variant) { + var_ft = g_new0(struct bt_field_type_common_variant, 1); + if (!var_ft) { BT_LOGE_STR("Failed to allocate one variant field type."); goto error; } - variant->parent.id = BT_CTF_FIELD_TYPE_ID_VARIANT; - variant->tag_name = g_string_new(tag_name); - variant->field_name_to_index = g_hash_table_new(NULL, NULL); - variant->fields = g_ptr_array_new_with_free_func( - (GDestroyNotify) destroy_structure_field); - if (enum_tag) { - bt_get(enum_tag); - variant->tag = container_of(enum_tag, - struct bt_ctf_field_type_enumeration, parent); - } - - bt_ctf_field_type_init(&variant->parent, TRUE); - /* A variant's alignment is undefined */ - variant->parent.alignment = 0; + bt_field_type_common_variant_initialize(BT_TO_COMMON(var_ft), + (void *) tag_ft, tag_name, + bt_field_type_common_variant_destroy_recursive, + &bt_field_type_variant_methods); BT_LOGD("Created variant field type object: addr=%p, " "tag-ft-addr=%p, tag-field-name=\"%s\"", - &variant->parent, enum_tag, tag_name); - return &variant->parent; + var_ft, tag_ft, tag_name); + goto end; + error: - return NULL; + BT_PUT(var_ft); + +end: + return (void *) var_ft; } -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_tag_type( - struct bt_ctf_field_type *type) +BT_HIDDEN +struct bt_field_type_common * +bt_field_type_common_variant_borrow_tag_field_type( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_variant *variant; - struct bt_ctf_field_type *tag_type = NULL; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common *tag_ft = NULL; - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - if (!variant->tag) { + if (!var_ft->tag_ft) { BT_LOGV("Variant field type has no tag field type: " - "addr=%p", type); + "addr=%p", ft); goto end; } - tag_type = &variant->tag->parent; - bt_get(tag_type); + tag_ft = BT_TO_COMMON(var_ft->tag_ft); + end: - return tag_type; + return tag_ft; } -const char *bt_ctf_field_type_variant_get_tag_name( - struct bt_ctf_field_type *type) +struct bt_field_type *bt_field_type_variant_borrow_tag_field_type( + struct bt_field_type *ft) { - struct bt_ctf_field_type_variant *variant; - const char *tag_name = NULL; + return (void *) bt_field_type_common_variant_borrow_tag_field_type( + (void *) ft); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } +BT_HIDDEN +const char *bt_field_type_common_variant_get_tag_name( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + const char *tag_name = NULL; - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - if (variant->tag_name->len == 0) { + if (var_ft->tag_name->len == 0) { BT_LOGV("Variant field type has no tag field name: " - "addr=%p", type); + "addr=%p", ft); goto end; } - tag_name = variant->tag_name->str; + tag_name = var_ft->tag_name->str; + end: return tag_name; } -int bt_ctf_field_type_variant_set_tag_name( - struct bt_ctf_field_type *type, const char *name) +const char *bt_field_type_variant_get_tag_name(struct bt_field_type *ft) +{ + return bt_field_type_common_variant_get_tag_name((void *) ft); +} + +BT_HIDDEN +int bt_field_type_common_variant_set_tag_name( + struct bt_field_type_common *ft, const char *name) { int ret = 0; - struct bt_ctf_field_type_variant *variant; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { + if (ft->id != BT_FIELD_TYPE_ID_VARIANT) { BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - if (bt_ctf_validate_identifier(name)) { + if (!bt_identifier_is_valid(name)) { BT_LOGW("Invalid parameter: tag field name is not a valid CTF identifier: " "variant-ft-addr=%p, tag-field-name=\"%s\"", - type, name); + ft, name); ret = -1; goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - g_string_assign(variant->tag_name, name); + g_string_assign(var_ft->tag_name, name); BT_LOGV("Set variant field type's tag field name: addr=%p, " - "tag-field-name=\"%s\"", type, name); + "tag-field-name=\"%s\"", ft, name); + end: return ret; } -int bt_ctf_field_type_variant_add_field(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *field_type, +int bt_field_type_variant_set_tag_name( + struct bt_field_type *ft, const char *name) +{ + return bt_field_type_common_variant_set_tag_name((void *) ft, name); +} + +BT_HIDDEN +int bt_field_type_common_variant_add_field(struct bt_field_type_common *ft, + struct bt_field_type_common *field_type, const char *field_name) { size_t i; int ret = 0; - struct bt_ctf_field_type_variant *variant; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); GQuark field_name_quark = g_quark_from_string(field_name); /* * TODO: check that `field_type` does not contain `type`, * recursively. */ - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); - ret = -1; - goto end; - } - - if (bt_ctf_validate_identifier(field_name)) { - BT_LOGW("Invalid parameter: field name is not a valid CTF identifier: " - "variant-ft-addr=%p, field-name=\"%s\"", - type, field_name); + ft); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { + if (ft->id != BT_FIELD_TYPE_ID_VARIANT) { BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - if (type == field_type) { + if (ft == field_type) { BT_LOGW("Invalid parameter: variant field type and field type to add are the same: " - "addr=%p", type); + "addr=%p", ft); ret = -1; goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - /* The user has explicitly provided a tag; validate against it. */ - if (variant->tag) { + if (var_ft->tag_ft) { int name_found = 0; /* Make sure this name is present in the enum tag */ - for (i = 0; i < variant->tag->entries->len; i++) { + for (i = 0; i < var_ft->tag_ft->entries->len; i++) { struct enumeration_mapping *mapping = - g_ptr_array_index(variant->tag->entries, i); + g_ptr_array_index(var_ft->tag_ft->entries, i); if (mapping->string == field_name_quark) { name_found = 1; @@ -2419,198 +2611,207 @@ int bt_ctf_field_type_variant_add_field(struct bt_ctf_field_type *type, "variant-ft-addr=%p, tag-ft-addr=%p, " "tag-field-name=\"%s\"" "field-ft-addr=%p, field-name=\"%s\"", - type, variant->tag, variant->tag_name->str, + ft, var_ft->tag_ft, var_ft->tag_name->str, field_type, field_name); ret = -1; goto end; } } - if (add_structure_field(variant->fields, variant->field_name_to_index, - field_type, field_name)) { + if (add_structure_variant_member(var_ft->choices, + var_ft->choice_name_to_index, field_type, + field_name, true)) { BT_LOGW("Cannot add field to variant field type: " "variant-ft-addr=%p, field-ft-addr=%p, field-name=\"%s\"", - type, field_type, field_name); + ft, field_type, field_name); ret = -1; goto end; } BT_LOGV("Added variant field type field: variant-ft-addr=%p, " - "field-ft-addr=%p, field-name=\"%s\"", type, + "field-ft-addr=%p, field-name=\"%s\"", ft, field_type, field_name); end: return ret; } -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_by_name( - struct bt_ctf_field_type *type, +int bt_field_type_variant_add_field(struct bt_field_type *ft, + struct bt_field_type *field_type, + const char *field_name) +{ + return bt_field_type_common_variant_add_field((void *) ft, + (void *) field_type, field_name); +} + +BT_HIDDEN +struct bt_field_type_common * +bt_field_type_common_variant_borrow_field_type_by_name( + struct bt_field_type_common *ft, const char *field_name) { size_t index; GQuark name_quark; - struct structure_field *field; - struct bt_ctf_field_type_variant *variant; - struct bt_ctf_field_type *field_type = NULL; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } - - if (!field_name) { - BT_LOGW_STR("Invalid parameter: field name is NULL."); - goto end; - } - + struct bt_field_type_common_variant_choice *choice; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common *field_type = NULL; + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(field_name, "Name"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); name_quark = g_quark_try_string(field_name); if (!name_quark) { - BT_LOGE("Cannot get GQuark: string=\"%s\"", field_name); + BT_LOGV("No such variant field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, field_name); goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - if (!g_hash_table_lookup_extended(variant->field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *)&index)) { + if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, + GUINT_TO_POINTER(name_quark), NULL, (gpointer *) &index)) { + BT_LOGV("No such variant field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, field_name); goto end; } - field = g_ptr_array_index(variant->fields, index); - field_type = field->type; - bt_get(field_type); + choice = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, index); + field_type = choice->type; + end: return field_type; } -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_from_tag( - struct bt_ctf_field_type *type, - struct bt_ctf_field *tag) +struct bt_field_type *bt_field_type_variant_borrow_field_type_by_name( + struct bt_field_type *ft, + const char *field_name) { - int ret; - const char *enum_value; - struct bt_ctf_field_type *field_type = NULL; - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; + return (void *) bt_field_type_common_variant_borrow_field_type_by_name( + (void *) ft, field_name); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: variant field type is NULL."); - goto end; - } +BT_HIDDEN +int64_t bt_field_type_common_variant_get_field_count( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - if (!tag) { - BT_LOGW_STR("Invalid parameter: tag field is NULL."); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Variant field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); + return (int64_t) var_ft->choices->len; +} - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } +int64_t bt_field_type_variant_get_field_count(struct bt_field_type *ft) +{ + return bt_field_type_common_variant_get_field_count((void *) ft); +} - iter = bt_ctf_field_enumeration_get_mappings(tag); - if (!iter) { - BT_LOGE("Cannot get enumeration field type mapping iterator from enumeration field: " - "enum-field-addr=%p", tag); - goto end; +BT_HIDDEN +int bt_field_type_common_variant_borrow_field_by_index( + struct bt_field_type_common *ft, + const char **field_name, + struct bt_field_type_common **field_type, uint64_t index) +{ + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common_variant_choice *choice; + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); + BT_ASSERT_PRE(index < var_ft->choices->len, + "Index is out of bounds: index=%" PRIu64 ", " + "count=%u, %![ft-]+_F", + index, var_ft->choices->len, ft); + choice = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, index); + + if (field_type) { + *field_type = choice->type; } - ret = bt_ctf_field_type_enumeration_mapping_iterator_get_signed(iter, - &enum_value, NULL, NULL); - if (ret) { - BT_LOGW("Cannot get enumeration field type mapping iterator's current mapping: " - "iter-addr=%p", iter); - goto end; + if (field_name) { + *field_name = g_quark_to_string(choice->name); + BT_ASSERT(*field_name); } - field_type = bt_ctf_field_type_variant_get_field_type_by_name( - type, enum_value); -end: - bt_put(iter); - return field_type; + return 0; } -int64_t bt_ctf_field_type_variant_get_field_count(struct bt_ctf_field_type *type) +int bt_field_type_variant_borrow_field_by_index(struct bt_field_type *ft, + const char **field_name, struct bt_field_type **field_type, + uint64_t index) { - int64_t ret = 0; - struct bt_ctf_field_type_variant *variant; + return bt_field_type_common_variant_borrow_field_by_index((void *) ft, + field_name, (void *) field_type, index); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = (int64_t) -1; - goto end; - } +BT_HIDDEN +int64_t bt_field_type_common_variant_find_choice_index( + struct bt_field_type_common *ft, uint64_t uval, + bool is_signed) +{ + int64_t ret; + uint64_t i; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = (int64_t) -1; + BT_ASSERT(ft); + BT_ASSERT(ft->id == BT_FIELD_TYPE_ID_VARIANT); + + if (bt_field_type_common_variant_update_choices(ft)) { + ret = INT64_C(-1); goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - ret = (int64_t) variant->fields->len; -end: - return ret; + for (i = 0; i < var_ft->choices->len; i++) { + uint64_t range_i; + struct bt_field_type_common_variant_choice *choice = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + var_ft, i); -} + for (range_i = 0; range_i < choice->ranges->len; range_i++) { + struct bt_field_type_common_variant_choice_range *range = + &g_array_index( + choice->ranges, + struct bt_field_type_common_variant_choice_range, + range_i); -int bt_ctf_field_type_variant_get_field_by_index(struct bt_ctf_field_type *type, - const char **field_name, struct bt_ctf_field_type **field_type, - uint64_t index) -{ - struct bt_ctf_field_type_variant *variant; - struct structure_field *field; - int ret = 0; + if (is_signed) { + int64_t tag_ival = (int64_t) uval; - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; + if (tag_ival >= range->lower.i && + tag_ival <= range->upper.i) { + goto found; + } + } else { + if (uval >= range->lower.u && + uval <= range->upper.u) { + goto found; + } + } + } } - if (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + /* Range not found */ + ret = INT64_C(-1); + goto end; - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - if (index >= variant->fields->len) { - BT_LOGW("Invalid parameter: index is out of bounds: " - "addr=%p, index=%" PRIu64 ", count=%u", - type, index, variant->fields->len); - ret = -1; - goto end; - } +found: + ret = (int64_t) i; - field = g_ptr_array_index(variant->fields, index); - if (field_type) { - *field_type = field->type; - bt_get(field->type); - } - if (field_name) { - *field_name = g_quark_to_string(field->name); - } end: return ret; } -struct bt_ctf_field_type *bt_ctf_field_type_array_create( - struct bt_ctf_field_type *element_type, - unsigned int length) +struct bt_field_type *bt_field_type_array_create( + struct bt_field_type *element_ft, unsigned int length) { - struct bt_ctf_field_type_array *array = NULL; + struct bt_field_type_common_array *array = NULL; BT_LOGD("Creating array field type object: element-ft-addr=%p, " - "length=%u", element_type, length); + "length=%u", element_ft, length); - if (!element_type) { + if (!element_ft) { BT_LOGW_STR("Invalid parameter: element field type is NULL."); goto error; } @@ -2620,252 +2821,230 @@ struct bt_ctf_field_type *bt_ctf_field_type_array_create( goto error; } - array = g_new0(struct bt_ctf_field_type_array, 1); + array = g_new0(struct bt_field_type_common_array, 1); if (!array) { BT_LOGE_STR("Failed to allocate one array field type."); goto error; } - array->parent.id = BT_CTF_FIELD_TYPE_ID_ARRAY; - bt_get(element_type); - array->element_type = element_type; - array->length = length; - bt_ctf_field_type_init(&array->parent, FALSE); + bt_field_type_common_array_initialize(BT_TO_COMMON(array), + (void *) element_ft, length, + bt_field_type_common_array_destroy_recursive, + &bt_field_type_array_methods); BT_LOGD("Created array field type object: addr=%p, " "element-ft-addr=%p, length=%u", - &array->parent, element_type, length); - return &array->parent; + array, element_ft, length); + goto end; + error: - return NULL; + BT_PUT(array); + +end: + return (void *) array; } -struct bt_ctf_field_type *bt_ctf_field_type_array_get_element_type( - struct bt_ctf_field_type *type) +BT_HIDDEN +struct bt_field_type_common * +bt_field_type_common_array_borrow_element_field_type( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type *ret = NULL; - struct bt_ctf_field_type_array *array; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY) { - BT_LOGW("Invalid parameter: field type is not an array field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ARRAY, + "Field type"); + BT_ASSERT(array_ft && array_ft->element_ft); + return array_ft->element_ft; +} - array = container_of(type, struct bt_ctf_field_type_array, parent); - ret = array->element_type; - bt_get(ret); -end: - return ret; +struct bt_field_type *bt_field_type_array_borrow_element_field_type( + struct bt_field_type *ft) +{ + return (void *) bt_field_type_common_array_borrow_element_field_type( + (void *) ft); } BT_HIDDEN -int bt_ctf_field_type_array_set_element_type(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *element_type) +int bt_field_type_common_array_set_element_field_type( + struct bt_field_type_common *ft, + struct bt_field_type_common *element_ft) { int ret = 0; - struct bt_ctf_field_type_array *array; + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: array field type is NULL."); ret = -1; goto end; } - if (!element_type) { + if (!element_ft) { BT_LOGW_STR("Invalid parameter: element field type is NULL."); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY) { + if (ft->id != BT_FIELD_TYPE_ID_ARRAY) { BT_LOGW("Invalid parameter: field type is not an array field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - array = container_of(type, struct bt_ctf_field_type_array, parent); - - if (array->element_type) { - BT_PUT(array->element_type); + if (array_ft->element_ft) { + BT_PUT(array_ft->element_ft); } - array->element_type = element_type; - bt_get(array->element_type); + array_ft->element_ft = bt_get(element_ft); BT_LOGV("Set array field type's element field type: array-ft-addr=%p, " - "element-ft-addr=%p", type, element_type); + "element-ft-addr=%p", ft, element_ft); end: return ret; } -int64_t bt_ctf_field_type_array_get_length(struct bt_ctf_field_type *type) +BT_HIDDEN +int64_t bt_field_type_common_array_get_length(struct bt_field_type_common *ft) { - int64_t ret; - struct bt_ctf_field_type_array *array; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = (int64_t) -1; - goto end; - } + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY) { - BT_LOGW("Invalid parameter: field type is not an array field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = (int64_t) -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_ARRAY, + "Field type"); + return (int64_t) array_ft->length; +} - array = container_of(type, struct bt_ctf_field_type_array, parent); - ret = (int64_t) array->length; -end: - return ret; +int64_t bt_field_type_array_get_length(struct bt_field_type *ft) +{ + return bt_field_type_common_array_get_length((void *) ft); } -struct bt_ctf_field_type *bt_ctf_field_type_sequence_create( - struct bt_ctf_field_type *element_type, +struct bt_field_type *bt_field_type_sequence_create( + struct bt_field_type *element_ft, const char *length_field_name) { - struct bt_ctf_field_type_sequence *sequence = NULL; + struct bt_field_type_common_sequence *sequence = NULL; BT_LOGD("Creating sequence field type object: element-ft-addr=%p, " - "length-field-name=\"%s\"", element_type, length_field_name); + "length-field-name=\"%s\"", element_ft, length_field_name); - if (!element_type) { + if (!element_ft) { BT_LOGW_STR("Invalid parameter: element field type is NULL."); goto error; } - if (bt_ctf_validate_identifier(length_field_name)) { + if (!bt_identifier_is_valid(length_field_name)) { BT_LOGW("Invalid parameter: length field name is not a valid CTF identifier: " "length-field-name=\"%s\"", length_field_name); goto error; } - sequence = g_new0(struct bt_ctf_field_type_sequence, 1); + sequence = g_new0(struct bt_field_type_common_sequence, 1); if (!sequence) { BT_LOGE_STR("Failed to allocate one sequence field type."); goto error; } - sequence->parent.id = BT_CTF_FIELD_TYPE_ID_SEQUENCE; - bt_get(element_type); - sequence->element_type = element_type; - sequence->length_field_name = g_string_new(length_field_name); - bt_ctf_field_type_init(&sequence->parent, FALSE); + bt_field_type_common_sequence_initialize(BT_TO_COMMON(sequence), + (void *) element_ft, length_field_name, + bt_field_type_common_sequence_destroy_recursive, + &bt_field_type_sequence_methods); BT_LOGD("Created sequence field type object: addr=%p, " "element-ft-addr=%p, length-field-name=\"%s\"", - &sequence->parent, element_type, length_field_name); - return &sequence->parent; + sequence, element_ft, length_field_name); + goto end; + error: - return NULL; + BT_PUT(sequence); + +end: + return (void *) sequence; } -struct bt_ctf_field_type *bt_ctf_field_type_sequence_get_element_type( - struct bt_ctf_field_type *type) +BT_HIDDEN +struct bt_field_type_common *bt_field_type_common_sequence_borrow_element_field_type( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type *ret = NULL; - struct bt_ctf_field_type_sequence *sequence; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { - BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_SEQUENCE, + "Field type"); + return seq_ft->element_ft; +} - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - ret = sequence->element_type; - bt_get(ret); -end: - return ret; +struct bt_field_type *bt_field_type_sequence_borrow_element_field_type( + struct bt_field_type *ft) +{ + return (void *) bt_field_type_common_sequence_borrow_element_field_type( + (void *) ft); } BT_HIDDEN -int bt_ctf_field_type_sequence_set_element_type(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *element_type) +int bt_field_type_common_sequence_set_element_field_type( + struct bt_field_type_common *ft, + struct bt_field_type_common *element_ft) { int ret = 0; - struct bt_ctf_field_type_sequence *sequence; + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: sequence field type is NULL."); ret = -1; goto end; } - if (!element_type) { + if (!element_ft) { BT_LOGW_STR("Invalid parameter: element field type is NULL."); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { + if (ft->id != BT_FIELD_TYPE_ID_SEQUENCE) { BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - sequence = container_of(type, struct bt_ctf_field_type_sequence, parent); - if (sequence->element_type) { - BT_PUT(sequence->element_type); + if (seq_ft->element_ft) { + BT_PUT(seq_ft->element_ft); } - sequence->element_type = element_type; - bt_get(sequence->element_type); + seq_ft->element_ft = element_ft; + bt_get(seq_ft->element_ft); BT_LOGV("Set sequence field type's element field type: sequence-ft-addr=%p, " - "element-ft-addr=%p", type, element_type); + "element-ft-addr=%p", ft, element_ft); end: return ret; } -const char *bt_ctf_field_type_sequence_get_length_field_name( - struct bt_ctf_field_type *type) +BT_HIDDEN +const char *bt_field_type_common_sequence_get_length_field_name( + struct bt_field_type_common *ft) { - const char *ret = NULL; - struct bt_ctf_field_type_sequence *sequence; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { - BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_SEQUENCE, + "Field type"); + return seq_ft->length_field_name ? + seq_ft->length_field_name->str : NULL; +} - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - ret = sequence->length_field_name->str; -end: - return ret; +const char *bt_field_type_sequence_get_length_field_name( + struct bt_field_type *ft) +{ + return bt_field_type_common_sequence_get_length_field_name((void *) ft); } -struct bt_ctf_field_type *bt_ctf_field_type_string_create(void) +struct bt_field_type *bt_field_type_string_create(void) { - struct bt_ctf_field_type_string *string = - g_new0(struct bt_ctf_field_type_string, 1); + struct bt_field_type_common_string *string = + g_new0(struct bt_field_type_common_string, 1); BT_LOGD_STR("Creating string field type object."); @@ -2874,396 +3053,410 @@ struct bt_ctf_field_type *bt_ctf_field_type_string_create(void) return NULL; } - string->parent.id = BT_CTF_FIELD_TYPE_ID_STRING; - bt_ctf_field_type_init(&string->parent, TRUE); - string->encoding = BT_CTF_STRING_ENCODING_UTF8; - string->parent.alignment = CHAR_BIT; - BT_LOGD("Created string field type object: addr=%p", &string->parent); - return &string->parent; + bt_field_type_common_string_initialize(BT_TO_COMMON(string), + bt_field_type_common_string_destroy, + &bt_field_type_string_methods); + BT_LOGD("Created string field type object: addr=%p", string); + return (void *) string; } -enum bt_ctf_string_encoding bt_ctf_field_type_string_get_encoding( - struct bt_ctf_field_type *type) +BT_HIDDEN +enum bt_string_encoding bt_field_type_common_string_get_encoding( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_string *string; - enum bt_ctf_string_encoding ret = BT_CTF_STRING_ENCODING_UNKNOWN; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } + struct bt_field_type_common_string *string_ft = BT_FROM_COMMON(ft); - if (type->id != BT_CTF_FIELD_TYPE_ID_STRING) { - BT_LOGW("Invalid parameter: field type is not a string field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_STRING, + "Field type"); + return string_ft->encoding; +} - string = container_of(type, struct bt_ctf_field_type_string, - parent); - ret = string->encoding; -end: - return ret; +enum bt_string_encoding bt_field_type_string_get_encoding( + struct bt_field_type *ft) +{ + return bt_field_type_common_string_get_encoding((void *) ft); } -int bt_ctf_field_type_string_set_encoding(struct bt_ctf_field_type *type, - enum bt_ctf_string_encoding encoding) +BT_HIDDEN +int bt_field_type_common_string_set_encoding(struct bt_field_type_common *ft, + enum bt_string_encoding encoding) { int ret = 0; - struct bt_ctf_field_type_string *string; + struct bt_field_type_common_string *string_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->id != BT_CTF_FIELD_TYPE_ID_STRING) { + if (ft->id != BT_FIELD_TYPE_ID_STRING) { BT_LOGW("Invalid parameter: field type is not a string field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - if ((encoding != BT_CTF_STRING_ENCODING_UTF8 && - encoding != BT_CTF_STRING_ENCODING_ASCII)) { + if (encoding != BT_STRING_ENCODING_UTF8 && + encoding != BT_STRING_ENCODING_ASCII) { BT_LOGW("Invalid parameter: unknown string encoding: " - "addr=%p, encoding=%d", type, encoding); + "addr=%p, encoding=%d", ft, encoding); ret = -1; goto end; } - string = container_of(type, struct bt_ctf_field_type_string, parent); - string->encoding = encoding; + string_ft->encoding = encoding; BT_LOGV("Set string field type's encoding: addr=%p, encoding=%s", - type, bt_ctf_string_encoding_string(encoding)); + ft, bt_common_string_encoding_string(encoding)); + end: return ret; } -int bt_ctf_field_type_get_alignment(struct bt_ctf_field_type *type) +int bt_field_type_string_set_encoding(struct bt_field_type *ft, + enum bt_string_encoding encoding) +{ + return bt_field_type_common_string_set_encoding((void *) ft, encoding); +} + +BT_HIDDEN +int bt_field_type_common_get_alignment(struct bt_field_type_common *ft) { int ret; - enum bt_ctf_field_type_id type_id; + enum bt_field_type_id type_id; - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - if (type->frozen) { - ret = (int) type->alignment; + if (ft->frozen) { + ret = (int) ft->alignment; goto end; } - type_id = bt_ctf_field_type_get_type_id(type); + type_id = bt_field_type_common_get_type_id(ft); switch (type_id) { - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: + case BT_FIELD_TYPE_ID_SEQUENCE: { - struct bt_ctf_field_type *element = - bt_ctf_field_type_sequence_get_element_type(type); + struct bt_field_type_common *element_ft = + bt_field_type_common_sequence_borrow_element_field_type(ft); - assert(element); - ret = bt_ctf_field_type_get_alignment(element); - bt_put(element); + BT_ASSERT(element_ft); + ret = bt_field_type_common_get_alignment(element_ft); break; } - case BT_CTF_FIELD_TYPE_ID_ARRAY: + case BT_FIELD_TYPE_ID_ARRAY: { - struct bt_ctf_field_type *element = - bt_ctf_field_type_array_get_element_type(type); + struct bt_field_type_common *element_ft = + bt_field_type_common_array_borrow_element_field_type(ft); - assert(element); - ret = bt_ctf_field_type_get_alignment(element); - bt_put(element); + BT_ASSERT(element_ft); + ret = bt_field_type_common_get_alignment(element_ft); break; } - case BT_CTF_FIELD_TYPE_ID_STRUCT: + case BT_FIELD_TYPE_ID_STRUCT: { int64_t i, element_count; - element_count = bt_ctf_field_type_structure_get_field_count( - type); - assert(element_count >= 0); + element_count = bt_field_type_common_structure_get_field_count( + ft); + BT_ASSERT(element_count >= 0); for (i = 0; i < element_count; i++) { - struct bt_ctf_field_type *field; + struct bt_field_type_common *field = NULL; int field_alignment; - ret = bt_ctf_field_type_structure_get_field_by_index( - type, NULL, &field, i); - assert(ret == 0); - assert(field); - field_alignment = bt_ctf_field_type_get_alignment( + ret = bt_field_type_common_structure_borrow_field_by_index( + ft, NULL, &field, i); + BT_ASSERT(ret == 0); + BT_ASSERT(field); + field_alignment = bt_field_type_common_get_alignment( field); - bt_put(field); if (field_alignment < 0) { ret = field_alignment; goto end; } - type->alignment = MAX(field_alignment, type->alignment); + ft->alignment = MAX(field_alignment, ft->alignment); } - ret = (int) type->alignment; + ret = (int) ft->alignment; break; } - case BT_CTF_FIELD_TYPE_ID_UNKNOWN: + case BT_FIELD_TYPE_ID_UNKNOWN: BT_LOGW("Invalid parameter: unknown field type ID: " - "addr=%p, ft-id=%d", type, type_id); + "addr=%p, ft-id=%d", ft, type_id); ret = -1; break; default: - ret = (int) type->alignment; + ret = (int) ft->alignment; break; } + end: return ret; } +int bt_field_type_get_alignment(struct bt_field_type *ft) +{ + return bt_field_type_common_get_alignment((void *) ft); +} + static inline int is_power_of_two(unsigned int value) { return ((value & (value - 1)) == 0) && value > 0; } -int bt_ctf_field_type_set_alignment(struct bt_ctf_field_type *type, +BT_HIDDEN +int bt_field_type_common_set_alignment(struct bt_field_type_common *ft, unsigned int alignment) { int ret = 0; - enum bt_ctf_field_type_id type_id; + enum bt_field_type_id type_id; /* Alignment must be a power of two */ - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } if (!is_power_of_two(alignment)) { BT_LOGW("Invalid parameter: alignment is not a power of two: " - "addr=%p, align=%u", type, alignment); + "addr=%p, align=%u", ft, alignment); ret = -1; goto end; } - type_id = bt_ctf_field_type_get_type_id(type); - if (type_id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { + type_id = bt_field_type_common_get_type_id(ft); + if (type_id == BT_FIELD_TYPE_ID_UNKNOWN) { BT_LOGW("Invalid parameter: unknown field type ID: " - "addr=%p, ft-id=%d", type, type_id); + "addr=%p, ft-id=%d", ft, type_id); ret = -1; goto end; } - if (type->id == BT_CTF_FIELD_TYPE_ID_STRING && - alignment != CHAR_BIT) { + if (ft->id == BT_FIELD_TYPE_ID_STRING && alignment != CHAR_BIT) { BT_LOGW("Invalid parameter: alignment must be %u for a string field type: " - "addr=%p, align=%u", CHAR_BIT, type, alignment); + "addr=%p, align=%u", CHAR_BIT, ft, alignment); ret = -1; goto end; } - if (type_id == BT_CTF_FIELD_TYPE_ID_VARIANT || - type_id == BT_CTF_FIELD_TYPE_ID_SEQUENCE || - type_id == BT_CTF_FIELD_TYPE_ID_ARRAY) { + if (type_id == BT_FIELD_TYPE_ID_VARIANT || + type_id == BT_FIELD_TYPE_ID_SEQUENCE || + type_id == BT_FIELD_TYPE_ID_ARRAY) { /* Setting an alignment on these types makes no sense */ BT_LOGW("Invalid parameter: cannot set the alignment of this field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - type->alignment = alignment; + ft->alignment = alignment; ret = 0; BT_LOGV("Set field type's alignment: addr=%p, align=%u", - type, alignment); + ft, alignment); + end: return ret; } -enum bt_ctf_byte_order bt_ctf_field_type_get_byte_order( - struct bt_ctf_field_type *type) +int bt_field_type_set_alignment(struct bt_field_type *ft, + unsigned int alignment) { - enum bt_ctf_byte_order ret = BT_CTF_BYTE_ORDER_UNKNOWN; + return bt_field_type_common_set_alignment((void *) ft, alignment); +} - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } +BT_HIDDEN +enum bt_byte_order bt_field_type_common_get_byte_order( + struct bt_field_type_common *ft) +{ + enum bt_byte_order ret = BT_BYTE_ORDER_UNKNOWN; - switch (type->id) { - case BT_CTF_FIELD_TYPE_ID_INTEGER: + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + + switch (ft->id) { + case BT_FIELD_TYPE_ID_INTEGER: { - struct bt_ctf_field_type_integer *integer = container_of( - type, struct bt_ctf_field_type_integer, parent); + struct bt_field_type_common_integer *integer = + BT_FROM_COMMON(ft); + ret = integer->user_byte_order; break; } - case BT_CTF_FIELD_TYPE_ID_ENUM: + case BT_FIELD_TYPE_ID_ENUM: { - struct bt_ctf_field_type_enumeration *enum_ft = container_of( - type, struct bt_ctf_field_type_enumeration, parent); - ret = bt_ctf_field_type_get_byte_order(enum_ft->container); + struct bt_field_type_common_enumeration *enum_ft = + BT_FROM_COMMON(ft); + + ret = bt_field_type_common_get_byte_order( + BT_TO_COMMON(enum_ft->container_ft)); break; } - case BT_CTF_FIELD_TYPE_ID_FLOAT: + case BT_FIELD_TYPE_ID_FLOAT: { - struct bt_ctf_field_type_floating_point *floating_point = - container_of(type, - struct bt_ctf_field_type_floating_point, - parent); + struct bt_field_type_common_floating_point *floating_point = + BT_FROM_COMMON(ft); ret = floating_point->user_byte_order; break; } default: BT_LOGW("Invalid parameter: cannot get the byte order of this field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); goto end; } - assert(ret == BT_CTF_BYTE_ORDER_NATIVE || - ret == BT_CTF_BYTE_ORDER_LITTLE_ENDIAN || - ret == BT_CTF_BYTE_ORDER_BIG_ENDIAN || - ret == BT_CTF_BYTE_ORDER_NETWORK); + BT_ASSERT(ret == BT_BYTE_ORDER_NATIVE || + ret == BT_BYTE_ORDER_LITTLE_ENDIAN || + ret == BT_BYTE_ORDER_BIG_ENDIAN || + ret == BT_BYTE_ORDER_NETWORK); end: return ret; } -int bt_ctf_field_type_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +enum bt_byte_order bt_field_type_get_byte_order(struct bt_field_type *ft) +{ + return bt_field_type_common_get_byte_order((void *) ft); +} + +BT_HIDDEN +int bt_field_type_common_set_byte_order(struct bt_field_type_common *ft, + enum bt_byte_order byte_order) { int ret = 0; - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (type->frozen) { + if (ft->frozen) { BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - type); + ft); ret = -1; goto end; } - if (byte_order != BT_CTF_BYTE_ORDER_NATIVE && - byte_order != BT_CTF_BYTE_ORDER_LITTLE_ENDIAN && - byte_order != BT_CTF_BYTE_ORDER_BIG_ENDIAN && - byte_order != BT_CTF_BYTE_ORDER_NETWORK) { - BT_LOGW("Invalid parameter: unknown byte order: " - "addr=%p, bo=%s", type, - bt_ctf_byte_order_string(byte_order)); + if (byte_order != BT_BYTE_ORDER_NATIVE && + byte_order != BT_BYTE_ORDER_LITTLE_ENDIAN && + byte_order != BT_BYTE_ORDER_BIG_ENDIAN && + byte_order != BT_BYTE_ORDER_NETWORK) { + BT_LOGW("Invalid parameter: invalid byte order: " + "addr=%p, bo=%s", ft, + bt_common_byte_order_string(byte_order)); ret = -1; goto end; } - if (set_byte_order_funcs[type->id]) { - set_byte_order_funcs[type->id](type, byte_order); + if (ft->methods->set_byte_order) { + ft->methods->set_byte_order(ft, byte_order); } BT_LOGV("Set field type's byte order: addr=%p, bo=%s", - type, bt_ctf_byte_order_string(byte_order)); + ft, bt_common_byte_order_string(byte_order)); end: return ret; } -enum bt_ctf_field_type_id bt_ctf_field_type_get_type_id( - struct bt_ctf_field_type *type) +int bt_field_type_set_byte_order(struct bt_field_type *ft, + enum bt_byte_order byte_order) { - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - return BT_CTF_FIELD_TYPE_ID_UNKNOWN; - } - - return type->id; + return bt_field_type_common_set_byte_order((void *) ft, byte_order); } -int bt_ctf_field_type_is_integer(struct bt_ctf_field_type *type) +BT_HIDDEN +enum bt_field_type_id bt_field_type_common_get_type_id( + struct bt_field_type_common *ft) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_INTEGER; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + return ft->id; } -int bt_ctf_field_type_is_floating_point(struct bt_ctf_field_type *type) +enum bt_field_type_id bt_field_type_get_type_id(struct bt_field_type *ft) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_FLOAT; + return bt_field_type_common_get_type_id((void *) ft); } -int bt_ctf_field_type_is_enumeration(struct bt_ctf_field_type *type) +int bt_field_type_is_integer(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_ENUM; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_INTEGER; } -int bt_ctf_field_type_is_string(struct bt_ctf_field_type *type) +int bt_field_type_is_floating_point(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_STRING; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_FLOAT; } -int bt_ctf_field_type_is_structure(struct bt_ctf_field_type *type) +int bt_field_type_is_enumeration(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_STRUCT; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_ENUM; } -int bt_ctf_field_type_is_array(struct bt_ctf_field_type *type) +int bt_field_type_is_string(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_ARRAY; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_STRING; } -int bt_ctf_field_type_is_sequence(struct bt_ctf_field_type *type) +int bt_field_type_is_structure(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_SEQUENCE; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_STRUCT; } -int bt_ctf_field_type_is_variant(struct bt_ctf_field_type *type) +int bt_field_type_is_array(struct bt_field_type *type) { - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_VARIANT; + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_ARRAY; } -/* Pre-2.0 CTF writer backward compatibility */ -void bt_ctf_field_type_get(struct bt_ctf_field_type *type) +int bt_field_type_is_sequence(struct bt_field_type *type) { - bt_get(type); + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_SEQUENCE; } -/* Pre-2.0 CTF writer backward compatibility */ -void bt_ctf_field_type_put(struct bt_ctf_field_type *type) +int bt_field_type_is_variant(struct bt_field_type *type) { - bt_put(type); + return bt_field_type_get_type_id(type) == BT_FIELD_TYPE_ID_VARIANT; } BT_HIDDEN -void bt_ctf_field_type_freeze(struct bt_ctf_field_type *type) +void _bt_field_type_common_freeze(struct bt_field_type_common *ft) { - if (!type || type->frozen) { + if (!ft || ft->frozen) { return; } - BT_LOGD("Freezing field type: addr=%p", type); - type->freeze(type); + BT_ASSERT(ft->methods->freeze); + ft->methods->freeze(ft); +} + +BT_HIDDEN +void _bt_field_type_freeze(struct bt_field_type *ft) +{ + _bt_field_type_common_freeze((void *) ft); } BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_signed( - struct bt_ctf_field_type_variant *variant, +struct bt_field_type_common * +bt_field_type_common_variant_borrow_field_type_signed( + struct bt_field_type_common_variant *var_ft, int64_t tag_value) { - struct bt_ctf_field_type *type = NULL; + struct bt_field_type_common *field_type = NULL; GQuark field_name_quark; gpointer index; - struct structure_field *field_entry; + struct bt_field_type_common_variant_choice *choice; struct range_overlap_query query = { .range_start._signed = tag_value, .range_end._signed = tag_value, @@ -3271,33 +3464,36 @@ struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_signed( .overlaps = 0, }; - g_ptr_array_foreach(variant->tag->entries, check_ranges_overlap, + g_ptr_array_foreach(var_ft->tag_ft->entries, check_ranges_overlap, &query); if (!query.overlaps) { goto end; } field_name_quark = query.mapping_name; - if (!g_hash_table_lookup_extended(variant->field_name_to_index, - GUINT_TO_POINTER(field_name_quark), NULL, &index)) { + if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, + GUINT_TO_POINTER(field_name_quark), NULL, &index)) { goto end; } - field_entry = g_ptr_array_index(variant->fields, (size_t) index); - type = field_entry->type; + choice = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, + (size_t) index); + field_type = choice->type; + end: - return type; + return field_type; } BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_unsigned( - struct bt_ctf_field_type_variant *variant, +struct bt_field_type_common * +bt_field_type_common_variant_borrow_field_type_unsigned( + struct bt_field_type_common_variant *var_ft, uint64_t tag_value) { - struct bt_ctf_field_type *type = NULL; + struct bt_field_type_common *field_type = NULL; GQuark field_name_quark; gpointer index; - struct structure_field *field_entry; + struct bt_field_type_common_variant_choice *choice; struct range_overlap_query query = { .range_start._unsigned = tag_value, .range_end._unsigned = tag_value, @@ -3305,2000 +3501,1615 @@ struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_unsigned( .overlaps = 0, }; - g_ptr_array_foreach(variant->tag->entries, - check_ranges_overlap_unsigned, - &query); + g_ptr_array_foreach(var_ft->tag_ft->entries, + check_ranges_overlap_unsigned, &query); if (!query.overlaps) { goto end; } field_name_quark = query.mapping_name; - if (!g_hash_table_lookup_extended(variant->field_name_to_index, + if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, GUINT_TO_POINTER(field_name_quark), NULL, &index)) { goto end; } - field_entry = g_ptr_array_index(variant->fields, (size_t)index); - type = field_entry->type; + choice = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, + (size_t) index); + field_type = choice->type; + end: - return type; + return field_type; } BT_HIDDEN -int bt_ctf_field_type_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +struct bt_field_type_common *bt_field_type_common_copy( + struct bt_field_type_common *ft) { - int ret; - - assert(type); - assert(context); - - BT_LOGD("Serializing field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); + struct bt_field_type_common *ft_copy = NULL; - /* Make sure field type is valid before serializing it */ - ret = bt_ctf_field_type_validate(type); - if (ret) { - BT_LOGW_STR("Cannot serialize field type's metadata: field type is invalid."); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT(ft->methods->copy); + ft_copy = ft->methods->copy(ft); + if (!ft_copy) { + BT_LOGE_STR("Cannot copy field type."); goto end; } - ret = type->serialize(type, context); + ft_copy->alignment = ft->alignment; + end: - return ret; + return ft_copy; } -struct bt_ctf_field_type *bt_ctf_field_type_copy(struct bt_ctf_field_type *type) +struct bt_field_type *bt_field_type_copy(struct bt_field_type *ft) { - struct bt_ctf_field_type *copy = NULL; - - BT_LOGD("Copying field type object: addr=%p", type); - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto end; - } - - copy = type_copy_funcs[type->id](type); - if (!copy) { - BT_LOGE_STR("Cannot copy field type."); - goto end; - } - - copy->alignment = type->alignment; - BT_LOGD("Copied field type object: copy-ft-addr=%p", copy); -end: - return copy; + return (void *) bt_field_type_common_copy((void *) ft); } BT_HIDDEN -int bt_ctf_field_type_structure_get_field_name_index( - struct bt_ctf_field_type *type, const char *name) +int bt_field_type_common_structure_get_field_name_index( + struct bt_field_type_common *ft, const char *name) { int ret; size_t index; GQuark name_quark; - struct bt_ctf_field_type_structure *structure; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (!name) { - BT_LOGW_STR("Invalid parameter: field name is NULL."); - ret = -1; - goto end; - } + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); - if (bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_STRUCT) { - BT_LOGW("Invalid parameter: field type is not a structure field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCT, + "Field type"); name_quark = g_quark_try_string(name); if (!name_quark) { - BT_LOGE("Cannot get GQuark: string=\"%s\"", name); + BT_LOGV("No such structure field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); ret = -1; goto end; } - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - if (!g_hash_table_lookup_extended(structure->field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *)&index)) { + if (!g_hash_table_lookup_extended(struct_ft->field_name_to_index, + GUINT_TO_POINTER(name_quark), + NULL, (gpointer *) &index)) { + BT_LOGV("No such structure field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); ret = -1; goto end; } + ret = (int) index; + end: return ret; } BT_HIDDEN -int bt_ctf_field_type_variant_get_field_name_index( - struct bt_ctf_field_type *type, const char *name) +int bt_field_type_common_variant_get_field_name_index( + struct bt_field_type_common *ft, const char *name) { int ret; size_t index; GQuark name_quark; - struct bt_ctf_field_type_variant *variant; - - if (!type) { - BT_LOGW_STR("Invalid parameter: variant field type is NULL."); - ret = -1; - goto end; - } - - if (!name) { - BT_LOGW_STR("Invalid parameter: field name is NULL."); - ret = -1; - goto end; - } - - if (bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - ret = -1; - goto end; - } + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); name_quark = g_quark_try_string(name); if (!name_quark) { - BT_LOGE("Cannot get GQuark: string=\"%s\"", name); + BT_LOGV("No such variant field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); ret = -1; goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - if (!g_hash_table_lookup_extended(variant->field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *)&index)) { + if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, + GUINT_TO_POINTER(name_quark), + NULL, (gpointer *) &index)) { + BT_LOGV("No such variant field type field name: " + "ft-addr=%p, field-name=\"%s\"", + ft, name); ret = -1; goto end; } + ret = (int) index; + end: return ret; } BT_HIDDEN -int bt_ctf_field_type_sequence_set_length_field_path( - struct bt_ctf_field_type *type, - struct bt_ctf_field_path *path) +int bt_field_type_common_sequence_set_length_field_path( + struct bt_field_type_common *ft, struct bt_field_path *path) { int ret = 0; - struct bt_ctf_field_type_sequence *sequence; + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { + if (ft->id != BT_FIELD_TYPE_ID_SEQUENCE) { BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); bt_get(path); - BT_MOVE(sequence->length_field_path, path); + BT_MOVE(seq_ft->length_field_path, path); BT_LOGV("Set sequence field type's length field path: ft-addr=%p, " - "field-path-addr=%p", type, path); + "field-path-addr=%p", ft, path); + end: return ret; } BT_HIDDEN -int bt_ctf_field_type_variant_set_tag_field_path(struct bt_ctf_field_type *type, - struct bt_ctf_field_path *path) +int bt_field_type_common_variant_set_tag_field_path( + struct bt_field_type_common *ft, + struct bt_field_path *path) { int ret = 0; - struct bt_ctf_field_type_variant *variant; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: field type is NULL."); ret = -1; goto end; } - if (bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_VARIANT) { + if (ft->id != BT_FIELD_TYPE_ID_VARIANT) { BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + "addr=%p, ft-id=%s", ft, + bt_common_field_type_id_string(ft->id)); ret = -1; goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); bt_get(path); - BT_MOVE(variant->tag_field_path, path); + BT_MOVE(var_ft->tag_field_path, path); BT_LOGV("Set variant field type's tag field path: ft-addr=%p, " - "field-path-addr=%p", type, path); + "field-path-addr=%p", ft, path); + end: return ret; } BT_HIDDEN -int bt_ctf_field_type_variant_set_tag_field_type(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *tag) +int bt_field_type_common_variant_set_tag_field_type( + struct bt_field_type_common *ft, + struct bt_field_type_common *tag_ft) { int ret = 0; - struct bt_ctf_field_type_variant *variant; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - if (!type) { + if (!ft) { BT_LOGW_STR("Invalid parameter: variant field type is NULL."); ret = -1; goto end; } - if (!tag) { + if (!tag_ft) { BT_LOGW_STR("Invalid parameter: tag field type is NULL."); ret = -1; goto end; } - if (bt_ctf_field_type_get_type_id(tag) != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); + if (tag_ft->id != BT_FIELD_TYPE_ID_ENUM) { + BT_LOGW("Invalid parameter: tag field type is not an enumeration field type: " + "addr=%p, ft-id=%s", tag_ft, + bt_common_field_type_id_string(tag_ft->id)); ret = -1; goto end; } - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - bt_get(tag); - if (variant->tag) { - bt_put(&variant->tag->parent); - } - variant->tag = container_of(tag, struct bt_ctf_field_type_enumeration, - parent); + bt_put(var_ft->tag_ft); + var_ft->tag_ft = bt_get(tag_ft); BT_LOGV("Set variant field type's tag field type: variant-ft-addr=%p, " - "tag-ft-addr=%p", type, tag); + "tag-ft-addr=%p", ft, tag_ft); + end: return ret; } -static -void bt_ctf_field_type_integer_destroy(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_generic_freeze(struct bt_field_type_common *ft) { - struct bt_ctf_field_type_integer *integer = - (struct bt_ctf_field_type_integer *) type; + ft->frozen = 1; +} - if (!type) { - return; - } +BT_HIDDEN +void bt_field_type_common_enumeration_freeze_recursive( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); - BT_LOGD("Destroying integer field type object: addr=%p", type); - bt_put(integer->mapped_clock); - g_free(integer); + BT_LOGD("Freezing enumeration field type object: addr=%p", ft); + bt_field_type_common_enumeration_set_range_overlap(enum_ft); + bt_field_type_common_generic_freeze(ft); + BT_LOGD("Freezing enumeration field type object's container field type: int-ft-addr=%p", + enum_ft->container_ft); + bt_field_type_common_freeze(BT_TO_COMMON(enum_ft->container_ft)); } -static -void bt_ctf_field_type_enumeration_destroy(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_structure_freeze_recursive( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_enumeration *enumeration = - (struct bt_ctf_field_type_enumeration *) type; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); + uint64_t i; - if (!type) { - return; - } + /* Cache the alignment */ + BT_LOGD("Freezing structure field type object: addr=%p", ft); + ft->alignment = bt_field_type_common_get_alignment(ft); + bt_field_type_common_generic_freeze(ft); - BT_LOGD("Destroying enumeration field type object: addr=%p", type); - g_ptr_array_free(enumeration->entries, TRUE); - bt_put(enumeration->container); - g_free(enumeration); + for (i = 0; i < struct_ft->fields->len; i++) { + struct bt_field_type_common_structure_field *field = + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, i); + + BT_LOGD("Freezing structure field type field: " + "ft-addr=%p, name=\"%s\"", + field->type, g_quark_to_string(field->name)); + bt_field_type_common_freeze(field->type); + } } -static -void bt_ctf_field_type_floating_point_destroy(struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_variant_update_choices(struct bt_field_type_common *ft) { - struct bt_ctf_field_type_floating_point *floating_point = - (struct bt_ctf_field_type_floating_point *) type; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + uint64_t i; + int ret = 0; + bool is_signed; - if (!type) { - return; + if (ft->frozen && var_ft->choices_up_to_date) { + goto end; } - BT_LOGD("Destroying floating point number field type object: addr=%p", type); - g_free(floating_point); -} + BT_ASSERT(var_ft->tag_ft); + is_signed = !!var_ft->tag_ft->container_ft->is_signed; -static -void bt_ctf_field_type_structure_destroy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_structure *structure = - (struct bt_ctf_field_type_structure *) type; + for (i = 0; i < var_ft->choices->len; i++) { + struct bt_field_type_common_variant_choice *choice = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, i); + const char *choice_name = g_quark_to_string(choice->name); + struct bt_field_type_enumeration_mapping_iterator *iter = + bt_field_type_common_enumeration_find_mappings_by_name( + BT_TO_COMMON(var_ft->tag_ft), choice_name); - if (!type) { - return; - } + if (!iter) { + ret = -1; + goto end; + } - BT_LOGD("Destroying structure field type object: addr=%p", type); - g_ptr_array_free(structure->fields, TRUE); - g_hash_table_destroy(structure->field_name_to_index); - g_free(structure); -} + BT_ASSERT(choice->ranges); + g_array_set_size(choice->ranges, 0); -static -void bt_ctf_field_type_variant_destroy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_variant *variant = - (struct bt_ctf_field_type_variant *) type; + while (bt_field_type_enumeration_mapping_iterator_next(iter) == 0) { + struct bt_field_type_common_variant_choice_range range; - if (!type) { - return; + if (is_signed) { + ret = bt_field_type_enumeration_mapping_iterator_signed_get( + iter, NULL, + &range.lower.i, &range.upper.i); + } else { + ret = bt_field_type_enumeration_mapping_iterator_unsigned_get( + iter, NULL, + &range.lower.u, &range.upper.u); + } + + BT_ASSERT(ret == 0); + g_array_append_val(choice->ranges, range); + } + + bt_put(iter); } - BT_LOGD("Destroying variant field type object: addr=%p", type); - g_ptr_array_free(variant->fields, TRUE); - g_hash_table_destroy(variant->field_name_to_index); - g_string_free(variant->tag_name, TRUE); - bt_put(&variant->tag->parent); - BT_PUT(variant->tag_field_path); - g_free(variant); + var_ft->choices_up_to_date = true; + +end: + return ret; } -static -void bt_ctf_field_type_array_destroy(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_variant_freeze_recursive( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_array *array = - (struct bt_ctf_field_type_array *) type; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + uint64_t i; - if (!type) { - return; - } - - BT_LOGD("Destroying array field type object: addr=%p", type); - bt_put(array->element_type); - g_free(array); -} + BT_LOGD("Freezing variant field type object: addr=%p", ft); + bt_field_type_common_generic_freeze(ft); -static -void bt_ctf_field_type_sequence_destroy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_sequence *sequence = - (struct bt_ctf_field_type_sequence *) type; + for (i = 0; i < var_ft->choices->len; i++) { + struct bt_field_type_common_variant_choice *choice = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, i); - if (!type) { - return; + BT_LOGD("Freezing variant field type member: " + "ft-addr=%p, name=\"%s\"", + choice->type, g_quark_to_string(choice->name)); + bt_field_type_common_freeze(choice->type); } - - BT_LOGD("Destroying sequence field type object: addr=%p", type); - bt_put(sequence->element_type); - g_string_free(sequence->length_field_name, TRUE); - BT_PUT(sequence->length_field_path); - g_free(sequence); } -static -void bt_ctf_field_type_string_destroy(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_array_freeze_recursive( + struct bt_field_type_common *ft) { - struct bt_ctf_field_type_string *string = - (struct bt_ctf_field_type_string *) type; - - if (!type) { - return; - } + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - BT_LOGD("Destroying string field type object: addr=%p", type); - g_free(string); + /* Cache the alignment */ + BT_LOGD("Freezing array field type object: addr=%p", ft); + ft->alignment = bt_field_type_common_get_alignment(ft); + bt_field_type_common_generic_freeze(ft); + BT_LOGD("Freezing array field type object's element field type: element-ft-addr=%p", + array_ft->element_ft); + bt_field_type_common_freeze(array_ft->element_ft); } -static -void generic_field_type_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_sequence_freeze_recursive( + struct bt_field_type_common *ft) { - type->frozen = 1; + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); + + /* Cache the alignment */ + BT_LOGD("Freezing sequence field type object: addr=%p", ft); + ft->alignment = bt_field_type_common_get_alignment(ft); + bt_field_type_common_generic_freeze(ft); + BT_LOGD("Freezing sequence field type object's element field type: element-ft-addr=%p", + seq_ft->element_ft); + bt_field_type_common_freeze(seq_ft->element_ft); } -static -void bt_ctf_field_type_integer_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_integer_set_byte_order( + struct bt_field_type_common *ft, enum bt_byte_order byte_order) { - struct bt_ctf_field_type_integer *integer_type = container_of( - type, struct bt_ctf_field_type_integer, parent); - - BT_LOGD("Freezing integer field type object: addr=%p", type); - - if (integer_type->mapped_clock) { - bt_ctf_clock_class_freeze(integer_type->mapped_clock); - } + struct bt_field_type_common_integer *int_ft = BT_FROM_COMMON(ft); - generic_field_type_freeze(type); + int_ft->user_byte_order = byte_order; } -static -void bt_ctf_field_type_enumeration_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_enumeration_set_byte_order_recursive( + struct bt_field_type_common *ft, enum bt_byte_order byte_order) { - struct bt_ctf_field_type_enumeration *enumeration_type = container_of( - type, struct bt_ctf_field_type_enumeration, parent); + struct bt_field_type_common_enumeration *enum_ft = BT_FROM_COMMON(ft); - BT_LOGD("Freezing enumeration field type object: addr=%p", type); - set_enumeration_range_overlap(type); - generic_field_type_freeze(type); - BT_LOGD("Freezing enumeration field type object's container field type: int-ft-addr=%p", - enumeration_type->container); - bt_ctf_field_type_freeze(enumeration_type->container); + bt_field_type_common_set_byte_order(BT_TO_COMMON(enum_ft->container_ft), + byte_order); } -static -void freeze_structure_field(struct structure_field *field) +BT_HIDDEN +void bt_field_type_common_floating_point_set_byte_order( + struct bt_field_type_common *ft, enum bt_byte_order byte_order) { - BT_LOGD("Freezing structure/variant field type field: field-addr=%p, " - "field-ft-addr=%p, field-name=\"%s\"", field, - field->type, g_quark_to_string(field->name)); - bt_ctf_field_type_freeze(field->type); + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); + + flt_ft->user_byte_order = byte_order; } -static -void bt_ctf_field_type_structure_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_structure_set_byte_order_recursive( + struct bt_field_type_common *ft, + enum bt_byte_order byte_order) { - struct bt_ctf_field_type_structure *structure_type = container_of( - type, struct bt_ctf_field_type_structure, parent); + int i; + struct bt_field_type_common_structure *struct_ft = BT_FROM_COMMON(ft); - /* Cache the alignment */ - BT_LOGD("Freezing structure field type object: addr=%p", type); - type->alignment = bt_ctf_field_type_get_alignment(type); - generic_field_type_freeze(type); - g_ptr_array_foreach(structure_type->fields, - (GFunc) freeze_structure_field, NULL); + for (i = 0; i < struct_ft->fields->len; i++) { + struct bt_field_type_common_structure_field *field = + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + struct_ft, i); + struct bt_field_type_common *field_type = field->type; + + bt_field_type_common_set_byte_order(field_type, byte_order); + } } -static -void bt_ctf_field_type_variant_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_variant_set_byte_order_recursive( + struct bt_field_type_common *ft, + enum bt_byte_order byte_order) { - struct bt_ctf_field_type_variant *variant_type = container_of( - type, struct bt_ctf_field_type_variant, parent); + int i; + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); + + for (i = 0; i < var_ft->choices->len; i++) { + struct bt_field_type_common_variant_choice *choice = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + var_ft, i); + struct bt_field_type_common *field_type = choice->type; - BT_LOGD("Freezing variant field type object: addr=%p", type); - generic_field_type_freeze(type); - g_ptr_array_foreach(variant_type->fields, - (GFunc) freeze_structure_field, NULL); + bt_field_type_common_set_byte_order(field_type, byte_order); + } } -static -void bt_ctf_field_type_array_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_array_set_byte_order_recursive( + struct bt_field_type_common *ft, + enum bt_byte_order byte_order) { - struct bt_ctf_field_type_array *array_type = container_of( - type, struct bt_ctf_field_type_array, parent); + struct bt_field_type_common_array *array_ft = BT_FROM_COMMON(ft); - /* Cache the alignment */ - BT_LOGD("Freezing array field type object: addr=%p", type); - type->alignment = bt_ctf_field_type_get_alignment(type); - generic_field_type_freeze(type); - BT_LOGD("Freezing array field type object's element field type: element-ft-addr=%p", - array_type->element_type); - bt_ctf_field_type_freeze(array_type->element_type); + bt_field_type_common_set_byte_order(array_ft->element_ft, byte_order); } -static -void bt_ctf_field_type_sequence_freeze(struct bt_ctf_field_type *type) +BT_HIDDEN +void bt_field_type_common_sequence_set_byte_order_recursive( + struct bt_field_type_common *ft, + enum bt_byte_order byte_order) { - struct bt_ctf_field_type_sequence *sequence_type = container_of( - type, struct bt_ctf_field_type_sequence, parent); + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - /* Cache the alignment */ - BT_LOGD("Freezing sequence field type object: addr=%p", type); - type->alignment = bt_ctf_field_type_get_alignment(type); - generic_field_type_freeze(type); - BT_LOGD("Freezing sequence field type object's element field type: element-ft-addr=%p", - sequence_type->element_type); - bt_ctf_field_type_freeze(sequence_type->element_type); + bt_field_type_common_set_byte_order(seq_ft->element_ft, byte_order); } -static -const char *get_encoding_string(enum bt_ctf_string_encoding encoding) + +BT_HIDDEN +int bt_field_type_common_integer_compare(struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - const char *encoding_string; + int ret = 1; + struct bt_field_type_common_integer *int_ft_a = BT_FROM_COMMON(ft_a); + struct bt_field_type_common_integer *int_ft_b = BT_FROM_COMMON(ft_b); - switch (encoding) { - case BT_CTF_STRING_ENCODING_NONE: - encoding_string = "none"; - break; - case BT_CTF_STRING_ENCODING_ASCII: - encoding_string = "ASCII"; - break; - case BT_CTF_STRING_ENCODING_UTF8: - encoding_string = "UTF8"; - break; - default: - encoding_string = "unknown"; - break; + /* Length */ + if (int_ft_a->size != int_ft_b->size) { + BT_LOGV("Integer field types differ: different sizes: " + "ft-a-size=%u, ft-b-size=%u", + int_ft_a->size, int_ft_b->size); + goto end; } - return encoding_string; -} + /* Byte order */ + if (int_ft_a->user_byte_order != int_ft_b->user_byte_order) { + BT_LOGV("Integer field types differ: different byte orders: " + "ft-a-bo=%s, ft-b-bo=%s", + bt_common_byte_order_string(int_ft_a->user_byte_order), + bt_common_byte_order_string(int_ft_b->user_byte_order)); + goto end; + } -static -const char *get_integer_base_string(enum bt_ctf_integer_base base) -{ - const char *base_string; + /* Signedness */ + if (int_ft_a->is_signed != int_ft_b->is_signed) { + BT_LOGV("Integer field types differ: different signedness: " + "ft-a-is-signed=%d, ft-b-is-signed=%d", + int_ft_a->is_signed, + int_ft_b->is_signed); + goto end; + } - switch (base) { - case BT_CTF_INTEGER_BASE_DECIMAL: - base_string = "decimal"; - break; - case BT_CTF_INTEGER_BASE_HEXADECIMAL: - base_string = "hexadecimal"; - break; - case BT_CTF_INTEGER_BASE_OCTAL: - base_string = "octal"; - break; - case BT_CTF_INTEGER_BASE_BINARY: - base_string = "binary"; - break; - default: - base_string = "unknown"; - break; + /* Base */ + if (int_ft_a->base != int_ft_b->base) { + BT_LOGV("Integer field types differ: different bases: " + "ft-a-base=%s, ft-b-base=%s", + bt_common_integer_base_string(int_ft_a->base), + bt_common_integer_base_string(int_ft_b->base)); + goto end; } - return base_string; -} + /* Encoding */ + if (int_ft_a->encoding != int_ft_b->encoding) { + BT_LOGV("Integer field types differ: different encodings: " + "ft-a-encoding=%s, ft-b-encoding=%s", + bt_common_string_encoding_string(int_ft_a->encoding), + bt_common_string_encoding_string(int_ft_b->encoding)); + goto end; + } -static -int bt_ctf_field_type_integer_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) -{ - struct bt_ctf_field_type_integer *integer = container_of(type, - struct bt_ctf_field_type_integer, parent); - int ret = 0; + /* Mapped clock class */ + if (int_ft_a->mapped_clock_class) { + if (!int_ft_b->mapped_clock_class) { + BT_LOGV_STR("Integer field types differ: field type A " + "has a mapped clock class, but field type B " + "does not."); + goto end; + } + + if (bt_clock_class_compare(int_ft_a->mapped_clock_class, + int_ft_b->mapped_clock_class) != 0) { + BT_LOGV_STR("Integer field types differ: different " + "mapped clock classes."); + } + } else { + if (int_ft_b->mapped_clock_class) { + BT_LOGV_STR("Integer field types differ: field type A " + "has no description, but field type B has one."); + goto end; + } + } + + /* Equal */ + ret = 0; - BT_LOGD("Serializing integer field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "integer { size = %u; align = %u; signed = %s; encoding = %s; base = %s; byte_order = %s", - integer->size, type->alignment, - (integer->is_signed ? "true" : "false"), - get_encoding_string(integer->encoding), - get_integer_base_string(integer->base), - get_byte_order_string(integer->user_byte_order)); - if (integer->mapped_clock) { - const char *clock_name = bt_ctf_clock_class_get_name( - integer->mapped_clock); - - assert(clock_name); - g_string_append_printf(context->string, - "; map = clock.%s.value", clock_name); - } - - g_string_append(context->string, "; }"); +end: return ret; } -static -int bt_ctf_field_type_enumeration_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +BT_HIDDEN +int bt_field_type_common_floating_point_compare( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - size_t entry; - int ret; - struct bt_ctf_field_type_enumeration *enumeration = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - struct bt_ctf_field_type *container_type; - int container_signed; - - BT_LOGD("Serializing enumeration field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - container_type = bt_ctf_field_type_enumeration_get_container_type(type); - assert(container_type); - container_signed = bt_ctf_field_type_integer_get_signed(container_type); - assert(container_signed >= 0); - g_string_append(context->string, "enum : "); - ret = bt_ctf_field_type_serialize(enumeration->container, context); - if (ret) { - BT_LOGW("Cannot serialize enumeration field type's container field type's metadata: " - "container-ft-addr=%p", enumeration->container); + int ret = 1; + struct bt_field_type_common_floating_point *flt_ft_a = + BT_FROM_COMMON(ft_a); + struct bt_field_type_common_floating_point *flt_ft_b = + BT_FROM_COMMON(ft_b); + + /* Byte order */ + if (flt_ft_a->user_byte_order != flt_ft_b->user_byte_order) { + BT_LOGV("Floating point number field types differ: different byte orders: " + "ft-a-bo=%s, ft-b-bo=%s", + bt_common_byte_order_string(flt_ft_a->user_byte_order), + bt_common_byte_order_string(flt_ft_b->user_byte_order)); goto end; } - g_string_append(context->string, " { "); - for (entry = 0; entry < enumeration->entries->len; entry++) { - struct enumeration_mapping *mapping = - enumeration->entries->pdata[entry]; - - if (container_signed) { - if (mapping->range_start._signed == - mapping->range_end._signed) { - g_string_append_printf(context->string, - "\"%s\" = %" PRId64, - g_quark_to_string(mapping->string), - mapping->range_start._signed); - } else { - g_string_append_printf(context->string, - "\"%s\" = %" PRId64 " ... %" PRId64, - g_quark_to_string(mapping->string), - mapping->range_start._signed, - mapping->range_end._signed); - } - } else { - if (mapping->range_start._unsigned == - mapping->range_end._unsigned) { - g_string_append_printf(context->string, - "\"%s\" = %" PRIu64, - g_quark_to_string(mapping->string), - mapping->range_start._unsigned); - } else { - g_string_append_printf(context->string, - "\"%s\" = %" PRIu64 " ... %" PRIu64, - g_quark_to_string(mapping->string), - mapping->range_start._unsigned, - mapping->range_end._unsigned); - } - } - - g_string_append(context->string, - ((entry != (enumeration->entries->len - 1)) ? - ", " : " }")); + /* Exponent length */ + if (flt_ft_a->exp_dig != flt_ft_b->exp_dig) { + BT_LOGV("Floating point number field types differ: different exponent sizes: " + "ft-a-exp-size=%u, ft-b-exp-size=%u", + flt_ft_a->exp_dig, flt_ft_b->exp_dig); + goto end; } - if (context->field_name->len) { - g_string_append_printf(context->string, " %s", - context->field_name->str); - g_string_assign(context->field_name, ""); + /* Mantissa length */ + if (flt_ft_a->mant_dig != flt_ft_b->mant_dig) { + BT_LOGV("Floating point number field types differ: different mantissa sizes: " + "ft-a-mant-size=%u, ft-b-mant-size=%u", + flt_ft_a->mant_dig, flt_ft_b->mant_dig); + goto end; } + + /* Equal */ + ret = 0; + end: - bt_put(container_type); return ret; } static -int bt_ctf_field_type_floating_point_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) -{ - struct bt_ctf_field_type_floating_point *floating_point = container_of( - type, struct bt_ctf_field_type_floating_point, parent); - - BT_LOGD("Serializing floating point number field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "floating_point { exp_dig = %u; mant_dig = %u; byte_order = %s; align = %u; }", - floating_point->exp_dig, - floating_point->mant_dig, - get_byte_order_string(floating_point->user_byte_order), - type->alignment); - return 0; -} - -static -int bt_ctf_field_type_structure_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +int compare_enumeration_mappings(struct enumeration_mapping *mapping_a, + struct enumeration_mapping *mapping_b) { - size_t i; - unsigned int indent; - int64_t ret = 0; - struct bt_ctf_field_type_structure *structure = container_of(type, - struct bt_ctf_field_type_structure, parent); - GString *structure_field_name = context->field_name; - - BT_LOGD("Serializing structure field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - context->field_name = g_string_new(""); - - context->current_indentation_level++; - g_string_append(context->string, "struct {\n"); - - for (i = 0; i < structure->fields->len; i++) { - struct structure_field *field = structure->fields->pdata[i]; - - BT_LOGV("Serializing structure field type's field metadata: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, field, g_quark_to_string(field->name)); - - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } + int ret = 1; - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - ret = bt_ctf_field_type_serialize(field->type, context); - if (ret) { - BT_LOGW("Cannot serialize structure field type's field's metadata: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, field->type, - g_quark_to_string(field->name)); - goto end; - } + /* Label */ + if (mapping_a->string != mapping_b->string) { + BT_LOGV("Enumeration field type mappings differ: different names: " + "mapping-a-name=\"%s\", mapping-b-name=\"%s\"", + g_quark_to_string(mapping_a->string), + g_quark_to_string(mapping_b->string)); + goto end; + } - if (context->field_name->len) { - g_string_append_printf(context->string, " %s", - context->field_name->str); - } - g_string_append(context->string, ";\n"); + /* Range start */ + if (mapping_a->range_start._unsigned != + mapping_b->range_start._unsigned) { + BT_LOGV("Enumeration field type mappings differ: different starts of range: " + "mapping-a-range-start-unsigned=%" PRIu64 ", " + "mapping-b-range-start-unsigned=%" PRIu64, + mapping_a->range_start._unsigned, + mapping_b->range_start._unsigned); + goto end; } - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); + /* Range end */ + if (mapping_a->range_end._unsigned != + mapping_b->range_end._unsigned) { + BT_LOGV("Enumeration field type mappings differ: different ends of range: " + "mapping-a-range-end-unsigned=%" PRIu64 ", " + "mapping-b-range-end-unsigned=%" PRIu64, + mapping_a->range_end._unsigned, + mapping_b->range_end._unsigned); + goto end; } - g_string_append_printf(context->string, "} align(%u)", - type->alignment); + /* Equal */ + ret = 0; + end: - g_string_free(context->field_name, TRUE); - context->field_name = structure_field_name; return ret; } -static -int bt_ctf_field_type_variant_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +BT_HIDDEN +int bt_field_type_common_enumeration_compare_recursive( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - size_t i; - unsigned int indent; - int ret = 0; - struct bt_ctf_field_type_variant *variant = container_of( - type, struct bt_ctf_field_type_variant, parent); - GString *variant_field_name = context->field_name; - - BT_LOGD("Serializing variant field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - context->field_name = g_string_new(""); - if (variant->tag_name->len > 0) { - g_string_append_printf(context->string, - "variant <%s> {\n", variant->tag_name->str); - } else { - g_string_append(context->string, "variant {\n"); + int ret = 1; + int i; + struct bt_field_type_common_enumeration *enum_ft_a = + BT_FROM_COMMON(ft_a); + struct bt_field_type_common_enumeration *enum_ft_b = + BT_FROM_COMMON(ft_b); + + /* Container field type */ + ret = bt_field_type_common_compare( + BT_TO_COMMON(enum_ft_a->container_ft), + BT_TO_COMMON(enum_ft_b->container_ft)); + if (ret) { + BT_LOGV("Enumeration field types differ: different container field types: " + "ft-a-container-ft-addr=%p, ft-b-container-ft-addr=%p", + enum_ft_a->container_ft, enum_ft_b->container_ft); + goto end; } - context->current_indentation_level++; - for (i = 0; i < variant->fields->len; i++) { - struct structure_field *field = variant->fields->pdata[i]; + ret = 1; - BT_LOGV("Serializing variant field type's field metadata: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, field, g_quark_to_string(field->name)); + /* Entries */ + if (enum_ft_a->entries->len != enum_ft_b->entries->len) { + goto end; + } - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } + for (i = 0; i < enum_ft_a->entries->len; ++i) { + struct enumeration_mapping *mapping_a = + g_ptr_array_index(enum_ft_a->entries, i); + struct enumeration_mapping *mapping_b = + g_ptr_array_index(enum_ft_b->entries, i); - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - ret = bt_ctf_field_type_serialize(field->type, context); - if (ret) { - BT_LOGW("Cannot serialize variant field type's field's metadata: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, field->type, - g_quark_to_string(field->name)); + if (compare_enumeration_mappings(mapping_a, mapping_b)) { + BT_LOGV("Enumeration field types differ: different mappings: " + "ft-a-mapping-addr=%p, ft-b-mapping-addr=%p, " + "ft-a-mapping-name=\"%s\", ft-b-mapping-name=\"%s\"", + mapping_a, mapping_b, + g_quark_to_string(mapping_a->string), + g_quark_to_string(mapping_b->string)); goto end; } - - if (context->field_name->len) { - g_string_append_printf(context->string, " %s;", - context->field_name->str); - } - - g_string_append_c(context->string, '\n'); } - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } + /* Equal */ + ret = 0; - g_string_append(context->string, "}"); end: - g_string_free(context->field_name, TRUE); - context->field_name = variant_field_name; return ret; } -static -int bt_ctf_field_type_array_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +BT_HIDDEN +int bt_field_type_common_string_compare(struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - int ret = 0; - struct bt_ctf_field_type_array *array = container_of(type, - struct bt_ctf_field_type_array, parent); + int ret = 1; + struct bt_field_type_common_string *string_ft_a = BT_FROM_COMMON(ft_a); + struct bt_field_type_common_string *string_ft_b = BT_FROM_COMMON(ft_b); - BT_LOGD("Serializing array field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - ret = bt_ctf_field_type_serialize(array->element_type, context); - if (ret) { - BT_LOGW("Cannot serialize array field type's element field type's metadata: " - "element-ft-addr=%p", array->element_type); + /* Encoding */ + if (string_ft_a->encoding != string_ft_b->encoding) { + BT_LOGV("String field types differ: different encodings: " + "ft-a-encoding=%s, ft-b-encoding=%s", + bt_common_string_encoding_string(string_ft_a->encoding), + bt_common_string_encoding_string(string_ft_b->encoding)); goto end; } - if (context->field_name->len) { - g_string_append_printf(context->string, " %s[%u]", - context->field_name->str, array->length); - g_string_assign(context->field_name, ""); - } else { - g_string_append_printf(context->string, "[%u]", array->length); - } + /* Equal */ + ret = 0; + end: return ret; } static -int bt_ctf_field_type_sequence_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +int compare_structure_variant_members( + struct bt_field_type_common *member_a_ft, + struct bt_field_type_common *member_b_ft, + GQuark member_a_name, GQuark member_b_name) { - int ret = 0; - struct bt_ctf_field_type_sequence *sequence = container_of( - type, struct bt_ctf_field_type_sequence, parent); + int ret = 1; - BT_LOGD("Serializing sequence field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - ret = bt_ctf_field_type_serialize(sequence->element_type, context); - if (ret) { - BT_LOGW("Cannot serialize sequence field type's element field type's metadata: " - "element-ft-addr=%p", sequence->element_type); + /* Label */ + if (member_a_name != member_b_name) { + BT_LOGV("Structure/variant field type fields differ: different names: " + "field-a-name=%s, field-b-name=%s", + g_quark_to_string(member_a_name), + g_quark_to_string(member_b_name)); goto end; } - if (context->field_name->len) { - g_string_append_printf(context->string, " %s[%s]", - context->field_name->str, - sequence->length_field_name->str); - g_string_assign(context->field_name, ""); - } else { - g_string_append_printf(context->string, "[%s]", - sequence->length_field_name->str); + /* Type */ + ret = bt_field_type_common_compare(member_a_ft, member_b_ft); + if (ret == 1) { + BT_LOGV("Structure/variant field type fields differ: different field types: " + "field-name=\"%s\", field-a-ft-addr=%p, field-b-ft-addr=%p", + g_quark_to_string(member_a_name), + member_a_ft, member_b_ft); } + end: return ret; } -static -int bt_ctf_field_type_string_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +BT_HIDDEN +int bt_field_type_common_structure_compare_recursive( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - struct bt_ctf_field_type_string *string = container_of( - type, struct bt_ctf_field_type_string, parent); - - BT_LOGD("Serializing string field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "string { encoding = %s; }", - get_encoding_string(string->encoding)); - return 0; -} + int ret = 1; + int i; + struct bt_field_type_common_structure *struct_ft_a = + BT_FROM_COMMON(ft_a); + struct bt_field_type_common_structure *struct_ft_b = + BT_FROM_COMMON(ft_b); -static -void bt_ctf_field_type_integer_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_integer *integer_type = container_of(type, - struct bt_ctf_field_type_integer, parent); - - integer_type->user_byte_order = byte_order; -} - -static -void bt_ctf_field_type_enumeration_set_byte_order( - struct bt_ctf_field_type *type, enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_enumeration *enum_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - - /* Safe to assume that container is an integer */ - bt_ctf_field_type_integer_set_byte_order(enum_type->container, - byte_order); -} - -static -void bt_ctf_field_type_floating_point_set_byte_order( - struct bt_ctf_field_type *type, enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_floating_point *floating_point_type = - container_of(type, struct bt_ctf_field_type_floating_point, - parent); - - floating_point_type->user_byte_order = byte_order; -} - -static -void bt_ctf_field_type_structure_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - int i; - struct bt_ctf_field_type_structure *structure_type = - container_of(type, struct bt_ctf_field_type_structure, - parent); - - for (i = 0; i < structure_type->fields->len; i++) { - struct structure_field *field = g_ptr_array_index( - structure_type->fields, i); - struct bt_ctf_field_type *field_type = field->type; - - if (set_byte_order_funcs[field_type->id]) { - set_byte_order_funcs[field_type->id]( - field_type, byte_order); - } - } -} - -static -void bt_ctf_field_type_variant_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - int i; - struct bt_ctf_field_type_variant *variant_type = - container_of(type, struct bt_ctf_field_type_variant, - parent); - - for (i = 0; i < variant_type->fields->len; i++) { - struct structure_field *field = g_ptr_array_index( - variant_type->fields, i); - struct bt_ctf_field_type *field_type = field->type; - - if (set_byte_order_funcs[field_type->id]) { - set_byte_order_funcs[field_type->id]( - field_type, byte_order); - } - } -} - -static -void bt_ctf_field_type_array_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_array *array_type = - container_of(type, struct bt_ctf_field_type_array, - parent); - - if (set_byte_order_funcs[array_type->element_type->id]) { - set_byte_order_funcs[array_type->element_type->id]( - array_type->element_type, byte_order); - } -} - -static -void bt_ctf_field_type_sequence_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_sequence *sequence_type = - container_of(type, struct bt_ctf_field_type_sequence, - parent); - - if (set_byte_order_funcs[ - sequence_type->element_type->id]) { - set_byte_order_funcs[ - sequence_type->element_type->id]( - sequence_type->element_type, byte_order); - } -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_integer_copy( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_integer *integer, *copy_integer; - - BT_LOGD("Copying integer field type's: addr=%p", type); - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - copy = bt_ctf_field_type_integer_create(integer->size); - if (!copy) { - BT_LOGE_STR("Cannot create integer field type."); - goto end; - } - - copy_integer = container_of(copy, struct bt_ctf_field_type_integer, - parent); - copy_integer->mapped_clock = bt_get(integer->mapped_clock); - copy_integer->user_byte_order = integer->user_byte_order; - copy_integer->is_signed = integer->is_signed; - copy_integer->size = integer->size; - copy_integer->base = integer->base; - copy_integer->encoding = integer->encoding; - BT_LOGD("Copied integer field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); - -end: - return copy; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_copy( - struct bt_ctf_field_type *type) -{ - size_t i; - struct bt_ctf_field_type *copy = NULL, *copy_container; - struct bt_ctf_field_type_enumeration *enumeration, *copy_enumeration; - - BT_LOGD("Copying enumeration field type's: addr=%p", type); - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - - /* Copy the source enumeration's container */ - copy_container = bt_ctf_field_type_copy(enumeration->container); - if (!copy_container) { - BT_LOGE_STR("Cannot copy enumeration field type's container field type."); + /* Alignment */ + if (bt_field_type_common_get_alignment(ft_a) != + bt_field_type_common_get_alignment(ft_b)) { + BT_LOGV("Structure field types differ: different alignments: " + "ft-a-align=%u, ft-b-align=%u", + bt_field_type_common_get_alignment(ft_a), + bt_field_type_common_get_alignment(ft_b)); goto end; } - copy = bt_ctf_field_type_enumeration_create(copy_container); - if (!copy) { - BT_LOGE_STR("Cannot create enumeration field type."); + /* Fields */ + if (struct_ft_a->fields->len != struct_ft_b->fields->len) { + BT_LOGV("Structure field types differ: different field counts: " + "ft-a-field-count=%u, ft-b-field-count=%u", + struct_ft_a->fields->len, struct_ft_b->fields->len); goto end; } - copy_enumeration = container_of(copy, - struct bt_ctf_field_type_enumeration, parent); - /* Copy all enumaration entries */ - for (i = 0; i < enumeration->entries->len; i++) { - struct enumeration_mapping *mapping = g_ptr_array_index( - enumeration->entries, i); - struct enumeration_mapping *copy_mapping = g_new0( - struct enumeration_mapping, 1); + for (i = 0; i < struct_ft_a->fields->len; ++i) { + struct bt_field_type_common_structure_field *field_a = + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + struct_ft_a, i); + struct bt_field_type_common_structure_field *field_b = + BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + struct_ft_b, i); - if (!copy_mapping) { - BT_LOGE_STR("Failed to allocate one enumeration mapping."); - goto error; + ret = compare_structure_variant_members(field_a->type, + field_b->type, field_a->name, field_b->name); + if (ret) { + /* compare_structure_variant_members() logs what differs */ + BT_LOGV_STR("Structure field types differ: different fields."); + goto end; } - - *copy_mapping = *mapping; - g_ptr_array_add(copy_enumeration->entries, copy_mapping); } - BT_LOGD("Copied enumeration field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); + /* Equal */ + ret = 0; end: - bt_put(copy_container); - return copy; -error: - bt_put(copy_container); - BT_PUT(copy); - return copy; + return ret; } -static -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_copy( - struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_variant_compare_recursive( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_floating_point *floating_point, *copy_float; + int ret = 1; + int i; + struct bt_field_type_common_variant *var_ft_a = BT_FROM_COMMON(ft_a); + struct bt_field_type_common_variant *var_ft_b = BT_FROM_COMMON(ft_b); - BT_LOGD("Copying floating point number field type's: addr=%p", type); - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - copy = bt_ctf_field_type_floating_point_create(); - if (!copy) { - BT_LOGE_STR("Cannot create floating point number field type."); + /* Tag name */ + if (strcmp(var_ft_a->tag_name->str, var_ft_b->tag_name->str)) { + BT_LOGV("Variant field types differ: different tag field names: " + "ft-a-tag-field-name=\"%s\", ft-b-tag-field-name=\"%s\"", + var_ft_a->tag_name->str, var_ft_b->tag_name->str); goto end; } - copy_float = container_of(copy, - struct bt_ctf_field_type_floating_point, parent); - copy_float->user_byte_order = floating_point->user_byte_order; - copy_float->exp_dig = floating_point->exp_dig; - copy_float->mant_dig = floating_point->mant_dig; - BT_LOGD("Copied floating point number field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); -end: - return copy; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_structure_copy( - struct bt_ctf_field_type *type) -{ - int64_t i; - GHashTableIter iter; - gpointer key, value; - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_structure *structure, *copy_structure; - - BT_LOGD("Copying structure field type's: addr=%p", type); - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - copy = bt_ctf_field_type_structure_create(); - if (!copy) { - BT_LOGE_STR("Cannot create structure field type."); + /* Tag type */ + ret = bt_field_type_common_compare(BT_TO_COMMON(var_ft_a->tag_ft), + BT_TO_COMMON(var_ft_b->tag_ft)); + if (ret) { + BT_LOGV("Variant field types differ: different tag field types: " + "ft-a-tag-ft-addr=%p, ft-b-tag-ft-addr=%p", + var_ft_a->tag_ft, var_ft_b->tag_ft); goto end; } - copy_structure = container_of(copy, - struct bt_ctf_field_type_structure, parent); - - /* Copy field_name_to_index */ - g_hash_table_iter_init(&iter, structure->field_name_to_index); - while (g_hash_table_iter_next (&iter, &key, &value)) { - g_hash_table_insert(copy_structure->field_name_to_index, - key, value); - } - - for (i = 0; i < structure->fields->len; i++) { - struct structure_field *entry, *copy_entry; - struct bt_ctf_field_type *copy_field; - - entry = g_ptr_array_index(structure->fields, i); - BT_LOGV("Copying structure field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - copy_entry = g_new0(struct structure_field, 1); - if (!copy_entry) { - BT_LOGE_STR("Failed to allocate one structure field type field."); - goto error; - } - - copy_field = bt_ctf_field_type_copy(entry->type); - if (!copy_field) { - BT_LOGE("Cannot copy structure field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - g_free(copy_entry); - goto error; - } - - copy_entry->name = entry->name; - copy_entry->type = copy_field; - g_ptr_array_add(copy_structure->fields, copy_entry); - } - - BT_LOGD("Copied structure field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); - -end: - return copy; -error: - BT_PUT(copy); - return copy; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_variant_copy( - struct bt_ctf_field_type *type) -{ - int64_t i; - GHashTableIter iter; - gpointer key, value; - struct bt_ctf_field_type *copy = NULL, *copy_tag = NULL; - struct bt_ctf_field_type_variant *variant, *copy_variant; - - BT_LOGD("Copying variant field type's: addr=%p", type); - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - if (variant->tag) { - copy_tag = bt_ctf_field_type_copy(&variant->tag->parent); - if (!copy_tag) { - BT_LOGE_STR("Cannot copy variant field type's tag field type."); - goto end; - } - } + ret = 1; - copy = bt_ctf_field_type_variant_create(copy_tag, - variant->tag_name->len ? variant->tag_name->str : NULL); - if (!copy) { - BT_LOGE_STR("Cannot create variant field type."); + /* Fields */ + if (var_ft_a->choices->len != var_ft_b->choices->len) { + BT_LOGV("Variant field types differ: different field counts: " + "ft-a-field-count=%u, ft-b-field-count=%u", + var_ft_a->choices->len, var_ft_b->choices->len); goto end; } - copy_variant = container_of(copy, struct bt_ctf_field_type_variant, - parent); - - /* Copy field_name_to_index */ - g_hash_table_iter_init(&iter, variant->field_name_to_index); - while (g_hash_table_iter_next (&iter, &key, &value)) { - g_hash_table_insert(copy_variant->field_name_to_index, - key, value); - } - - for (i = 0; i < variant->fields->len; i++) { - struct structure_field *entry, *copy_entry; - struct bt_ctf_field_type *copy_field; - - entry = g_ptr_array_index(variant->fields, i); - BT_LOGV("Copying variant field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - copy_entry = g_new0(struct structure_field, 1); - if (!copy_entry) { - BT_LOGE_STR("Failed to allocate one variant field type field."); - goto error; - } - - copy_field = bt_ctf_field_type_copy(entry->type); - if (!copy_field) { - BT_LOGE("Cannot copy variant field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - g_free(copy_entry); - goto error; - } - - copy_entry->name = entry->name; - copy_entry->type = copy_field; - g_ptr_array_add(copy_variant->fields, copy_entry); - } + for (i = 0; i < var_ft_a->choices->len; ++i) { + struct bt_field_type_common_variant_choice *choice_a = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + var_ft_a, i); + struct bt_field_type_common_variant_choice *choice_b = + BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + var_ft_b, i); - if (variant->tag_field_path) { - BT_LOGV_STR("Copying variant field type's tag field path."); - copy_variant->tag_field_path = bt_ctf_field_path_copy( - variant->tag_field_path); - if (!copy_variant->tag_field_path) { - BT_LOGE_STR("Cannot copy variant field type's tag field path."); - goto error; + ret = compare_structure_variant_members(choice_a->type, + choice_b->type, choice_a->name, choice_b->name); + if (ret) { + /* compare_structure_variant_members() logs what differs */ + BT_LOGV_STR("Variant field types differ: different fields."); + goto end; } } - BT_LOGD("Copied variant field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); + /* Equal */ + ret = 0; end: - bt_put(copy_tag); - return copy; -error: - bt_put(copy_tag); - BT_PUT(copy); - return copy; + return ret; } -static -struct bt_ctf_field_type *bt_ctf_field_type_array_copy( - struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_array_compare_recursive( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - struct bt_ctf_field_type *copy = NULL, *copy_element; - struct bt_ctf_field_type_array *array; + int ret = 1; + struct bt_field_type_common_array *array_ft_a = BT_FROM_COMMON(ft_a); + struct bt_field_type_common_array *array_ft_b = BT_FROM_COMMON(ft_b); - BT_LOGD("Copying array field type's: addr=%p", type); - array = container_of(type, struct bt_ctf_field_type_array, - parent); - copy_element = bt_ctf_field_type_copy(array->element_type); - if (!copy_element) { - BT_LOGE_STR("Cannot copy array field type's element field type."); + /* Length */ + if (array_ft_a->length != array_ft_b->length) { + BT_LOGV("Structure field types differ: different lengths: " + "ft-a-length=%u, ft-b-length=%u", + array_ft_a->length, array_ft_b->length); goto end; } - copy = bt_ctf_field_type_array_create(copy_element, array->length); - if (!copy) { - BT_LOGE_STR("Cannot create array field type."); - goto end; + /* Element type */ + ret = bt_field_type_common_compare(array_ft_a->element_ft, + array_ft_b->element_ft); + if (ret == 1) { + BT_LOGV("Array field types differ: different element field types: " + "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", + array_ft_a->element_ft, array_ft_b->element_ft); } - BT_LOGD("Copied array field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); - end: - bt_put(copy_element); - return copy; + return ret; } -static -struct bt_ctf_field_type *bt_ctf_field_type_sequence_copy( - struct bt_ctf_field_type *type) +BT_HIDDEN +int bt_field_type_common_sequence_compare_recursive( + struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { - struct bt_ctf_field_type *copy = NULL, *copy_element; - struct bt_ctf_field_type_sequence *sequence, *copy_sequence; - - BT_LOGD("Copying sequence field type's: addr=%p", type); - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - copy_element = bt_ctf_field_type_copy(sequence->element_type); - if (!copy_element) { - BT_LOGE_STR("Cannot copy sequence field type's element field type."); - goto end; - } + int ret = -1; + struct bt_field_type_common_sequence *seq_ft_a = BT_FROM_COMMON(ft_a); + struct bt_field_type_common_sequence *seq_ft_b = BT_FROM_COMMON(ft_b); - copy = bt_ctf_field_type_sequence_create(copy_element, - sequence->length_field_name->len ? - sequence->length_field_name->str : NULL); - if (!copy) { - BT_LOGE_STR("Cannot create sequence field type."); + /* Length name */ + if (strcmp(seq_ft_a->length_field_name->str, + seq_ft_b->length_field_name->str)) { + BT_LOGV("Sequence field types differ: different length field names: " + "ft-a-length-field-name=\"%s\", " + "ft-b-length-field-name=\"%s\"", + seq_ft_a->length_field_name->str, + seq_ft_b->length_field_name->str); goto end; } - copy_sequence = container_of(copy, struct bt_ctf_field_type_sequence, - parent); - if (sequence->length_field_path) { - BT_LOGV_STR("Copying sequence field type's length field path."); - copy_sequence->length_field_path = bt_ctf_field_path_copy( - sequence->length_field_path); - if (!copy_sequence->length_field_path) { - BT_LOGE_STR("Cannot copy sequence field type's length field path."); - goto error; - } - } - - BT_LOGD("Copied sequence field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); - -end: - bt_put(copy_element); - return copy; -error: - BT_PUT(copy); - goto end; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_string_copy( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_string *string; - - BT_LOGD("Copying string field type's: addr=%p", type); - copy = bt_ctf_field_type_string_create(); - if (!copy) { - BT_LOGE_STR("Cannot create string field type."); - goto end; + /* Element type */ + ret = bt_field_type_common_compare(seq_ft_a->element_ft, + seq_ft_b->element_ft); + if (ret == 1) { + BT_LOGV("Sequence field types differ: different element field types: " + "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", + seq_ft_a->element_ft, seq_ft_b->element_ft); } - string = container_of(type, struct bt_ctf_field_type_string, - parent); - BT_LOGD("Copied string field type: original-ft-addr=%p, copy-ft-addr=%p", - type, copy); end: - return copy; + return ret; } -static -int bt_ctf_field_type_integer_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +BT_HIDDEN +int bt_field_type_common_compare(struct bt_field_type_common *ft_a, + struct bt_field_type_common *ft_b) { int ret = 1; - struct bt_ctf_field_type_integer *int_type_a; - struct bt_ctf_field_type_integer *int_type_b; - int_type_a = container_of(type_a, struct bt_ctf_field_type_integer, - parent); - int_type_b = container_of(type_b, struct bt_ctf_field_type_integer, - parent); + BT_ASSERT_PRE_NON_NULL(ft_a, "Field type A"); + BT_ASSERT_PRE_NON_NULL(ft_b, "Field type B"); - /* Length */ - if (int_type_a->size != int_type_b->size) { - BT_LOGV("Integer field types differ: different sizes: " - "ft-a-size=%u, ft-b-size=%u", - int_type_a->size, int_type_b->size); + if (ft_a == ft_b) { + /* Same reference: equal (even if both are NULL) */ + ret = 0; goto end; } - /* Byte order */ - if (int_type_a->user_byte_order != int_type_b->user_byte_order) { - BT_LOGV("Integer field types differ: different byte orders: " - "ft-a-bo=%s, ft-b-bo=%s", - bt_ctf_byte_order_string(int_type_a->user_byte_order), - bt_ctf_byte_order_string(int_type_b->user_byte_order)); + if (!ft_a) { + BT_LOGW_STR("Invalid parameter: field type A is NULL."); + ret = -1; goto end; } - /* Signedness */ - if (int_type_a->is_signed != int_type_b->is_signed) { - BT_LOGV("Integer field types differ: different signedness: " - "ft-a-is-signed=%d, ft-b-is-signed=%d", - int_type_a->is_signed, - int_type_b->is_signed); + if (!ft_b) { + BT_LOGW_STR("Invalid parameter: field type B is NULL."); + ret = -1; goto end; } - /* Base */ - if (int_type_a->base != int_type_b->base) { - BT_LOGV("Integer field types differ: different bases: " - "ft-a-base=%s, ft-b-base=%s", - bt_ctf_integer_base_string(int_type_a->base), - bt_ctf_integer_base_string(int_type_b->base)); + if (ft_a->id != ft_b->id) { + /* Different type IDs */ + BT_LOGV("Field types differ: different IDs: " + "ft-a-addr=%p, ft-b-addr=%p, " + "ft-a-id=%s, ft-b-id=%s", + ft_a, ft_b, + bt_common_field_type_id_string(ft_a->id), + bt_common_field_type_id_string(ft_b->id)); goto end; } - /* Encoding */ - if (int_type_a->encoding != int_type_b->encoding) { - BT_LOGV("Integer field types differ: different encodings: " - "ft-a-encoding=%s, ft-b-encoding=%s", - bt_ctf_string_encoding_string(int_type_a->encoding), - bt_ctf_string_encoding_string(int_type_b->encoding)); + if (ft_a->id == BT_FIELD_TYPE_ID_UNKNOWN) { + /* Both have unknown type IDs */ + BT_LOGW_STR("Invalid parameter: field type IDs are unknown."); goto end; } - /* Mapped clock */ - if (int_type_a->mapped_clock != int_type_b->mapped_clock) { - BT_LOGV("Integer field types differ: different mapped clock classes: " - "ft-a-mapped-clock-class-addr=%p, " - "ft-b-mapped-clock-class-addr=%p, ", - "ft-a-mapped-clock-class-name=\"%s\", ", - "ft-b-mapped-clock-class-name=\"%s\"", - int_type_a->mapped_clock, int_type_b->mapped_clock, - int_type_a->mapped_clock ? bt_ctf_clock_class_get_name(int_type_a->mapped_clock) : "", - int_type_b->mapped_clock ? bt_ctf_clock_class_get_name(int_type_b->mapped_clock) : ""); - goto end; + BT_ASSERT(ft_a->methods->compare); + ret = ft_a->methods->compare(ft_a, ft_b); + if (ret == 1) { + BT_LOGV("Field types differ: ft-a-addr=%p, ft-b-addr=%p", + ft_a, ft_b); } - /* Equal */ - ret = 0; - end: return ret; } -static -int bt_ctf_field_type_floating_point_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +int bt_field_type_compare(struct bt_field_type *ft_a, + struct bt_field_type *ft_b) { - int ret = 1; - struct bt_ctf_field_type_floating_point *float_a; - struct bt_ctf_field_type_floating_point *float_b; + return bt_field_type_common_compare((void *) ft_a, (void *) ft_b); +} - float_a = container_of(type_a, - struct bt_ctf_field_type_floating_point, parent); - float_b = container_of(type_b, - struct bt_ctf_field_type_floating_point, parent); +BT_HIDDEN +int64_t bt_field_type_common_get_field_count(struct bt_field_type_common *ft) +{ + int64_t field_count = -1; - /* Byte order */ - if (float_a->user_byte_order != float_b->user_byte_order) { - BT_LOGV("Floating point number field types differ: different byte orders: " - "ft-a-bo=%s, ft-b-bo=%s", - bt_ctf_byte_order_string(float_a->user_byte_order), - bt_ctf_byte_order_string(float_b->user_byte_order)); - goto end; + switch (ft->id) { + case BT_FIELD_TYPE_ID_STRUCT: + field_count = + bt_field_type_common_structure_get_field_count(ft); + break; + case BT_FIELD_TYPE_ID_VARIANT: + field_count = + bt_field_type_common_variant_get_field_count(ft); + break; + case BT_FIELD_TYPE_ID_ARRAY: + case BT_FIELD_TYPE_ID_SEQUENCE: + /* + * Array and sequence types always contain a single member + * (the element type). + */ + field_count = 1; + break; + default: + break; } - /* Exponent length */ - if (float_a->exp_dig != float_b->exp_dig) { - BT_LOGV("Floating point number field types differ: different exponent sizes: " - "ft-a-exp-size=%s, ft-b-exp-size=%s", - float_a->exp_dig, float_b->exp_dig); - goto end; - } + return field_count; +} - /* Mantissa length */ - if (float_a->mant_dig != float_b->mant_dig) { - BT_LOGV("Floating point number field types differ: different mantissa sizes: " - "ft-a-mant-size=%s, ft-b-mant-size=%s", - float_a->mant_dig, float_b->mant_dig); - goto end; - } +BT_HIDDEN +struct bt_field_type_common *bt_field_type_common_borrow_field_at_index( + struct bt_field_type_common *ft, int index) +{ + struct bt_field_type_common *field_type = NULL; - /* Equal */ - ret = 0; + switch (ft->id) { + case BT_FIELD_TYPE_ID_STRUCT: + { + int ret = bt_field_type_common_structure_borrow_field_by_index( + ft, NULL, &field_type, index); + if (ret) { + field_type = NULL; + goto end; + } + break; + } + case BT_FIELD_TYPE_ID_VARIANT: + { + int ret = bt_field_type_common_variant_borrow_field_by_index( + ft, NULL, &field_type, index); + if (ret) { + field_type = NULL; + goto end; + } + break; + } + case BT_FIELD_TYPE_ID_ARRAY: + field_type = + bt_field_type_common_array_borrow_element_field_type(ft); + break; + case BT_FIELD_TYPE_ID_SEQUENCE: + field_type = + bt_field_type_common_sequence_borrow_element_field_type(ft); + break; + default: + break; + } end: - return ret; + return field_type; } -static -int compare_enumeration_mappings(struct enumeration_mapping *mapping_a, - struct enumeration_mapping *mapping_b) +BT_HIDDEN +int bt_field_type_common_get_field_index(struct bt_field_type_common *ft, + const char *name) { - int ret = 1; + int field_index = -1; - /* Label */ - if (mapping_a->string != mapping_b->string) { - BT_LOGV("Enumeration field type mappings differ: different names: " - "mapping-a-name=\"%s\", mapping-b-name=\"%s\"", - g_quark_to_string(mapping_a->string), - g_quark_to_string(mapping_b->string)); - goto end; + switch (ft->id) { + case BT_FIELD_TYPE_ID_STRUCT: + field_index = bt_field_type_common_structure_get_field_name_index( + ft, name); + break; + case BT_FIELD_TYPE_ID_VARIANT: + field_index = bt_field_type_common_variant_get_field_name_index( + ft, name); + break; + default: + break; } - /* Range start */ - if (mapping_a->range_start._unsigned != - mapping_b->range_start._unsigned) { - BT_LOGV("Enumeration field type mappings differ: different starts of range: " - "mapping-a-range-start-unsigned=%" PRIu64 ", " - "mapping-b-range-start-unsigned=%" PRIu64, - mapping_a->range_start._unsigned, - mapping_b->range_start._unsigned); - goto end; - } + return field_index; +} - /* Range end */ - if (mapping_a->range_end._unsigned != - mapping_b->range_end._unsigned) { - BT_LOGV("Enumeration field type mappings differ: different ends of range: " - "mapping-a-range-end-unsigned=%" PRIu64 ", " - "mapping-b-range-end-unsigned=%" PRIu64, - mapping_a->range_end._unsigned, - mapping_b->range_end._unsigned); - goto end; - } +BT_HIDDEN +struct bt_field_path *bt_field_type_common_variant_borrow_tag_field_path( + struct bt_field_type_common *ft) +{ + struct bt_field_type_common_variant *var_ft = BT_FROM_COMMON(ft); - /* Equal */ - ret = 0; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); + return var_ft->tag_field_path; +} -end: - return ret; +struct bt_field_path *bt_field_type_variant_borrow_tag_field_path( + struct bt_field_type *ft) +{ + return bt_field_type_common_variant_borrow_tag_field_path((void *) ft); } -static -int bt_ctf_field_type_enumeration_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +BT_HIDDEN +struct bt_field_path *bt_field_type_common_sequence_borrow_length_field_path( + struct bt_field_type_common *ft) { - int ret = 1; - int i; - struct bt_ctf_field_type_enumeration *enum_a; - struct bt_ctf_field_type_enumeration *enum_b; + struct bt_field_type_common_sequence *seq_ft = BT_FROM_COMMON(ft); - enum_a = container_of(type_a, - struct bt_ctf_field_type_enumeration, parent); - enum_b = container_of(type_b, - struct bt_ctf_field_type_enumeration, parent); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_COMMON_HAS_ID(ft, BT_FIELD_TYPE_ID_SEQUENCE, + "Field type"); + return seq_ft->length_field_path; +} - /* Container field type */ - ret = bt_ctf_field_type_compare(enum_a->container, enum_b->container); - if (ret) { - BT_LOGV("Enumeration field types differ: different container field types: " - "ft-a-container-ft-addr=%p, ft-b-container-ft-addr=%p", - enum_a->container, enum_b->container); - goto end; - } +struct bt_field_path *bt_field_type_sequence_borrow_length_field_path( + struct bt_field_type *ft) +{ + return bt_field_type_common_sequence_borrow_length_field_path( + (void *) ft); +} - ret = 1; +BT_HIDDEN +int bt_field_type_common_validate_single_clock_class( + struct bt_field_type_common *ft, + struct bt_clock_class **expected_clock_class) +{ + int ret = 0; - /* Entries */ - if (enum_a->entries->len != enum_b->entries->len) { + if (!ft) { goto end; } - for (i = 0; i < enum_a->entries->len; ++i) { - struct enumeration_mapping *mapping_a = - g_ptr_array_index(enum_a->entries, i); - struct enumeration_mapping *mapping_b = - g_ptr_array_index(enum_b->entries, i); + BT_ASSERT(expected_clock_class); - if (compare_enumeration_mappings(mapping_a, mapping_b)) { - BT_LOGV("Enumeration field types differ: different mappings: " - "ft-a-mapping-addr=%p, ft-b-mapping-addr=%p, " - "ft-a-mapping-name=\"%s\", ft-b-mapping-name=\"%s\"", - mapping_a, mapping_b, - g_quark_to_string(mapping_a->string), - g_quark_to_string(mapping_b->string)); + switch (ft->id) { + case BT_FIELD_TYPE_ID_INTEGER: + { + struct bt_clock_class *mapped_clock_class = + bt_field_type_common_integer_borrow_mapped_clock_class(ft); + + if (!mapped_clock_class) { goto end; } - } - /* Equal */ - ret = 0; - -end: - return ret; -} + if (!*expected_clock_class) { + /* Move reference to output parameter */ + *expected_clock_class = bt_get(mapped_clock_class); + mapped_clock_class = NULL; + BT_LOGV("Setting expected clock class: " + "expected-clock-class-addr=%p", + *expected_clock_class); + } else { + if (mapped_clock_class != *expected_clock_class) { + BT_LOGW("Integer field type is not mapped to " + "the expected clock class: " + "mapped-clock-class-addr=%p, " + "mapped-clock-class-name=\"%s\", " + "expected-clock-class-addr=%p, " + "expected-clock-class-name=\"%s\"", + mapped_clock_class, + bt_clock_class_get_name(mapped_clock_class), + *expected_clock_class, + bt_clock_class_get_name(*expected_clock_class)); + bt_put(mapped_clock_class); + ret = -1; + goto end; + } + } -static -int bt_ctf_field_type_string_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) -{ - int ret = 1; - struct bt_ctf_field_type_string *string_a; - struct bt_ctf_field_type_string *string_b; + break; + } + case BT_FIELD_TYPE_ID_ENUM: + case BT_FIELD_TYPE_ID_ARRAY: + case BT_FIELD_TYPE_ID_SEQUENCE: + { + struct bt_field_type_common *sub_ft = NULL; - string_a = container_of(type_a, - struct bt_ctf_field_type_string, parent); - string_b = container_of(type_b, - struct bt_ctf_field_type_string, parent); + switch (ft->id) { + case BT_FIELD_TYPE_ID_ENUM: + sub_ft = bt_field_type_common_enumeration_borrow_container_field_type( + ft); + break; + case BT_FIELD_TYPE_ID_ARRAY: + sub_ft = bt_field_type_common_array_borrow_element_field_type( + ft); + break; + case BT_FIELD_TYPE_ID_SEQUENCE: + sub_ft = bt_field_type_common_sequence_borrow_element_field_type( + ft); + break; + default: + BT_LOGF("Unexpected field type ID: id=%d", ft->id); + abort(); + } - /* Encoding */ - if (string_a->encoding != string_b->encoding) { - BT_LOGV("String field types differ: different encodings: " - "ft-a-encoding=%s, ft-b-encoding=%s", - bt_ctf_string_encoding_string(string_a->encoding), - bt_ctf_string_encoding_string(string_b->encoding)); - goto end; + BT_ASSERT(sub_ft); + ret = bt_field_type_common_validate_single_clock_class(sub_ft, + expected_clock_class); + break; + } + case BT_FIELD_TYPE_ID_STRUCT: + { + uint64_t i; + int64_t count = bt_field_type_common_structure_get_field_count( + ft); + + for (i = 0; i < count; i++) { + const char *name; + struct bt_field_type_common *member_type; + + ret = bt_field_type_common_structure_borrow_field_by_index( + ft, &name, &member_type, i); + BT_ASSERT(ret == 0); + ret = bt_field_type_common_validate_single_clock_class( + member_type, expected_clock_class); + if (ret) { + BT_LOGW("Structure field type's field's type " + "is not recursively mapped to the " + "expected clock class: " + "field-ft-addr=%p, field-name=\"%s\"", + member_type, name); + goto end; + } + } + break; + } + case BT_FIELD_TYPE_ID_VARIANT: + { + uint64_t i; + int64_t count = bt_field_type_common_variant_get_field_count( + ft); + + for (i = 0; i < count; i++) { + const char *name; + struct bt_field_type_common *member_type; + + ret = bt_field_type_common_variant_borrow_field_by_index( + ft, &name, &member_type, i); + BT_ASSERT(ret == 0); + ret = bt_field_type_common_validate_single_clock_class( + member_type, expected_clock_class); + if (ret) { + BT_LOGW("Variant field type's field's type " + "is not recursively mapped to the " + "expected clock class: " + "field-ft-addr=%p, field-name=\"%s\"", + member_type, name); + goto end; + } + } + break; + } + default: + break; } - - /* Equal */ - ret = 0; end: return ret; } static -int compare_structure_fields(struct structure_field *field_a, - struct structure_field *field_b) +struct bt_field_type *bt_field_type_integer_copy( + struct bt_field_type *ft) { - int ret = 1; + struct bt_field_type_common_integer *int_ft = (void *) ft; + struct bt_field_type_common_integer *copy_ft; - /* Label */ - if (field_a->name != field_b->name) { - BT_LOGV("Structure/variant field type fields differ: different names: " - "field-a-name=%s, field-b-name=%s", - g_quark_to_string(field_a->name), - g_quark_to_string(field_b->name)); + BT_LOGD("Copying integer field type's: addr=%p", ft); + copy_ft = (void *) bt_field_type_integer_create(int_ft->size); + if (!copy_ft) { + BT_LOGE_STR("Cannot create integer field type."); goto end; } - /* Type */ - ret = bt_ctf_field_type_compare(field_a->type, field_b->type); - if (ret == 1) { - BT_LOGV("Structure/variant field type fields differ: different field types: " - "field-name=\"%s\", field-a-ft-addr=%s, field-b-ft-addr=%s", - g_quark_to_string(field_a->name), - field_a->type, field_b->type); - } + copy_ft->mapped_clock_class = bt_get(int_ft->mapped_clock_class); + copy_ft->user_byte_order = int_ft->user_byte_order; + copy_ft->is_signed = int_ft->is_signed; + copy_ft->size = int_ft->size; + copy_ft->base = int_ft->base; + copy_ft->encoding = int_ft->encoding; + BT_LOGD("Copied integer field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); end: - return ret; + return (void *) copy_ft; } static -int bt_ctf_field_type_structure_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *bt_field_type_enumeration_copy_recursive( + struct bt_field_type *ft) { - int ret = 1; - int i; - struct bt_ctf_field_type_structure *struct_a; - struct bt_ctf_field_type_structure *struct_b; + size_t i; + struct bt_field_type_common_enumeration *enum_ft = (void *) ft; + struct bt_field_type_common_enumeration *copy_ft = NULL; + struct bt_field_type_common_enumeration *container_copy_ft; - struct_a = container_of(type_a, - struct bt_ctf_field_type_structure, parent); - struct_b = container_of(type_b, - struct bt_ctf_field_type_structure, parent); + BT_LOGD("Copying enumeration field type's: addr=%p", ft); - /* Alignment */ - if (bt_ctf_field_type_get_alignment(type_a) != - bt_ctf_field_type_get_alignment(type_b)) { - BT_LOGV("Structure field types differ: different alignments: " - "ft-a-align=%u, ft-b-align=%u", - bt_ctf_field_type_get_alignment(type_a), - bt_ctf_field_type_get_alignment(type_b)); + /* Copy the source enumeration's container */ + BT_LOGD_STR("Copying enumeration field type's container field type."); + container_copy_ft = BT_FROM_COMMON(bt_field_type_common_copy( + BT_TO_COMMON(enum_ft->container_ft))); + if (!container_copy_ft) { + BT_LOGE_STR("Cannot copy enumeration field type's container field type."); goto end; } - /* Fields */ - if (struct_a->fields->len != struct_b->fields->len) { - BT_LOGV("Structure field types differ: different field counts: " - "ft-a-field-count=%u, ft-b-field-count=%u", - struct_a->fields->len, struct_b->fields->len); + copy_ft = (void *) bt_field_type_enumeration_create( + (void *) container_copy_ft); + if (!copy_ft) { + BT_LOGE_STR("Cannot create enumeration field type."); goto end; } - for (i = 0; i < struct_a->fields->len; ++i) { - struct structure_field *field_a = - g_ptr_array_index(struct_a->fields, i); - struct structure_field *field_b = - g_ptr_array_index(struct_b->fields, i); + /* Copy all enumaration entries */ + for (i = 0; i < enum_ft->entries->len; i++) { + struct enumeration_mapping *mapping = g_ptr_array_index( + enum_ft->entries, i); + struct enumeration_mapping *copy_mapping = g_new0( + struct enumeration_mapping, 1); - ret = compare_structure_fields(field_a, field_b); - if (ret) { - /* compare_structure_fields() logs what differs */ - BT_LOGV_STR("Structure field types differ: different fields."); - goto end; + if (!copy_mapping) { + BT_LOGE_STR("Failed to allocate one enumeration mapping."); + goto error; } + + *copy_mapping = *mapping; + g_ptr_array_add(copy_ft->entries, copy_mapping); } - /* Equal */ - ret = 0; + BT_LOGD("Copied enumeration field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); end: - return ret; + bt_put(container_copy_ft); + return (void *) copy_ft; + +error: + bt_put(container_copy_ft); + BT_PUT(copy_ft); + return (void *) copy_ft; } static -int bt_ctf_field_type_variant_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *bt_field_type_floating_point_copy( + struct bt_field_type *ft) { - int ret = 1; - int i; - struct bt_ctf_field_type_variant *variant_a; - struct bt_ctf_field_type_variant *variant_b; - - variant_a = container_of(type_a, - struct bt_ctf_field_type_variant, parent); - variant_b = container_of(type_b, - struct bt_ctf_field_type_variant, parent); + struct bt_field_type_common_floating_point *flt_ft = BT_FROM_COMMON(ft); + struct bt_field_type_common_floating_point *copy_ft; - /* Tag name */ - if (strcmp(variant_a->tag_name->str, variant_b->tag_name->str)) { - BT_LOGV("Variant field types differ: different tag field names: " - "ft-a-tag-field-name=%u, ft-b-tag-field-name=%u", - variant_a->tag_name->str, variant_b->tag_name->str); + BT_LOGD("Copying floating point number field type's: addr=%p", ft); + copy_ft = (void *) bt_field_type_floating_point_create(); + if (!copy_ft) { + BT_LOGE_STR("Cannot create floating point number field type."); goto end; } - /* Tag type */ - ret = bt_ctf_field_type_compare( - (struct bt_ctf_field_type *) variant_a->tag, - (struct bt_ctf_field_type *) variant_b->tag); - if (ret) { - BT_LOGV("Variant field types differ: different tag field types: " - "ft-a-tag-ft-addr=%p, ft-b-tag-ft-addr=%p", - variant_a->tag, variant_b->tag); - goto end; - } + copy_ft->user_byte_order = flt_ft->user_byte_order; + copy_ft->exp_dig = flt_ft->exp_dig; + copy_ft->mant_dig = flt_ft->mant_dig; + BT_LOGD("Copied floating point number field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); - ret = 1; +end: + return (void *) copy_ft; +} - /* Fields */ - if (variant_a->fields->len != variant_b->fields->len) { - BT_LOGV("Structure field types differ: different field counts: " - "ft-a-field-count=%u, ft-b-field-count=%u", - variant_a->fields->len, variant_b->fields->len); +static +struct bt_field_type *bt_field_type_structure_copy_recursive( + struct bt_field_type *ft) +{ + int64_t i; + GHashTableIter iter; + gpointer key, value; + struct bt_field_type_common_structure *struct_ft = (void *) ft; + struct bt_field_type_common_structure *copy_ft; + + BT_LOGD("Copying structure field type's: addr=%p", ft); + copy_ft = (void *) bt_field_type_structure_create(); + if (!copy_ft) { + BT_LOGE_STR("Cannot create structure field type."); goto end; } - for (i = 0; i < variant_a->fields->len; ++i) { - struct structure_field *field_a = - g_ptr_array_index(variant_a->fields, i); - struct structure_field *field_b = - g_ptr_array_index(variant_b->fields, i); - - ret = compare_structure_fields(field_a, field_b); - if (ret) { - /* compare_structure_fields() logs what differs */ - BT_LOGV_STR("Variant field types differ: different fields."); - goto end; - } + /* Copy field_name_to_index */ + g_hash_table_iter_init(&iter, struct_ft->field_name_to_index); + while (g_hash_table_iter_next(&iter, &key, &value)) { + g_hash_table_insert(copy_ft->field_name_to_index, + key, value); } - /* Equal */ - ret = 0; + g_array_set_size(copy_ft->fields, struct_ft->fields->len); -end: - return ret; -} + for (i = 0; i < struct_ft->fields->len; i++) { + struct bt_field_type_common_structure_field *entry, *copy_entry; + struct bt_field_type_common *field_ft_copy; -static -int bt_ctf_field_type_array_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) -{ - int ret = 1; - struct bt_ctf_field_type_array *array_a; - struct bt_ctf_field_type_array *array_b; + entry = BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + struct_ft, i); + copy_entry = BT_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( + copy_ft, i); + BT_LOGD("Copying structure field type's field: " + "index=%" PRId64 ", " + "field-ft-addr=%p, field-name=\"%s\"", + i, entry, g_quark_to_string(entry->name)); - array_a = container_of(type_a, - struct bt_ctf_field_type_array, parent); - array_b = container_of(type_b, - struct bt_ctf_field_type_array, parent); + field_ft_copy = (void *) bt_field_type_copy( + (void *) entry->type); + if (!field_ft_copy) { + BT_LOGE("Cannot copy structure field type's field: " + "index=%" PRId64 ", " + "field-ft-addr=%p, field-name=\"%s\"", + i, entry, g_quark_to_string(entry->name)); + goto error; + } - /* Length */ - if (array_a->length != array_b->length) { - BT_LOGV("Structure field types differ: different lengths: " - "ft-a-length=%u, ft-b-length=%u", - array_a->length, array_b->length); - goto end; + copy_entry->name = entry->name; + copy_entry->type = field_ft_copy; } - /* Element type */ - ret = bt_ctf_field_type_compare(array_a->element_type, - array_b->element_type); - if (ret == 1) { - BT_LOGV("Array field types differ: different element field types: " - "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", - array_a->element_type, array_b->element_type); - } + BT_LOGD("Copied structure field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); end: - return ret; + return (void *) copy_ft; + +error: + BT_PUT(copy_ft); + return NULL; } static -int bt_ctf_field_type_sequence_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *bt_field_type_variant_copy_recursive( + struct bt_field_type *ft) { - int ret = -1; - struct bt_ctf_field_type_sequence *sequence_a; - struct bt_ctf_field_type_sequence *sequence_b; - - sequence_a = container_of(type_a, - struct bt_ctf_field_type_sequence, parent); - sequence_b = container_of(type_b, - struct bt_ctf_field_type_sequence, parent); + int64_t i; + GHashTableIter iter; + gpointer key, value; + struct bt_field_type_common *tag_ft_copy = NULL; + struct bt_field_type_common_variant *var_ft = (void *) ft; + struct bt_field_type_common_variant *copy_ft = NULL; + + BT_LOGD("Copying variant field type's: addr=%p", ft); + if (var_ft->tag_ft) { + BT_LOGD_STR("Copying variant field type's tag field type."); + tag_ft_copy = bt_field_type_common_copy( + BT_TO_COMMON(var_ft->tag_ft)); + if (!tag_ft_copy) { + BT_LOGE_STR("Cannot copy variant field type's tag field type."); + goto end; + } + } - /* Length name */ - if (strcmp(sequence_a->length_field_name->str, - sequence_b->length_field_name->str)) { - BT_LOGV("Sequence field types differ: different length field names: " - "ft-a-length-field-name=%u, ft-b-length-field-name=%u", - sequence_a->length_field_name->str, - sequence_b->length_field_name->str); + copy_ft = (void *) bt_field_type_variant_create( + (void *) tag_ft_copy, + var_ft->tag_name->len ? var_ft->tag_name->str : NULL); + if (!copy_ft) { + BT_LOGE_STR("Cannot create variant field type."); goto end; } - /* Element type */ - ret = bt_ctf_field_type_compare(sequence_a->element_type, - sequence_b->element_type); - if (ret == 1) { - BT_LOGV("Sequence field types differ: different element field types: " - "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", - sequence_a->element_type, sequence_b->element_type); + /* Copy field_name_to_index */ + g_hash_table_iter_init(&iter, var_ft->choice_name_to_index); + while (g_hash_table_iter_next(&iter, &key, &value)) { + g_hash_table_insert(copy_ft->choice_name_to_index, + key, value); } -end: - return ret; -} + g_array_set_size(copy_ft->choices, var_ft->choices->len); -int bt_ctf_field_type_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) -{ - int ret = 1; + for (i = 0; i < var_ft->choices->len; i++) { + struct bt_field_type_common_variant_choice *entry, *copy_entry; + struct bt_field_type_common *field_ft_copy; + uint64_t range_i; - if (type_a == type_b) { - /* Same reference: equal (even if both are NULL) */ - ret = 0; - goto end; - } + entry = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, i); + copy_entry = BT_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( + copy_ft, i); + BT_LOGD("Copying variant field type's field: " + "index=%" PRId64 ", " + "field-ft-addr=%p, field-name=\"%s\"", + i, entry, g_quark_to_string(entry->name)); - if (!type_a) { - BT_LOGW_STR("Invalid parameter: field type A is NULL."); - ret = -1; - goto end; - } + field_ft_copy = (void *) bt_field_type_copy( + (void *) entry->type); + if (!field_ft_copy) { + BT_LOGE("Cannot copy variant field type's field: " + "index=%" PRId64 ", " + "field-ft-addr=%p, field-name=\"%s\"", + i, entry, g_quark_to_string(entry->name)); + g_free(copy_entry); + goto error; + } - if (!type_b) { - BT_LOGW_STR("Invalid parameter: field type B is NULL."); - ret = -1; - goto end; - } + copy_entry->name = entry->name; + copy_entry->type = field_ft_copy; - if (type_a->id != type_b->id) { - /* Different type IDs */ - BT_LOGV("Field types differ: different IDs: " - "ft-a-addr=%p, ft-b-addr=%p, " - "ft-a-id=%s, ft-b-id=%s", - type_a, type_b, - bt_ctf_field_type_id_string(type_a->id), - bt_ctf_field_type_id_string(type_b->id)); - goto end; - } + /* Copy ranges */ + copy_entry->ranges = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_common_variant_choice_range)); + BT_ASSERT(copy_entry->ranges); + g_array_set_size(copy_entry->ranges, entry->ranges->len); - if (type_a->id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { - /* Both have unknown type IDs */ - BT_LOGW_STR("Invalid parameter: field type IDs are unknown."); - goto end; + for (range_i = 0; range_i < entry->ranges->len; range_i++) { + copy_entry->ranges[range_i] = entry->ranges[range_i]; + } } - ret = type_compare_funcs[type_a->id](type_a, type_b); - if (ret == 1) { - BT_LOGV("Field types differ: ft-a-addr=%p, ft-b-addr=%p", - type_a, type_b); + if (var_ft->tag_field_path) { + BT_LOGD_STR("Copying variant field type's tag field path."); + copy_ft->tag_field_path = bt_field_path_copy( + var_ft->tag_field_path); + if (!copy_ft->tag_field_path) { + BT_LOGE_STR("Cannot copy variant field type's tag field path."); + goto error; + } } + copy_ft->choices_up_to_date = var_ft->choices_up_to_date; + BT_LOGD("Copied variant field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); + end: - return ret; + bt_put(tag_ft_copy); + return (void *) copy_ft; + +error: + bt_put(tag_ft_copy); + BT_PUT(copy_ft); + return NULL; } -BT_HIDDEN -int64_t bt_ctf_field_type_get_field_count(struct bt_ctf_field_type *field_type) +static +struct bt_field_type *bt_field_type_array_copy_recursive( + struct bt_field_type *ft) { - int64_t field_count = -1; - enum bt_ctf_field_type_id type_id = bt_ctf_field_type_get_type_id(field_type); + struct bt_field_type_common *container_ft_copy = NULL; + struct bt_field_type_common_array *array_ft = (void *) ft; + struct bt_field_type_common_array *copy_ft = NULL; - switch (type_id) { - case CTF_TYPE_STRUCT: - field_count = - bt_ctf_field_type_structure_get_field_count(field_type); - break; - case CTF_TYPE_VARIANT: - field_count = - bt_ctf_field_type_variant_get_field_count(field_type); - break; - case CTF_TYPE_ARRAY: - case CTF_TYPE_SEQUENCE: - /* - * Array and sequence types always contain a single member - * (the element type). - */ - field_count = 1; - break; - default: - break; + BT_LOGD("Copying array field type's: addr=%p", ft); + BT_LOGD_STR("Copying array field type's element field type."); + container_ft_copy = bt_field_type_common_copy(array_ft->element_ft); + if (!container_ft_copy) { + BT_LOGE_STR("Cannot copy array field type's element field type."); + goto end; } - return field_count; -} + copy_ft = (void *) bt_field_type_array_create( + (void *) container_ft_copy, array_ft->length); + if (!copy_ft) { + BT_LOGE_STR("Cannot create array field type."); + goto end; + } -BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_get_field_at_index( - struct bt_ctf_field_type *field_type, int index) -{ - struct bt_ctf_field_type *field = NULL; - enum bt_ctf_field_type_id type_id = bt_ctf_field_type_get_type_id(field_type); + BT_LOGD("Copied array field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); - switch (type_id) { - case CTF_TYPE_STRUCT: - bt_ctf_field_type_structure_get_field_by_index(field_type, - NULL, &field, index); - break; - case CTF_TYPE_VARIANT: - { - int ret = bt_ctf_field_type_variant_get_field_by_index( - field_type, NULL, &field, index); - if (ret) { - field = NULL; - goto end; - } - break; - } - case CTF_TYPE_ARRAY: - field = bt_ctf_field_type_array_get_element_type(field_type); - break; - case CTF_TYPE_SEQUENCE: - field = bt_ctf_field_type_sequence_get_element_type(field_type); - break; - default: - break; - } end: - return field; + bt_put(container_ft_copy); + return (void *) copy_ft; } -BT_HIDDEN -int bt_ctf_field_type_get_field_index(struct bt_ctf_field_type *field_type, - const char *name) +static +struct bt_field_type *bt_field_type_sequence_copy_recursive( + struct bt_field_type *ft) { - int field_index = -1; - enum bt_ctf_field_type_id type_id = bt_ctf_field_type_get_type_id(field_type); + struct bt_field_type_common *container_ft_copy = NULL; + struct bt_field_type_common_sequence *seq_ft = (void *) ft; + struct bt_field_type_common_sequence *copy_ft = NULL; - switch (type_id) { - case CTF_TYPE_STRUCT: - field_index = bt_ctf_field_type_structure_get_field_name_index( - field_type, name); - break; - case CTF_TYPE_VARIANT: - field_index = bt_ctf_field_type_variant_get_field_name_index( - field_type, name); - break; - default: - break; + BT_LOGD("Copying sequence field type's: addr=%p", ft); + BT_LOGD_STR("Copying sequence field type's element field type."); + container_ft_copy = bt_field_type_common_copy(seq_ft->element_ft); + if (!container_ft_copy) { + BT_LOGE_STR("Cannot copy sequence field type's element field type."); + goto end; } - return field_index; -} - -struct bt_ctf_field_path *bt_ctf_field_type_variant_get_tag_field_path( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_path *field_path = NULL; - struct bt_ctf_field_type_variant *variant; - - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); + copy_ft = (void *) bt_field_type_sequence_create( + (void *) container_ft_copy, + seq_ft->length_field_name->len ? + seq_ft->length_field_name->str : NULL); + if (!copy_ft) { + BT_LOGE_STR("Cannot create sequence field type."); goto end; } - if (!bt_ctf_field_type_is_variant(type)) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; + if (seq_ft->length_field_path) { + BT_LOGD_STR("Copying sequence field type's length field path."); + copy_ft->length_field_path = bt_field_path_copy( + seq_ft->length_field_path); + if (!copy_ft->length_field_path) { + BT_LOGE_STR("Cannot copy sequence field type's length field path."); + goto error; + } } - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - field_path = bt_get(variant->tag_field_path); + BT_LOGD("Copied sequence field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); + end: - return field_path; + bt_put(container_ft_copy); + return (void *) copy_ft; +error: + bt_put(container_ft_copy); + BT_PUT(copy_ft); + return NULL; } -struct bt_ctf_field_path *bt_ctf_field_type_sequence_get_length_field_path( - struct bt_ctf_field_type *type) +static +struct bt_field_type *bt_field_type_string_copy(struct bt_field_type *ft) { - struct bt_ctf_field_path *field_path = NULL; - struct bt_ctf_field_type_sequence *sequence; + struct bt_field_type_common_string *string_ft = (void *) ft; + struct bt_field_type_common_string *copy_ft = NULL; - if (!type) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); + BT_LOGD("Copying string field type's: addr=%p", ft); + copy_ft = (void *) bt_field_type_string_create(); + if (!copy_ft) { + BT_LOGE_STR("Cannot create string field type."); goto end; } - if (!bt_ctf_field_type_is_sequence(type)) { - BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", type, - bt_ctf_field_type_id_string(type->id)); - goto end; - } + copy_ft->encoding = string_ft->encoding; + BT_LOGD("Copied string field type: original-ft-addr=%p, copy-ft-addr=%p", + ft, copy_ft); - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - field_path = bt_get(sequence->length_field_path); end: - return field_path; + return (void *) copy_ft; }