+++ /dev/null
-/*
- * Copyright 2013, 2014 Jérémie Galarneau <jeremie.galarneau@efficios.com>
- *
- * Author: Jérémie Galarneau <jeremie.galarneau@efficios.com>
- *
- * 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 <babeltrace2/lib-logging-internal.h>
-
-#include <babeltrace2/assert-pre-internal.h>
-#include <babeltrace2/assert-internal.h>
-#include <babeltrace2/compiler-internal.h>
-#include <babeltrace2/ctf-writer/clock-class-internal.h>
-#include <babeltrace2/ctf-writer/clock-internal.h>
-#include <babeltrace2/ctf-writer/field-path-internal.h>
-#include <babeltrace2/ctf-writer/field-types-internal.h>
-#include <babeltrace2/ctf-writer/field-types.h>
-#include <babeltrace2/ctf-writer/fields-internal.h>
-#include <babeltrace2/ctf-writer/fields.h>
-#include <babeltrace2/ctf-writer/utils-internal.h>
-#include <babeltrace2/ctf-writer/utils.h>
-#include <babeltrace2/endian-internal.h>
-#include <babeltrace2/ctf-writer/object-internal.h>
-#include <babeltrace2/ctf-writer/object.h>
-#include <float.h>
-#include <inttypes.h>
-#include <stdlib.h>
-
-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;
-}