X-Git-Url: http://git.efficios.com/?p=babeltrace.git;a=blobdiff_plain;f=lib%2Fctf-writer%2Ffield-types.c;fp=lib%2Fctf-writer%2Ffield-types.c;h=0000000000000000000000000000000000000000;hp=64cdcd17f7b0570cef98bbae0563420fa4af7484;hb=67d2ce028c96b6a3b3614b393d8928663bce4490;hpb=172e6876abbb70d0323a500e6b44f90641fbe2fb diff --git a/lib/ctf-writer/field-types.c b/lib/ctf-writer/field-types.c deleted file mode 100644 index 64cdcd17..00000000 --- a/lib/ctf-writer/field-types.c +++ /dev/null @@ -1,5564 +0,0 @@ -/* - * Copyright 2013, 2014 Jérémie Galarneau - * - * Author: Jérémie Galarneau - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to deal - * in the Software without restriction, including without limitation the rights - * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell - * copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in - * all copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, - * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE - * SOFTWARE. - */ - -#define BT_LOG_TAG "CTF-WRITER-FIELD-TYPES" -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -static -void destroy_enumeration_mapping(struct bt_ctf_enumeration_mapping *mapping) -{ - g_free(mapping); -} - -BT_HIDDEN -void bt_ctf_field_type_common_initialize(struct bt_ctf_field_type_common *ft, - bool init_bo, bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - BT_ASSERT(ft && (ft->id > BT_CTF_FIELD_TYPE_ID_UNKNOWN) && - (ft->id < BT_CTF_FIELD_TYPE_ID_NR)); - - bt_ctf_object_init_shared(&ft->base, release_func); - ft->methods = methods; - - if (init_bo) { - int ret; - const enum bt_ctf_byte_order bo = BT_CTF_BYTE_ORDER_NATIVE; - - BT_LOGD("Setting initial field type's byte order: bo=%s", - bt_ctf_byte_order_string(bo)); - ret = bt_ctf_field_type_common_set_byte_order(ft, bo); - BT_ASSERT(ret == 0); - } - - ft->alignment = 1; -} - -BT_HIDDEN -void bt_ctf_field_type_common_integer_initialize( - struct bt_ctf_field_type_common *ft, - unsigned int size, bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(size > 0); - BT_LOGD("Initializing common integer field type object: size=%u", - size); - ft->id = BT_CTF_FIELD_TYPE_ID_INTEGER; - int_ft->size = size; - int_ft->base = BT_CTF_INTEGER_BASE_DECIMAL; - int_ft->encoding = BT_CTF_STRING_ENCODING_NONE; - bt_ctf_field_type_common_initialize(ft, true, release_func, methods); - BT_LOGD("Initialized common integer field type object: addr=%p, size=%u", - ft, size); -} - -BT_HIDDEN -void bt_ctf_field_type_common_floating_point_initialize( - struct bt_ctf_field_type_common *ft, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - BT_LOGD_STR("Initializing common floating point number field type object."); - ft->id = BT_CTF_FIELD_TYPE_ID_FLOAT; - flt_ft->exp_dig = sizeof(float) * CHAR_BIT - FLT_MANT_DIG; - flt_ft->mant_dig = FLT_MANT_DIG; - bt_ctf_field_type_common_initialize(ft, true, release_func, methods); - BT_LOGD("Initialized common floating point number field type object: addr=%p, " - "exp-size=%u, mant-size=%u", ft, flt_ft->exp_dig, - flt_ft->mant_dig); -} - -BT_HIDDEN -void bt_ctf_field_type_common_enumeration_initialize( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *container_ft, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(container_ft); - BT_LOGD("Initializing common enumeration field type object: int-ft-addr=%p", - container_ft); - ft->id = BT_CTF_FIELD_TYPE_ID_ENUM; - enum_ft->container_ft = bt_ctf_object_get_ref(container_ft); - enum_ft->entries = g_ptr_array_new_with_free_func( - (GDestroyNotify) destroy_enumeration_mapping); - bt_ctf_field_type_common_initialize(ft, false, release_func, methods); - BT_LOGD("Initialized common enumeration field type object: addr=%p, " - "int-ft-addr=%p, int-ft-size=%u", ft, container_ft, - bt_ctf_field_type_common_integer_get_size(container_ft)); -} - -BT_HIDDEN -void bt_ctf_field_type_common_string_initialize( - struct bt_ctf_field_type_common *ft, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_string *string_ft = BT_CTF_FROM_COMMON(ft); - - BT_LOGD_STR("Initializing common string field type object."); - ft->id = BT_CTF_FIELD_TYPE_ID_STRING; - bt_ctf_field_type_common_initialize(ft, true, release_func, methods); - string_ft->encoding = BT_CTF_STRING_ENCODING_UTF8; - ft->alignment = CHAR_BIT; - BT_LOGD("Initialized common string field type object: addr=%p", ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_structure_initialize( - struct bt_ctf_field_type_common *ft, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - - BT_LOGD_STR("Initializing common structure field type object."); - ft->id = BT_CTF_FIELD_TYPE_ID_STRUCT; - struct_ft->fields = g_array_new(FALSE, TRUE, - sizeof(struct bt_ctf_field_type_common_structure_field)); - struct_ft->field_name_to_index = g_hash_table_new(NULL, NULL); - bt_ctf_field_type_common_initialize(ft, true, release_func, methods); - BT_LOGD("Initialized common structure field type object: addr=%p", ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_array_initialize( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *element_ft, - unsigned int length, bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(element_ft); - BT_LOGD("Initializing common array field type object: element-ft-addr=%p, " - "length=%u", element_ft, length); - ft->id = BT_CTF_FIELD_TYPE_ID_ARRAY; - array_ft->element_ft = bt_ctf_object_get_ref(element_ft); - array_ft->length = length; - bt_ctf_field_type_common_initialize(ft, false, release_func, methods); - BT_LOGD("Initialized common array field type object: addr=%p, " - "element-ft-addr=%p, length=%u", ft, element_ft, length); -} - -BT_HIDDEN -void bt_ctf_field_type_common_sequence_initialize( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *element_ft, - const char *length_field_name, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(element_ft); - BT_ASSERT(length_field_name); - BT_ASSERT(bt_ctf_identifier_is_valid(length_field_name)); - BT_LOGD("Initializing common sequence field type object: element-ft-addr=%p, " - "length-field-name=\"%s\"", element_ft, length_field_name); - ft->id = BT_CTF_FIELD_TYPE_ID_SEQUENCE; - seq_ft->element_ft = bt_ctf_object_get_ref(element_ft); - seq_ft->length_field_name = g_string_new(length_field_name); - bt_ctf_field_type_common_initialize(ft, false, release_func, methods); - BT_LOGD("Initialized common sequence field type object: addr=%p, " - "element-ft-addr=%p, length-field-name=\"%s\"", - ft, element_ft, length_field_name); -} - -BT_HIDDEN -void bt_ctf_field_type_common_variant_initialize( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *tag_ft, - const char *tag_name, - bt_ctf_object_release_func release_func, - struct bt_ctf_field_type_common_methods *methods) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(!tag_name || bt_ctf_identifier_is_valid(tag_name)); - BT_LOGD("Initializing common variant field type object: " - "tag-ft-addr=%p, tag-field-name=\"%s\"", - tag_ft, tag_name); - ft->id = BT_CTF_FIELD_TYPE_ID_VARIANT; - var_ft->tag_name = g_string_new(tag_name); - var_ft->choice_name_to_index = g_hash_table_new(NULL, NULL); - var_ft->choices = g_array_new(FALSE, TRUE, - sizeof(struct bt_ctf_field_type_common_variant_choice)); - - if (tag_ft) { - var_ft->tag_ft = bt_ctf_object_get_ref(tag_ft); - } - - bt_ctf_field_type_common_initialize(ft, true, release_func, methods); - /* A variant's alignment is undefined */ - ft->alignment = 0; - BT_LOGD("Initialized common variant field type object: addr=%p, " - "tag-ft-addr=%p, tag-field-name=\"%s\"", - ft, tag_ft, tag_name); -} - -BT_HIDDEN -void bt_ctf_field_type_common_integer_destroy(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_integer *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying integer field type object: addr=%p", ft); - BT_LOGD_STR("Putting mapped clock class."); - bt_ctf_object_put_ref(ft->mapped_clock_class); - g_free(ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_floating_point_destroy(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_floating_point *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying floating point number field type object: addr=%p", ft); - g_free(ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_enumeration_destroy_recursive(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_enumeration *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying enumeration field type object: addr=%p", ft); - g_ptr_array_free(ft->entries, TRUE); - BT_LOGD_STR("Putting container field type."); - bt_ctf_object_put_ref(ft->container_ft); - g_free(ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_string_destroy(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_string *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying string field type object: addr=%p", ft); - g_free(ft); -} - -static -void bt_ctf_field_type_common_structure_field_finalize( - struct bt_ctf_field_type_common_structure_field *field) -{ - if (!field) { - return; - } - - BT_LOGD("Finalizing structure field type's field: " - "addr=%p, field-ft-addr=%p, field-name=\"%s\"", - field, field->type, g_quark_to_string(field->name)); - BT_LOGD_STR("Putting field type."); - bt_ctf_object_put_ref(field->type); -} - -BT_HIDDEN -void bt_ctf_field_type_common_structure_destroy_recursive(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_structure *ft = (void *) obj; - uint64_t i; - - if (!ft) { - return; - } - - BT_LOGD("Destroying structure field type object: addr=%p", ft); - - if (ft->fields) { - for (i = 0; i < ft->fields->len; i++) { - bt_ctf_field_type_common_structure_field_finalize( - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - ft, i)); - } - - g_array_free(ft->fields, TRUE); - } - - if (ft->field_name_to_index) { - g_hash_table_destroy(ft->field_name_to_index); - } - - g_free(ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_array_destroy_recursive(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_array *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying array field type object: addr=%p", ft); - BT_LOGD_STR("Putting element field type."); - bt_ctf_object_put_ref(ft->element_ft); - g_free(ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_sequence_destroy_recursive(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_sequence *ft = (void *) obj; - - if (!ft) { - return; - } - - BT_LOGD("Destroying sequence field type object: addr=%p", ft); - BT_LOGD_STR("Putting element field type."); - bt_ctf_object_put_ref(ft->element_ft); - g_string_free(ft->length_field_name, TRUE); - BT_LOGD_STR("Putting length field path."); - bt_ctf_object_put_ref(ft->length_field_path); - g_free(ft); -} - -static -void bt_ctf_field_type_common_variant_choice_finalize( - struct bt_ctf_field_type_common_variant_choice *choice) -{ - if (!choice) { - return; - } - - BT_LOGD("Finalizing variant field type's choice: " - "addr=%p, field-ft-addr=%p, field-name=\"%s\"", - choice, choice->type, g_quark_to_string(choice->name)); - BT_LOGD_STR("Putting field type."); - bt_ctf_object_put_ref(choice->type); - - if (choice->ranges) { - g_array_free(choice->ranges, TRUE); - } -} - -BT_HIDDEN -void bt_ctf_field_type_common_variant_destroy_recursive(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_common_variant *ft = (void *) obj; - uint64_t i; - - if (!ft) { - return; - } - - BT_LOGD("Destroying variant field type object: addr=%p", ft); - - if (ft->choices) { - for (i = 0; i < ft->choices->len; i++) { - bt_ctf_field_type_common_variant_choice_finalize( - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - ft, i)); - } - - g_array_free(ft->choices, TRUE); - } - - if (ft->choice_name_to_index) { - g_hash_table_destroy(ft->choice_name_to_index); - } - - if (ft->tag_name) { - g_string_free(ft->tag_name, TRUE); - } - - BT_LOGD_STR("Putting tag field type."); - bt_ctf_object_put_ref(ft->tag_ft); - BT_LOGD_STR("Putting tag field path."); - bt_ctf_object_put_ref(ft->tag_field_path); - g_free(ft); -} - -struct range_overlap_query { - union { - uint64_t _unsigned; - int64_t _signed; - } range_start; - - union { - uint64_t _unsigned; - int64_t _signed; - } range_end; - int overlaps; - GQuark mapping_name; -}; - -static -void check_ranges_overlap(gpointer element, gpointer query) -{ - struct bt_ctf_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; - - if (overlap_query->overlaps) { - BT_LOGV("Overlapping enumeration field type mappings: " - "mapping-name=\"%s\", " - "mapping-a-range-start=%" PRId64 ", " - "mapping-a-range-end=%" PRId64 ", " - "mapping-b-range-start=%" PRId64 ", " - "mapping-b-range-end=%" PRId64, - g_quark_to_string(mapping->string), - mapping->range_start._signed, - mapping->range_end._signed, - overlap_query->range_start._signed, - overlap_query->range_end._signed); - } -} - -static -void check_ranges_overlap_unsigned(gpointer element, gpointer query) -{ - struct bt_ctf_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; - - if (overlap_query->overlaps) { - BT_LOGW("Overlapping enumeration field type mappings: " - "mapping-name=\"%s\", " - "mapping-a-range-start=%" PRIu64 ", " - "mapping-a-range-end=%" PRIu64 ", " - "mapping-b-range-start=%" PRIu64 ", " - "mapping-b-range-end=%" PRIu64, - g_quark_to_string(mapping->string), - mapping->range_start._unsigned, - mapping->range_end._unsigned, - overlap_query->range_start._unsigned, - overlap_query->range_end._unsigned); - } -} - -static -gint compare_enumeration_mappings_signed(struct bt_ctf_enumeration_mapping **a, - struct bt_ctf_enumeration_mapping **b) -{ - return ((*a)->range_start._signed < (*b)->range_start._signed) ? -1 : 1; -} - -static -gint compare_enumeration_mappings_unsigned(struct bt_ctf_enumeration_mapping **a, - struct bt_ctf_enumeration_mapping **b) -{ - return ((*a)->range_start._unsigned < (*b)->range_start._unsigned) ? -1 : 1; -} - -static -int add_structure_variant_member(GArray *members, - GHashTable *field_name_to_index, - struct bt_ctf_field_type_common *field_type, const char *field_name, - bool is_variant) -{ - int ret = 0; - GQuark name_quark = g_quark_from_string(field_name); - struct bt_ctf_field_type_common **member_ft; - GQuark *member_name; - - /* Make sure structure does not contain a field of the same name */ - if (g_hash_table_lookup_extended(field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, NULL)) { - BT_LOGW("Structure or variant field type already contains a field type with this name: " - "field-name=\"%s\"", field_name); - ret = -1; - goto end; - } - - g_array_set_size(members, members->len + 1); - - if (is_variant) { - struct bt_ctf_field_type_common_variant_choice *choice = - &g_array_index(members, - struct bt_ctf_field_type_common_variant_choice, - members->len - 1); - - member_ft = &choice->type; - member_name = &choice->name; - BT_ASSERT(!choice->ranges); - choice->ranges = g_array_new(FALSE, TRUE, - sizeof(struct bt_ctf_field_type_common_variant_choice_range)); - BT_ASSERT(choice->ranges); - } else { - struct bt_ctf_field_type_common_structure_field *field = - &g_array_index(members, - struct bt_ctf_field_type_common_structure_field, - members->len - 1); - - member_ft = &field->type; - member_name = &field->name; - } - - *member_name = name_quark; - *member_ft = bt_ctf_object_get_ref(field_type); - g_hash_table_insert(field_name_to_index, - GUINT_TO_POINTER(name_quark), - GUINT_TO_POINTER(members->len - 1)); - BT_LOGV("Added structure/variant field type member: member-ft-addr=%p, " - "member-name=\"%s\"", field_type, field_name); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_validate(struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - if (int_ft->mapped_clock_class && int_ft->is_signed) { - BT_LOGW("Invalid integer field type: cannot be signed and have a mapped clock class: " - "ft-addr=%p, clock-class-addr=%p, clock-class-name=\"%s\"", - ft, int_ft->mapped_clock_class, - bt_ctf_clock_class_get_name(int_ft->mapped_clock_class)); - ret = -1; - goto end; - } - -end: - return ret; -} - -static -void bt_ctf_field_type_enum_iter_destroy(struct bt_ctf_object *obj) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = - container_of(obj, - struct bt_ctf_field_type_enumeration_mapping_iterator, - base); - - BT_LOGD("Destroying enumeration field type mapping iterator: addr=%p", - obj); - BT_LOGD_STR("Putting parent enumeration field type."); - bt_ctf_object_put_ref(iter->enumeration_ft); - g_free(iter); -} - -static -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_common_enumeration_find_mappings_type( - struct bt_ctf_field_type_common *ft, - enum bt_ctf_field_type_enumeration_mapping_iterator_type iterator_type) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ENUM, - "Field type"); - iter = g_new0(struct bt_ctf_field_type_enumeration_mapping_iterator, 1); - if (!iter) { - BT_LOGE_STR("Failed to allocate one enumeration field type mapping."); - goto end; - } - - bt_ctf_object_init_shared(&iter->base, bt_ctf_field_type_enum_iter_destroy); - iter->enumeration_ft = bt_ctf_object_get_ref(ft); - iter->index = -1; - iter->type = iterator_type; - -end: - return iter; -} - -BT_HIDDEN -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_common_enumeration_find_mappings_by_name( - struct bt_ctf_field_type_common *ft, const char *name) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_common_enumeration_find_mappings_type( - ft, CTF_ITERATOR_BY_NAME); - if (!iter) { - BT_LOGW("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, mapping-name=\"%s\"", ft, name); - goto error; - } - - iter->u.name_quark = g_quark_try_string(name); - if (!iter->u.name_quark) { - /* - * No results are possible, set the iterator's position at the - * end. - */ - iter->index = iter->enumeration_ft->entries->len; - } - - return iter; - -error: - bt_ctf_object_put_ref(iter); - return NULL; -} - -static -struct bt_ctf_enumeration_mapping *bt_ctf_field_type_common_enumeration_get_mapping_by_index( - struct bt_ctf_field_type_common *ft, uint64_t index) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_enumeration_mapping *mapping = NULL; - - if (index >= enum_ft->entries->len) { - BT_LOGW("Invalid parameter: index is out of bounds: " - "addr=%p, index=%" PRIu64 ", count=%u", - ft, index, enum_ft->entries->len); - goto end; - } - - mapping = g_ptr_array_index(enum_ft->entries, index); - -end: - return mapping; -} - -BT_HIDDEN -int bt_ctf_field_type_enumeration_mapping_iterator_next( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = iter->enumeration_ft; - int i, ret = 0, len; - - BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); - len = enum_ft->entries->len; - for (i = iter->index + 1; i < len; i++) { - struct bt_ctf_enumeration_mapping *mapping = - bt_ctf_field_type_common_enumeration_get_mapping_by_index( - BT_CTF_TO_COMMON(enum_ft), i); - - switch (iter->type) { - case CTF_ITERATOR_BY_NAME: - if (mapping->string == iter->u.name_quark) { - iter->index = i; - goto end; - } - break; - case CTF_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 CTF_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: - BT_LOGF("Invalid enumeration field type mapping iterator type: " - "type=%d", iter->type); - abort(); - } - } - - ret = -1; - -end: - return ret; -} - -BT_HIDDEN -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_common_enumeration_signed_find_mappings_by_value( - struct bt_ctf_field_type_common *ft, int64_t value) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_common_enumeration_find_mappings_type( - ft, CTF_ITERATOR_BY_SIGNED_VALUE); - if (!iter) { - BT_LOGW("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, value=%" PRId64, ft, value); - goto error; - } - - if (bt_ctf_field_type_common_integer_is_signed( - BT_CTF_TO_COMMON(iter->enumeration_ft->container_ft)) != 1) { - BT_LOGW("Invalid parameter: enumeration field type is unsigned: " - "enum-ft-addr=%p, int-ft-addr=%p", - ft, iter->enumeration_ft->container_ft); - goto error; - } - - iter->u.signed_value = value; - return iter; - -error: - bt_ctf_object_put_ref(iter); - return NULL; -} - -BT_HIDDEN -struct bt_ctf_field_type_enumeration_mapping_iterator * -bt_ctf_field_type_common_enumeration_unsigned_find_mappings_by_value( - struct bt_ctf_field_type_common *ft, uint64_t value) -{ - struct bt_ctf_field_type_enumeration_mapping_iterator *iter; - - iter = bt_ctf_field_type_common_enumeration_find_mappings_type( - ft, CTF_ITERATOR_BY_UNSIGNED_VALUE); - if (!iter) { - BT_LOGW("Cannot create enumeration field type mapping iterator: " - "ft-addr=%p, value=%" PRIu64, ft, value); - goto error; - } - - if (bt_ctf_field_type_common_integer_is_signed( - BT_CTF_TO_COMMON(iter->enumeration_ft->container_ft)) != 0) { - BT_LOGW("Invalid parameter: enumeration field type is signed: " - "enum-ft-addr=%p, int-ft-addr=%p", - ft, iter->enumeration_ft->container_ft); - goto error; - } - - iter->u.unsigned_value = value; - return iter; - -error: - bt_ctf_object_put_ref(iter); - return NULL; -} - -BT_HIDDEN -int bt_ctf_field_type_enumeration_mapping_iterator_signed_get( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter, - const char **mapping_name, int64_t *range_begin, - int64_t *range_end) -{ - BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); - BT_ASSERT_PRE(iter->index != -1, - "Invalid enumeration field type mapping iterator access: " - "addr=%p, position=-1", iter); - return bt_ctf_field_type_common_enumeration_signed_get_mapping_by_index( - (void *) iter->enumeration_ft, iter->index, - mapping_name, range_begin, range_end); -} - -BT_HIDDEN -int bt_ctf_field_type_enumeration_mapping_iterator_unsigned_get( - struct bt_ctf_field_type_enumeration_mapping_iterator *iter, - const char **mapping_name, uint64_t *range_begin, - uint64_t *range_end) -{ - BT_ASSERT_PRE_NON_NULL(iter, "Enumeration field type mapping iterator"); - BT_ASSERT_PRE(iter->index != -1, - "Invalid enumeration field type mapping iterator access: " - "addr=%p, position=-1", iter); - return bt_ctf_field_type_common_enumeration_unsigned_get_mapping_by_index( - (void *) iter->enumeration_ft, iter->index, - mapping_name, range_begin, range_end); -} - -/* - * Note: This algorithm is O(n^2) vs number of enumeration mappings. - * Only used when freezing an enumeration. - */ -static -void bt_ctf_field_type_common_enumeration_set_range_overlap( - struct bt_ctf_field_type_common_enumeration *ft) -{ - int64_t i, j, len; - int is_signed; - - BT_LOGV("Setting enumeration field type's overlap flag: addr=%p", - ft); - len = ft->entries->len; - is_signed = bt_ctf_field_type_common_integer_is_signed( - BT_CTF_TO_COMMON(ft->container_ft)); - - for (i = 0; i < len; i++) { - for (j = i + 1; j < len; j++) { - struct bt_ctf_enumeration_mapping *mapping[2]; - - mapping[0] = bt_ctf_field_type_common_enumeration_get_mapping_by_index( - BT_CTF_TO_COMMON(ft), i); - mapping[1] = bt_ctf_field_type_common_enumeration_get_mapping_by_index( - BT_CTF_TO_COMMON(ft), j); - if (is_signed) { - if (mapping[0]->range_start._signed - <= mapping[1]->range_end._signed - && mapping[0]->range_end._signed - >= mapping[1]->range_start._signed) { - ft->has_overlapping_ranges = BT_TRUE; - goto end; - } - } else { - if (mapping[0]->range_start._unsigned - <= mapping[1]->range_end._unsigned - && mapping[0]->range_end._unsigned - >= mapping[1]->range_start._unsigned) { - ft->has_overlapping_ranges = BT_TRUE; - goto end; - } - } - } - } - -end: - if (ft->has_overlapping_ranges) { - BT_LOGV_STR("Enumeration field type has overlapping ranges."); - } else { - BT_LOGV_STR("Enumeration field type has no overlapping ranges."); - } -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_validate_recursive( - struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - ret = bt_ctf_field_type_common_integer_validate( - BT_CTF_TO_COMMON(enum_ft->container_ft)); - if (ret) { - BT_LOGW("Invalid enumeration field type: container type is invalid: " - "enum-ft-addr=%p, int-ft-addr=%p", - ft, enum_ft->container_ft); - goto end; - } - - /* Ensure enum has entries */ - if (enum_ft->entries->len == 0) { - BT_LOGW("Invalid enumeration field type: no entries: " - "addr=%p", ft); - ret = -1; - goto end; - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_sequence_validate_recursive( - struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - /* Length field name should be set at this point */ - if (seq_ft->length_field_name->len == 0) { - BT_LOGW("Invalid sequence field type: no length field name: " - "addr=%p", ft); - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_common_validate(seq_ft->element_ft); - if (ret) { - BT_LOGW("Invalid sequence field type: invalid element field type: " - "seq-ft-addr=%p, element-ft-add=%p", - ft, seq_ft->element_ft); - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_array_validate_recursive( - struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - ret = bt_ctf_field_type_common_validate(array_ft->element_ft); - if (ret) { - BT_LOGW("Invalid array field type: invalid element field type: " - "array-ft-addr=%p, element-ft-add=%p", - ft, array_ft->element_ft); - } - - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_validate_recursive( - struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - struct bt_ctf_field_type_common *child_ft = NULL; - int64_t field_count = - bt_ctf_field_type_common_structure_get_field_count(ft); - int64_t i; - - BT_ASSERT(field_count >= 0); - - for (i = 0; i < field_count; ++i) { - const char *field_name; - - ret = bt_ctf_field_type_common_structure_borrow_field_by_index(ft, - &field_name, &child_ft, i); - BT_ASSERT(ret == 0); - ret = bt_ctf_field_type_common_validate(child_ft); - if (ret) { - BT_LOGW("Invalid structure field type: " - "a contained field type is invalid: " - "struct-ft-addr=%p, field-ft-addr=%p, " - "field-name=\"%s\", field-index=%" PRId64, - ft, child_ft, field_name, i); - goto end; - } - } - -end: - return ret; -} - -static -bt_bool bt_ctf_field_type_common_enumeration_has_overlapping_ranges( - struct bt_ctf_field_type_common_enumeration *enum_ft) -{ - if (!enum_ft->common.frozen) { - bt_ctf_field_type_common_enumeration_set_range_overlap(enum_ft); - } - - return enum_ft->has_overlapping_ranges; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_validate_recursive( - struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - int64_t field_count; - struct bt_ctf_field_type_common *child_ft = NULL; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - int64_t i; - - if (var_ft->tag_name->len == 0) { - BT_LOGW("Invalid variant field type: no tag field name: " - "addr=%p", ft); - ret = -1; - goto end; - } - - if (!var_ft->tag_ft) { - BT_LOGW("Invalid variant field type: no tag field type: " - "addr=%p, tag-field-name=\"%s\"", var_ft, - var_ft->tag_name->str); - ret = -1; - goto end; - } - - if (bt_ctf_field_type_common_enumeration_has_overlapping_ranges(var_ft->tag_ft)) { - BT_LOGW("Invalid variant field type: enumeration tag field type has overlapping ranges: " - "variant-ft-addr=%p, tag-field-name=\"%s\", " - "enum-ft-addr=%p", ft, var_ft->tag_name->str, - var_ft->tag_ft); - ret = -1; - goto end; - } - - /* - * It is valid to have a variant field type which does not have - * the fields corresponding to each label in the associated - * enumeration. - * - * It is also valid to have variant field type fields which - * cannot be selected because the variant field type tag has no - * mapping named as such. This scenario, while not ideal, cannot - * cause any error. - * - * If a non-existing field happens to be selected by an - * enumeration while reading a variant field, an error will be - * generated at that point (while reading the stream). - */ - field_count = bt_ctf_field_type_common_variant_get_field_count(ft); - if (field_count < 0) { - BT_LOGW("Invalid variant field type: no fields: " - "addr=%p, tag-field-name=\"%s\"", - ft, var_ft->tag_name->str); - ret = -1; - goto end; - } - - for (i = 0; i < field_count; ++i) { - const char *field_name; - - ret = bt_ctf_field_type_common_variant_borrow_field_by_index(ft, - &field_name, &child_ft, i); - BT_ASSERT(ret == 0); - ret = bt_ctf_field_type_common_validate(child_ft); - if (ret) { - BT_LOGW("Invalid variant field type: " - "a contained field type is invalid: " - "variant-ft-addr=%p, tag-field-name=\"%s\", " - "field-ft-addr=%p, field-name=\"%s\", " - "field-index=%" PRId64, - ft, var_ft->tag_name->str, child_ft, - field_name, i); - goto end; - } - } - -end: - 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_common_validate(struct bt_ctf_field_type_common *ft) -{ - int ret = 0; - - BT_ASSERT(ft); - - if (ft->valid) { - /* Already marked as valid */ - goto end; - } - - if (ft->methods->validate) { - ret = ft->methods->validate(ft); - } - - if (ret == 0 && ft->frozen) { - /* Field type is valid */ - BT_LOGV("Marking field type as valid: addr=%p", ft); - ft->valid = 1; - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_get_size(struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_INTEGER, - "Field type"); - return (int) int_ft->size; -} - -BT_HIDDEN -bt_bool bt_ctf_field_type_common_integer_is_signed(struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_INTEGER, - "Field type"); - return int_ft->is_signed; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_is_signed(struct bt_ctf_field_type_common *ft, - bt_bool is_signed) -{ - int ret = 0; - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - int_ft->is_signed = !!is_signed; - BT_LOGV("Set integer field type's signedness: addr=%p, is-signed=%d", - ft, is_signed); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_size(struct bt_ctf_field_type_common *ft, - unsigned int size) -{ - int ret = 0; - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (size == 0 || size > 64) { - BT_LOGW("Invalid parameter: size must be between 1 and 64: " - "addr=%p, size=%u", ft, size); - ret = -1; - goto end; - } - - int_ft->size = size; - BT_LOGV("Set integer field type's size: addr=%p, size=%u", - ft, size); - -end: - return ret; -} - -BT_HIDDEN -enum bt_ctf_integer_base bt_ctf_field_type_common_integer_get_base( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_INTEGER, - "Field type"); - return int_ft->base; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_base(struct bt_ctf_field_type_common *ft, - enum bt_ctf_integer_base base) -{ - int ret = 0; - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - switch (base) { - case BT_CTF_INTEGER_BASE_UNSPECIFIED: - case BT_CTF_INTEGER_BASE_BINARY: - case BT_CTF_INTEGER_BASE_OCTAL: - case BT_CTF_INTEGER_BASE_DECIMAL: - case BT_CTF_INTEGER_BASE_HEXADECIMAL: - { - int_ft->base = base; - break; - } - default: - BT_LOGW("Invalid parameter: unknown integer field type base: " - "addr=%p, base=%d", ft, base); - ret = -1; - } - - BT_LOGV("Set integer field type's base: addr=%p, base=%s", - ft, bt_ctf_integer_base_string(base)); - -end: - return ret; -} - -BT_HIDDEN -enum bt_ctf_string_encoding bt_ctf_field_type_common_integer_get_encoding( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_INTEGER, - "Field type"); - return int_ft->encoding; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_encoding(struct bt_ctf_field_type_common *ft, - enum bt_ctf_string_encoding encoding) -{ - int ret = 0; - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (encoding != BT_CTF_STRING_ENCODING_UTF8 && - encoding != BT_CTF_STRING_ENCODING_ASCII && - encoding != BT_CTF_STRING_ENCODING_NONE) { - BT_LOGW("Invalid parameter: unknown string encoding: " - "addr=%p, encoding=%d", ft, encoding); - ret = -1; - goto end; - } - - int_ft->encoding = encoding; - BT_LOGV("Set integer field type's encoding: addr=%p, encoding=%s", - ft, bt_ctf_string_encoding_string(encoding)); - -end: - return ret; -} - -BT_HIDDEN -struct bt_ctf_clock_class *bt_ctf_field_type_common_integer_borrow_mapped_clock_class( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_INTEGER, - "Field type"); - return int_ft->mapped_clock_class; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_mapped_clock_class_no_check_frozen( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_clock_class *clock_class) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - int ret = 0; - - if (!clock_class) { - BT_LOGW_STR("Invalid parameter: clock class is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: field type is not an integer field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - goto end; - } - - if (!bt_ctf_clock_class_is_valid(clock_class)) { - BT_LOGW("Invalid parameter: clock class is invalid: ft-addr=%p" - "clock-class-addr=%p, clock-class-name=\"%s\"", - ft, clock_class, - bt_ctf_clock_class_get_name(clock_class)); - ret = -1; - goto end; - } - - bt_ctf_object_put_ref(int_ft->mapped_clock_class); - int_ft->mapped_clock_class = bt_ctf_object_get_ref(clock_class); - BT_LOGV("Set integer field type's mapped clock class: ft-addr=%p, " - "clock-class-addr=%p, clock-class-name=\"%s\"", - ft, clock_class, bt_ctf_clock_class_get_name(clock_class)); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_integer_set_mapped_clock_class( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_clock_class *clock_class) -{ - int ret = 0; - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - ret = bt_ctf_field_type_common_integer_set_mapped_clock_class_no_check_frozen( - ft, clock_class); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_signed_get_mapping_by_index( - struct bt_ctf_field_type_common *ft, uint64_t index, - const char **mapping_name, int64_t *range_begin, - int64_t *range_end) -{ - int ret = 0; - struct bt_ctf_enumeration_mapping *mapping; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, - BT_CTF_FIELD_TYPE_ID_ENUM, "Field type"); - mapping = bt_ctf_field_type_common_enumeration_get_mapping_by_index(ft, - index); - if (!mapping) { - /* bt_ctf_field_type_common_enumeration_get_mapping_by_index() logs errors */ - ret = -1; - goto end; - } - - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); - BT_ASSERT(*mapping_name); - } - - if (range_begin) { - *range_begin = mapping->range_start._signed; - } - - if (range_end) { - *range_end = mapping->range_end._signed; - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_unsigned_get_mapping_by_index( - struct bt_ctf_field_type_common *ft, uint64_t index, - const char **mapping_name, uint64_t *range_begin, - uint64_t *range_end) -{ - int ret = 0; - struct bt_ctf_enumeration_mapping *mapping; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ENUM, "Field type"); - mapping = bt_ctf_field_type_common_enumeration_get_mapping_by_index( - ft, index); - if (!mapping) { - /* bt_ctf_field_type_common_enumeration_get_mapping_by_index() reports any error */ - ret = -1; - goto end; - } - - if (mapping_name) { - *mapping_name = g_quark_to_string(mapping->string); - BT_ASSERT(*mapping_name); - } - - if (range_begin) { - *range_begin = mapping->range_start._unsigned; - } - - if (range_end) { - *range_end = mapping->range_end._unsigned; - } - -end: - return ret; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_enumeration_borrow_container_field_type( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ENUM, "Field type"); - return BT_CTF_TO_COMMON(enum_ft->container_ft); -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_signed_add_mapping( - struct bt_ctf_field_type_common *ft, const char *string, - int64_t range_start, int64_t range_end) -{ - int ret = 0; - GQuark mapping_name; - struct bt_ctf_enumeration_mapping *mapping; - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - char *escaped_string; - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (!string) { - BT_LOGW_STR("Invalid parameter: string is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (range_end < range_start) { - BT_LOGW("Invalid parameter: range's end is lesser than range's start: " - "addr=%p, range-start=%" PRId64 ", range-end=%" PRId64, - ft, range_start, range_end); - ret = -1; - goto end; - } - - if (strlen(string) == 0) { - BT_LOGW("Invalid parameter: mapping name is an empty string: " - "enum-ft-addr=%p, mapping-name-addr=%p", ft, - string); - ret = -1; - goto end; - } - - escaped_string = g_strescape(string, NULL); - if (!escaped_string) { - BT_LOGE("Cannot escape mapping name: enum-ft-addr=%p, " - "mapping-name-addr=%p, mapping-name=\"%s\"", - ft, string, string); - ret = -1; - goto end; - } - - mapping = g_new(struct bt_ctf_enumeration_mapping, 1); - if (!mapping) { - BT_LOGE_STR("Failed to allocate one enumeration mapping."); - ret = -1; - goto error_free; - } - mapping_name = g_quark_from_string(escaped_string); - *mapping = (struct bt_ctf_enumeration_mapping) { - .range_start._signed = range_start, - .range_end._signed = range_end, - .string = mapping_name, - }; - g_ptr_array_add(enum_ft->entries, mapping); - g_ptr_array_sort(enum_ft->entries, - (GCompareFunc) compare_enumeration_mappings_signed); - BT_LOGV("Added mapping to signed enumeration field type: addr=%p, " - "name=\"%s\", range-start=%" PRId64 ", " - "range-end=%" PRId64, - ft, string, range_start, range_end); - -error_free: - free(escaped_string); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_unsigned_add_mapping( - struct bt_ctf_field_type_common *ft, const char *string, - uint64_t range_start, uint64_t range_end) -{ - int ret = 0; - GQuark mapping_name; - struct bt_ctf_enumeration_mapping *mapping; - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - char *escaped_string; - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (!string) { - BT_LOGW_STR("Invalid parameter: string is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: field type is not an enumeration field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (range_end < range_start) { - BT_LOGW("Invalid parameter: range's end is lesser than range's start: " - "addr=%p, range-start=%" PRIu64 ", range-end=%" PRIu64, - ft, range_start, range_end); - ret = -1; - goto end; - } - - if (strlen(string) == 0) { - BT_LOGW("Invalid parameter: mapping name is an empty string: " - "enum-ft-addr=%p, mapping-name-addr=%p", ft, - string); - ret = -1; - goto end; - } - - escaped_string = g_strescape(string, NULL); - if (!escaped_string) { - BT_LOGE("Cannot escape mapping name: enum-ft-addr=%p, " - "mapping-name-addr=%p, mapping-name=\"%s\"", - ft, string, string); - ret = -1; - goto end; - } - - mapping = g_new(struct bt_ctf_enumeration_mapping, 1); - if (!mapping) { - BT_LOGE_STR("Failed to allocate one enumeration mapping."); - ret = -1; - goto error_free; - } - mapping_name = g_quark_from_string(escaped_string); - *mapping = (struct bt_ctf_enumeration_mapping) { - .range_start._unsigned = range_start, - .range_end._unsigned = range_end, - .string = mapping_name, - }; - g_ptr_array_add(enum_ft->entries, mapping); - g_ptr_array_sort(enum_ft->entries, - (GCompareFunc) compare_enumeration_mappings_unsigned); - BT_LOGV("Added mapping to unsigned enumeration field type: addr=%p, " - "name=\"%s\", range-start=%" PRIu64 ", " - "range-end=%" PRIu64, - ft, string, range_start, range_end); - -error_free: - free(escaped_string); - -end: - return ret; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_enumeration_get_mapping_count( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ENUM, "Field type"); - return (int64_t) enum_ft->entries->len; -} - -BT_HIDDEN -int bt_ctf_field_type_common_floating_point_get_exponent_digits( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_FLOAT, - "Field type"); - return (int) flt_ft->exp_dig; -} - -BT_HIDDEN -int bt_ctf_field_type_common_floating_point_set_exponent_digits( - struct bt_ctf_field_type_common *ft, - unsigned int exponent_digits) -{ - int ret = 0; - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { - BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if ((exponent_digits != sizeof(float) * CHAR_BIT - FLT_MANT_DIG) && - (exponent_digits != sizeof(double) * CHAR_BIT - DBL_MANT_DIG) && - (exponent_digits != - sizeof(long double) * CHAR_BIT - LDBL_MANT_DIG)) { - BT_LOGW("Invalid parameter: invalid exponent size: " - "addr=%p, exp-size=%u", ft, exponent_digits); - ret = -1; - goto end; - } - - flt_ft->exp_dig = exponent_digits; - BT_LOGV("Set floating point number field type's exponent size: addr=%p, " - "exp-size=%u", ft, exponent_digits); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_floating_point_get_mantissa_digits( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_FLOAT, - "Field type"); - return (int) flt_ft->mant_dig; -} - -BT_HIDDEN -int bt_ctf_field_type_common_floating_point_set_mantissa_digits( - struct bt_ctf_field_type_common *ft, unsigned int mantissa_digits) -{ - int ret = 0; - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_FLOAT) { - BT_LOGW("Invalid parameter: field type is not a floating point number field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if ((mantissa_digits != FLT_MANT_DIG) && - (mantissa_digits != DBL_MANT_DIG) && - (mantissa_digits != LDBL_MANT_DIG)) { - BT_LOGW("Invalid parameter: invalid mantissa size: " - "addr=%p, mant-size=%u", ft, mantissa_digits); - ret = -1; - goto end; - } - - flt_ft->mant_dig = mantissa_digits; - BT_LOGV("Set floating point number field type's mantissa size: addr=%p, " - "mant-size=%u", ft, mantissa_digits); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_replace_field( - struct bt_ctf_field_type_common *ft, - const char *field_name, - struct bt_ctf_field_type_common *field_type) -{ - int ret = 0; - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - GQuark name_quark; - uint64_t i; - - BT_ASSERT(ft); - BT_ASSERT(field_name); - BT_ASSERT(field_type); - BT_ASSERT(ft->id == BT_CTF_FIELD_TYPE_ID_STRUCT); - name_quark = g_quark_from_string(field_name); - - for (i = 0; i < struct_ft->fields->len; i++) { - struct bt_ctf_field_type_common_structure_field *field = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, i); - - if (field->name == name_quark) { - bt_ctf_object_put_ref(field->type); - field->type = bt_ctf_object_get_ref(field_type); - } - } - - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_add_field(struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *field_type, - const char *field_name) -{ - int ret = 0; - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - - /* - * TODO: check that `field_type` does not contain `type`, - * recursively. - */ - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (!field_name) { - BT_LOGW_STR("Invalid parameter: field name is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_STRUCT) { - BT_LOGW("Invalid parameter: field type is not a structure field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (ft == field_type) { - BT_LOGW("Invalid parameter: structure field type and field type to add are the same: " - "addr=%p", ft); - ret = -1; - goto end; - } - - if (add_structure_variant_member(struct_ft->fields, - struct_ft->field_name_to_index, field_type, field_name, - false)) { - BT_LOGW("Cannot add field to structure field type: " - "struct-ft-addr=%p, field-ft-addr=%p, field-name=\"%s\"", - ft, field_type, field_name); - ret = -1; - goto end; - } - - BT_LOGV("Added structure field type field: struct-ft-addr=%p, " - "field-ft-addr=%p, field-name=\"%s\"", ft, - field_type, field_name); - -end: - return ret; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_structure_get_field_count( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_STRUCT, - "Field type"); - return (int64_t) struct_ft->fields->len; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_borrow_field_by_index( - struct bt_ctf_field_type_common *ft, - const char **field_name, - struct bt_ctf_field_type_common **field_type, uint64_t index) -{ - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common_structure_field *field; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_STRUCT, - "Field type"); - BT_ASSERT_PRE(index < struct_ft->fields->len, - "Index is out of bounds: index=%" PRIu64 ", " - "count=%u, ft-addr=%p", - index, struct_ft->fields->len, ft); - field = BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(struct_ft, index); - - if (field_type) { - *field_type = field->type; - } - - if (field_name) { - *field_name = g_quark_to_string(field->name); - BT_ASSERT(*field_name); - } - - return 0; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_structure_borrow_field_type_by_name( - struct bt_ctf_field_type_common *ft, const char *name) -{ - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_common_structure_field *field; - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common *field_type = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_NON_NULL(name, "Name"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_STRUCT, - "Field type"); - name_quark = g_quark_try_string(name); - if (!name_quark) { - BT_LOGV("No such structure field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - goto end; - } - - if (!g_hash_table_lookup_extended(struct_ft->field_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *) &index)) { - BT_LOGV("No such structure field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - goto end; - } - - field = BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, index); - field_type = field->type; - -end: - return field_type; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_variant_borrow_tag_field_type( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common *tag_ft = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - - if (!var_ft->tag_ft) { - BT_LOGV("Variant field type has no tag field type: " - "addr=%p", ft); - goto end; - } - - tag_ft = BT_CTF_TO_COMMON(var_ft->tag_ft); - -end: - return tag_ft; -} - -BT_HIDDEN -const char *bt_ctf_field_type_common_variant_get_tag_name( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - const char *tag_name = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - - if (var_ft->tag_name->len == 0) { - BT_LOGV("Variant field type has no tag field name: " - "addr=%p", ft); - goto end; - } - - tag_name = var_ft->tag_name->str; - -end: - return tag_name; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_set_tag_name( - struct bt_ctf_field_type_common *ft, const char *name) -{ - int ret = 0; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", ft, bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (!bt_ctf_identifier_is_valid(name)) { - BT_LOGW("Invalid parameter: tag field name is not a valid CTF identifier: " - "variant-ft-addr=%p, tag-field-name=\"%s\"", - ft, name); - ret = -1; - goto end; - } - - g_string_assign(var_ft->tag_name, name); - BT_LOGV("Set variant field type's tag field name: addr=%p, " - "tag-field-name=\"%s\"", ft, name); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_add_field(struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *field_type, - const char *field_name) -{ - size_t i; - int ret = 0; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - GQuark field_name_quark = g_quark_from_string(field_name); - - /* - * TODO: check that `field_type` does not contain `type`, - * recursively. - */ - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (ft == field_type) { - BT_LOGW("Invalid parameter: variant field type and field type to add are the same: " - "addr=%p", ft); - ret = -1; - goto end; - } - - /* The user has explicitly provided a tag; validate against it. */ - if (var_ft->tag_ft) { - int name_found = 0; - - /* Make sure this name is present in the enum tag */ - for (i = 0; i < var_ft->tag_ft->entries->len; i++) { - struct bt_ctf_enumeration_mapping *mapping = - g_ptr_array_index(var_ft->tag_ft->entries, i); - - if (mapping->string == field_name_quark) { - name_found = 1; - break; - } - } - - if (!name_found) { - /* Validation failed */ - BT_LOGW("Invalid parameter: field name does not name a tag field type's mapping: " - "variant-ft-addr=%p, tag-ft-addr=%p, " - "tag-field-name=\"%s\"" - "field-ft-addr=%p, field-name=\"%s\"", - ft, var_ft->tag_ft, var_ft->tag_name->str, - field_type, field_name); - ret = -1; - goto end; - } - } - - if (add_structure_variant_member(var_ft->choices, - var_ft->choice_name_to_index, field_type, - field_name, true)) { - BT_LOGW("Cannot add field to variant field type: " - "variant-ft-addr=%p, field-ft-addr=%p, field-name=\"%s\"", - ft, field_type, field_name); - ret = -1; - goto end; - } - - BT_LOGV("Added variant field type field: variant-ft-addr=%p, " - "field-ft-addr=%p, field-name=\"%s\"", ft, - field_type, field_name); - -end: - return ret; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_variant_borrow_field_type_by_name( - struct bt_ctf_field_type_common *ft, - const char *field_name) -{ - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_common_variant_choice *choice; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common *field_type = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_NON_NULL(field_name, "Name"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - name_quark = g_quark_try_string(field_name); - if (!name_quark) { - BT_LOGV("No such variant field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, field_name); - goto end; - } - - if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, - GUINT_TO_POINTER(name_quark), NULL, (gpointer *) &index)) { - BT_LOGV("No such variant field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, field_name); - goto end; - } - - choice = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, index); - field_type = choice->type; - -end: - return field_type; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_variant_get_field_count( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Variant field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - return (int64_t) var_ft->choices->len; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_borrow_field_by_index( - struct bt_ctf_field_type_common *ft, - const char **field_name, - struct bt_ctf_field_type_common **field_type, uint64_t index) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common_variant_choice *choice; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - BT_ASSERT_PRE(index < var_ft->choices->len, - "Index is out of bounds: index=%" PRIu64 ", " - "count=%u, ft-addr=%p", - index, var_ft->choices->len, ft); - choice = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, index); - - if (field_type) { - *field_type = choice->type; - } - - if (field_name) { - *field_name = g_quark_to_string(choice->name); - BT_ASSERT(*field_name); - } - - return 0; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_variant_find_choice_index( - struct bt_ctf_field_type_common *ft, uint64_t uval, - bool is_signed) -{ - int64_t ret; - uint64_t i; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT(ft); - BT_ASSERT(ft->id == BT_CTF_FIELD_TYPE_ID_VARIANT); - - if (bt_ctf_field_type_common_variant_update_choices(ft)) { - ret = INT64_C(-1); - goto end; - } - - for (i = 0; i < var_ft->choices->len; i++) { - uint64_t range_i; - struct bt_ctf_field_type_common_variant_choice *choice = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - var_ft, i); - - for (range_i = 0; range_i < choice->ranges->len; range_i++) { - struct bt_ctf_field_type_common_variant_choice_range *range = - &g_array_index( - choice->ranges, - struct bt_ctf_field_type_common_variant_choice_range, - range_i); - - if (is_signed) { - int64_t tag_ival = (int64_t) uval; - - if (tag_ival >= range->lower.i && - tag_ival <= range->upper.i) { - goto found; - } - } else { - if (uval >= range->lower.u && - uval <= range->upper.u) { - goto found; - } - } - } - } - - /* Range not found */ - ret = INT64_C(-1); - goto end; - -found: - ret = (int64_t) i; - -end: - return ret; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_array_borrow_element_field_type( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ARRAY, - "Field type"); - BT_ASSERT(array_ft && array_ft->element_ft); - return array_ft->element_ft; -} - -BT_HIDDEN -int bt_ctf_field_type_common_array_set_element_field_type( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *element_ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: array field type is NULL."); - ret = -1; - goto end; - } - - if (!element_ft) { - BT_LOGW_STR("Invalid parameter: element field type is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_ARRAY) { - BT_LOGW("Invalid parameter: field type is not an array field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (array_ft->element_ft) { - BT_CTF_OBJECT_PUT_REF_AND_RESET(array_ft->element_ft); - } - - array_ft->element_ft = bt_ctf_object_get_ref(element_ft); - BT_LOGV("Set array field type's element field type: array-ft-addr=%p, " - "element-ft-addr=%p", ft, element_ft); - -end: - return ret; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_array_get_length(struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_ARRAY, - "Field type"); - return (int64_t) array_ft->length; -} - -BT_HIDDEN -struct bt_ctf_field_type_common *bt_ctf_field_type_common_sequence_borrow_element_field_type( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_SEQUENCE, - "Field type"); - return seq_ft->element_ft; -} - -BT_HIDDEN -int bt_ctf_field_type_common_sequence_set_element_field_type( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *element_ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: sequence field type is NULL."); - ret = -1; - goto end; - } - - if (!element_ft) { - BT_LOGW_STR("Invalid parameter: element field type is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { - BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (seq_ft->element_ft) { - BT_CTF_OBJECT_PUT_REF_AND_RESET(seq_ft->element_ft); - } - - seq_ft->element_ft = element_ft; - bt_ctf_object_get_ref(seq_ft->element_ft); - BT_LOGV("Set sequence field type's element field type: sequence-ft-addr=%p, " - "element-ft-addr=%p", ft, element_ft); - -end: - return ret; -} - -BT_HIDDEN -const char *bt_ctf_field_type_common_sequence_get_length_field_name( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_SEQUENCE, - "Field type"); - return seq_ft->length_field_name ? - seq_ft->length_field_name->str : NULL; -} - -BT_HIDDEN -enum bt_ctf_string_encoding bt_ctf_field_type_common_string_get_encoding( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_string *string_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_STRING, - "Field type"); - return string_ft->encoding; -} - -BT_HIDDEN -int bt_ctf_field_type_common_string_set_encoding(struct bt_ctf_field_type_common *ft, - enum bt_ctf_string_encoding encoding) -{ - int ret = 0; - struct bt_ctf_field_type_common_string *string_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_STRING) { - BT_LOGW("Invalid parameter: field type is not a string field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - if (encoding != BT_CTF_STRING_ENCODING_UTF8 && - encoding != BT_CTF_STRING_ENCODING_ASCII) { - BT_LOGW("Invalid parameter: unknown string encoding: " - "addr=%p, encoding=%d", ft, encoding); - ret = -1; - goto end; - } - - string_ft->encoding = encoding; - BT_LOGV("Set string field type's encoding: addr=%p, encoding=%s", - ft, bt_ctf_string_encoding_string(encoding)); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_get_alignment(struct bt_ctf_field_type_common *ft) -{ - int ret; - enum bt_ctf_field_type_id type_id; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - - if (ft->frozen) { - ret = (int) ft->alignment; - goto end; - } - - type_id = bt_ctf_field_type_common_get_type_id(ft); - switch (type_id) { - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - { - struct bt_ctf_field_type_common *element_ft = - bt_ctf_field_type_common_sequence_borrow_element_field_type(ft); - - BT_ASSERT(element_ft); - ret = bt_ctf_field_type_common_get_alignment(element_ft); - break; - } - case BT_CTF_FIELD_TYPE_ID_ARRAY: - { - struct bt_ctf_field_type_common *element_ft = - bt_ctf_field_type_common_array_borrow_element_field_type(ft); - - BT_ASSERT(element_ft); - ret = bt_ctf_field_type_common_get_alignment(element_ft); - break; - } - case BT_CTF_FIELD_TYPE_ID_STRUCT: - { - int64_t i, element_count; - - element_count = bt_ctf_field_type_common_structure_get_field_count( - ft); - BT_ASSERT(element_count >= 0); - - for (i = 0; i < element_count; i++) { - struct bt_ctf_field_type_common *field = NULL; - int field_alignment; - - ret = bt_ctf_field_type_common_structure_borrow_field_by_index( - ft, NULL, &field, i); - BT_ASSERT(ret == 0); - BT_ASSERT(field); - field_alignment = bt_ctf_field_type_common_get_alignment( - field); - if (field_alignment < 0) { - ret = field_alignment; - goto end; - } - - ft->alignment = MAX(field_alignment, ft->alignment); - } - ret = (int) ft->alignment; - break; - } - case BT_CTF_FIELD_TYPE_ID_UNKNOWN: - BT_LOGW("Invalid parameter: unknown field type ID: " - "addr=%p, ft-id=%d", ft, type_id); - ret = -1; - break; - default: - ret = (int) ft->alignment; - break; - } - -end: - return ret; -} - -static inline -int is_power_of_two(unsigned int value) -{ - return ((value & (value - 1)) == 0) && value > 0; -} - -BT_HIDDEN -int bt_ctf_field_type_common_set_alignment(struct bt_ctf_field_type_common *ft, - unsigned int alignment) -{ - int ret = 0; - enum bt_ctf_field_type_id type_id; - - /* Alignment must be a power of two */ - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (!is_power_of_two(alignment)) { - BT_LOGW("Invalid parameter: alignment is not a power of two: " - "addr=%p, align=%u", ft, alignment); - ret = -1; - goto end; - } - - type_id = bt_ctf_field_type_common_get_type_id(ft); - if (type_id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { - BT_LOGW("Invalid parameter: unknown field type ID: " - "addr=%p, ft-id=%d", ft, type_id); - ret = -1; - goto end; - } - - if (ft->id == BT_CTF_FIELD_TYPE_ID_STRING && alignment != CHAR_BIT) { - BT_LOGW("Invalid parameter: alignment must be %u for a string field type: " - "addr=%p, align=%u", CHAR_BIT, ft, alignment); - ret = -1; - goto end; - } - - if (type_id == BT_CTF_FIELD_TYPE_ID_VARIANT || - type_id == BT_CTF_FIELD_TYPE_ID_SEQUENCE || - type_id == BT_CTF_FIELD_TYPE_ID_ARRAY) { - /* Setting an alignment on these types makes no sense */ - BT_LOGW("Invalid parameter: cannot set the alignment of this field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - ft->alignment = alignment; - ret = 0; - BT_LOGV("Set field type's alignment: addr=%p, align=%u", - ft, alignment); - -end: - return ret; -} - -BT_HIDDEN -enum bt_ctf_byte_order bt_ctf_field_type_common_get_byte_order( - struct bt_ctf_field_type_common *ft) -{ - enum bt_ctf_byte_order ret = BT_CTF_BYTE_ORDER_UNKNOWN; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_INTEGER: - { - struct bt_ctf_field_type_common_integer *integer = - BT_CTF_FROM_COMMON(ft); - - ret = integer->user_byte_order; - break; - } - case BT_CTF_FIELD_TYPE_ID_ENUM: - { - struct bt_ctf_field_type_common_enumeration *enum_ft = - BT_CTF_FROM_COMMON(ft); - - ret = bt_ctf_field_type_common_get_byte_order( - BT_CTF_TO_COMMON(enum_ft->container_ft)); - break; - } - case BT_CTF_FIELD_TYPE_ID_FLOAT: - { - struct bt_ctf_field_type_common_floating_point *floating_point = - BT_CTF_FROM_COMMON(ft); - ret = floating_point->user_byte_order; - break; - } - default: - BT_LOGW("Invalid parameter: cannot get the byte order of this field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - goto end; - } - - BT_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; -} - -BT_HIDDEN -int bt_ctf_field_type_common_set_byte_order(struct bt_ctf_field_type_common *ft, - enum bt_ctf_byte_order byte_order) -{ - int ret = 0; - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->frozen) { - BT_LOGW("Invalid parameter: field type is frozen: addr=%p", - ft); - ret = -1; - goto end; - } - - if (byte_order != BT_CTF_BYTE_ORDER_NATIVE && - byte_order != BT_CTF_BYTE_ORDER_LITTLE_ENDIAN && - byte_order != BT_CTF_BYTE_ORDER_BIG_ENDIAN && - byte_order != BT_CTF_BYTE_ORDER_NETWORK) { - BT_LOGW("Invalid parameter: invalid byte order: " - "addr=%p, bo=%s", ft, - bt_ctf_byte_order_string(byte_order)); - ret = -1; - goto end; - } - - if (ft->methods->set_byte_order) { - ft->methods->set_byte_order(ft, byte_order); - } - - BT_LOGV("Set field type's byte order: addr=%p, bo=%s", - ft, bt_ctf_byte_order_string(byte_order)); - -end: - return ret; -} - -BT_HIDDEN -enum bt_ctf_field_type_id bt_ctf_field_type_common_get_type_id( - struct bt_ctf_field_type_common *ft) -{ - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - return ft->id; -} - -BT_HIDDEN -void bt_ctf_field_type_common_freeze(struct bt_ctf_field_type_common *ft) -{ - if (!ft || ft->frozen) { - return; - } - - BT_ASSERT(ft->methods->freeze); - ft->methods->freeze(ft); -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_variant_borrow_field_type_signed( - struct bt_ctf_field_type_common_variant *var_ft, - int64_t tag_value) -{ - struct bt_ctf_field_type_common *field_type = NULL; - GQuark field_name_quark; - gpointer index; - struct bt_ctf_field_type_common_variant_choice *choice; - struct range_overlap_query query = { - .range_start._signed = tag_value, - .range_end._signed = tag_value, - .mapping_name = 0, - .overlaps = 0, - }; - - g_ptr_array_foreach(var_ft->tag_ft->entries, check_ranges_overlap, - &query); - if (!query.overlaps) { - goto end; - } - - field_name_quark = query.mapping_name; - if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, - GUINT_TO_POINTER(field_name_quark), NULL, &index)) { - goto end; - } - - choice = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, - (size_t) index); - field_type = choice->type; - -end: - return field_type; -} - -BT_HIDDEN -struct bt_ctf_field_type_common * -bt_ctf_field_type_common_variant_borrow_field_type_unsigned( - struct bt_ctf_field_type_common_variant *var_ft, - uint64_t tag_value) -{ - struct bt_ctf_field_type_common *field_type = NULL; - GQuark field_name_quark; - gpointer index; - struct bt_ctf_field_type_common_variant_choice *choice; - struct range_overlap_query query = { - .range_start._unsigned = tag_value, - .range_end._unsigned = tag_value, - .mapping_name = 0, - .overlaps = 0, - }; - - g_ptr_array_foreach(var_ft->tag_ft->entries, - check_ranges_overlap_unsigned, &query); - if (!query.overlaps) { - goto end; - } - - field_name_quark = query.mapping_name; - if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, - GUINT_TO_POINTER(field_name_quark), NULL, &index)) { - goto end; - } - - choice = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, - (size_t) index); - field_type = choice->type; - -end: - return field_type; -} - -BT_HIDDEN -struct bt_ctf_field_type_common *bt_ctf_field_type_common_copy( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common *ft_copy = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT(ft->methods->copy); - ft_copy = ft->methods->copy(ft); - if (!ft_copy) { - BT_LOGE_STR("Cannot copy field type."); - goto end; - } - - ft_copy->alignment = ft->alignment; - -end: - return ft_copy; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_get_field_name_index( - struct bt_ctf_field_type_common *ft, const char *name) -{ - int ret; - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_NON_NULL(name, "Name"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_STRUCT, - "Field type"); - - name_quark = g_quark_try_string(name); - if (!name_quark) { - BT_LOGV("No such structure field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - ret = -1; - goto end; - } - - if (!g_hash_table_lookup_extended(struct_ft->field_name_to_index, - GUINT_TO_POINTER(name_quark), - NULL, (gpointer *) &index)) { - BT_LOGV("No such structure field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - ret = -1; - goto end; - } - - ret = (int) index; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_get_field_name_index( - struct bt_ctf_field_type_common *ft, const char *name) -{ - int ret; - size_t index; - GQuark name_quark; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_NON_NULL(name, "Name"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - name_quark = g_quark_try_string(name); - if (!name_quark) { - BT_LOGV("No such variant field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - ret = -1; - goto end; - } - - if (!g_hash_table_lookup_extended(var_ft->choice_name_to_index, - GUINT_TO_POINTER(name_quark), - NULL, (gpointer *) &index)) { - BT_LOGV("No such variant field type field name: " - "ft-addr=%p, field-name=\"%s\"", - ft, name); - ret = -1; - goto end; - } - - ret = (int) index; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_sequence_set_length_field_path( - struct bt_ctf_field_type_common *ft, struct bt_ctf_field_path *path) -{ - int ret = 0; - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_SEQUENCE) { - BT_LOGW("Invalid parameter: field type is not a sequence field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - bt_ctf_object_get_ref(path); - BT_CTF_OBJECT_MOVE_REF(seq_ft->length_field_path, path); - BT_LOGV("Set sequence field type's length field path: ft-addr=%p, " - "field-path-addr=%p", ft, path); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_set_tag_field_path( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_path *path) -{ - int ret = 0; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - ret = -1; - goto end; - } - - if (ft->id != BT_CTF_FIELD_TYPE_ID_VARIANT) { - BT_LOGW("Invalid parameter: field type is not a variant field type: " - "addr=%p, ft-id=%s", ft, - bt_ctf_field_type_id_string(ft->id)); - ret = -1; - goto end; - } - - bt_ctf_object_get_ref(path); - BT_CTF_OBJECT_MOVE_REF(var_ft->tag_field_path, path); - BT_LOGV("Set variant field type's tag field path: ft-addr=%p, " - "field-path-addr=%p", ft, path); - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_set_tag_field_type( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_field_type_common *tag_ft) -{ - int ret = 0; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - if (!ft) { - BT_LOGW_STR("Invalid parameter: variant field type is NULL."); - ret = -1; - goto end; - } - - if (!tag_ft) { - BT_LOGW_STR("Invalid parameter: tag field type is NULL."); - ret = -1; - goto end; - } - - if (tag_ft->id != BT_CTF_FIELD_TYPE_ID_ENUM) { - BT_LOGW("Invalid parameter: tag field type is not an enumeration field type: " - "addr=%p, ft-id=%s", tag_ft, - bt_ctf_field_type_id_string(tag_ft->id)); - ret = -1; - goto end; - } - - bt_ctf_object_put_ref(var_ft->tag_ft); - var_ft->tag_ft = bt_ctf_object_get_ref(tag_ft); - BT_LOGV("Set variant field type's tag field type: variant-ft-addr=%p, " - "tag-ft-addr=%p", ft, tag_ft); - -end: - return ret; -} - -BT_HIDDEN -void bt_ctf_field_type_common_generic_freeze(struct bt_ctf_field_type_common *ft) -{ - ft->frozen = 1; -} - -BT_HIDDEN -void bt_ctf_field_type_common_enumeration_freeze_recursive( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - BT_LOGD("Freezing enumeration field type object: addr=%p", ft); - bt_ctf_field_type_common_enumeration_set_range_overlap(enum_ft); - bt_ctf_field_type_common_generic_freeze(ft); - BT_LOGD("Freezing enumeration field type object's container field type: int-ft-addr=%p", - enum_ft->container_ft); - bt_ctf_field_type_common_freeze(BT_CTF_TO_COMMON(enum_ft->container_ft)); -} - -BT_HIDDEN -void bt_ctf_field_type_common_structure_freeze_recursive( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - uint64_t i; - - /* Cache the alignment */ - BT_LOGD("Freezing structure field type object: addr=%p", ft); - ft->alignment = bt_ctf_field_type_common_get_alignment(ft); - bt_ctf_field_type_common_generic_freeze(ft); - - for (i = 0; i < struct_ft->fields->len; i++) { - struct bt_ctf_field_type_common_structure_field *field = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX(ft, i); - - BT_LOGD("Freezing structure field type field: " - "ft-addr=%p, name=\"%s\"", - field->type, g_quark_to_string(field->name)); - bt_ctf_field_type_common_freeze(field->type); - } -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_update_choices(struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - uint64_t i; - int ret = 0; - bool is_signed; - - if (ft->frozen && var_ft->choices_up_to_date) { - goto end; - } - - BT_ASSERT(var_ft->tag_ft); - is_signed = !!var_ft->tag_ft->container_ft->is_signed; - - for (i = 0; i < var_ft->choices->len; i++) { - struct bt_ctf_field_type_common_variant_choice *choice = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, i); - const char *choice_name = g_quark_to_string(choice->name); - struct bt_ctf_field_type_enumeration_mapping_iterator *iter = - bt_ctf_field_type_common_enumeration_find_mappings_by_name( - BT_CTF_TO_COMMON(var_ft->tag_ft), choice_name); - - if (!iter) { - ret = -1; - goto end; - } - - BT_ASSERT(choice->ranges); - g_array_set_size(choice->ranges, 0); - - while (bt_ctf_field_type_enumeration_mapping_iterator_next(iter) == 0) { - struct bt_ctf_field_type_common_variant_choice_range range; - - if (is_signed) { - ret = bt_ctf_field_type_enumeration_mapping_iterator_signed_get( - iter, NULL, - &range.lower.i, &range.upper.i); - } else { - ret = bt_ctf_field_type_enumeration_mapping_iterator_unsigned_get( - iter, NULL, - &range.lower.u, &range.upper.u); - } - - BT_ASSERT(ret == 0); - g_array_append_val(choice->ranges, range); - } - - bt_ctf_object_put_ref(iter); - } - - var_ft->choices_up_to_date = true; - -end: - return ret; -} - -BT_HIDDEN -void bt_ctf_field_type_common_variant_freeze_recursive( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - uint64_t i; - - BT_LOGD("Freezing variant field type object: addr=%p", ft); - bt_ctf_field_type_common_generic_freeze(ft); - - for (i = 0; i < var_ft->choices->len; i++) { - struct bt_ctf_field_type_common_variant_choice *choice = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(ft, i); - - BT_LOGD("Freezing variant field type member: " - "ft-addr=%p, name=\"%s\"", - choice->type, g_quark_to_string(choice->name)); - bt_ctf_field_type_common_freeze(choice->type); - } -} - -BT_HIDDEN -void bt_ctf_field_type_common_array_freeze_recursive( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - /* Cache the alignment */ - BT_LOGD("Freezing array field type object: addr=%p", ft); - ft->alignment = bt_ctf_field_type_common_get_alignment(ft); - bt_ctf_field_type_common_generic_freeze(ft); - BT_LOGD("Freezing array field type object's element field type: element-ft-addr=%p", - array_ft->element_ft); - bt_ctf_field_type_common_freeze(array_ft->element_ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_sequence_freeze_recursive( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - /* Cache the alignment */ - BT_LOGD("Freezing sequence field type object: addr=%p", ft); - ft->alignment = bt_ctf_field_type_common_get_alignment(ft); - bt_ctf_field_type_common_generic_freeze(ft); - BT_LOGD("Freezing sequence field type object's element field type: element-ft-addr=%p", - seq_ft->element_ft); - bt_ctf_field_type_common_freeze(seq_ft->element_ft); -} - -BT_HIDDEN -void bt_ctf_field_type_common_integer_set_byte_order( - struct bt_ctf_field_type_common *ft, enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_common_integer *int_ft = BT_CTF_FROM_COMMON(ft); - - int_ft->user_byte_order = byte_order; -} - -BT_HIDDEN -void bt_ctf_field_type_common_enumeration_set_byte_order_recursive( - struct bt_ctf_field_type_common *ft, enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_common_enumeration *enum_ft = BT_CTF_FROM_COMMON(ft); - - bt_ctf_field_type_common_set_byte_order(BT_CTF_TO_COMMON(enum_ft->container_ft), - byte_order); -} - -BT_HIDDEN -void bt_ctf_field_type_common_floating_point_set_byte_order( - struct bt_ctf_field_type_common *ft, enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - - flt_ft->user_byte_order = byte_order; -} - -BT_HIDDEN -void bt_ctf_field_type_common_structure_set_byte_order_recursive( - struct bt_ctf_field_type_common *ft, - enum bt_ctf_byte_order byte_order) -{ - int i; - struct bt_ctf_field_type_common_structure *struct_ft = BT_CTF_FROM_COMMON(ft); - - for (i = 0; i < struct_ft->fields->len; i++) { - struct bt_ctf_field_type_common_structure_field *field = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - struct_ft, i); - struct bt_ctf_field_type_common *field_type = field->type; - - bt_ctf_field_type_common_set_byte_order(field_type, byte_order); - } -} - -BT_HIDDEN -void bt_ctf_field_type_common_variant_set_byte_order_recursive( - struct bt_ctf_field_type_common *ft, - enum bt_ctf_byte_order byte_order) -{ - int i; - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - for (i = 0; i < var_ft->choices->len; i++) { - struct bt_ctf_field_type_common_variant_choice *choice = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - var_ft, i); - struct bt_ctf_field_type_common *field_type = choice->type; - - bt_ctf_field_type_common_set_byte_order(field_type, byte_order); - } -} - -BT_HIDDEN -void bt_ctf_field_type_common_array_set_byte_order_recursive( - struct bt_ctf_field_type_common *ft, - enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_common_array *array_ft = BT_CTF_FROM_COMMON(ft); - - bt_ctf_field_type_common_set_byte_order(array_ft->element_ft, byte_order); -} - -BT_HIDDEN -void bt_ctf_field_type_common_sequence_set_byte_order_recursive( - struct bt_ctf_field_type_common *ft, - enum bt_ctf_byte_order byte_order) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - bt_ctf_field_type_common_set_byte_order(seq_ft->element_ft, byte_order); -} - - -BT_HIDDEN -int bt_ctf_field_type_common_integer_compare(struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - struct bt_ctf_field_type_common_integer *int_ft_a = BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_integer *int_ft_b = BT_CTF_FROM_COMMON(ft_b); - - /* Length */ - if (int_ft_a->size != int_ft_b->size) { - BT_LOGV("Integer field types differ: different sizes: " - "ft-a-size=%u, ft-b-size=%u", - int_ft_a->size, int_ft_b->size); - goto end; - } - - /* Byte order */ - if (int_ft_a->user_byte_order != int_ft_b->user_byte_order) { - BT_LOGV("Integer field types differ: different byte orders: " - "ft-a-bo=%s, ft-b-bo=%s", - bt_ctf_byte_order_string(int_ft_a->user_byte_order), - bt_ctf_byte_order_string(int_ft_b->user_byte_order)); - goto end; - } - - /* Signedness */ - if (int_ft_a->is_signed != int_ft_b->is_signed) { - BT_LOGV("Integer field types differ: different signedness: " - "ft-a-is-signed=%d, ft-b-is-signed=%d", - int_ft_a->is_signed, - int_ft_b->is_signed); - goto end; - } - - /* Base */ - if (int_ft_a->base != int_ft_b->base) { - BT_LOGV("Integer field types differ: different bases: " - "ft-a-base=%s, ft-b-base=%s", - bt_ctf_integer_base_string(int_ft_a->base), - bt_ctf_integer_base_string(int_ft_b->base)); - goto end; - } - - /* Encoding */ - if (int_ft_a->encoding != int_ft_b->encoding) { - BT_LOGV("Integer field types differ: different encodings: " - "ft-a-encoding=%s, ft-b-encoding=%s", - bt_ctf_string_encoding_string(int_ft_a->encoding), - bt_ctf_string_encoding_string(int_ft_b->encoding)); - goto end; - } - - /* Mapped clock class */ - if (int_ft_a->mapped_clock_class) { - if (!int_ft_b->mapped_clock_class) { - BT_LOGV_STR("Integer field types differ: field type A " - "has a mapped clock class, but field type B " - "does not."); - goto end; - } - - if (bt_ctf_clock_class_compare(int_ft_a->mapped_clock_class, - int_ft_b->mapped_clock_class) != 0) { - BT_LOGV_STR("Integer field types differ: different " - "mapped clock classes."); - } - } else { - if (int_ft_b->mapped_clock_class) { - BT_LOGV_STR("Integer field types differ: field type A " - "has no description, but field type B has one."); - goto end; - } - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_floating_point_compare( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - struct bt_ctf_field_type_common_floating_point *flt_ft_a = - BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_floating_point *flt_ft_b = - BT_CTF_FROM_COMMON(ft_b); - - /* Byte order */ - if (flt_ft_a->user_byte_order != flt_ft_b->user_byte_order) { - BT_LOGV("Floating point number field types differ: different byte orders: " - "ft-a-bo=%s, ft-b-bo=%s", - bt_ctf_byte_order_string(flt_ft_a->user_byte_order), - bt_ctf_byte_order_string(flt_ft_b->user_byte_order)); - goto end; - } - - /* Exponent length */ - if (flt_ft_a->exp_dig != flt_ft_b->exp_dig) { - BT_LOGV("Floating point number field types differ: different exponent sizes: " - "ft-a-exp-size=%u, ft-b-exp-size=%u", - flt_ft_a->exp_dig, flt_ft_b->exp_dig); - goto end; - } - - /* Mantissa length */ - if (flt_ft_a->mant_dig != flt_ft_b->mant_dig) { - BT_LOGV("Floating point number field types differ: different mantissa sizes: " - "ft-a-mant-size=%u, ft-b-mant-size=%u", - flt_ft_a->mant_dig, flt_ft_b->mant_dig); - goto end; - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -static -int compare_enumeration_mappings(struct bt_ctf_enumeration_mapping *mapping_a, - struct bt_ctf_enumeration_mapping *mapping_b) -{ - int ret = 1; - - /* Label */ - if (mapping_a->string != mapping_b->string) { - BT_LOGV("Enumeration field type mappings differ: different names: " - "mapping-a-name=\"%s\", mapping-b-name=\"%s\"", - g_quark_to_string(mapping_a->string), - g_quark_to_string(mapping_b->string)); - goto end; - } - - /* Range start */ - if (mapping_a->range_start._unsigned != - mapping_b->range_start._unsigned) { - BT_LOGV("Enumeration field type mappings differ: different starts of range: " - "mapping-a-range-start-unsigned=%" PRIu64 ", " - "mapping-b-range-start-unsigned=%" PRIu64, - mapping_a->range_start._unsigned, - mapping_b->range_start._unsigned); - goto end; - } - - /* Range end */ - if (mapping_a->range_end._unsigned != - mapping_b->range_end._unsigned) { - BT_LOGV("Enumeration field type mappings differ: different ends of range: " - "mapping-a-range-end-unsigned=%" PRIu64 ", " - "mapping-b-range-end-unsigned=%" PRIu64, - mapping_a->range_end._unsigned, - mapping_b->range_end._unsigned); - goto end; - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_enumeration_compare_recursive( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - int i; - struct bt_ctf_field_type_common_enumeration *enum_ft_a = - BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_enumeration *enum_ft_b = - BT_CTF_FROM_COMMON(ft_b); - - /* Container field type */ - ret = bt_ctf_field_type_common_compare( - BT_CTF_TO_COMMON(enum_ft_a->container_ft), - BT_CTF_TO_COMMON(enum_ft_b->container_ft)); - if (ret) { - BT_LOGV("Enumeration field types differ: different container field types: " - "ft-a-container-ft-addr=%p, ft-b-container-ft-addr=%p", - enum_ft_a->container_ft, enum_ft_b->container_ft); - goto end; - } - - ret = 1; - - /* Entries */ - if (enum_ft_a->entries->len != enum_ft_b->entries->len) { - goto end; - } - - for (i = 0; i < enum_ft_a->entries->len; ++i) { - struct bt_ctf_enumeration_mapping *mapping_a = - g_ptr_array_index(enum_ft_a->entries, i); - struct bt_ctf_enumeration_mapping *mapping_b = - g_ptr_array_index(enum_ft_b->entries, i); - - if (compare_enumeration_mappings(mapping_a, mapping_b)) { - BT_LOGV("Enumeration field types differ: different mappings: " - "ft-a-mapping-addr=%p, ft-b-mapping-addr=%p, " - "ft-a-mapping-name=\"%s\", ft-b-mapping-name=\"%s\"", - mapping_a, mapping_b, - g_quark_to_string(mapping_a->string), - g_quark_to_string(mapping_b->string)); - goto end; - } - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_string_compare(struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - struct bt_ctf_field_type_common_string *string_ft_a = BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_string *string_ft_b = BT_CTF_FROM_COMMON(ft_b); - - /* Encoding */ - if (string_ft_a->encoding != string_ft_b->encoding) { - BT_LOGV("String field types differ: different encodings: " - "ft-a-encoding=%s, ft-b-encoding=%s", - bt_ctf_string_encoding_string(string_ft_a->encoding), - bt_ctf_string_encoding_string(string_ft_b->encoding)); - goto end; - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -static -int compare_structure_variant_members( - struct bt_ctf_field_type_common *member_a_ft, - struct bt_ctf_field_type_common *member_b_ft, - GQuark member_a_name, GQuark member_b_name) -{ - int ret = 1; - - /* Label */ - if (member_a_name != member_b_name) { - BT_LOGV("Structure/variant field type fields differ: different names: " - "field-a-name=%s, field-b-name=%s", - g_quark_to_string(member_a_name), - g_quark_to_string(member_b_name)); - goto end; - } - - /* Type */ - ret = bt_ctf_field_type_common_compare(member_a_ft, member_b_ft); - if (ret == 1) { - BT_LOGV("Structure/variant field type fields differ: different field types: " - "field-name=\"%s\", field-a-ft-addr=%p, field-b-ft-addr=%p", - g_quark_to_string(member_a_name), - member_a_ft, member_b_ft); - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_structure_compare_recursive( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - int i; - struct bt_ctf_field_type_common_structure *struct_ft_a = - BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_structure *struct_ft_b = - BT_CTF_FROM_COMMON(ft_b); - - /* Alignment */ - if (bt_ctf_field_type_common_get_alignment(ft_a) != - bt_ctf_field_type_common_get_alignment(ft_b)) { - BT_LOGV("Structure field types differ: different alignments: " - "ft-a-align=%u, ft-b-align=%u", - bt_ctf_field_type_common_get_alignment(ft_a), - bt_ctf_field_type_common_get_alignment(ft_b)); - goto end; - } - - /* Fields */ - if (struct_ft_a->fields->len != struct_ft_b->fields->len) { - BT_LOGV("Structure field types differ: different field counts: " - "ft-a-field-count=%u, ft-b-field-count=%u", - struct_ft_a->fields->len, struct_ft_b->fields->len); - goto end; - } - - for (i = 0; i < struct_ft_a->fields->len; ++i) { - struct bt_ctf_field_type_common_structure_field *field_a = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - struct_ft_a, i); - struct bt_ctf_field_type_common_structure_field *field_b = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - struct_ft_b, i); - - ret = compare_structure_variant_members(field_a->type, - field_b->type, field_a->name, field_b->name); - if (ret) { - /* compare_structure_variant_members() logs what differs */ - BT_LOGV_STR("Structure field types differ: different fields."); - goto end; - } - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_variant_compare_recursive( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - int i; - struct bt_ctf_field_type_common_variant *var_ft_a = BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_variant *var_ft_b = BT_CTF_FROM_COMMON(ft_b); - - /* Tag name */ - if (strcmp(var_ft_a->tag_name->str, var_ft_b->tag_name->str)) { - BT_LOGV("Variant field types differ: different tag field names: " - "ft-a-tag-field-name=\"%s\", ft-b-tag-field-name=\"%s\"", - var_ft_a->tag_name->str, var_ft_b->tag_name->str); - goto end; - } - - /* Tag type */ - ret = bt_ctf_field_type_common_compare(BT_CTF_TO_COMMON(var_ft_a->tag_ft), - BT_CTF_TO_COMMON(var_ft_b->tag_ft)); - if (ret) { - BT_LOGV("Variant field types differ: different tag field types: " - "ft-a-tag-ft-addr=%p, ft-b-tag-ft-addr=%p", - var_ft_a->tag_ft, var_ft_b->tag_ft); - goto end; - } - - ret = 1; - - /* Fields */ - if (var_ft_a->choices->len != var_ft_b->choices->len) { - BT_LOGV("Variant field types differ: different field counts: " - "ft-a-field-count=%u, ft-b-field-count=%u", - var_ft_a->choices->len, var_ft_b->choices->len); - goto end; - } - - for (i = 0; i < var_ft_a->choices->len; ++i) { - struct bt_ctf_field_type_common_variant_choice *choice_a = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - var_ft_a, i); - struct bt_ctf_field_type_common_variant_choice *choice_b = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - var_ft_b, i); - - ret = compare_structure_variant_members(choice_a->type, - choice_b->type, choice_a->name, choice_b->name); - if (ret) { - /* compare_structure_variant_members() logs what differs */ - BT_LOGV_STR("Variant field types differ: different fields."); - goto end; - } - } - - /* Equal */ - ret = 0; - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_array_compare_recursive( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - struct bt_ctf_field_type_common_array *array_ft_a = BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_array *array_ft_b = BT_CTF_FROM_COMMON(ft_b); - - /* Length */ - if (array_ft_a->length != array_ft_b->length) { - BT_LOGV("Structure field types differ: different lengths: " - "ft-a-length=%u, ft-b-length=%u", - array_ft_a->length, array_ft_b->length); - goto end; - } - - /* Element type */ - ret = bt_ctf_field_type_common_compare(array_ft_a->element_ft, - array_ft_b->element_ft); - if (ret == 1) { - BT_LOGV("Array field types differ: different element field types: " - "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", - array_ft_a->element_ft, array_ft_b->element_ft); - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_sequence_compare_recursive( - struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = -1; - struct bt_ctf_field_type_common_sequence *seq_ft_a = BT_CTF_FROM_COMMON(ft_a); - struct bt_ctf_field_type_common_sequence *seq_ft_b = BT_CTF_FROM_COMMON(ft_b); - - /* Length name */ - if (strcmp(seq_ft_a->length_field_name->str, - seq_ft_b->length_field_name->str)) { - BT_LOGV("Sequence field types differ: different length field names: " - "ft-a-length-field-name=\"%s\", " - "ft-b-length-field-name=\"%s\"", - seq_ft_a->length_field_name->str, - seq_ft_b->length_field_name->str); - goto end; - } - - /* Element type */ - ret = bt_ctf_field_type_common_compare(seq_ft_a->element_ft, - seq_ft_b->element_ft); - if (ret == 1) { - BT_LOGV("Sequence field types differ: different element field types: " - "ft-a-element-ft-addr=%p, ft-b-element-ft-addr=%p", - seq_ft_a->element_ft, seq_ft_b->element_ft); - } - -end: - return ret; -} - -BT_HIDDEN -int bt_ctf_field_type_common_compare(struct bt_ctf_field_type_common *ft_a, - struct bt_ctf_field_type_common *ft_b) -{ - int ret = 1; - - BT_ASSERT_PRE_NON_NULL(ft_a, "Field type A"); - BT_ASSERT_PRE_NON_NULL(ft_b, "Field type B"); - - if (ft_a == ft_b) { - /* Same reference: equal (even if both are NULL) */ - ret = 0; - goto end; - } - - if (!ft_a) { - BT_LOGW_STR("Invalid parameter: field type A is NULL."); - ret = -1; - goto end; - } - - if (!ft_b) { - BT_LOGW_STR("Invalid parameter: field type B is NULL."); - ret = -1; - goto end; - } - - if (ft_a->id != ft_b->id) { - /* Different type IDs */ - BT_LOGV("Field types differ: different IDs: " - "ft-a-addr=%p, ft-b-addr=%p, " - "ft-a-id=%s, ft-b-id=%s", - ft_a, ft_b, - bt_ctf_field_type_id_string(ft_a->id), - bt_ctf_field_type_id_string(ft_b->id)); - goto end; - } - - if (ft_a->id == BT_CTF_FIELD_TYPE_ID_UNKNOWN) { - /* Both have unknown type IDs */ - BT_LOGW_STR("Invalid parameter: field type IDs are unknown."); - goto end; - } - - BT_ASSERT(ft_a->methods->compare); - ret = ft_a->methods->compare(ft_a, ft_b); - if (ret == 1) { - BT_LOGV("Field types differ: ft-a-addr=%p, ft-b-addr=%p", - ft_a, ft_b); - } - -end: - return ret; -} - -BT_HIDDEN -int64_t bt_ctf_field_type_common_get_field_count(struct bt_ctf_field_type_common *ft) -{ - int64_t field_count = -1; - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_STRUCT: - field_count = - bt_ctf_field_type_common_structure_get_field_count(ft); - break; - case BT_CTF_FIELD_TYPE_ID_VARIANT: - field_count = - bt_ctf_field_type_common_variant_get_field_count(ft); - break; - case BT_CTF_FIELD_TYPE_ID_ARRAY: - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - /* - * Array and sequence types always contain a single member - * (the element type). - */ - field_count = 1; - break; - default: - break; - } - - return field_count; -} - -BT_HIDDEN -struct bt_ctf_field_type_common *bt_ctf_field_type_common_borrow_field_at_index( - struct bt_ctf_field_type_common *ft, int index) -{ - struct bt_ctf_field_type_common *field_type = NULL; - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_STRUCT: - { - int ret = bt_ctf_field_type_common_structure_borrow_field_by_index( - ft, NULL, &field_type, index); - if (ret) { - field_type = NULL; - goto end; - } - break; - } - case BT_CTF_FIELD_TYPE_ID_VARIANT: - { - int ret = bt_ctf_field_type_common_variant_borrow_field_by_index( - ft, NULL, &field_type, index); - if (ret) { - field_type = NULL; - goto end; - } - break; - } - case BT_CTF_FIELD_TYPE_ID_ARRAY: - field_type = - bt_ctf_field_type_common_array_borrow_element_field_type(ft); - break; - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - field_type = - bt_ctf_field_type_common_sequence_borrow_element_field_type(ft); - break; - default: - break; - } - -end: - return field_type; -} - -BT_HIDDEN -int bt_ctf_field_type_common_get_field_index(struct bt_ctf_field_type_common *ft, - const char *name) -{ - int field_index = -1; - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_STRUCT: - field_index = bt_ctf_field_type_common_structure_get_field_name_index( - ft, name); - break; - case BT_CTF_FIELD_TYPE_ID_VARIANT: - field_index = bt_ctf_field_type_common_variant_get_field_name_index( - ft, name); - break; - default: - break; - } - - return field_index; -} - -BT_HIDDEN -struct bt_ctf_field_path *bt_ctf_field_type_common_variant_borrow_tag_field_path( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_variant *var_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - return var_ft->tag_field_path; -} - -BT_HIDDEN -struct bt_ctf_field_path *bt_ctf_field_type_common_sequence_borrow_length_field_path( - struct bt_ctf_field_type_common *ft) -{ - struct bt_ctf_field_type_common_sequence *seq_ft = BT_CTF_FROM_COMMON(ft); - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_SEQUENCE, - "Field type"); - return seq_ft->length_field_path; -} - -BT_HIDDEN -int bt_ctf_field_type_common_validate_single_clock_class( - struct bt_ctf_field_type_common *ft, - struct bt_ctf_clock_class **expected_clock_class) -{ - int ret = 0; - - if (!ft) { - goto end; - } - - BT_ASSERT(expected_clock_class); - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_INTEGER: - { - struct bt_ctf_clock_class *mapped_clock_class = - bt_ctf_field_type_common_integer_borrow_mapped_clock_class(ft); - - if (!mapped_clock_class) { - goto end; - } - - if (!*expected_clock_class) { - /* Move reference to output parameter */ - *expected_clock_class = bt_ctf_object_get_ref(mapped_clock_class); - mapped_clock_class = NULL; - BT_LOGV("Setting expected clock class: " - "expected-clock-class-addr=%p", - *expected_clock_class); - } else { - if (mapped_clock_class != *expected_clock_class) { - BT_LOGW("Integer field type is not mapped to " - "the expected clock class: " - "mapped-clock-class-addr=%p, " - "mapped-clock-class-name=\"%s\", " - "expected-clock-class-addr=%p, " - "expected-clock-class-name=\"%s\"", - mapped_clock_class, - bt_ctf_clock_class_get_name(mapped_clock_class), - *expected_clock_class, - bt_ctf_clock_class_get_name(*expected_clock_class)); - bt_ctf_object_put_ref(mapped_clock_class); - ret = -1; - goto end; - } - } - - break; - } - case BT_CTF_FIELD_TYPE_ID_ENUM: - case BT_CTF_FIELD_TYPE_ID_ARRAY: - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - { - struct bt_ctf_field_type_common *sub_ft = NULL; - - switch (ft->id) { - case BT_CTF_FIELD_TYPE_ID_ENUM: - sub_ft = bt_ctf_field_type_common_enumeration_borrow_container_field_type( - ft); - break; - case BT_CTF_FIELD_TYPE_ID_ARRAY: - sub_ft = bt_ctf_field_type_common_array_borrow_element_field_type( - ft); - break; - case BT_CTF_FIELD_TYPE_ID_SEQUENCE: - sub_ft = bt_ctf_field_type_common_sequence_borrow_element_field_type( - ft); - break; - default: - BT_LOGF("Unexpected field type ID: id=%d", ft->id); - abort(); - } - - BT_ASSERT(sub_ft); - ret = bt_ctf_field_type_common_validate_single_clock_class(sub_ft, - expected_clock_class); - break; - } - case BT_CTF_FIELD_TYPE_ID_STRUCT: - { - uint64_t i; - int64_t count = bt_ctf_field_type_common_structure_get_field_count( - ft); - - for (i = 0; i < count; i++) { - const char *name; - struct bt_ctf_field_type_common *member_type; - - ret = bt_ctf_field_type_common_structure_borrow_field_by_index( - ft, &name, &member_type, i); - BT_ASSERT(ret == 0); - ret = bt_ctf_field_type_common_validate_single_clock_class( - member_type, expected_clock_class); - if (ret) { - BT_LOGW("Structure field type's field's type " - "is not recursively mapped to the " - "expected clock class: " - "field-ft-addr=%p, field-name=\"%s\"", - member_type, name); - goto end; - } - } - break; - } - case BT_CTF_FIELD_TYPE_ID_VARIANT: - { - uint64_t i; - int64_t count = bt_ctf_field_type_common_variant_get_field_count( - ft); - - for (i = 0; i < count; i++) { - const char *name; - struct bt_ctf_field_type_common *member_type; - - ret = bt_ctf_field_type_common_variant_borrow_field_by_index( - ft, &name, &member_type, i); - BT_ASSERT(ret == 0); - ret = bt_ctf_field_type_common_validate_single_clock_class( - member_type, expected_clock_class); - if (ret) { - BT_LOGW("Variant field type's field's type " - "is not recursively mapped to the " - "expected clock class: " - "field-ft-addr=%p, field-name=\"%s\"", - member_type, name); - goto end; - } - } - break; - } - default: - break; - } - -end: - return ret; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_integer_copy( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_copy_recursive( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_copy( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_structure_copy_recursive( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_variant_copy_recursive( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_array_copy_recursive( - struct bt_ctf_field_type *ft); - -static -struct bt_ctf_field_type *bt_ctf_field_type_sequence_copy_recursive( - struct bt_ctf_field_type *type); - -static -struct bt_ctf_field_type *bt_ctf_field_type_string_copy( - struct bt_ctf_field_type *type); - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_integer_methods = { - .freeze = bt_ctf_field_type_common_generic_freeze, - .validate = bt_ctf_field_type_common_integer_validate, - .set_byte_order = bt_ctf_field_type_common_integer_set_byte_order, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_integer_copy, - .compare = bt_ctf_field_type_common_integer_compare, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_floating_point_methods = { - .freeze = bt_ctf_field_type_common_generic_freeze, - .validate = NULL, - .set_byte_order = bt_ctf_field_type_common_floating_point_set_byte_order, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_floating_point_copy, - .compare = bt_ctf_field_type_common_floating_point_compare, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_enumeration_methods = { - .freeze = bt_ctf_field_type_common_enumeration_freeze_recursive, - .validate = bt_ctf_field_type_common_enumeration_validate_recursive, - .set_byte_order = bt_ctf_field_type_common_enumeration_set_byte_order_recursive, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_enumeration_copy_recursive, - .compare = bt_ctf_field_type_common_enumeration_compare_recursive, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_string_methods = { - .freeze = bt_ctf_field_type_common_generic_freeze, - .validate = NULL, - .set_byte_order = NULL, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_string_copy, - .compare = bt_ctf_field_type_common_string_compare, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_array_methods = { - .freeze = bt_ctf_field_type_common_array_freeze_recursive, - .validate = bt_ctf_field_type_common_array_validate_recursive, - .set_byte_order = bt_ctf_field_type_common_array_set_byte_order_recursive, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_array_copy_recursive, - .compare = bt_ctf_field_type_common_array_compare_recursive, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_sequence_methods = { - .freeze = bt_ctf_field_type_common_sequence_freeze_recursive, - .validate = bt_ctf_field_type_common_sequence_validate_recursive, - .set_byte_order = bt_ctf_field_type_common_sequence_set_byte_order_recursive, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_sequence_copy_recursive, - .compare = bt_ctf_field_type_common_sequence_compare_recursive, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_structure_methods = { - .freeze = bt_ctf_field_type_common_structure_freeze_recursive, - .validate = bt_ctf_field_type_common_structure_validate_recursive, - .set_byte_order = bt_ctf_field_type_common_structure_set_byte_order_recursive, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_structure_copy_recursive, - .compare = bt_ctf_field_type_common_structure_compare_recursive, -}; - -static struct bt_ctf_field_type_common_methods bt_ctf_field_type_variant_methods = { - .freeze = bt_ctf_field_type_common_variant_freeze_recursive, - .validate = bt_ctf_field_type_common_variant_validate_recursive, - .set_byte_order = bt_ctf_field_type_common_variant_set_byte_order_recursive, - .copy = (bt_ctf_field_type_common_method_copy) - bt_ctf_field_type_variant_copy_recursive, - .compare = bt_ctf_field_type_common_variant_compare_recursive, -}; - -typedef int (*bt_ctf_field_type_serialize_func)(struct bt_ctf_field_type_common *, - struct metadata_context *); - -BT_HIDDEN -int bt_ctf_field_type_serialize_recursive(struct bt_ctf_field_type *type, - struct metadata_context *context) -{ - int ret; - struct bt_ctf_field_type_common *type_common = (void *) type; - bt_ctf_field_type_serialize_func serialize_func; - - BT_ASSERT(type); - BT_ASSERT(context); - - /* Make sure field type is valid before serializing it */ - ret = bt_ctf_field_type_common_validate((void *) type); - if (ret) { - BT_LOGW("Cannot serialize field type's metadata: field type is invalid: " - "addr=%p", type); - goto end; - } - - serialize_func = type_common->spec.writer.serialize_func; - ret = serialize_func((void *) type, context); - -end: - return ret; -} - -static -const char *get_encoding_string(enum bt_ctf_string_encoding encoding) -{ - 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; - } - - return encoding_string; -} - -static -const char *get_integer_base_string(enum bt_ctf_integer_base base) -{ - const char *base_string; - - switch (base) { - case BT_CTF_INTEGER_BASE_DECIMAL: - case BT_CTF_INTEGER_BASE_UNSPECIFIED: - 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; - } - - return base_string; -} - -static -void append_field_name(struct metadata_context *context, - const char *name) -{ - g_string_append_c(context->string, ' '); - - if (!bt_ctf_identifier_is_valid(name) || *name == '_') { - g_string_append_c(context->string, '_'); - } - - g_string_append(context->string, name); -} - -static -int bt_ctf_field_type_integer_serialize(struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - struct bt_ctf_field_type_common_integer *integer = BT_CTF_FROM_COMMON(type); - int ret = 0; - - BT_LOGD("Serializing CTF writer integer field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "integer { size = %u; align = %u; signed = %s; encoding = %s; base = %s; byte_order = %s", - integer->size, type->alignment, - (integer->is_signed ? "true" : "false"), - get_encoding_string(integer->encoding), - get_integer_base_string(integer->base), - bt_ctf_get_byte_order_string(integer->user_byte_order)); - if (integer->mapped_clock_class) { - const char *clock_name = bt_ctf_clock_class_get_name( - integer->mapped_clock_class); - - BT_ASSERT(clock_name); - g_string_append_printf(context->string, - "; map = clock.%s.value", clock_name); - } - - g_string_append(context->string, "; }"); - return ret; -} - -static -int bt_ctf_field_type_enumeration_serialize_recursive( - struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - size_t entry; - int ret; - struct bt_ctf_field_type_common_enumeration *enumeration = - BT_CTF_FROM_COMMON(type); - struct bt_ctf_field_type_common *container_type; - int container_signed; - - BT_LOGD("Serializing CTF writer enumeration field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - container_type = - bt_ctf_field_type_common_enumeration_borrow_container_field_type(type); - BT_ASSERT(container_type); - container_signed = bt_ctf_field_type_common_integer_is_signed( - container_type); - BT_ASSERT(container_signed >= 0); - g_string_append(context->string, "enum : "); - BT_LOGD_STR("Serializing CTF writer enumeration field type's container field type's metadata."); - ret = bt_ctf_field_type_serialize_recursive( - (void *) enumeration->container_ft, context); - if (ret) { - BT_LOGW("Cannot serialize CTF writer enumeration field type's container field type's metadata: " - "container-ft-addr=%p", enumeration->container_ft); - goto end; - } - - g_string_append(context->string, " { "); - for (entry = 0; entry < enumeration->entries->len; entry++) { - struct bt_ctf_enumeration_mapping *mapping = - enumeration->entries->pdata[entry]; - const char *label = g_quark_to_string(mapping->string); - - g_string_append(context->string, "\""); - - if (!bt_ctf_identifier_is_valid(label) || label[0] == '_') { - g_string_append(context->string, "_"); - } - - g_string_append_printf(context->string, "%s\" = ", label); - - if (container_signed) { - if (mapping->range_start._signed == - mapping->range_end._signed) { - g_string_append_printf(context->string, - "%" PRId64, - mapping->range_start._signed); - } else { - g_string_append_printf(context->string, - "%" PRId64 " ... %" PRId64, - mapping->range_start._signed, - mapping->range_end._signed); - } - } else { - if (mapping->range_start._unsigned == - mapping->range_end._unsigned) { - g_string_append_printf(context->string, - "%" PRIu64, - mapping->range_start._unsigned); - } else { - g_string_append_printf(context->string, - "%" PRIu64 " ... %" PRIu64, - mapping->range_start._unsigned, - mapping->range_end._unsigned); - } - } - - g_string_append(context->string, - ((entry != (enumeration->entries->len - 1)) ? - ", " : " }")); - } - - if (context->field_name->len) { - append_field_name(context, - context->field_name->str); - g_string_assign(context->field_name, ""); - } - -end: - return ret; -} - -static -int bt_ctf_field_type_floating_point_serialize(struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - struct bt_ctf_field_type_common_floating_point *floating_point = - BT_CTF_FROM_COMMON(type); - - BT_LOGD("Serializing CTF writer floating point number field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "floating_point { exp_dig = %u; mant_dig = %u; byte_order = %s; align = %u; }", - floating_point->exp_dig, - floating_point->mant_dig, - bt_ctf_get_byte_order_string(floating_point->user_byte_order), - type->alignment); - return 0; -} - -static -int bt_ctf_field_type_structure_serialize_recursive( - struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - size_t i; - unsigned int indent; - int ret = 0; - struct bt_ctf_field_type_common_structure *structure = BT_CTF_FROM_COMMON(type); - GString *structure_field_name = context->field_name; - - BT_LOGD("Serializing CTF writer structure field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - context->field_name = g_string_new(""); - - context->current_indentation_level++; - g_string_append(context->string, "struct {\n"); - - for (i = 0; i < structure->fields->len; i++) { - struct bt_ctf_field_type_common_structure_field *field = - BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - structure, i); - - BT_LOGD("Serializing CTF writer structure field type's field metadata: " - "index=%zu, " - "field-ft-addr=%p, field-name=\"%s\"", - i, field, g_quark_to_string(field->name)); - - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } - - g_string_assign(context->field_name, - g_quark_to_string(field->name)); - ret = bt_ctf_field_type_serialize_recursive( - (void *) field->type, context); - if (ret) { - BT_LOGW("Cannot serialize CTF writer structure field type's field's metadata: " - "index=%zu, " - "field-ft-addr=%p, field-name=\"%s\"", - i, field->type, - g_quark_to_string(field->name)); - goto end; - } - - if (context->field_name->len) { - append_field_name(context, - context->field_name->str); - } - g_string_append(context->string, ";\n"); - } - - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } - - 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_recursive( - struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - size_t i; - unsigned int indent; - int ret = 0; - struct bt_ctf_field_type_common_variant *variant = BT_CTF_FROM_COMMON(type); - GString *variant_field_name = context->field_name; - - BT_LOGD("Serializing CTF writer variant field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - context->field_name = g_string_new(""); - if (variant->tag_name->len > 0) { - g_string_append(context->string, "variant <"); - append_field_name(context, variant->tag_name->str); - g_string_append(context->string, "> {\n"); - } else { - g_string_append(context->string, "variant {\n"); - } - - context->current_indentation_level++; - for (i = 0; i < variant->choices->len; i++) { - struct bt_ctf_field_type_common_variant_choice *field = - BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - variant, i); - - BT_LOGD("Serializing CTF writer variant field type's field metadata: " - "index=%zu, " - "field-ft-addr=%p, field-name=\"%s\"", - i, field, g_quark_to_string(field->name)); - - 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_recursive( - (void *) field->type, context); - if (ret) { - BT_LOGW("Cannot serialize CTF writer variant field type's field's metadata: " - "index=%zu, " - "field-ft-addr=%p, field-name=\"%s\"", - i, field->type, - g_quark_to_string(field->name)); - goto end; - } - - if (context->field_name->len) { - append_field_name(context, - context->field_name->str); - g_string_append_c(context->string, ';'); - } - - g_string_append_c(context->string, '\n'); - } - - context->current_indentation_level--; - for (indent = 0; indent < context->current_indentation_level; - indent++) { - g_string_append_c(context->string, '\t'); - } - - g_string_append(context->string, "}"); - -end: - g_string_free(context->field_name, TRUE); - context->field_name = variant_field_name; - return ret; -} - -static -int bt_ctf_field_type_array_serialize_recursive( - struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - int ret = 0; - struct bt_ctf_field_type_common_array *array = BT_CTF_FROM_COMMON(type); - - BT_LOGD("Serializing CTF writer array field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - BT_LOGD_STR("Serializing CTF writer array field type's element field type's metadata."); - ret = bt_ctf_field_type_serialize_recursive( - (void *) array->element_ft, context); - if (ret) { - BT_LOGW("Cannot serialize CTF writer array field type's element field type's metadata: " - "element-ft-addr=%p", array->element_ft); - goto end; - } - - if (context->field_name->len) { - append_field_name(context, - context->field_name->str); - - g_string_append_printf(context->string, "[%u]", array->length); - g_string_assign(context->field_name, ""); - } else { - g_string_append_printf(context->string, "[%u]", array->length); - } - -end: - return ret; -} - -static -int bt_ctf_field_type_sequence_serialize_recursive( - struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - int ret = 0; - struct bt_ctf_field_type_common_sequence *sequence = BT_CTF_FROM_COMMON(type); - - BT_LOGD("Serializing CTF writer sequence field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - BT_LOGD_STR("Serializing CTF writer sequence field type's element field type's metadata."); - ret = bt_ctf_field_type_serialize_recursive( - (void *) sequence->element_ft, context); - if (ret) { - BT_LOGW("Cannot serialize CTF writer sequence field type's element field type's metadata: " - "element-ft-addr=%p", sequence->element_ft); - goto end; - } - - if (context->field_name->len) { - append_field_name(context, context->field_name->str); - g_string_assign(context->field_name, ""); - } - g_string_append(context->string, "["); - append_field_name(context, sequence->length_field_name->str); - g_string_append(context->string, "]"); - -end: - return ret; -} - -static -int bt_ctf_field_type_string_serialize(struct bt_ctf_field_type_common *type, - struct metadata_context *context) -{ - struct bt_ctf_field_type_common_string *string = BT_CTF_FROM_COMMON(type); - - BT_LOGD("Serializing CTF writer string field type's metadata: " - "ft-addr=%p, metadata-context-addr=%p", type, context); - g_string_append_printf(context->string, - "string { encoding = %s; }", - get_encoding_string(string->encoding)); - return 0; -} - -struct bt_ctf_field_type *bt_ctf_field_type_integer_create(unsigned int size) -{ - struct bt_ctf_field_type_common_integer *integer = NULL; - - BT_LOGD("Creating CTF writer integer field type object: size=%u", size); - - if (size == 0 || size > 64) { - BT_LOGW("Invalid parameter: size must be between 1 and 64: " - "size=%u", size); - goto error; - } - - integer = g_new0(struct bt_ctf_field_type_common_integer, 1); - if (!integer) { - BT_LOGE_STR("Failed to allocate one integer field type."); - goto error; - } - - bt_ctf_field_type_common_integer_initialize(BT_CTF_TO_COMMON(integer), - size, bt_ctf_field_type_common_integer_destroy, - &bt_ctf_field_type_integer_methods); - integer->common.spec.writer.serialize_func = - bt_ctf_field_type_integer_serialize; - BT_LOGD("Created CTF writer integer field type object: addr=%p, size=%u", - integer, size); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(integer); - -end: - return (void *) integer; -} - -int bt_ctf_field_type_integer_get_size(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_integer_get_size((void *) ft); -} - -bt_bool bt_ctf_field_type_integer_is_signed(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_integer_is_signed((void *) ft); -} - -int bt_ctf_field_type_integer_set_is_signed(struct bt_ctf_field_type *ft, - bt_bool is_signed) -{ - return bt_ctf_field_type_common_integer_set_is_signed((void *) ft, - is_signed); -} - -int bt_ctf_field_type_integer_set_size(struct bt_ctf_field_type *ft, - unsigned int size) -{ - return bt_ctf_field_type_common_integer_set_size((void *) ft, size); -} - -enum bt_ctf_integer_base bt_ctf_field_type_integer_get_base( - struct bt_ctf_field_type *ft) -{ - return (int) bt_ctf_field_type_common_integer_get_base((void *) ft); -} - -int bt_ctf_field_type_integer_set_base(struct bt_ctf_field_type *ft, - enum bt_ctf_integer_base base) -{ - return bt_ctf_field_type_common_integer_set_base((void *) ft, - (int) base); -} - -enum bt_ctf_string_encoding bt_ctf_field_type_integer_get_encoding( - struct bt_ctf_field_type *ft) -{ - return (int) bt_ctf_field_type_common_integer_get_encoding((void *) ft); -} - -int bt_ctf_field_type_integer_set_encoding(struct bt_ctf_field_type *ft, - enum bt_ctf_string_encoding encoding) -{ - return bt_ctf_field_type_common_integer_set_encoding((void *) ft, - (int) encoding); -} - -struct bt_ctf_clock_class *bt_ctf_field_type_integer_get_mapped_clock_class( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_integer_borrow_mapped_clock_class( - (void *) ft)); -} - -int bt_ctf_field_type_integer_set_mapped_clock_class( - struct bt_ctf_field_type *ft, - struct bt_ctf_clock_class *clock_class) -{ - return bt_ctf_field_type_common_integer_set_mapped_clock_class((void *) ft, - clock_class); -} - -int bt_ctf_field_type_enumeration_signed_get_mapping_by_index( - struct bt_ctf_field_type *ft, uint64_t index, - const char **mapping_name, int64_t *range_begin, - int64_t *range_end) -{ - return bt_ctf_field_type_common_enumeration_signed_get_mapping_by_index( - (void *) ft, index, mapping_name, range_begin, range_end); -} - -int bt_ctf_field_type_enumeration_unsigned_get_mapping_by_index( - struct bt_ctf_field_type *ft, uint64_t index, - const char **mapping_name, uint64_t *range_begin, - uint64_t *range_end) -{ - return bt_ctf_field_type_common_enumeration_unsigned_get_mapping_by_index( - (void *) ft, index, mapping_name, range_begin, range_end); -} - -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_create( - struct bt_ctf_field_type *container_ft) -{ - struct bt_ctf_field_type_common_enumeration *enumeration = NULL; - struct bt_ctf_field_type_common *int_ft = (void *) container_ft; - - BT_LOGD("Creating CTF writer enumeration field type object: int-ft-addr=%p", - container_ft); - - if (!container_ft) { - BT_LOGW_STR("Invalid parameter: field type is NULL."); - goto error; - } - - if (int_ft->id != BT_CTF_FIELD_TYPE_ID_INTEGER) { - BT_LOGW("Invalid parameter: container field type is not an integer field type: " - "container-ft-addr=%p, container-ft-id=%s", - container_ft, bt_ctf_field_type_id_string(int_ft->id)); - goto error; - } - - enumeration = g_new0(struct bt_ctf_field_type_common_enumeration, 1); - if (!enumeration) { - BT_LOGE_STR("Failed to allocate one enumeration field type."); - goto error; - } - - bt_ctf_field_type_common_enumeration_initialize(BT_CTF_TO_COMMON(enumeration), - int_ft, bt_ctf_field_type_common_enumeration_destroy_recursive, - &bt_ctf_field_type_enumeration_methods); - enumeration->common.spec.writer.serialize_func = - bt_ctf_field_type_enumeration_serialize_recursive; - BT_LOGD("Created CTF writer enumeration field type object: addr=%p, " - "int-ft-addr=%p, int-ft-size=%u", - enumeration, container_ft, - bt_ctf_field_type_integer_get_size(container_ft)); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(enumeration); - -end: - return (void *) enumeration; -} - -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_get_container_field_type( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_object_get_ref( - bt_ctf_field_type_common_enumeration_borrow_container_field_type( - (void *) ft)); -} - -int bt_ctf_field_type_enumeration_signed_add_mapping( - struct bt_ctf_field_type *ft, const char *string, - int64_t range_start, int64_t range_end) -{ - return bt_ctf_field_type_common_enumeration_signed_add_mapping( - (void *) ft, string, range_start, range_end); -} - -int bt_ctf_field_type_enumeration_unsigned_add_mapping( - struct bt_ctf_field_type *ft, const char *string, - uint64_t range_start, uint64_t range_end) -{ - return bt_ctf_field_type_common_enumeration_unsigned_add_mapping( - (void *) ft, string, range_start, range_end); -} - -int64_t bt_ctf_field_type_enumeration_get_mapping_count( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_enumeration_get_mapping_count((void *) ft); -} - -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_create(void) -{ - struct bt_ctf_field_type_common_floating_point *floating_point = - g_new0(struct bt_ctf_field_type_common_floating_point, 1); - - BT_LOGD_STR("Creating CTF writer floating point number field type object."); - - if (!floating_point) { - BT_LOGE_STR("Failed to allocate one floating point number field type."); - goto end; - } - - bt_ctf_field_type_common_floating_point_initialize( - BT_CTF_TO_COMMON(floating_point), - bt_ctf_field_type_common_floating_point_destroy, - &bt_ctf_field_type_floating_point_methods); - floating_point->common.spec.writer.serialize_func = - bt_ctf_field_type_floating_point_serialize; - BT_LOGD("Created CTF writer floating point number field type object: addr=%p, " - "exp-size=%u, mant-size=%u", floating_point, - floating_point->exp_dig, floating_point->mant_dig); - -end: - return (void *) floating_point; -} - -int bt_ctf_field_type_floating_point_get_exponent_digits( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_floating_point_get_exponent_digits( - (void *) ft); -} - -int bt_ctf_field_type_floating_point_set_exponent_digits( - struct bt_ctf_field_type *ft, unsigned int exponent_digits) -{ - return bt_ctf_field_type_common_floating_point_set_exponent_digits( - (void *) ft, exponent_digits); -} - -int bt_ctf_field_type_floating_point_get_mantissa_digits( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_floating_point_get_mantissa_digits( - (void *) ft); -} - -int bt_ctf_field_type_floating_point_set_mantissa_digits( - struct bt_ctf_field_type *ft, unsigned int mantissa_digits) -{ - return bt_ctf_field_type_common_floating_point_set_mantissa_digits( - (void *) ft, mantissa_digits); -} - -struct bt_ctf_field_type *bt_ctf_field_type_structure_create(void) -{ - struct bt_ctf_field_type_common_structure *structure = - g_new0(struct bt_ctf_field_type_common_structure, 1); - - BT_LOGD_STR("Creating CTF writer structure field type object."); - - if (!structure) { - BT_LOGE_STR("Failed to allocate one structure field type."); - goto error; - } - - bt_ctf_field_type_common_structure_initialize(BT_CTF_TO_COMMON(structure), - bt_ctf_field_type_common_structure_destroy_recursive, - &bt_ctf_field_type_structure_methods); - structure->common.spec.writer.serialize_func = - bt_ctf_field_type_structure_serialize_recursive; - BT_LOGD("Created CTF writer structure field type object: addr=%p", - structure); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(structure); - -end: - return (void *) structure; -} - -int bt_ctf_field_type_structure_add_field(struct bt_ctf_field_type *ft, - struct bt_ctf_field_type *field_type, - const char *field_name) -{ - return bt_ctf_field_type_common_structure_add_field((void *) ft, - (void *) field_type, field_name); -} - -int64_t bt_ctf_field_type_structure_get_field_count(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_structure_get_field_count((void *) ft); -} - -int bt_ctf_field_type_structure_get_field_by_index( - struct bt_ctf_field_type *ft, - const char **field_name, - struct bt_ctf_field_type **field_type, uint64_t index) -{ - int ret = bt_ctf_field_type_common_structure_borrow_field_by_index( - (void *) ft, field_name, (void *) field_type, index); - - if (ret == 0 && field_type) { - bt_ctf_object_get_ref(*field_type); - } - - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_structure_get_field_type_by_name( - struct bt_ctf_field_type *ft, const char *name) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_structure_borrow_field_type_by_name( - (void *) ft, name)); -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_create( - struct bt_ctf_field_type *tag_ft, const char *tag_name) -{ - struct bt_ctf_field_type_common_variant *var_ft = NULL; - - BT_LOGD("Creating CTF writer variant field type object: " - "tag-ft-addr=%p, tag-field-name=\"%s\"", - tag_ft, tag_name); - - if (tag_name && !bt_ctf_identifier_is_valid(tag_name)) { - BT_LOGW("Invalid parameter: tag field name is not a valid CTF identifier: " - "tag-ft-addr=%p, tag-field-name=\"%s\"", - tag_ft, tag_name); - goto error; - } - - var_ft = g_new0(struct bt_ctf_field_type_common_variant, 1); - if (!var_ft) { - BT_LOGE_STR("Failed to allocate one variant field type."); - goto error; - } - - bt_ctf_field_type_common_variant_initialize(BT_CTF_TO_COMMON(var_ft), - (void *) tag_ft, tag_name, - bt_ctf_field_type_common_variant_destroy_recursive, - &bt_ctf_field_type_variant_methods); - var_ft->common.spec.writer.serialize_func = - bt_ctf_field_type_variant_serialize_recursive; - BT_LOGD("Created CTF writer variant field type object: addr=%p, " - "tag-ft-addr=%p, tag-field-name=\"%s\"", - var_ft, tag_ft, tag_name); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(var_ft); - -end: - return (void *) var_ft; -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_tag_field_type( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_variant_borrow_tag_field_type( - (void *) ft)); -} - -const char *bt_ctf_field_type_variant_get_tag_name(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_variant_get_tag_name((void *) ft); -} - -int bt_ctf_field_type_variant_set_tag_name( - struct bt_ctf_field_type *ft, const char *name) -{ - return bt_ctf_field_type_common_variant_set_tag_name((void *) ft, name); -} - -int bt_ctf_field_type_variant_add_field(struct bt_ctf_field_type *ft, - struct bt_ctf_field_type *field_type, - const char *field_name) -{ - return bt_ctf_field_type_common_variant_add_field((void *) ft, - (void *) field_type, field_name); -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_by_name( - struct bt_ctf_field_type *ft, - const char *field_name) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_variant_borrow_field_type_by_name( - (void *) ft, field_name)); -} - -struct bt_ctf_field_type *bt_ctf_field_type_variant_get_field_type_from_tag( - struct bt_ctf_field_type *ft, - struct bt_ctf_field *tag_field) -{ - int ret; - int64_t choice_index; - struct bt_ctf_field *container; - struct bt_ctf_field_type_common_variant *var_ft = (void *) ft; - struct bt_ctf_field_type *ret_ft = NULL; - - BT_ASSERT_PRE_NON_NULL(ft, "Field type"); - BT_ASSERT_PRE_CTF_FT_COMMON_HAS_ID(ft, BT_CTF_FIELD_TYPE_ID_VARIANT, - "Field type"); - BT_ASSERT_PRE_NON_NULL(tag_field, "Tag field"); - BT_ASSERT_PRE_CTF_FIELD_COMMON_HAS_TYPE_ID( - (struct bt_ctf_field_common *) tag_field, - BT_CTF_FIELD_TYPE_ID_ENUM, "Tag field"); - BT_ASSERT_PRE_CTF_FIELD_COMMON_IS_SET((struct bt_ctf_field_common *) tag_field, - "Tag field"); - - container = bt_ctf_field_enumeration_borrow_container(tag_field); - BT_ASSERT(container); - - if (var_ft->tag_ft->container_ft->is_signed) { - int64_t val; - - ret = bt_ctf_field_integer_signed_get_value(container, - &val); - BT_ASSERT(ret == 0); - choice_index = bt_ctf_field_type_common_variant_find_choice_index( - (void *) ft, (uint64_t) val, true); - } else { - uint64_t val; - - ret = bt_ctf_field_integer_unsigned_get_value(container, - &val); - BT_ASSERT(ret == 0); - choice_index = bt_ctf_field_type_common_variant_find_choice_index( - (void *) ft, val, false); - } - - if (choice_index < 0) { - BT_LIB_LOGW("Cannot find variant field type's field: " - "var-ft-addr=%p, tag-field-addr=%p", ft, tag_field); - goto end; - } - - ret = bt_ctf_field_type_variant_get_field_by_index(ft, NULL, - &ret_ft, choice_index); - BT_ASSERT(ret == 0); - -end: - return ret_ft; -} - -int64_t bt_ctf_field_type_variant_get_field_count(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_variant_get_field_count((void *) ft); -} - -int bt_ctf_field_type_variant_get_field_by_index(struct bt_ctf_field_type *ft, - const char **field_name, struct bt_ctf_field_type **field_type, - uint64_t index) -{ - int ret = bt_ctf_field_type_common_variant_borrow_field_by_index( - (void *) ft, field_name, (void *) field_type, index); - - if (ret == 0 && field_type) { - bt_ctf_object_get_ref(*field_type); - } - - return ret; -} - -struct bt_ctf_field_type *bt_ctf_field_type_array_create( - struct bt_ctf_field_type *element_ft, unsigned int length) -{ - struct bt_ctf_field_type_common_array *array = NULL; - - BT_LOGD("Creating CTF writer array field type object: element-ft-addr=%p, " - "length=%u", element_ft, length); - - if (!element_ft) { - BT_LOGW_STR("Invalid parameter: element field type is NULL."); - goto error; - } - - if (length == 0) { - BT_LOGW_STR("Invalid parameter: length is zero."); - goto error; - } - - array = g_new0(struct bt_ctf_field_type_common_array, 1); - if (!array) { - BT_LOGE_STR("Failed to allocate one array field type."); - goto error; - } - - bt_ctf_field_type_common_array_initialize(BT_CTF_TO_COMMON(array), - (void *) element_ft, length, - bt_ctf_field_type_common_array_destroy_recursive, - &bt_ctf_field_type_array_methods); - array->common.spec.writer.serialize_func = - bt_ctf_field_type_array_serialize_recursive; - BT_LOGD("Created CTF writer array field type object: addr=%p, " - "element-ft-addr=%p, length=%u", - array, element_ft, length); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(array); - -end: - return (void *) array; -} - -struct bt_ctf_field_type *bt_ctf_field_type_array_get_element_field_type( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_array_borrow_element_field_type( - (void *) ft)); -} - -int64_t bt_ctf_field_type_array_get_length(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_array_get_length((void *) ft); -} - -struct bt_ctf_field_type *bt_ctf_field_type_sequence_create( - struct bt_ctf_field_type *element_ft, - const char *length_field_name) -{ - struct bt_ctf_field_type_common_sequence *sequence = NULL; - - BT_LOGD("Creating CTF writer sequence field type object: element-ft-addr=%p, " - "length-field-name=\"%s\"", element_ft, length_field_name); - - if (!element_ft) { - BT_LOGW_STR("Invalid parameter: element field type is NULL."); - goto error; - } - - if (!bt_ctf_identifier_is_valid(length_field_name)) { - BT_LOGW("Invalid parameter: length field name is not a valid CTF identifier: " - "length-field-name=\"%s\"", length_field_name); - goto error; - } - - sequence = g_new0(struct bt_ctf_field_type_common_sequence, 1); - if (!sequence) { - BT_LOGE_STR("Failed to allocate one sequence field type."); - goto error; - } - - bt_ctf_field_type_common_sequence_initialize(BT_CTF_TO_COMMON(sequence), - (void *) element_ft, length_field_name, - bt_ctf_field_type_common_sequence_destroy_recursive, - &bt_ctf_field_type_sequence_methods); - sequence->common.spec.writer.serialize_func = - bt_ctf_field_type_sequence_serialize_recursive; - BT_LOGD("Created CTF writer sequence field type object: addr=%p, " - "element-ft-addr=%p, length-field-name=\"%s\"", - sequence, element_ft, length_field_name); - goto end; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(sequence); - -end: - return (void *) sequence; -} - -struct bt_ctf_field_type *bt_ctf_field_type_sequence_get_element_field_type( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_object_get_ref(bt_ctf_field_type_common_sequence_borrow_element_field_type( - (void *) ft)); -} - -const char *bt_ctf_field_type_sequence_get_length_field_name( - struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_sequence_get_length_field_name((void *) ft); -} - -struct bt_ctf_field_type *bt_ctf_field_type_string_create(void) -{ - struct bt_ctf_field_type_common_string *string = - g_new0(struct bt_ctf_field_type_common_string, 1); - - BT_LOGD_STR("Creating CTF writer string field type object."); - - if (!string) { - BT_LOGE_STR("Failed to allocate one string field type."); - return NULL; - } - - bt_ctf_field_type_common_string_initialize(BT_CTF_TO_COMMON(string), - bt_ctf_field_type_common_string_destroy, - &bt_ctf_field_type_string_methods); - string->common.spec.writer.serialize_func = - bt_ctf_field_type_string_serialize; - BT_LOGD("Created CTF writer string field type object: addr=%p", string); - return (void *) string; -} - -enum bt_ctf_string_encoding bt_ctf_field_type_string_get_encoding( - struct bt_ctf_field_type *ft) -{ - return (int) bt_ctf_field_type_common_string_get_encoding((void *) ft); -} - -int bt_ctf_field_type_string_set_encoding(struct bt_ctf_field_type *ft, - enum bt_ctf_string_encoding encoding) -{ - return bt_ctf_field_type_common_string_set_encoding((void *) ft, - (int) encoding); -} - -int bt_ctf_field_type_get_alignment(struct bt_ctf_field_type *ft) -{ - return bt_ctf_field_type_common_get_alignment((void *) ft); -} - -int bt_ctf_field_type_set_alignment(struct bt_ctf_field_type *ft, - unsigned int alignment) -{ - return bt_ctf_field_type_common_set_alignment((void *) ft, alignment); -} - -enum bt_ctf_byte_order bt_ctf_field_type_get_byte_order( - struct bt_ctf_field_type *ft) -{ - return (int) bt_ctf_field_type_common_get_byte_order((void *) ft); -} - -int bt_ctf_field_type_set_byte_order(struct bt_ctf_field_type *ft, - enum bt_ctf_byte_order byte_order) -{ - return bt_ctf_field_type_common_set_byte_order((void *) ft, - (int) byte_order); -} - -enum bt_ctf_field_type_id bt_ctf_field_type_get_type_id( - struct bt_ctf_field_type *ft) -{ - return (int) bt_ctf_field_type_common_get_type_id((void *) ft); -} - -BT_HIDDEN -struct bt_ctf_field_type *bt_ctf_field_type_copy(struct bt_ctf_field_type *ft) -{ - return (void *) bt_ctf_field_type_common_copy((void *) ft); -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_integer_copy( - struct bt_ctf_field_type *ft) -{ - struct bt_ctf_field_type_common_integer *int_ft = (void *) ft; - struct bt_ctf_field_type_common_integer *copy_ft; - - BT_LOGD("Copying CTF writer integer field type's: addr=%p", ft); - copy_ft = (void *) bt_ctf_field_type_integer_create(int_ft->size); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer integer field type."); - goto end; - } - - copy_ft->mapped_clock_class = bt_ctf_object_get_ref(int_ft->mapped_clock_class); - copy_ft->user_byte_order = int_ft->user_byte_order; - copy_ft->is_signed = int_ft->is_signed; - copy_ft->size = int_ft->size; - copy_ft->base = int_ft->base; - copy_ft->encoding = int_ft->encoding; - BT_LOGD("Copied CTF writer integer field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - return (void *) copy_ft; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_enumeration_copy_recursive( - struct bt_ctf_field_type *ft) -{ - size_t i; - struct bt_ctf_field_type_common_enumeration *enum_ft = (void *) ft; - struct bt_ctf_field_type_common_enumeration *copy_ft = NULL; - struct bt_ctf_field_type_common_enumeration *container_copy_ft; - - BT_LOGD("Copying CTF writer enumeration field type's: addr=%p", ft); - - /* Copy the source enumeration's container */ - BT_LOGD_STR("Copying CTF writer enumeration field type's container field type."); - container_copy_ft = BT_CTF_FROM_COMMON(bt_ctf_field_type_common_copy( - BT_CTF_TO_COMMON(enum_ft->container_ft))); - if (!container_copy_ft) { - BT_LOGE_STR("Cannot copy CTF writer enumeration field type's container field type."); - goto end; - } - - copy_ft = (void *) bt_ctf_field_type_enumeration_create( - (void *) container_copy_ft); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer enumeration field type."); - goto end; - } - - /* Copy all enumaration entries */ - for (i = 0; i < enum_ft->entries->len; i++) { - struct bt_ctf_enumeration_mapping *mapping = g_ptr_array_index( - enum_ft->entries, i); - struct bt_ctf_enumeration_mapping *copy_mapping = g_new0( - struct bt_ctf_enumeration_mapping, 1); - - if (!copy_mapping) { - BT_LOGE_STR("Failed to allocate one enumeration mapping."); - goto error; - } - - *copy_mapping = *mapping; - g_ptr_array_add(copy_ft->entries, copy_mapping); - } - - BT_LOGD("Copied CTF writer enumeration field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - bt_ctf_object_put_ref(container_copy_ft); - return (void *) copy_ft; - -error: - bt_ctf_object_put_ref(container_copy_ft); - BT_CTF_OBJECT_PUT_REF_AND_RESET(copy_ft); - return (void *) copy_ft; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_floating_point_copy( - struct bt_ctf_field_type *ft) -{ - struct bt_ctf_field_type_common_floating_point *flt_ft = BT_CTF_FROM_COMMON(ft); - struct bt_ctf_field_type_common_floating_point *copy_ft; - - BT_LOGD("Copying CTF writer floating point number field type's: addr=%p", ft); - copy_ft = (void *) bt_ctf_field_type_floating_point_create(); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer floating point number field type."); - goto end; - } - - copy_ft->user_byte_order = flt_ft->user_byte_order; - copy_ft->exp_dig = flt_ft->exp_dig; - copy_ft->mant_dig = flt_ft->mant_dig; - BT_LOGD("Copied CTF writer floating point number field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - return (void *) copy_ft; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_structure_copy_recursive( - struct bt_ctf_field_type *ft) -{ - int64_t i; - GHashTableIter iter; - gpointer key, value; - struct bt_ctf_field_type_common_structure *struct_ft = (void *) ft; - struct bt_ctf_field_type_common_structure *copy_ft; - - BT_LOGD("Copying CTF writer structure field type's: addr=%p", ft); - copy_ft = (void *) bt_ctf_field_type_structure_create(); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer structure field type."); - goto end; - } - - /* Copy field_name_to_index */ - g_hash_table_iter_init(&iter, struct_ft->field_name_to_index); - while (g_hash_table_iter_next(&iter, &key, &value)) { - g_hash_table_insert(copy_ft->field_name_to_index, - key, value); - } - - g_array_set_size(copy_ft->fields, struct_ft->fields->len); - - for (i = 0; i < struct_ft->fields->len; i++) { - struct bt_ctf_field_type_common_structure_field *entry, *copy_entry; - struct bt_ctf_field_type_common *field_ft_copy; - - entry = BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - struct_ft, i); - copy_entry = BT_CTF_FIELD_TYPE_COMMON_STRUCTURE_FIELD_AT_INDEX( - copy_ft, i); - BT_LOGD("Copying CTF writer structure field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - - field_ft_copy = (void *) bt_ctf_field_type_copy( - (void *) entry->type); - if (!field_ft_copy) { - BT_LOGE("Cannot copy CTF writer structure field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - goto error; - } - - copy_entry->name = entry->name; - copy_entry->type = field_ft_copy; - } - - BT_LOGD("Copied CTF writer structure field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - return (void *) copy_ft; - -error: - BT_CTF_OBJECT_PUT_REF_AND_RESET(copy_ft); - return NULL; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_variant_copy_recursive( - struct bt_ctf_field_type *ft) -{ - int64_t i; - GHashTableIter iter; - gpointer key, value; - struct bt_ctf_field_type_common *tag_ft_copy = NULL; - struct bt_ctf_field_type_common_variant *var_ft = (void *) ft; - struct bt_ctf_field_type_common_variant *copy_ft = NULL; - - BT_LOGD("Copying CTF writer variant field type's: addr=%p", ft); - if (var_ft->tag_ft) { - BT_LOGD_STR("Copying CTF writer variant field type's tag field type."); - tag_ft_copy = bt_ctf_field_type_common_copy( - BT_CTF_TO_COMMON(var_ft->tag_ft)); - if (!tag_ft_copy) { - BT_LOGE_STR("Cannot copy CTF writer variant field type's tag field type."); - goto end; - } - } - - copy_ft = (void *) bt_ctf_field_type_variant_create( - (void *) tag_ft_copy, - var_ft->tag_name->len ? var_ft->tag_name->str : NULL); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer variant field type."); - goto end; - } - - /* Copy field_name_to_index */ - g_hash_table_iter_init(&iter, var_ft->choice_name_to_index); - while (g_hash_table_iter_next(&iter, &key, &value)) { - g_hash_table_insert(copy_ft->choice_name_to_index, - key, value); - } - - g_array_set_size(copy_ft->choices, var_ft->choices->len); - - for (i = 0; i < var_ft->choices->len; i++) { - struct bt_ctf_field_type_common_variant_choice *entry, *copy_entry; - struct bt_ctf_field_type_common *field_ft_copy; - uint64_t range_i; - - entry = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX(var_ft, i); - copy_entry = BT_CTF_FIELD_TYPE_COMMON_VARIANT_CHOICE_AT_INDEX( - copy_ft, i); - BT_LOGD("Copying CTF writer variant field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - - field_ft_copy = (void *) bt_ctf_field_type_copy( - (void *) entry->type); - if (!field_ft_copy) { - BT_LOGE("Cannot copy CTF writer variant field type's field: " - "index=%" PRId64 ", " - "field-ft-addr=%p, field-name=\"%s\"", - i, entry, g_quark_to_string(entry->name)); - g_free(copy_entry); - goto error; - } - - copy_entry->name = entry->name; - copy_entry->type = field_ft_copy; - - /* Copy ranges */ - copy_entry->ranges = g_array_new(FALSE, TRUE, - sizeof(struct bt_ctf_field_type_common_variant_choice_range)); - BT_ASSERT(copy_entry->ranges); - g_array_set_size(copy_entry->ranges, entry->ranges->len); - - for (range_i = 0; range_i < entry->ranges->len; range_i++) { - copy_entry->ranges[range_i] = entry->ranges[range_i]; - } - } - - if (var_ft->tag_field_path) { - BT_LOGD_STR("Copying CTF writer variant field type's tag field path."); - copy_ft->tag_field_path = bt_ctf_field_path_copy( - var_ft->tag_field_path); - if (!copy_ft->tag_field_path) { - BT_LOGE_STR("Cannot copy CTF writer variant field type's tag field path."); - goto error; - } - } - - copy_ft->choices_up_to_date = var_ft->choices_up_to_date; - BT_LOGD("Copied CTF writer variant field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - bt_ctf_object_put_ref(tag_ft_copy); - return (void *) copy_ft; - -error: - bt_ctf_object_put_ref(tag_ft_copy); - BT_CTF_OBJECT_PUT_REF_AND_RESET(copy_ft); - return NULL; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_array_copy_recursive( - struct bt_ctf_field_type *ft) -{ - struct bt_ctf_field_type_common *container_ft_copy = NULL; - struct bt_ctf_field_type_common_array *array_ft = (void *) ft; - struct bt_ctf_field_type_common_array *copy_ft = NULL; - - BT_LOGD("Copying CTF writer array field type's: addr=%p", ft); - BT_LOGD_STR("Copying CTF writer array field type's element field type."); - container_ft_copy = bt_ctf_field_type_common_copy(array_ft->element_ft); - if (!container_ft_copy) { - BT_LOGE_STR("Cannot copy CTF writer array field type's element field type."); - goto end; - } - - copy_ft = (void *) bt_ctf_field_type_array_create( - (void *) container_ft_copy, array_ft->length); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer array field type."); - goto end; - } - - BT_LOGD("Copied CTF writer array field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - bt_ctf_object_put_ref(container_ft_copy); - return (void *) copy_ft; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_sequence_copy_recursive( - struct bt_ctf_field_type *ft) -{ - struct bt_ctf_field_type_common *container_ft_copy = NULL; - struct bt_ctf_field_type_common_sequence *seq_ft = (void *) ft; - struct bt_ctf_field_type_common_sequence *copy_ft = NULL; - - BT_LOGD("Copying CTF writer sequence field type's: addr=%p", ft); - BT_LOGD_STR("Copying CTF writer sequence field type's element field type."); - container_ft_copy = bt_ctf_field_type_common_copy(seq_ft->element_ft); - if (!container_ft_copy) { - BT_LOGE_STR("Cannot copy CTF writer sequence field type's element field type."); - goto end; - } - - copy_ft = (void *) bt_ctf_field_type_sequence_create( - (void *) container_ft_copy, - seq_ft->length_field_name->len ? - seq_ft->length_field_name->str : NULL); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer sequence field type."); - goto end; - } - - if (seq_ft->length_field_path) { - BT_LOGD_STR("Copying CTF writer sequence field type's length field path."); - copy_ft->length_field_path = bt_ctf_field_path_copy( - seq_ft->length_field_path); - if (!copy_ft->length_field_path) { - BT_LOGE_STR("Cannot copy CTF writer sequence field type's length field path."); - goto error; - } - } - - BT_LOGD("Copied CTF writer sequence field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - bt_ctf_object_put_ref(container_ft_copy); - return (void *) copy_ft; -error: - bt_ctf_object_put_ref(container_ft_copy); - BT_CTF_OBJECT_PUT_REF_AND_RESET(copy_ft); - return NULL; -} - -static -struct bt_ctf_field_type *bt_ctf_field_type_string_copy(struct bt_ctf_field_type *ft) -{ - struct bt_ctf_field_type_common_string *string_ft = (void *) ft; - struct bt_ctf_field_type_common_string *copy_ft = NULL; - - BT_LOGD("Copying CTF writer string field type's: addr=%p", ft); - copy_ft = (void *) bt_ctf_field_type_string_create(); - if (!copy_ft) { - BT_LOGE_STR("Cannot create CTF writer string field type."); - goto end; - } - - copy_ft->encoding = string_ft->encoding; - BT_LOGD("Copied CTF writer string field type: original-ft-addr=%p, copy-ft-addr=%p", - ft, copy_ft); - -end: - return (void *) copy_ft; -}