X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=lib%2Fctf-ir%2Ffield-types.c;h=f71cf29f16d712eefbfe11a7a46611488c4dd202;hb=7b33a0e0d8f23d90285ea7c7820a725bcbd96c6b;hp=442aff0e9e2b2b8c990ce3e1ac83dcab130f4114;hpb=544d0515ffa2d011247e4f1d7cad5770b8ec7033;p=babeltrace.git diff --git a/lib/ctf-ir/field-types.c b/lib/ctf-ir/field-types.c index 442aff0e..f71cf29f 100644 --- a/lib/ctf-ir/field-types.c +++ b/lib/ctf-ir/field-types.c @@ -26,4185 +26,1139 @@ * SOFTWARE. */ -#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 *); - -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, -}; - -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 *); - -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, -}; - -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 *); - -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, -}; - -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); - -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, -}; - -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_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 -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 -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 -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 -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 -void destroy_enumeration_mapping(struct enumeration_mapping *mapping) -{ - g_free(mapping); -} - -static -void destroy_structure_field(struct structure_field *field) -{ - bt_put(field->type); - g_free(field); -} - -static -void check_ranges_overlap(gpointer element, gpointer query) -{ - struct enumeration_mapping *mapping = element; - struct range_overlap_query *overlap_query = query; - - if (mapping->range_start._signed <= overlap_query->range_end._signed - && overlap_query->range_start._signed <= - mapping->range_end._signed) { - overlap_query->overlaps = 1; - overlap_query->mapping_name = mapping->string; - } - - overlap_query->overlaps |= - mapping->string == overlap_query->mapping_name; -} - -static -void check_ranges_overlap_unsigned(gpointer element, gpointer query) -{ - struct enumeration_mapping *mapping = element; - struct range_overlap_query *overlap_query = query; - - if (mapping->range_start._unsigned <= overlap_query->range_end._unsigned - && overlap_query->range_start._unsigned <= - mapping->range_end._unsigned) { - overlap_query->overlaps = 1; - overlap_query->mapping_name = mapping->string; - } - - overlap_query->overlaps |= - mapping->string == overlap_query->mapping_name; -} - -static -gint compare_enumeration_mappings_signed(struct enumeration_mapping **a, - struct enumeration_mapping **b) -{ - return ((*a)->range_start._signed < (*b)->range_start._signed) ? -1 : 1; -} - -static -gint compare_enumeration_mappings_unsigned(struct enumeration_mapping **a, - struct enumeration_mapping **b) -{ - return ((*a)->range_start._unsigned < (*b)->range_start._unsigned) ? -1 : 1; -} - -static -void bt_ctf_field_type_init(struct bt_ctf_field_type *type, 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, - GHashTable *field_name_to_index, - struct bt_ctf_field_type *field_type, - const char *field_name) -{ - int ret = 0; - GQuark name_quark = g_quark_from_string(field_name); - struct structure_field *field; - - /* Make sure structure does not contain a field of the same name */ - if (g_hash_table_lookup_extended(field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, NULL)) { - ret = -1; - goto end; - } - - field = g_new0(struct structure_field, 1); - if (!field) { - ret = -1; - goto end; - } - - bt_get(field_type); - field->name = name_quark; - field->type = 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); -end: - return ret; -} - -static -void bt_ctf_field_type_destroy(struct bt_object *obj) -{ - struct bt_ctf_field_type *type; - enum bt_ctf_field_type_id type_id; - - 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) { - 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) { - ret = -1; - goto end; - } - -end: - return ret; -} - -static -struct enumeration_mapping *get_enumeration_mapping( - struct bt_ctf_field_type *type, int index) -{ - 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) { - goto end; - } - - mapping = g_ptr_array_index(enumeration->entries, index); -end: - return mapping; -} - -/* - * Note: This algorithm is O(n^2) vs number of enumeration mappings. - * Only used when freezing an enumeration. - */ -static -void set_enumeration_range_overlap( - struct bt_ctf_field_type *type) -{ - int i, j, len; - struct bt_ctf_field_type *container_type; - struct bt_ctf_field_type_enumeration *enumeration_type; - int is_signed; - - 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); - - 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); - 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 = true; - return; - } - } else { - if (mapping[0]->range_start._unsigned - <= mapping[1]->range_end._unsigned - && mapping[0]->range_end._unsigned - >= mapping[1]->range_start._unsigned) { - enumeration_type->has_overlapping_ranges = true; - return; - } - } - } - } -} - -static -int bt_ctf_field_type_enumeration_validate(struct bt_ctf_field_type *type) -{ - int ret = 0; - - 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); - - if (!container_type) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_validate(container_type); - if (ret) { - goto end; - } - - /* Ensure enum has entries */ - ret = enumeration->entries->len ? 0 : -1; - -end: - BT_PUT(container_type); - return ret; -} - -static -int bt_ctf_field_type_sequence_validate(struct bt_ctf_field_type *type) -{ - 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); - - /* Length field name should be set at this point */ - if (sequence->length_field_name->len == 0) { - ret = -1; - goto end; - } - - element_type = bt_ctf_field_type_sequence_get_element_type(type); - if (!element_type) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_validate(element_type); - -end: - BT_PUT(element_type); - - return ret; -} - -static -int bt_ctf_field_type_array_validate(struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type *element_type = NULL; - - element_type = bt_ctf_field_type_array_get_element_type(type); - if (!element_type) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_validate(element_type); - -end: - BT_PUT(element_type); - - return ret; -} - -static -int bt_ctf_field_type_structure_validate(struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type *child_type = NULL; - int64_t field_count = bt_ctf_field_type_structure_get_field_count(type); - int64_t i; - - if (field_count < 0) { - ret = -1; - goto end; - } - - for (i = 0; i < field_count; ++i) { - ret = bt_ctf_field_type_structure_get_field(type, - NULL, &child_type, i); - if (ret) { - goto end; - } - - ret = bt_ctf_field_type_validate(child_type); - if (ret) { - goto end; - } - - BT_PUT(child_type); - } - -end: - BT_PUT(child_type); - - return ret; -} - -static -bool bt_ctf_field_type_enumeration_has_overlapping_ranges( - struct bt_ctf_field_type_enumeration *enumeration_type) -{ - 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, - int index, - const char **mapping_name) -{ - int ret = 0; - struct enumeration_mapping *mapping; - - if (!enum_field_type || index < 0) { - ret = -1; - goto end; - } - - mapping = get_enumeration_mapping(enum_field_type, index); - if (!mapping) { - ret = -1; - goto end; - } - - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); - } -end: - return ret; -} - -static -int bt_ctf_field_type_variant_validate(struct bt_ctf_field_type *type) -{ - 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); - int64_t i; - int64_t tag_mappings_count; - - if (variant->tag_name->len == 0 || !variant->tag) { - ret = -1; - goto end; - } - - if (bt_ctf_field_type_enumeration_has_overlapping_ranges( - variant->tag)) { - ret = -1; - goto end; - } - - tag_mappings_count = - bt_ctf_field_type_enumeration_get_mapping_count( - (struct bt_ctf_field_type *) variant->tag); - - if (tag_mappings_count != variant->fields->len) { - ret = -1; - goto end; - } - - 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); - if (ret) { - goto end; - } - if (!label) { - ret = -1; - goto end; - } - - ft = bt_ctf_field_type_variant_get_field_type_by_name( - type, label); - if (!ft) { - ret = -1; - goto end; - } - - BT_PUT(ft); - } - - field_count = bt_ctf_field_type_variant_get_field_count(type); - if (field_count < 0) { - ret = -1; - goto end; - } - - for (i = 0; i < field_count; ++i) { - ret = bt_ctf_field_type_variant_get_field(type, - NULL, &child_type, i); - if (ret) { - goto end; - } - - ret = bt_ctf_field_type_validate(child_type); - if (ret) { - goto end; - } - - BT_PUT(child_type); - } - -end: - BT_PUT(child_type); - - return ret; -} - -/* - * This function validates a given field type without considering - * where this field type is located. It only validates the properties - * of the given field type and the properties of its children if - * applicable. - */ -BT_HIDDEN -int bt_ctf_field_type_validate(struct bt_ctf_field_type *type) -{ - int ret = 0; - enum bt_ctf_field_type_id id = bt_ctf_field_type_get_type_id(type); - - if (!type) { - ret = -1; - goto end; - } - - if (type->valid) { - /* Already marked as valid */ - goto end; - } - - if (type_validate_funcs[id]) { - ret = type_validate_funcs[id](type); - } - - if (!ret && type->frozen) { - /* Field type is valid */ - type->valid = 1; - } - -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_integer_create(unsigned int size) -{ - struct bt_ctf_field_type_integer *integer = - g_new0(struct bt_ctf_field_type_integer, 1); - - if (!integer || size == 0 || size > 64) { - return NULL; - } - - 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); - 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 || type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - ret = -1; - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = (int) integer->size; -end: - return ret; -} - -int bt_ctf_field_type_integer_get_signed(struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - ret = -1; - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->is_signed; -end: - return ret; -} - -int bt_ctf_field_type_integer_set_signed(struct bt_ctf_field_type *type, - int is_signed) -{ - int ret = 0; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->frozen || - type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - ret = -1; - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->is_signed = !!is_signed; -end: - return ret; -} - -int bt_ctf_field_type_integer_set_size(struct bt_ctf_field_type *type, - size_t size) -{ - int ret = 0; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->frozen || - type->id != BT_CTF_FIELD_TYPE_ID_INTEGER || - !size || size > 64) { - ret = -1; - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->size = size; -end: - return ret; -} - -enum bt_ctf_integer_base bt_ctf_field_type_integer_get_base( - struct bt_ctf_field_type *type) -{ - enum bt_ctf_integer_base ret = BT_CTF_INTEGER_BASE_UNKNOWN; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->base; -end: - return ret; -} - -int bt_ctf_field_type_integer_set_base(struct bt_ctf_field_type *type, - enum bt_ctf_integer_base base) -{ - int ret = 0; - - if (!type || type->frozen || - type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - 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: - { - struct bt_ctf_field_type_integer *integer = container_of(type, - struct bt_ctf_field_type_integer, parent); - integer->base = base; - break; - } - default: - ret = -1; - } -end: - return ret; -} - -enum bt_ctf_string_encoding bt_ctf_field_type_integer_get_encoding( - struct bt_ctf_field_type *type) -{ - enum bt_ctf_string_encoding ret = BT_CTF_STRING_ENCODING_UNKNOWN; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - ret = integer->encoding; -end: - return ret; -} - -int bt_ctf_field_type_integer_set_encoding(struct bt_ctf_field_type *type, - enum bt_ctf_string_encoding encoding) -{ - int ret = 0; - struct bt_ctf_field_type_integer *integer; - - if (!type || type->frozen || - (type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) || - (encoding < BT_CTF_STRING_ENCODING_NONE) || - (encoding >= BT_CTF_STRING_ENCODING_UNKNOWN)) { - ret = -1; - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - integer->encoding = encoding; -end: - return ret; -} - -struct bt_ctf_clock_class *bt_ctf_field_type_integer_get_mapped_clock_class( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_integer *integer; - struct bt_ctf_clock_class *clock_class = NULL; - - if (!type) { - goto end; - } - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - clock_class = integer->mapped_clock; - bt_get(clock_class); -end: - return 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_ctf_field_type_integer *integer; - int ret = 0; - - if (!type || type->frozen || !bt_ctf_clock_class_is_valid(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); -end: - return ret; -} - -static -void bt_ctf_field_type_enum_iter_destroy(struct bt_object *obj) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = - container_of(obj, - struct bt_ctf_field_type_enumeration_mapping_iterator, - base); - - bt_put(&iter->enumeration_type->parent); - 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_ctf_field_type_enumeration *enumeration_type; - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ENUM)) { - goto end; - } - - enumeration_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); - iter = g_new0(struct bt_ctf_field_type_enumeration_mapping_iterator, 1); - if (!iter) { - goto end; - } - - bt_object_init(&iter->base, bt_ctf_field_type_enum_iter_destroy); - bt_get(type); - iter->enumeration_type = enumeration_type; - 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) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_NAME); - if (!iter) { - goto error; - } - - iter->u.name_quark = g_quark_try_string(name); - if (!iter->u.name_quark) { - 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; - } - - 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_ctf_field_type_enumeration *enumeration; - struct bt_ctf_field_type *type; - int i, ret = 0, len; - - enumeration = iter->enumeration_type; - type = &enumeration->parent; - len = enumeration->entries->len; - for (i = iter->index + 1; i < len; i++) { - struct enumeration_mapping *mapping = - get_enumeration_mapping(type, i); - - switch (iter->type) { - case ITERATOR_BY_NAME: - if (mapping->string == iter->u.name_quark) { - iter->index = i; - goto end; - } - break; - case ITERATOR_BY_SIGNED_VALUE: - { - int64_t value = iter->u.signed_value; - - if (value >= mapping->range_start._signed && - value <= mapping->range_end._signed) { - iter->index = i; - goto end; - } - break; - } - case ITERATOR_BY_UNSIGNED_VALUE: - { - uint64_t value = iter->u.unsigned_value; - - if (value >= mapping->range_start._unsigned && - value <= mapping->range_end._unsigned) { - iter->index = i; - goto end; - } - break; - } - default: - 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) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_SIGNED_VALUE); - if (!iter) { - goto error; - } - - if (bt_ctf_field_type_integer_get_signed( - iter->enumeration_type->container) != 1) { - 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_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_enumeration_find_mappings_type( - type, ITERATOR_BY_UNSIGNED_VALUE); - if (!iter) { - goto error; - } - - if (bt_ctf_field_type_integer_get_signed( - iter->enumeration_type->container) != 0) { - 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. */ - goto error; - } - - 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, - const char **mapping_name, int64_t *range_begin, - int64_t *range_end) -{ - int ret = 0; - - if (!iter) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_enumeration_get_mapping_signed( - &iter->enumeration_type->parent, 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, - const char **mapping_name, uint64_t *range_begin, - uint64_t *range_end) -{ - int ret = 0; - - if (!iter) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_enumeration_get_mapping_unsigned( - &iter->enumeration_type->parent, 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, - int index, - const char **mapping_name, int64_t *range_begin, - int64_t *range_end) -{ - int ret = 0; - struct enumeration_mapping *mapping; - - if (!enum_field_type || index < 0) { - ret = -1; - goto end; - } - - mapping = get_enumeration_mapping(enum_field_type, index); - if (!mapping) { - ret = -1; - goto end; - } - - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); - } - - if (range_begin) { - *range_begin = mapping->range_start._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, - int index, - const char **mapping_name, uint64_t *range_begin, - uint64_t *range_end) -{ - int ret = 0; - struct enumeration_mapping *mapping; - - if (!enum_field_type || index < 0) { - ret = -1; - goto end; - } - - mapping = get_enumeration_mapping(enum_field_type, index); - if (!mapping) { - ret = -1; - goto end; - } - - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); - } - - if (range_begin) { - *range_begin = mapping->range_start._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) -{ - struct bt_ctf_field_type_enumeration *enumeration = NULL; - - if (!integer_container_type) { - goto error; - } - - if (integer_container_type->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - goto error; - } - - enumeration = g_new0(struct bt_ctf_field_type_enumeration, 1); - if (!enumeration) { - 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); - return &enumeration->parent; -error: - g_free(enumeration); - return NULL; -} - -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_get_container_type( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *container_type = NULL; - struct bt_ctf_field_type_enumeration *enumeration_type; - - if (!type) { - goto end; - } - - if (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - goto end; - } - - 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; -} - -int bt_ctf_field_type_enumeration_add_mapping( - struct bt_ctf_field_type *type, 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; - char *escaped_string; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) || - type->frozen || - (range_end < range_start)) { - ret = -1; - goto end; - } - - if (!string || strlen(string) == 0) { - ret = -1; - goto end; - } - - escaped_string = g_strescape(string, NULL); - if (!escaped_string) { - ret = -1; - goto end; - } - - mapping = g_new(struct enumeration_mapping, 1); - if (!mapping) { - ret = -1; - goto error_free; - } - mapping_name = g_quark_from_string(escaped_string); - *mapping = (struct enumeration_mapping) { - .range_start._signed = range_start, - .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); -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, - 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; - char *escaped_string; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ENUM) || - type->frozen || - (range_end < range_start)) { - ret = -1; - goto end; - } - - if (!string || strlen(string) == 0) { - ret = -1; - goto end; - } - - escaped_string = g_strescape(string, NULL); - if (!escaped_string) { - ret = -1; - goto end; - } - - mapping = g_new(struct enumeration_mapping, 1); - if (!mapping) { - ret = -1; - goto error_free; - } - mapping_name = g_quark_from_string(escaped_string); - *mapping = (struct enumeration_mapping) { - .range_start._unsigned = range_start, - .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); -error_free: - free(escaped_string); -end: - return ret; -} - -int64_t bt_ctf_field_type_enumeration_get_mapping_count( - struct bt_ctf_field_type *type) -{ - int64_t ret = 0; - struct bt_ctf_field_type_enumeration *enumeration; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ENUM)) { - ret = -1; - goto end; - } - - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); - ret = (int64_t) enumeration->entries->len; -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_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); - - if (!floating_point) { - 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); -end: - return floating_point ? &floating_point->parent : NULL; -} - -int bt_ctf_field_type_floating_point_get_exponent_digits( - struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT)) { - ret = -1; - goto end; - } - - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - ret = (int) floating_point->exp_dig; -end: - return ret; -} - -int bt_ctf_field_type_floating_point_set_exponent_digits( - struct bt_ctf_field_type *type, - unsigned int exponent_digits) -{ - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; - - if (!type || type->frozen || - (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT)) { - 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)) { - ret = -1; - goto end; - } - - floating_point->exp_dig = exponent_digits; -end: - return ret; -} - -int bt_ctf_field_type_floating_point_get_mantissa_digits( - struct bt_ctf_field_type *type) -{ - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT)) { - ret = -1; - goto end; - } - - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - ret = (int) floating_point->mant_dig; -end: - return ret; -} - -int bt_ctf_field_type_floating_point_set_mantissa_digits( - struct bt_ctf_field_type *type, - unsigned int mantissa_digits) -{ - int ret = 0; - struct bt_ctf_field_type_floating_point *floating_point; - - if (!type || type->frozen || - (type->id != BT_CTF_FIELD_TYPE_ID_FLOAT)) { - 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)) { - ret = -1; - goto end; - } - - floating_point->mant_dig = mantissa_digits; -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_structure_create(void) -{ - struct bt_ctf_field_type_structure *structure = - g_new0(struct bt_ctf_field_type_structure, 1); - - if (!structure) { - 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); - return &structure->parent; -error: - return NULL; -} - -int bt_ctf_field_type_structure_add_field(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *field_type, - const char *field_name) -{ - int ret = 0; - struct bt_ctf_field_type_structure *structure; - - /* - * TODO: check that `field_type` does not contain `type`, - * recursively. - */ - if (!type || !field_type || type->frozen || - bt_ctf_validate_identifier(field_name) || - (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT) || - type == field_type) { - 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)) { - ret = -1; - goto end; - } -end: - return ret; -} - -int64_t bt_ctf_field_type_structure_get_field_count( - struct bt_ctf_field_type *type) -{ - int64_t ret = 0; - struct bt_ctf_field_type_structure *structure; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT)) { - ret = -1; - goto end; - } - - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - ret = (int64_t) structure->fields->len; -end: - return ret; -} - -int bt_ctf_field_type_structure_get_field(struct bt_ctf_field_type *type, - const char **field_name, struct bt_ctf_field_type **field_type, - int index) -{ - struct bt_ctf_field_type_structure *structure; - struct structure_field *field; - int ret = 0; - - if (!type || index < 0 || - (type->id != BT_CTF_FIELD_TYPE_ID_STRUCT)) { - ret = -1; - goto end; - } - - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - if (index >= structure->fields->len) { - ret = -1; - goto end; - } - - 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); - } -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_structure_get_field_type_by_name( - struct bt_ctf_field_type *type, - 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 || !name) { - goto end; - } - - name_quark = g_quark_try_string(name); - if (!name_quark) { - 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)) { - goto end; - } - - field = structure->fields->pdata[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_ctf_field_type_variant *variant = NULL; - - if (tag_name && bt_ctf_validate_identifier(tag_name)) { - goto error; - } - - variant = g_new0(struct bt_ctf_field_type_variant, 1); - if (!variant) { - 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; - return &variant->parent; -error: - return NULL; -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_tag_type( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_variant *variant; - struct bt_ctf_field_type *tag_type = NULL; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT)) { - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - if (!variant->tag) { - goto end; - } - - tag_type = &variant->tag->parent; - bt_get(tag_type); -end: - return tag_type; -} - -const char *bt_ctf_field_type_variant_get_tag_name( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_variant *variant; - const char *tag_name = NULL; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT)) { - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - if (variant->tag_name->len == 0) { - goto end; - } - - tag_name = variant->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) -{ - int ret = 0; - struct bt_ctf_field_type_variant *variant; - - if (!type || type->frozen || - (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) || - bt_ctf_validate_identifier(name)) { - ret = -1; - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, parent); - g_string_assign(variant->tag_name, 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, - const char *field_name) -{ - size_t i; - int ret = 0; - struct bt_ctf_field_type_variant *variant; - GQuark field_name_quark = g_quark_from_string(field_name); - - /* - * TODO: check that `field_type` does not contain `type`, - * recursively. - */ - if (!type || !field_type || type->frozen || - bt_ctf_validate_identifier(field_name) || - (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) || - type == field_type) { - 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) { - int name_found = 0; - - /* Make sure this name is present in the enum tag */ - for (i = 0; i < variant->tag->entries->len; i++) { - struct enumeration_mapping *mapping = - g_ptr_array_index(variant->tag->entries, i); - - if (mapping->string == field_name_quark) { - name_found = 1; - break; - } - } - - if (!name_found) { - /* Validation failed */ - ret = -1; - goto end; - } - } - - if (add_structure_field(variant->fields, variant->field_name_to_index, - field_type, field_name)) { - ret = -1; - goto end; - } -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_by_name( - struct bt_ctf_field_type *type, - 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 || !field_name) { - goto end; - } - - name_quark = g_quark_try_string(field_name); - if (!name_quark) { - 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)) { - goto end; - } - - field = g_ptr_array_index(variant->fields, index); - field_type = field->type; - bt_get(field_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) -{ - int ret; - const char *enum_value; - struct bt_ctf_field_type *field_type = NULL; - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; - - if (!type || !tag || type->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - goto end; - } - - iter = bt_ctf_field_enumeration_get_mappings(tag); - if (!iter) { - goto end; - } - - ret = bt_ctf_field_type_enumeration_mapping_iterator_get_signed(iter, - &enum_value, NULL, NULL); - if (ret) { - goto end; - } - - field_type = bt_ctf_field_type_variant_get_field_type_by_name( - type, enum_value); -end: - bt_put(iter); - return field_type; -} - -int64_t bt_ctf_field_type_variant_get_field_count(struct bt_ctf_field_type *type) -{ - int64_t ret = 0; - struct bt_ctf_field_type_variant *variant; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT)) { - ret = -1; - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - ret = (int64_t) variant->fields->len; -end: - return ret; - -} - -int bt_ctf_field_type_variant_get_field(struct bt_ctf_field_type *type, - const char **field_name, struct bt_ctf_field_type **field_type, - int index) -{ - struct bt_ctf_field_type_variant *variant; - struct structure_field *field; - int ret = 0; - - if (!type || index < 0 || - (type->id != BT_CTF_FIELD_TYPE_ID_VARIANT)) { - ret = -1; - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - if (index >= variant->fields->len) { - ret = -1; - goto end; - } - - 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_ctf_field_type_array *array = NULL; - - if (!element_type || length == 0) { - goto error; - } - - array = g_new0(struct bt_ctf_field_type_array, 1); - if (!array) { - 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); - return &array->parent; -error: - return NULL; -} - -struct bt_ctf_field_type *bt_ctf_field_type_array_get_element_type( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *ret = NULL; - struct bt_ctf_field_type_array *array; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY)) { - goto end; - } - - array = container_of(type, struct bt_ctf_field_type_array, parent); - ret = array->element_type; - bt_get(ret); -end: - return ret; -} - -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 ret = 0; - struct bt_ctf_field_type_array *array; - - if (!type || !element_type || - (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY)) { - ret = -1; - goto end; - } - - array = container_of(type, struct bt_ctf_field_type_array, parent); - - if (array->element_type) { - BT_PUT(array->element_type); - } - - array->element_type = element_type; - bt_get(array->element_type); - -end: - return ret; -} - -int64_t bt_ctf_field_type_array_get_length(struct bt_ctf_field_type *type) -{ - int64_t ret; - struct bt_ctf_field_type_array *array; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_ARRAY)) { - ret = -1; - goto end; - } - - array = container_of(type, struct bt_ctf_field_type_array, parent); - ret = (int64_t) array->length; -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_sequence_create( - struct bt_ctf_field_type *element_type, - const char *length_field_name) -{ - struct bt_ctf_field_type_sequence *sequence = NULL; - - if (!element_type || bt_ctf_validate_identifier(length_field_name)) { - goto error; - } - - sequence = g_new0(struct bt_ctf_field_type_sequence, 1); - if (!sequence) { - 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); - return &sequence->parent; -error: - return NULL; -} - -struct bt_ctf_field_type *bt_ctf_field_type_sequence_get_element_type( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *ret = NULL; - struct bt_ctf_field_type_sequence *sequence; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE)) { - goto end; - } - - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - ret = sequence->element_type; - bt_get(ret); -end: - return ret; -} - -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 ret = 0; - struct bt_ctf_field_type_sequence *sequence; - - if (!type || !element_type || - (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE)) { - ret = -1; - goto end; - } - - sequence = container_of(type, struct bt_ctf_field_type_sequence, parent); - - if (sequence->element_type) { - BT_PUT(sequence->element_type); - } - - sequence->element_type = element_type; - bt_get(sequence->element_type); - -end: - return ret; -} - -const char *bt_ctf_field_type_sequence_get_length_field_name( - struct bt_ctf_field_type *type) -{ - const char *ret = NULL; - struct bt_ctf_field_type_sequence *sequence; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE)) { - goto end; - } - - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - ret = sequence->length_field_name->str; -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_string_create(void) -{ - struct bt_ctf_field_type_string *string = - g_new0(struct bt_ctf_field_type_string, 1); - - if (!string) { - 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; - return &string->parent; -} - -enum bt_ctf_string_encoding bt_ctf_field_type_string_get_encoding( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_string *string; - enum bt_ctf_string_encoding ret = BT_CTF_STRING_ENCODING_UNKNOWN; - - if (!type || (type->id != BT_CTF_FIELD_TYPE_ID_STRING)) { - goto end; - } - - string = container_of(type, struct bt_ctf_field_type_string, - parent); - ret = string->encoding; -end: - return ret; -} - -int bt_ctf_field_type_string_set_encoding(struct bt_ctf_field_type *type, - enum bt_ctf_string_encoding encoding) -{ - int ret = 0; - struct bt_ctf_field_type_string *string; - - if (!type || type->id != BT_CTF_FIELD_TYPE_ID_STRING || - (encoding != BT_CTF_STRING_ENCODING_UTF8 && - encoding != BT_CTF_STRING_ENCODING_ASCII)) { - ret = -1; - goto end; - } - - string = container_of(type, struct bt_ctf_field_type_string, parent); - string->encoding = encoding; -end: - return ret; -} - -int bt_ctf_field_type_get_alignment(struct bt_ctf_field_type *type) -{ - int ret; - enum bt_ctf_field_type_id type_id; - - if (!type) { - ret = -1; - goto end; - } - - if (type->frozen) { - ret = (int) type->alignment; - goto end; - } - - type_id = bt_ctf_field_type_get_type_id(type); - switch (type_id) { - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - { - struct bt_ctf_field_type *element = - bt_ctf_field_type_sequence_get_element_type(type); - - if (!element) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_get_alignment(element); - bt_put(element); - break; - } - case BT_CTF_FIELD_TYPE_ID_ARRAY: - { - struct bt_ctf_field_type *element = - bt_ctf_field_type_array_get_element_type(type); - - if (!element) { - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_get_alignment(element); - bt_put(element); - break; - } - case BT_CTF_FIELD_TYPE_ID_STRUCT: - { - int64_t i, element_count; - - element_count = bt_ctf_field_type_structure_get_field_count( - type); - if (element_count < 0) { - ret = element_count; - goto end; - } - - for (i = 0; i < element_count; i++) { - struct bt_ctf_field_type *field; - int field_alignment; - - ret = bt_ctf_field_type_structure_get_field(type, NULL, - &field, i); - if (ret) { - goto end; - } - - assert(field); - field_alignment = bt_ctf_field_type_get_alignment( - field); - bt_put(field); - if (field_alignment < 0) { - ret = field_alignment; - goto end; - } - - type->alignment = MAX(field_alignment, type->alignment); - } - ret = (int) type->alignment; - break; - } - case BT_CTF_FIELD_TYPE_ID_UNKNOWN: - ret = -1; - break; - default: - ret = (int) type->alignment; - break; - } -end: - return ret; -} - -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, - unsigned int alignment) -{ - int ret = 0; - enum bt_ctf_field_type_id type_id; - - /* Alignment must be a power of two */ - if (!type || type->frozen || !is_power_of_two(alignment)) { - ret = -1; - goto end; - } - - type_id = bt_ctf_field_type_get_type_id(type); - if (type_id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { - ret = -1; - goto end; - } - - if (type->id == BT_CTF_FIELD_TYPE_ID_STRING && - alignment != CHAR_BIT) { - 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) { - /* Setting an alignment on these types makes no sense */ - ret = -1; - goto end; - } - - type->alignment = alignment; - ret = 0; -end: - return ret; -} - -enum bt_ctf_byte_order bt_ctf_field_type_get_byte_order( - struct bt_ctf_field_type *type) -{ - enum bt_ctf_byte_order ret = BT_CTF_BYTE_ORDER_UNKNOWN; - - if (!type) { - goto end; - } - - switch (type->id) { - case BT_CTF_FIELD_TYPE_ID_INTEGER: - { - struct bt_ctf_field_type_integer *integer = container_of( - type, struct bt_ctf_field_type_integer, parent); - ret = integer->user_byte_order; - break; - } - case BT_CTF_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); - break; - } - case BT_CTF_FIELD_TYPE_ID_FLOAT: - { - struct bt_ctf_field_type_floating_point *floating_point = - container_of(type, - struct bt_ctf_field_type_floating_point, - parent); - ret = floating_point->user_byte_order; - break; - } - default: - 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); - -end: - return ret; -} - -int bt_ctf_field_type_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) -{ - int ret = 0; - - if (!type || type->frozen) { - 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) { - ret = -1; - goto end; - } - - if (set_byte_order_funcs[type->id]) { - set_byte_order_funcs[type->id](type, byte_order); - } -end: - return ret; -} - -enum bt_ctf_field_type_id bt_ctf_field_type_get_type_id( - struct bt_ctf_field_type *type) -{ - if (!type) { - return BT_CTF_FIELD_TYPE_ID_UNKNOWN; - } - - return type->id; -} - -int bt_ctf_field_type_is_integer(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_INTEGER; -} - -int bt_ctf_field_type_is_floating_point(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_FLOAT; -} - -int bt_ctf_field_type_is_enumeration(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_ENUM; -} - -int bt_ctf_field_type_is_string(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_STRING; -} - -int bt_ctf_field_type_is_structure(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_STRUCT; -} - -int bt_ctf_field_type_is_array(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_ARRAY; -} - -int bt_ctf_field_type_is_sequence(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_SEQUENCE; -} - -int bt_ctf_field_type_is_variant(struct bt_ctf_field_type *type) -{ - return bt_ctf_field_type_get_type_id(type) == BT_CTF_FIELD_TYPE_ID_VARIANT; -} - -void bt_ctf_field_type_get(struct bt_ctf_field_type *type) -{ - bt_get(type); -} - -void bt_ctf_field_type_put(struct bt_ctf_field_type *type) -{ - bt_put(type); -} - -BT_HIDDEN -void bt_ctf_field_type_freeze(struct bt_ctf_field_type *type) -{ - if (!type) { - return; - } - - type->freeze(type); -} - -BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_signed( - struct bt_ctf_field_type_variant *variant, - int64_t tag_value) -{ - struct bt_ctf_field_type *type = NULL; - GQuark field_name_quark; - gpointer index; - struct structure_field *field_entry; - struct range_overlap_query query = { - .range_start._signed = tag_value, - .range_end._signed = tag_value, - .mapping_name = 0, - .overlaps = 0, - }; - - g_ptr_array_foreach(variant->tag->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)) { - goto end; - } - - field_entry = g_ptr_array_index(variant->fields, (size_t) index); - type = field_entry->type; -end: - return type; -} - -BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_unsigned( - struct bt_ctf_field_type_variant *variant, - uint64_t tag_value) -{ - struct bt_ctf_field_type *type = NULL; - GQuark field_name_quark; - gpointer index; - struct structure_field *field_entry; - struct range_overlap_query query = { - .range_start._unsigned = tag_value, - .range_end._unsigned = tag_value, - .mapping_name = 0, - .overlaps = 0, - }; - - g_ptr_array_foreach(variant->tag->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, - 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; -end: - return type; -} - -BT_HIDDEN -int bt_ctf_field_type_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) -{ - int ret; - - if (!type || !context) { - ret = -1; - goto end; - } - - /* Make sure field type is valid before serializing it */ - ret = bt_ctf_field_type_validate(type); - - if (ret) { - goto end; - } - - ret = type->serialize(type, context); -end: - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_copy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type *copy = NULL; - - if (!type) { - goto end; - } - - copy = type_copy_funcs[type->id](type); - copy->alignment = type->alignment; -end: - return copy; -} - -BT_HIDDEN -int bt_ctf_field_type_structure_get_field_name_index( - struct bt_ctf_field_type *type, const char *name) -{ - int ret; - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_structure *structure; - - if (!type || !name || - bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_STRUCT) { - ret = -1; - goto end; - } - - name_quark = g_quark_try_string(name); - if (!name_quark) { - 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)) { - ret = -1; - goto end; - } - ret = (int) index; -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_structure_set_field_index(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *field, int index) -{ - int ret = 0; - struct bt_ctf_field_type_structure *structure; - - if (!type || !field || - bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_STRUCT) { - ret = -1; - goto end; - } - - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - if (index < 0 || index >= structure->fields->len) { - ret = -1; - goto end; - } - - bt_get(field); - bt_put(((struct structure_field *) - g_ptr_array_index(structure->fields, index))->type); - ((struct structure_field *) structure->fields->pdata[index])->type = - field; -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 ret; - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_variant *variant; - - if (!type || !name || - bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_VARIANT) { - ret = -1; - goto end; - } - - name_quark = g_quark_try_string(name); - if (!name_quark) { - 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)) { - 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 ret = 0; - struct bt_ctf_field_type_sequence *sequence; - - if (!type || bt_ctf_field_type_get_type_id(type) != - BT_CTF_FIELD_TYPE_ID_SEQUENCE) { - 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); -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 ret = 0; - struct bt_ctf_field_type_variant *variant; - - if (!type || bt_ctf_field_type_get_type_id(type) != - BT_CTF_FIELD_TYPE_ID_VARIANT) { - 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); -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 ret = 0; - struct bt_ctf_field_type_variant *variant; - - if (!type || !tag || - bt_ctf_field_type_get_type_id(tag) != - BT_CTF_FIELD_TYPE_ID_ENUM) { - 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); -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_variant_set_field_index(struct bt_ctf_field_type *type, - struct bt_ctf_field_type *field, int index) -{ - int ret = 0; - struct bt_ctf_field_type_variant *variant; - - if (!type || !field || - bt_ctf_field_type_get_type_id(type) != BT_CTF_FIELD_TYPE_ID_VARIANT) { - ret = -1; - goto end; - } - - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - if (index < 0 || index >= variant->fields->len) { - ret = -1; - goto end; - } - - bt_get(field); - bt_put(((struct structure_field *) - g_ptr_array_index(variant->fields, index))->type); - ((struct structure_field *) variant->fields->pdata[index])->type = - field; -end: - return ret; -} - -static -void bt_ctf_field_type_integer_destroy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_integer *integer = - (struct bt_ctf_field_type_integer *) type; - - if (!type) { - return; - } - - bt_put(integer->mapped_clock); - g_free(integer); -} - -static -void bt_ctf_field_type_enumeration_destroy(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_enumeration *enumeration = - (struct bt_ctf_field_type_enumeration *) type; - - if (!type) { - return; - } +#define BT_LOG_TAG "FIELD-TYPES" +#include - g_ptr_array_free(enumeration->entries, TRUE); - bt_put(enumeration->container); - g_free(enumeration); -} +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include -static -void bt_ctf_field_type_floating_point_destroy(struct bt_ctf_field_type *type) +enum bt_field_type_id bt_field_type_get_type_id(struct bt_field_type *ft) { - struct bt_ctf_field_type_floating_point *floating_point = - (struct bt_ctf_field_type_floating_point *) type; - - if (!type) { - return; - } - - g_free(floating_point); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + return ft->id; } static -void bt_ctf_field_type_structure_destroy(struct bt_ctf_field_type *type) +void init_field_type(struct bt_field_type *ft, enum bt_field_type_id id, + bt_object_release_func release_func) { - struct bt_ctf_field_type_structure *structure = - (struct bt_ctf_field_type_structure *) type; - - if (!type) { - return; - } - - g_ptr_array_free(structure->fields, TRUE); - g_hash_table_destroy(structure->field_name_to_index); - g_free(structure); + BT_ASSERT(ft); + BT_ASSERT(bt_field_type_has_known_id(ft)); + BT_ASSERT(release_func); + bt_object_init_shared(&ft->base, release_func); + ft->id = id; } static -void bt_ctf_field_type_variant_destroy(struct bt_ctf_field_type *type) +void init_integer_field_type(struct bt_field_type_integer *ft, enum bt_field_type_id id, + bt_object_release_func release_func) { - struct bt_ctf_field_type_variant *variant = - (struct bt_ctf_field_type_variant *) type; - - if (!type) { - return; - } - - 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); + init_field_type((void *) ft, id, release_func); + ft->range = 64; + ft->base = BT_FIELD_TYPE_INTEGER_PREFERRED_DISPLAY_BASE_DECIMAL; } static -void bt_ctf_field_type_array_destroy(struct bt_ctf_field_type *type) +void destroy_integer_field_type(struct bt_object *obj) { - struct bt_ctf_field_type_array *array = - (struct bt_ctf_field_type_array *) type; - - if (!type) { - return; - } - - bt_put(array->element_type); - g_free(array); + BT_ASSERT(obj); + BT_LIB_LOGD("Destroying integer field type object: %!+F", obj); + g_free(obj); } -static -void bt_ctf_field_type_sequence_destroy(struct bt_ctf_field_type *type) +static inline +struct bt_field_type *create_integer_field_type(enum bt_field_type_id id) { - struct bt_ctf_field_type_sequence *sequence = - (struct bt_ctf_field_type_sequence *) type; + struct bt_field_type_integer *int_ft = NULL; - if (!type) { - return; + BT_LOGD("Creating default integer field type object: id=%s", + bt_common_field_type_id_string(id)); + int_ft = g_new0(struct bt_field_type_integer, 1); + if (!int_ft) { + BT_LOGE_STR("Failed to allocate one integer field type."); + goto error; } - 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) -{ - struct bt_ctf_field_type_string *string = - (struct bt_ctf_field_type_string *) type; - - if (!type) { - return; - } + init_integer_field_type(int_ft, id, destroy_integer_field_type); + BT_LIB_LOGD("Created integer field type object: %!+F", int_ft); + goto end; - g_free(string); -} +error: + BT_PUT(int_ft); -static -void generic_field_type_freeze(struct bt_ctf_field_type *type) -{ - type->frozen = 1; +end: + return (void *) int_ft; } -static -void bt_ctf_field_type_integer_freeze(struct bt_ctf_field_type *type) +struct bt_field_type *bt_field_type_unsigned_integer_create(void) { - struct bt_ctf_field_type_integer *integer_type = container_of( - type, struct bt_ctf_field_type_integer, parent); - - if (integer_type->mapped_clock) { - bt_ctf_clock_class_freeze(integer_type->mapped_clock); - } - - generic_field_type_freeze(type); + return create_integer_field_type(BT_FIELD_TYPE_ID_UNSIGNED_INTEGER); } -static -void bt_ctf_field_type_enumeration_freeze(struct bt_ctf_field_type *type) +struct bt_field_type *bt_field_type_signed_integer_create(void) { - struct bt_ctf_field_type_enumeration *enumeration_type = container_of( - type, struct bt_ctf_field_type_enumeration, parent); - - set_enumeration_range_overlap(type); - - generic_field_type_freeze(type); - bt_ctf_field_type_freeze(enumeration_type->container); + return create_integer_field_type(BT_FIELD_TYPE_ID_SIGNED_INTEGER); } -static -void freeze_structure_field(struct structure_field *field) +uint64_t bt_field_type_integer_get_field_value_range( + struct bt_field_type *ft) { - bt_ctf_field_type_freeze(field->type); -} + struct bt_field_type_integer *int_ft = (void *) ft; -static -void bt_ctf_field_type_structure_freeze(struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_type_structure *structure_type = container_of( - type, struct bt_ctf_field_type_structure, parent); - - /* Cache the alignment */ - 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); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_INT(ft, "Field type"); + return int_ft->range; } +BT_ASSERT_PRE_FUNC static -void bt_ctf_field_type_variant_freeze(struct bt_ctf_field_type *type) +bool size_is_valid_for_enumeration_field_type(struct bt_field_type *ft, + uint64_t size) { - struct bt_ctf_field_type_variant *variant_type = container_of( - type, struct bt_ctf_field_type_variant, parent); - - generic_field_type_freeze(type); - g_ptr_array_foreach(variant_type->fields, - (GFunc) freeze_structure_field, NULL); + // TODO + return true; } -static -void bt_ctf_field_type_array_freeze(struct bt_ctf_field_type *type) +int bt_field_type_integer_set_field_value_range( + struct bt_field_type *ft, uint64_t size) { - struct bt_ctf_field_type_array *array_type = container_of( - type, struct bt_ctf_field_type_array, parent); + struct bt_field_type_integer *int_ft = (void *) ft; - /* Cache the alignment */ - type->alignment = bt_ctf_field_type_get_alignment(type); - generic_field_type_freeze(type); - bt_ctf_field_type_freeze(array_type->element_type); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_INT(ft, "Field type"); + BT_ASSERT_PRE_FT_HOT(ft, "Field type"); + BT_ASSERT_PRE(size <= 64, + "Unsupported size for integer field type's field value range " + "(maximum is 64): size=%" PRIu64, size); + BT_ASSERT_PRE(int_ft->common.id == BT_FIELD_TYPE_ID_UNSIGNED_INTEGER || + int_ft->common.id == BT_FIELD_TYPE_ID_SIGNED_INTEGER || + size_is_valid_for_enumeration_field_type(ft, size), + "Invalid field value range for enumeration field type: " + "at least one of the current mapping ranges contains values " + "which are outside this range: %!+F, size=%" PRIu64, ft, size); + int_ft->range = size; + BT_LIB_LOGV("Set integer field type's field value range: %!+F", ft); + return 0; } -static -void bt_ctf_field_type_sequence_freeze(struct bt_ctf_field_type *type) +enum bt_field_type_integer_preferred_display_base +bt_field_type_integer_get_preferred_display_base(struct bt_field_type *ft) { - struct bt_ctf_field_type_sequence *sequence_type = container_of( - type, struct bt_ctf_field_type_sequence, parent); + struct bt_field_type_integer *int_ft = (void *) ft; - /* Cache the alignment */ - type->alignment = bt_ctf_field_type_get_alignment(type); - generic_field_type_freeze(type); - bt_ctf_field_type_freeze(sequence_type->element_type); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_INT(ft, "Field type"); + return int_ft->base; } -static -const char *get_encoding_string(enum bt_ctf_string_encoding encoding) +int bt_field_type_integer_set_preferred_display_base(struct bt_field_type *ft, + enum bt_field_type_integer_preferred_display_base base) { - const char *encoding_string; - - 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; - } + struct bt_field_type_integer *int_ft = (void *) ft; - return encoding_string; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_INT(ft, "Field type"); + BT_ASSERT_PRE_FT_HOT(ft, "Field type"); + int_ft->base = base; + BT_LIB_LOGV("Set integer field type's preferred display base: %!+F", ft); + return 0; } static -const char *get_integer_base_string(enum bt_ctf_integer_base base) +void finalize_enumeration_field_type_mapping( + struct bt_field_type_enumeration_mapping *mapping) { - const char *base_string; + BT_ASSERT(mapping); - 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; + if (mapping->label) { + g_string_free(mapping->label, TRUE); } - return base_string; -} - -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; - - 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); - - if (!clock_name) { - ret = -1; - goto end; - } - - g_string_append_printf(context->string, - "; map = clock.%s.value", clock_name); + if (mapping->ranges) { + g_array_free(mapping->ranges, TRUE); } - - 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) +void destroy_enumeration_field_type(struct bt_object *obj) { - 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; + struct bt_field_type_enumeration *ft = (void *) obj; - container_type = bt_ctf_field_type_enumeration_get_container_type(type); - if (!container_type) { - ret = -1; - goto end; - } - - container_signed = bt_ctf_field_type_integer_get_signed(container_type); - if (container_signed < 0) { - ret = container_signed; - goto error_put_container_type; - } + BT_ASSERT(ft); + BT_LIB_LOGD("Destroying enumeration field type object: %!+F", ft); - g_string_append(context->string, "enum : "); - ret = bt_ctf_field_type_serialize(enumeration->container, context); - if (ret) { - goto error_put_container_type; - } + if (ft->mappings) { + uint64_t i; - 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); - } + for (i = 0; i < ft->mappings->len; i++) { + finalize_enumeration_field_type_mapping( + BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(ft, i)); } - g_string_append(context->string, - ((entry != (enumeration->entries->len - 1)) ? - ", " : " }")); + g_array_free(ft->mappings, TRUE); } - if (context->field_name->len) { - g_string_append_printf(context->string, " %s", - context->field_name->str); - g_string_assign(context->field_name, ""); + if (ft->label_buf) { + g_ptr_array_free(ft->label_buf, TRUE); } -error_put_container_type: - bt_put(container_type); -end: - 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); - - 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; + g_free(ft); } static -int bt_ctf_field_type_structure_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +struct bt_field_type *create_enumeration_field_type(enum bt_field_type_id id) { - size_t i; - unsigned int indent; - int 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; + struct bt_field_type_enumeration *enum_ft = NULL; - 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; - - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } - - field = structure->fields->pdata[i]; - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - ret = bt_ctf_field_type_serialize(field->type, context); - if (ret) { - goto end; - } - - if (context->field_name->len) { - g_string_append_printf(context->string, " %s", - context->field_name->str); - } - g_string_append(context->string, ";\n"); + BT_LOGD("Creating default enumeration field type object: id=%s", + bt_common_field_type_id_string(id)); + enum_ft = g_new0(struct bt_field_type_enumeration, 1); + if (!enum_ft) { + BT_LOGE_STR("Failed to allocate one enumeration field type."); + goto error; } - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); + init_integer_field_type((void *) enum_ft, id, + destroy_enumeration_field_type); + enum_ft->mappings = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_enumeration_mapping)); + if (!enum_ft->mappings) { + BT_LOGE_STR("Failed to allocate a GArray."); + goto error; } - g_string_append_printf(context->string, "} align(%u)", - type->alignment); -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) -{ - 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; - - 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"); + enum_ft->label_buf = g_ptr_array_new(); + if (!enum_ft->label_buf) { + BT_LOGE_STR("Failed to allocate a GArray."); + goto error; } - context->current_indentation_level++; - for (i = 0; i < variant->fields->len; i++) { - struct structure_field *field = variant->fields->pdata[i]; - - 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'); - } - - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - ret = bt_ctf_field_type_serialize(field->type, context); - if (ret) { - 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'); - } + BT_LIB_LOGD("Created enumeration field type object: %!+F", enum_ft); + goto end; - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } +error: + BT_PUT(enum_ft); - g_string_append(context->string, "}"); end: - g_string_free(context->field_name, TRUE); - context->field_name = variant_field_name; - return ret; + return (void *) enum_ft; } -static -int bt_ctf_field_type_array_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +struct bt_field_type *bt_field_type_unsigned_enumeration_create(void) { - int ret = 0; - struct bt_ctf_field_type_array *array = container_of(type, - struct bt_ctf_field_type_array, parent); - - ret = bt_ctf_field_type_serialize(array->element_type, context); - if (ret) { - 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); - } -end: - return ret; + return create_enumeration_field_type( + BT_FIELD_TYPE_ID_UNSIGNED_ENUMERATION); } -static -int bt_ctf_field_type_sequence_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +struct bt_field_type *bt_field_type_signed_enumeration_create(void) { - int ret = 0; - struct bt_ctf_field_type_sequence *sequence = container_of( - type, struct bt_ctf_field_type_sequence, parent); - - ret = bt_ctf_field_type_serialize(sequence->element_type, context); - if (ret) { - 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); - } -end: - return ret; + return create_enumeration_field_type( + BT_FIELD_TYPE_ID_SIGNED_ENUMERATION); } -static -int bt_ctf_field_type_string_serialize(struct bt_ctf_field_type *type, - struct metadata_context *context) +uint64_t bt_field_type_enumeration_get_mapping_count(struct bt_field_type *ft) { - struct bt_ctf_field_type_string *string = container_of( - type, struct bt_ctf_field_type_string, parent); + struct bt_field_type_enumeration *enum_ft = (void *) ft; - g_string_append_printf(context->string, - "string { encoding = %s; }", - get_encoding_string(string->encoding)); - return 0; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_ENUM(ft, "Field type"); + return (uint64_t) enum_ft->mappings->len; } -static -void bt_ctf_field_type_integer_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +void bt_field_type_unsigned_enumeration_borrow_mapping_by_index( + struct bt_field_type *ft, uint64_t index, + const char **name, + struct bt_field_type_unsigned_enumeration_mapping_ranges **ranges) { - struct bt_ctf_field_type_integer *integer_type = container_of(type, - struct bt_ctf_field_type_integer, parent); + struct bt_field_type_enumeration *enum_ft = (void *) ft; + struct bt_field_type_enumeration_mapping *mapping; - integer_type->user_byte_order = byte_order; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name (output)"); + BT_ASSERT_PRE_NON_NULL(ranges, "Ranges (output)"); + BT_ASSERT_PRE_VALID_INDEX(index, enum_ft->mappings->len); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_UNSIGNED_ENUMERATION, + "Field type"); + mapping = BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(ft, index); + *name = mapping->label->str; + *ranges = (void *) mapping; } -static -void bt_ctf_field_type_enumeration_set_byte_order( - struct bt_ctf_field_type *type, enum bt_ctf_byte_order byte_order) +void bt_field_type_signed_enumeration_borrow_mapping_by_index( + struct bt_field_type *ft, uint64_t index, + const char **name, + struct bt_field_type_signed_enumeration_mapping_ranges **ranges) { - struct bt_ctf_field_type_enumeration *enum_type = container_of(type, - struct bt_ctf_field_type_enumeration, parent); + struct bt_field_type_enumeration *enum_ft = (void *) ft; + struct bt_field_type_enumeration_mapping *mapping; - /* Safe to assume that container is an integer */ - bt_ctf_field_type_integer_set_byte_order(enum_type->container, - byte_order); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name (output)"); + BT_ASSERT_PRE_NON_NULL(ranges, "Ranges (output)"); + BT_ASSERT_PRE_VALID_INDEX(index, enum_ft->mappings->len); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_SIGNED_ENUMERATION, + "Field type"); + mapping = BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(ft, index); + *name = mapping->label->str; + *ranges = (void *) mapping; } -static -void bt_ctf_field_type_floating_point_set_byte_order( - struct bt_ctf_field_type *type, enum bt_ctf_byte_order byte_order) +static inline +uint64_t get_enumeration_field_type_mapping_range_count( + struct bt_field_type_enumeration_mapping *mapping) { - 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; + BT_ASSERT_PRE_NON_NULL(mapping, "Ranges"); + return (uint64_t) mapping->ranges->len; } -static -void bt_ctf_field_type_structure_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +uint64_t bt_field_type_unsigned_enumeration_mapping_ranges_get_range_count( + struct bt_field_type_unsigned_enumeration_mapping_ranges *ranges) { - 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); - } - } + return get_enumeration_field_type_mapping_range_count((void *) ranges); } -static -void bt_ctf_field_type_variant_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +uint64_t bt_field_type_signed_enumeration_mapping_ranges_get_range_count( + struct bt_field_type_signed_enumeration_mapping_ranges *ranges) { - 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); - } - } + return get_enumeration_field_type_mapping_range_count((void *) ranges); } -static -void bt_ctf_field_type_array_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +static inline +void get_enumeration_field_type_mapping_range_at_index( + struct bt_field_type_enumeration_mapping *mapping, + uint64_t index, uint64_t *lower, uint64_t *upper) { - struct bt_ctf_field_type_array *array_type = - container_of(type, struct bt_ctf_field_type_array, - parent); + struct bt_field_type_enumeration_mapping_range *range; - 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); - } + BT_ASSERT_PRE_NON_NULL(mapping, "Ranges"); + BT_ASSERT_PRE_NON_NULL(lower, "Range's lower (output)"); + BT_ASSERT_PRE_NON_NULL(upper, "Range's upper (output)"); + BT_ASSERT_PRE_VALID_INDEX(index, mapping->ranges->len); + range = BT_FIELD_TYPE_ENUM_MAPPING_RANGE_AT_INDEX(mapping, index); + *lower = range->lower.u; + *upper = range->upper.u; } -static -void bt_ctf_field_type_sequence_set_byte_order(struct bt_ctf_field_type *type, - enum bt_ctf_byte_order byte_order) +void bt_field_type_unsigned_enumeration_mapping_ranges_get_range_by_index( + struct bt_field_type_unsigned_enumeration_mapping_ranges *ranges, + uint64_t index, uint64_t *lower, uint64_t *upper) { - 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); - } + get_enumeration_field_type_mapping_range_at_index((void *) ranges, + index, lower, upper); } -static -struct bt_ctf_field_type *bt_ctf_field_type_integer_copy( - struct bt_ctf_field_type *type) +void bt_field_type_signed_enumeration_mapping_ranges_get_range_by_index( + struct bt_field_type_unsigned_enumeration_mapping_ranges *ranges, + uint64_t index, int64_t *lower, int64_t *upper) { - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_integer *integer, *copy_integer; - - integer = container_of(type, struct bt_ctf_field_type_integer, parent); - copy = bt_ctf_field_type_integer_create(integer->size); - if (!copy) { - goto end; - } + get_enumeration_field_type_mapping_range_at_index((void *) ranges, + index, (uint64_t *) lower, (uint64_t *) upper); +} - 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; -end: - return copy; -} -static -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_copy( - struct bt_ctf_field_type *type) +int bt_field_type_unsigned_enumeration_get_mapping_labels_by_value( + struct bt_field_type *ft, uint64_t value, + bt_field_type_enumeration_mapping_label_array *label_array, + uint64_t *count) { - size_t i; - struct bt_ctf_field_type *copy = NULL, *copy_container; - struct bt_ctf_field_type_enumeration *enumeration, *copy_enumeration; + struct bt_field_type_enumeration *enum_ft = (void *) ft; + uint64_t i; - enumeration = container_of(type, struct bt_ctf_field_type_enumeration, - parent); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(label_array, "Label array (output)"); + BT_ASSERT_PRE_NON_NULL(count, "Count (output)"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_UNSIGNED_ENUMERATION, + "Field type"); + g_ptr_array_set_size(enum_ft->label_buf, 0); - /* Copy the source enumeration's container */ - copy_container = bt_ctf_field_type_copy(enumeration->container); - if (!copy_container) { - goto end; - } + for (i = 0; i < enum_ft->mappings->len; i++) { + uint64_t j; + struct bt_field_type_enumeration_mapping *mapping = + BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(enum_ft, i); - copy = bt_ctf_field_type_enumeration_create(copy_container); - if (!copy) { - 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); - - if (!copy_mapping) { - goto error; - } + for (j = 0; j < mapping->ranges->len; j++) { + struct bt_field_type_enumeration_mapping_range *range = + BT_FIELD_TYPE_ENUM_MAPPING_RANGE_AT_INDEX( + mapping, j); - *copy_mapping = *mapping; - g_ptr_array_add(copy_enumeration->entries, copy_mapping); + if (value >= range->lower.u && + value <= range->upper.u) { + g_ptr_array_add(enum_ft->label_buf, + mapping->label->str); + break; + } + } } -end: - bt_put(copy_container); - return copy; -error: - bt_put(copy_container); - BT_PUT(copy); - return copy; + *label_array = (void *) enum_ft->label_buf->pdata; + *count = (uint64_t) enum_ft->label_buf->len; + return 0; } -static -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_copy( - struct bt_ctf_field_type *type) +int bt_field_type_signed_enumeration_get_mapping_labels_by_value( + struct bt_field_type *ft, int64_t value, + bt_field_type_enumeration_mapping_label_array *label_array, + uint64_t *count) { - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_floating_point *floating_point, *copy_float; + struct bt_field_type_enumeration *enum_ft = (void *) ft; + uint64_t i; - floating_point = container_of(type, - struct bt_ctf_field_type_floating_point, parent); - copy = bt_ctf_field_type_floating_point_create(); - if (!copy) { - goto end; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(label_array, "Label array (output)"); + BT_ASSERT_PRE_NON_NULL(count, "Count (output)"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_SIGNED_ENUMERATION, + "Field type"); + g_ptr_array_set_size(enum_ft->label_buf, 0); + + for (i = 0; i < enum_ft->mappings->len; i++) { + uint64_t j; + struct bt_field_type_enumeration_mapping *mapping = + BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(enum_ft, i); + + for (j = 0; j < mapping->ranges->len; j++) { + struct bt_field_type_enumeration_mapping_range *range = + BT_FIELD_TYPE_ENUM_MAPPING_RANGE_AT_INDEX( + mapping, j); + + if (value >= range->lower.i && + value <= range->upper.i) { + g_ptr_array_add(enum_ft->label_buf, + mapping->label->str); + break; + } + } } - 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; -end: - return copy; + *label_array = (void *) enum_ft->label_buf->pdata; + *count = (uint64_t) enum_ft->label_buf->len; + return 0; } -static -struct bt_ctf_field_type *bt_ctf_field_type_structure_copy( - struct bt_ctf_field_type *type) +static inline +int add_mapping_to_enumeration_field_type(struct bt_field_type *ft, + const char *label, uint64_t lower, uint64_t upper) { - int i; - GHashTableIter iter; - gpointer key, value; - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_structure *structure, *copy_structure; - - structure = container_of(type, struct bt_ctf_field_type_structure, - parent); - copy = bt_ctf_field_type_structure_create(); - if (!copy) { - goto end; - } + int ret = 0; + uint64_t i; + struct bt_field_type_enumeration *enum_ft = (void *) ft; + struct bt_field_type_enumeration_mapping *mapping = NULL; + struct bt_field_type_enumeration_mapping_range *range; - copy_structure = container_of(copy, - struct bt_ctf_field_type_structure, parent); + BT_ASSERT(ft); + BT_ASSERT_PRE_NON_NULL(label, "Label"); - /* 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); - } + /* Find existing mapping identified by this label */ + for (i = 0; i < enum_ft->mappings->len; i++) { + struct bt_field_type_enumeration_mapping *mapping_candidate = + BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(enum_ft, i); - for (i = 0; i < structure->fields->len; i++) { - struct structure_field *entry, *copy_entry; - struct bt_ctf_field_type *copy_field; + if (strcmp(mapping_candidate->label->str, label) == 0) { + mapping = mapping_candidate; + break; + } + } - copy_entry = g_new0(struct structure_field, 1); - if (!copy_entry) { - goto error; + if (!mapping) { + /* Create new mapping for this label */ + g_array_set_size(enum_ft->mappings, enum_ft->mappings->len + 1); + mapping = BT_FIELD_TYPE_ENUM_MAPPING_AT_INDEX(enum_ft, + enum_ft->mappings->len - 1); + mapping->ranges = g_array_new(FALSE, TRUE, + sizeof(struct bt_field_type_enumeration_mapping_range)); + if (!mapping->ranges) { + finalize_enumeration_field_type_mapping(mapping); + g_array_set_size(enum_ft->mappings, + enum_ft->mappings->len - 1); + ret = -1; + goto end; } - entry = g_ptr_array_index(structure->fields, i); - copy_field = bt_ctf_field_type_copy(entry->type); - if (!copy_field) { - g_free(copy_entry); - goto error; + mapping->label = g_string_new(label); + if (!mapping->label) { + finalize_enumeration_field_type_mapping(mapping); + g_array_set_size(enum_ft->mappings, + enum_ft->mappings->len - 1); + ret = -1; + goto end; } - - copy_entry->name = entry->name; - copy_entry->type = copy_field; - g_ptr_array_add(copy_structure->fields, copy_entry); } + /* Add range */ + BT_ASSERT(mapping); + g_array_set_size(mapping->ranges, mapping->ranges->len + 1); + range = BT_FIELD_TYPE_ENUM_MAPPING_RANGE_AT_INDEX(mapping, + mapping->ranges->len - 1); + range->lower.u = lower; + range->upper.u = upper; + BT_LIB_LOGV("Added mapping to enumeration field type: " + "%![ft-]+F, label=\"%s\", lower-unsigned=%" PRIu64 ", " + "upper-unsigned=%" PRIu64, ft, label, lower, upper); + end: - return copy; -error: - BT_PUT(copy); - return copy; + return ret; } -static -struct bt_ctf_field_type *bt_ctf_field_type_variant_copy( - struct bt_ctf_field_type *type) +int bt_field_type_unsigned_enumeration_map_range( + struct bt_field_type *ft, const char *label, + uint64_t range_lower, uint64_t range_upper) { - int 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; - - 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) { - goto end; - } - } - - copy = bt_ctf_field_type_variant_create(copy_tag, - variant->tag_name->len ? variant->tag_name->str : NULL); - if (!copy) { - goto end; - } + struct bt_field_type_enumeration *enum_ft = (void *) ft; - copy_variant = container_of(copy, struct bt_ctf_field_type_variant, - parent); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_UNSIGNED_ENUMERATION, + "Field type"); + BT_ASSERT_PRE(range_lower <= range_upper, + "Range's upper bound is less than lower bound: " + "upper=%" PRIu64 ", lower=%" PRIu64, + range_lower, range_upper); + BT_ASSERT_PRE(bt_util_value_is_in_range_unsigned(enum_ft->common.range, + range_lower), + "Range's lower bound is outside the enumeration field type's value range: " + "%![ft-]+F, lower=%" PRIu64, ft, range_lower); + BT_ASSERT_PRE(bt_util_value_is_in_range_unsigned(enum_ft->common.range, + range_upper), + "Range's upper bound is outside the enumeration field type's value range: " + "%![ft-]+F, upper=%" PRIu64, ft, range_upper); + return add_mapping_to_enumeration_field_type(ft, label, range_lower, + range_upper); +} - /* 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); - } +int bt_field_type_signed_enumeration_map_range( + struct bt_field_type *ft, const char *label, + int64_t range_lower, int64_t range_upper) +{ + struct bt_field_type_enumeration *enum_ft = (void *) ft; - for (i = 0; i < variant->fields->len; i++) { - struct structure_field *entry, *copy_entry; - struct bt_ctf_field_type *copy_field; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_SIGNED_ENUMERATION, + "Field type"); + BT_ASSERT_PRE(range_lower <= range_upper, + "Range's upper bound is less than lower bound: " + "upper=%" PRId64 ", lower=%" PRId64, + range_lower, range_upper); + BT_ASSERT_PRE(bt_util_value_is_in_range_signed(enum_ft->common.range, + range_lower), + "Range's lower bound is outside the enumeration field type's value range: " + "%![ft-]+F, lower=%" PRId64, ft, range_lower); + BT_ASSERT_PRE(bt_util_value_is_in_range_signed(enum_ft->common.range, + range_upper), + "Range's upper bound is outside the enumeration field type's value range: " + "%![ft-]+F, upper=%" PRId64, ft, range_upper); + return add_mapping_to_enumeration_field_type(ft, label, range_lower, + range_upper); +} - copy_entry = g_new0(struct structure_field, 1); - if (!copy_entry) { - goto error; - } +static +void destroy_real_field_type(struct bt_object *obj) +{ + BT_ASSERT(obj); + BT_LIB_LOGD("Destroying real field type object: %!+F", obj); + g_free(obj); +} - entry = g_ptr_array_index(variant->fields, i); - copy_field = bt_ctf_field_type_copy(entry->type); - if (!copy_field) { - g_free(copy_entry); - goto error; - } +struct bt_field_type *bt_field_type_real_create(void) +{ + struct bt_field_type_real *real_ft = NULL; - copy_entry->name = entry->name; - copy_entry->type = copy_field; - g_ptr_array_add(copy_variant->fields, copy_entry); + BT_LOGD_STR("Creating default real field type object."); + real_ft = g_new0(struct bt_field_type_real, 1); + if (!real_ft) { + BT_LOGE_STR("Failed to allocate one real field type."); + goto error; } - if (variant->tag_field_path) { - copy_variant->tag_field_path = bt_ctf_field_path_copy( - variant->tag_field_path); - if (!copy_variant->tag_field_path) { - goto error; - } - } -end: - bt_put(copy_tag); - return copy; + init_field_type((void *) real_ft, BT_FIELD_TYPE_ID_REAL, + destroy_real_field_type); + BT_LIB_LOGD("Created real field type object: %!+F", real_ft); + goto end; + error: - bt_put(copy_tag); - BT_PUT(copy); - return copy; + BT_PUT(real_ft); + +end: + return (void *) real_ft; } -static -struct bt_ctf_field_type *bt_ctf_field_type_array_copy( - struct bt_ctf_field_type *type) +bt_bool bt_field_type_real_is_single_precision(struct bt_field_type *ft) { - struct bt_ctf_field_type *copy = NULL, *copy_element; - struct bt_ctf_field_type_array *array; + struct bt_field_type_real *real_ft = (void *) ft; - array = container_of(type, struct bt_ctf_field_type_array, - parent); - copy_element = bt_ctf_field_type_copy(array->element_type); - if (!copy_element) { - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_REAL, "Field type"); + return real_ft->is_single_precision; +} - copy = bt_ctf_field_type_array_create(copy_element, array->length); - if (!copy) { - goto end; - } -end: - bt_put(copy_element); - return copy; +int bt_field_type_real_set_is_single_precision(struct bt_field_type *ft, + bt_bool is_single_precision) +{ + struct bt_field_type_real *real_ft = (void *) ft; + + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_REAL, "Field type"); + BT_ASSERT_PRE_FT_HOT(ft, "Field type"); + real_ft->is_single_precision = (bool) is_single_precision; + BT_LIB_LOGV("Set real field type's \"is single precision\" property: " + "%!+F", ft); + return 0; } static -struct bt_ctf_field_type *bt_ctf_field_type_sequence_copy( - struct bt_ctf_field_type *type) +int init_named_field_types_container( + struct bt_field_type_named_field_types_container *ft, + enum bt_field_type_id id, bt_object_release_func release_func) { - struct bt_ctf_field_type *copy = NULL, *copy_element; - struct bt_ctf_field_type_sequence *sequence, *copy_sequence; + int ret = 0; - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - copy_element = bt_ctf_field_type_copy(sequence->element_type); - if (!copy_element) { + init_field_type((void *) ft, id, release_func); + ft->named_fts = g_array_new(FALSE, TRUE, + sizeof(struct bt_named_field_type)); + if (!ft->named_fts) { + BT_LOGE_STR("Failed to allocate a GArray."); + ret = -1; goto end; } - copy = bt_ctf_field_type_sequence_create(copy_element, - sequence->length_field_name->len ? - sequence->length_field_name->str : NULL); - if (!copy) { + ft->name_to_index = g_hash_table_new(g_str_hash, g_str_equal); + if (!ft->name_to_index) { + BT_LOGE_STR("Failed to allocate a GHashTable."); + ret = -1; goto end; } - copy_sequence = container_of(copy, struct bt_ctf_field_type_sequence, - parent); - if (sequence->length_field_path) { - copy_sequence->length_field_path = bt_ctf_field_path_copy( - sequence->length_field_path); - if (!copy_sequence->length_field_path) { - goto error; - } - } end: - bt_put(copy_element); - return copy; -error: - BT_PUT(copy); - goto end; + return ret; } static -struct bt_ctf_field_type *bt_ctf_field_type_string_copy( - struct bt_ctf_field_type *type) +void finalize_named_field_type(struct bt_named_field_type *named_ft) { - struct bt_ctf_field_type *copy; - struct bt_ctf_field_type_string *string; + BT_ASSERT(named_ft); + BT_LIB_LOGD("Finalizing named field type: " + "addr=%p, name=\"%s\", %![ft-]+F", + named_ft, named_ft->name ? named_ft->name->str : NULL, + named_ft->ft); - copy = bt_ctf_field_type_string_create(); - if (!copy) { - goto end; + if (named_ft->name) { + g_string_free(named_ft->name, TRUE); } - string = container_of(type, struct bt_ctf_field_type_string, - parent); -end: - return copy; + BT_LOGD_STR("Putting named field type's field type."); + bt_put(named_ft->ft); } static -int bt_ctf_field_type_integer_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +void finalize_named_field_types_container( + struct bt_field_type_named_field_types_container *ft) { - int ret = 1; - struct bt_ctf_field_type_integer *int_type_a; - struct bt_ctf_field_type_integer *int_type_b; + uint64_t i; - 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(ft); - /* Length */ - if (int_type_a->size != int_type_b->size) { - goto end; - } + if (ft->named_fts) { + for (i = 0; i < ft->named_fts->len; i++) { + finalize_named_field_type( + &g_array_index(ft->named_fts, + struct bt_named_field_type, i)); + } - /* Byte order */ - if (int_type_a->user_byte_order != int_type_b->user_byte_order) { - goto end; + g_array_free(ft->named_fts, TRUE); } - /* Signedness */ - if (int_type_a->is_signed != int_type_b->is_signed) { - goto end; + if (ft->name_to_index) { + g_hash_table_destroy(ft->name_to_index); } +} - /* Base */ - if (int_type_a->base != int_type_b->base) { - goto end; - } +static +void destroy_structure_field_type(struct bt_object *obj) +{ + BT_ASSERT(obj); + BT_LIB_LOGD("Destroying string field type object: %!+F", obj); + finalize_named_field_types_container((void *) obj); + g_free(obj); +} - /* Encoding */ - if (int_type_a->encoding != int_type_b->encoding) { - goto end; +struct bt_field_type *bt_field_type_structure_create(void) +{ + int ret; + struct bt_field_type_structure *struct_ft = NULL; + + BT_LOGD_STR("Creating default structure field type object."); + struct_ft = g_new0(struct bt_field_type_structure, 1); + if (!struct_ft) { + BT_LOGE_STR("Failed to allocate one structure field type."); + goto error; } - /* Mapped clock */ - if (int_type_a->mapped_clock != int_type_b->mapped_clock) { - goto end; + ret = init_named_field_types_container((void *) struct_ft, + BT_FIELD_TYPE_ID_STRUCTURE, destroy_structure_field_type); + if (ret) { + goto error; } - /* Equal */ - ret = 0; + BT_LIB_LOGD("Created structure field type object: %!+F", struct_ft); + goto end; + +error: + BT_PUT(struct_ft); end: - return ret; + return (void *) struct_ft; } static -int bt_ctf_field_type_floating_point_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +int append_named_field_type_to_container_field_type( + struct bt_field_type_named_field_types_container *container_ft, + const char *name, struct bt_field_type *ft) { - int ret = 1; - struct bt_ctf_field_type_floating_point *float_a; - struct bt_ctf_field_type_floating_point *float_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); - - /* Byte order */ - if (float_a->user_byte_order != float_b->user_byte_order) { - goto end; - } - - /* Exponent length */ - if (float_a->exp_dig != float_b->exp_dig) { - goto end; - } + int ret = 0; + struct bt_named_field_type *named_ft; + GString *name_str; - /* Mantissa length */ - if (float_a->mant_dig != float_b->mant_dig) { + BT_ASSERT(container_ft); + BT_ASSERT_PRE_FT_HOT(container_ft, "Field type"); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE(!bt_g_hash_table_contains(container_ft->name_to_index, + name), + "Duplicate member/option name in structure/variant field type: " + "%![container-ft-]+F, name=\"%s\"", container_ft, name); + name_str = g_string_new(name); + if (!name_str) { + BT_LOGE_STR("Failed to allocate a GString."); + ret = -1; goto end; } - /* Equal */ - ret = 0; + g_array_set_size(container_ft->named_fts, + container_ft->named_fts->len + 1); + named_ft = &g_array_index(container_ft->named_fts, + struct bt_named_field_type, container_ft->named_fts->len - 1); + named_ft->name = name_str; + named_ft->ft = bt_get(ft); + g_hash_table_insert(container_ft->name_to_index, named_ft->name->str, + GUINT_TO_POINTER(container_ft->named_fts->len - 1)); + bt_field_type_freeze(ft); end: return ret; } -static -int compare_enumeration_mappings(struct enumeration_mapping *mapping_a, - struct enumeration_mapping *mapping_b) +int bt_field_type_structure_append_member(struct bt_field_type *ft, + const char *name, struct bt_field_type *member_ft) { - int ret = 1; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCTURE, "Field type"); + return append_named_field_type_to_container_field_type((void *) ft, + name, member_ft); +} - /* Label */ - if (mapping_a->string != mapping_b->string) { - goto end; - } +uint64_t bt_field_type_structure_get_member_count(struct bt_field_type *ft) +{ + struct bt_field_type_structure *struct_ft = (void *) ft; - /* Range start */ - if (mapping_a->range_start._unsigned != - mapping_b->range_start._unsigned) { - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCTURE, "Field type"); + return (uint64_t) struct_ft->common.named_fts->len; +} - /* Range end */ - if (mapping_a->range_end._unsigned != - mapping_b->range_end._unsigned) { - goto end; - } +static +void borrow_named_field_type_from_container_field_type_at_index( + struct bt_field_type_named_field_types_container *ft, + uint64_t index, const char **name, + struct bt_field_type **out_ft) +{ + struct bt_named_field_type *named_ft; - /* Equal */ - ret = 0; + BT_ASSERT(ft); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + BT_ASSERT_PRE_NON_NULL(out_ft, "Field type (output)"); + BT_ASSERT_PRE_VALID_INDEX(index, ft->named_fts->len); + named_ft = BT_FIELD_TYPE_NAMED_FT_AT_INDEX(ft, index); + *name = named_ft->name->str; + *out_ft = named_ft->ft; +} -end: - return ret; +void bt_field_type_structure_borrow_member_by_index( + struct bt_field_type *ft, uint64_t index, + const char **name, struct bt_field_type **out_ft) +{ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCTURE, "Field type"); + borrow_named_field_type_from_container_field_type_at_index((void *) ft, + index, name, out_ft); } static -int bt_ctf_field_type_enumeration_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *borrow_field_type_from_container_field_type_by_name( + struct bt_field_type_named_field_types_container *ft, + const char *name) { - int ret = 1; - int i; - struct bt_ctf_field_type_enumeration *enum_a; - struct bt_ctf_field_type_enumeration *enum_b; - - 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); - - /* Container field type */ - ret = bt_ctf_field_type_compare(enum_a->container, enum_b->container); - if (ret) { - goto end; - } + struct bt_field_type *ret_ft = NULL; + struct bt_named_field_type *named_ft; + gpointer orig_key; + gpointer value; - ret = 1; - - /* Entries */ - if (enum_a->entries->len != enum_b->entries->len) { + BT_ASSERT(ft); + BT_ASSERT_PRE_NON_NULL(name, "Name"); + if (!g_hash_table_lookup_extended(ft->name_to_index, name, &orig_key, + &value)) { 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); - - if (compare_enumeration_mappings(mapping_a, mapping_b)) { - goto end; - } - } - - /* Equal */ - ret = 0; + named_ft = BT_FIELD_TYPE_NAMED_FT_AT_INDEX(ft, + GPOINTER_TO_UINT(value)); + ret_ft = named_ft->ft; end: - return ret; + return ret_ft; +} + +struct bt_field_type *bt_field_type_structure_borrow_member_field_type_by_name( + struct bt_field_type *ft, const char *name) +{ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_STRUCTURE, "Field type"); + return borrow_field_type_from_container_field_type_by_name((void *) ft, + name); } static -int bt_ctf_field_type_string_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +void destroy_variant_field_type(struct bt_object *obj) { - int ret = 1; - struct bt_ctf_field_type_string *string_a; - struct bt_ctf_field_type_string *string_b; + struct bt_field_type_variant *ft = (void *) obj; - 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); + BT_ASSERT(ft); + BT_LIB_LOGD("Destroying variant field type object: %!+F", ft); + finalize_named_field_types_container((void *) ft); + BT_LOGD_STR("Putting selector field path."); + bt_put(ft->selector_field_path); + g_free(ft); +} - /* Encoding */ - if (string_a->encoding != string_b->encoding) { - goto end; +struct bt_field_type *bt_field_type_variant_create(void) +{ + int ret; + struct bt_field_type_variant *var_ft = NULL; + + BT_LOGD_STR("Creating default variant field type object."); + var_ft = g_new0(struct bt_field_type_variant, 1); + if (!var_ft) { + BT_LOGE_STR("Failed to allocate one variant field type."); + goto error; + } + + ret = init_named_field_types_container((void *) var_ft, + BT_FIELD_TYPE_ID_VARIANT, destroy_variant_field_type); + if (ret) { + goto error; } - /* Equal */ - ret = 0; + BT_LIB_LOGD("Created variant field type object: %!+F", var_ft); + goto end; + +error: + BT_PUT(var_ft); end: - return ret; + return (void *) var_ft; } -static -int compare_structure_fields(struct structure_field *field_a, - struct structure_field *field_b) +int bt_field_type_variant_set_selector_field_type( + struct bt_field_type *ft, struct bt_field_type *selector_ft) { - int ret = 1; + struct bt_field_type_variant *var_ft = (void *) ft; - /* Label */ - if (field_a->name != field_b->name) { - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Variant field type"); + BT_ASSERT_PRE_NON_NULL(selector_ft, "Selector field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, "Field type"); + BT_ASSERT_PRE_FT_IS_ENUM(selector_ft, "Selector field type"); + BT_ASSERT_PRE_FT_HOT(ft, "Variant field type"); + var_ft->selector_ft = selector_ft; + bt_field_type_freeze(selector_ft); + return 0; +} - /* Type */ - ret = bt_ctf_field_type_compare(field_a->type, field_b->type); +int bt_field_type_variant_append_option(struct bt_field_type *ft, + const char *name, struct bt_field_type *option_ft) +{ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, "Field type"); + return append_named_field_type_to_container_field_type((void *) ft, + name, option_ft); +} -end: - return ret; +struct bt_field_type *bt_field_type_variant_borrow_option_field_type_by_name( + struct bt_field_type *ft, const char *name) +{ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, "Field type"); + return borrow_field_type_from_container_field_type_by_name((void *) ft, + name); } -static -int bt_ctf_field_type_structure_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +uint64_t bt_field_type_variant_get_option_count(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; - - 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); - - /* Alignment */ - if (bt_ctf_field_type_get_alignment(type_a) != - bt_ctf_field_type_get_alignment(type_b)) { - goto end; - } + struct bt_field_type_variant *var_ft = (void *) ft; - /* Fields */ - if (struct_a->fields->len != struct_b->fields->len) { - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, "Field type"); + return (uint64_t) var_ft->common.named_fts->len; +} - 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); +void bt_field_type_variant_borrow_option_by_index( + struct bt_field_type *ft, uint64_t index, + const char **name, struct bt_field_type **out_ft) +{ + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, "Field type"); + borrow_named_field_type_from_container_field_type_at_index((void *) ft, + index, name, out_ft); +} - ret = compare_structure_fields(field_a, field_b); - if (ret) { - goto end; - } - } +struct bt_field_path *bt_field_type_variant_borrow_selector_field_path( + struct bt_field_type *ft) +{ + struct bt_field_type_variant *var_ft = (void *) ft; - /* Equal */ - ret = 0; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_VARIANT, + "Field type"); + return var_ft->selector_field_path; +} -end: - return ret; +static +void init_array_field_type(struct bt_field_type_array *ft, + enum bt_field_type_id id, bt_object_release_func release_func, + struct bt_field_type *element_ft) +{ + BT_ASSERT(element_ft); + init_field_type((void *) ft, id, release_func); + ft->element_ft = bt_get(element_ft); + bt_field_type_freeze(element_ft); } static -int bt_ctf_field_type_variant_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +void finalize_array_field_type(struct bt_field_type_array *array_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); - - /* Tag name */ - if (strcmp(variant_a->tag_name->str, variant_b->tag_name->str)) { - goto end; - } + BT_ASSERT(array_ft); + BT_LOGD_STR("Putting element field type."); + bt_put(array_ft->element_ft); +} - /* 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) { - goto end; - } +static +void destroy_static_array_field_type(struct bt_object *obj) +{ + BT_ASSERT(obj); + BT_LIB_LOGD("Destroying static array field type object: %!+F", obj); + finalize_array_field_type((void *) obj); + g_free(obj); +} - ret = 1; +struct bt_field_type *bt_field_type_static_array_create( + struct bt_field_type *element_ft, uint64_t length) +{ + struct bt_field_type_static_array *array_ft = NULL; - /* Fields */ - if (variant_a->fields->len != variant_b->fields->len) { - goto end; + BT_ASSERT_PRE_NON_NULL(element_ft, "Element field type"); + BT_LOGD_STR("Creating default static array field type object."); + array_ft = g_new0(struct bt_field_type_static_array, 1); + if (!array_ft) { + BT_LOGE_STR("Failed to allocate one static array field type."); + goto error; } - 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) { - goto end; - } - } + init_array_field_type((void *) array_ft, BT_FIELD_TYPE_ID_STATIC_ARRAY, + destroy_static_array_field_type, element_ft); + array_ft->length = length; + BT_LIB_LOGD("Created static array field type object: %!+F", array_ft); + goto end; - /* Equal */ - ret = 0; +error: + BT_PUT(array_ft); end: - return ret; + return (void *) array_ft; } -static -int bt_ctf_field_type_array_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *bt_field_type_array_borrow_element_field_type( + struct bt_field_type *ft) { - int ret = 1; - struct bt_ctf_field_type_array *array_a; - struct bt_ctf_field_type_array *array_b; - - 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); + struct bt_field_type_array *array_ft = (void *) ft; - /* Length */ - if (array_a->length != array_b->length) { - goto end; - } + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_IS_ARRAY(ft, "Field type"); + return array_ft->element_ft; +} - /* Element type */ - ret = bt_ctf_field_type_compare(array_a->element_type, - array_b->element_type); +uint64_t bt_field_type_static_array_get_length(struct bt_field_type *ft) +{ + struct bt_field_type_static_array *array_ft = (void *) ft; -end: - return ret; + BT_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_STATIC_ARRAY, + "Field type"); + return (uint64_t) array_ft->length; } static -int bt_ctf_field_type_sequence_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +void destroy_dynamic_array_field_type(struct bt_object *obj) { - 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); - - /* Length name */ - if (strcmp(sequence_a->length_field_name->str, - sequence_b->length_field_name->str)) { - goto end; - } + struct bt_field_type_dynamic_array *ft = (void *) obj; - /* Element type */ - ret = bt_ctf_field_type_compare(sequence_a->element_type, - sequence_b->element_type); - -end: - return ret; + BT_ASSERT(ft); + BT_LIB_LOGD("Destroying dynamic array field type object: %!+F", ft); + finalize_array_field_type((void *) ft); + BT_LOGD_STR("Putting length field path."); + bt_put(ft->length_field_path); + g_free(ft); } -int bt_ctf_field_type_compare(struct bt_ctf_field_type *type_a, - struct bt_ctf_field_type *type_b) +struct bt_field_type *bt_field_type_dynamic_array_create( + struct bt_field_type *element_ft) { - int ret = 1; + struct bt_field_type_dynamic_array *array_ft = NULL; - if (type_a == type_b) { - /* Same reference: equal (even if both are NULL) */ - ret = 0; - goto end; + BT_ASSERT_PRE_NON_NULL(element_ft, "Element field type"); + BT_LOGD_STR("Creating default dynamic array field type object."); + array_ft = g_new0(struct bt_field_type_dynamic_array, 1); + if (!array_ft) { + BT_LOGE_STR("Failed to allocate one dynamic array field type."); + goto error; } - if (!type_a || !type_b) { - ret = -1; - goto end; - } + init_array_field_type((void *) array_ft, BT_FIELD_TYPE_ID_DYNAMIC_ARRAY, + destroy_dynamic_array_field_type, element_ft); + BT_LIB_LOGD("Created dynamic array field type object: %!+F", array_ft); + goto end; - if (type_a->id != type_b->id) { - /* Different type IDs */ - goto end; - } +error: + BT_PUT(array_ft); - if (type_a->id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { - /* Both have unknown type IDs */ - goto end; - } +end: + return (void *) array_ft; +} - ret = type_compare_funcs[type_a->id](type_a, type_b); +int bt_field_type_dynamic_array_set_length_field_type(struct bt_field_type *ft, + struct bt_field_type *length_ft) +{ + struct bt_field_type_dynamic_array *array_ft = (void *) ft; -end: - return ret; + BT_ASSERT_PRE_NON_NULL(ft, "Dynamic array field type"); + BT_ASSERT_PRE_NON_NULL(length_ft, "Length field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_DYNAMIC_ARRAY, + "Field type"); + BT_ASSERT_PRE_FT_IS_UNSIGNED_INT(length_ft, "Length field type"); + BT_ASSERT_PRE_FT_HOT(ft, "Dynamic array field type"); + array_ft->length_ft = length_ft; + bt_field_type_freeze(length_ft); + return 0; } -BT_HIDDEN -int64_t bt_ctf_field_type_get_field_count(struct bt_ctf_field_type *field_type) +struct bt_field_path *bt_field_type_dynamic_array_borrow_length_field_path( + 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_dynamic_array *seq_ft = (void *) ft; - 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_ASSERT_PRE_NON_NULL(ft, "Field type"); + BT_ASSERT_PRE_FT_HAS_ID(ft, BT_FIELD_TYPE_ID_DYNAMIC_ARRAY, + "Field type"); + return seq_ft->length_field_path; +} - return field_count; +static +void destroy_string_field_type(struct bt_object *obj) +{ + BT_ASSERT(obj); + BT_LIB_LOGD("Destroying string field type object: %!+F", obj); + g_free(obj); } -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_field_type *bt_field_type_string_create(void) { - struct bt_ctf_field_type *field = NULL; - enum bt_ctf_field_type_id type_id = bt_ctf_field_type_get_type_id(field_type); + struct bt_field_type_string *string_ft = NULL; - switch (type_id) { - case CTF_TYPE_STRUCT: - bt_ctf_field_type_structure_get_field(field_type, NULL, &field, - index); - break; - case CTF_TYPE_VARIANT: - { - int ret = bt_ctf_field_type_variant_get_field(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; + BT_LOGD_STR("Creating default string field type object."); + string_ft = g_new0(struct bt_field_type_string, 1); + if (!string_ft) { + BT_LOGE_STR("Failed to allocate one string field type."); + goto error; } + + init_field_type((void *) string_ft, BT_FIELD_TYPE_ID_STRING, + destroy_string_field_type); + BT_LIB_LOGD("Created string field type object: %!+F", string_ft); + goto end; + +error: + BT_PUT(string_ft); + end: - return field; + return (void *) string_ft; } BT_HIDDEN -int bt_ctf_field_type_get_field_index(struct bt_ctf_field_type *field_type, - const char *name) +void _bt_field_type_freeze(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); - - 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; - } - - return field_index; + /* + * Element/member/option field types are frozen when added to + * their owner. + */ + BT_ASSERT(ft); + ft->frozen = true; } -struct bt_ctf_field_path *bt_ctf_field_type_variant_get_tag_field_path( - struct bt_ctf_field_type *type) +BT_HIDDEN +void _bt_field_type_make_part_of_trace(struct bt_field_type *ft) { - struct bt_ctf_field_path *field_path = NULL; - struct bt_ctf_field_type_variant *variant; + BT_ASSERT(ft); + BT_ASSERT_PRE(!ft->part_of_trace, + "Field type is already part of a trace: %!+F", ft); + ft->part_of_trace = true; - if (!type || !bt_ctf_field_type_is_variant(type)) { - goto end; - } + switch (ft->id) { + case BT_FIELD_TYPE_ID_STRUCTURE: + case BT_FIELD_TYPE_ID_VARIANT: + { + struct bt_field_type_named_field_types_container *container_ft = + (void *) ft; + uint64_t i; - variant = container_of(type, struct bt_ctf_field_type_variant, - parent); - field_path = bt_get(variant->tag_field_path); -end: - return field_path; -} + for (i = 0; i < container_ft->named_fts->len; i++) { + struct bt_named_field_type *named_ft = + BT_FIELD_TYPE_NAMED_FT_AT_INDEX( + container_ft, i); -struct bt_ctf_field_path *bt_ctf_field_type_sequence_get_length_field_path( - struct bt_ctf_field_type *type) -{ - struct bt_ctf_field_path *field_path = NULL; - struct bt_ctf_field_type_sequence *sequence; + bt_field_type_make_part_of_trace(named_ft->ft); + } - if (!type || !bt_ctf_field_type_is_sequence(type)) { - goto end; + break; } + case BT_FIELD_TYPE_ID_STATIC_ARRAY: + case BT_FIELD_TYPE_ID_DYNAMIC_ARRAY: + { + struct bt_field_type_array *array_ft = (void *) ft; - sequence = container_of(type, struct bt_ctf_field_type_sequence, - parent); - field_path = bt_get(sequence->length_field_path); -end: - return field_path; + bt_field_type_make_part_of_trace(array_ft->element_ft); + break; + } + default: + break; + } }