ctf plugin: notif iter: use "borrow" functions for metadata where possible
[babeltrace.git] / lib / ctf-ir / fields.c
index 48dce5669a7090facd0aee08eb75d30e442fb2fc..bd5e1bda51f504350f7bab75b7bd45626dc7f615 100644 (file)
  * SOFTWARE.
  */
 
+#define BT_LOG_TAG "FIELDS"
+#include <babeltrace/lib-logging-internal.h>
+
+#include <babeltrace/assert-pre-internal.h>
 #include <babeltrace/ctf-ir/fields-internal.h>
 #include <babeltrace/ctf-ir/field-types-internal.h>
-#include <babeltrace/ctf-writer/serialize-internal.h>
 #include <babeltrace/object-internal.h>
 #include <babeltrace/ref.h>
-#include <babeltrace/compiler.h>
-#include <babeltrace/compat/fcntl.h>
-#include <babeltrace/align.h>
-
-#define PACKET_LEN_INCREMENT   (getpagesize() * 8 * CHAR_BIT)
-
-static
-struct bt_ctf_field *bt_ctf_field_integer_create(struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_enumeration_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_floating_point_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_structure_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_variant_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_array_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_sequence_create(
-               struct bt_ctf_field_type *);
-static
-struct bt_ctf_field *bt_ctf_field_string_create(struct bt_ctf_field_type *);
+#include <babeltrace/compiler-internal.h>
+#include <babeltrace/compat/fcntl-internal.h>
+#include <babeltrace/align-internal.h>
+#include <babeltrace/assert-internal.h>
+#include <inttypes.h>
 
 static
-void bt_ctf_field_destroy(struct bt_object *);
-static
-void bt_ctf_field_integer_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_enumeration_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_floating_point_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_structure_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_variant_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_array_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_sequence_destroy(struct bt_ctf_field *);
-static
-void bt_ctf_field_string_destroy(struct bt_ctf_field *);
+struct bt_field_common *bt_field_integer_copy(struct bt_field_common *src);
 
 static
-int bt_ctf_field_generic_validate(struct bt_ctf_field *);
-static
-int bt_ctf_field_structure_validate(struct bt_ctf_field *);
-static
-int bt_ctf_field_variant_validate(struct bt_ctf_field *);
-static
-int bt_ctf_field_enumeration_validate(struct bt_ctf_field *);
-static
-int bt_ctf_field_array_validate(struct bt_ctf_field *);
-static
-int bt_ctf_field_sequence_validate(struct bt_ctf_field *);
+struct bt_field_common *bt_field_enumeration_copy_recursive(
+               struct bt_field_common *src);
 
 static
-int bt_ctf_field_generic_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_structure_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_variant_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_enumeration_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_array_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_sequence_reset(struct bt_ctf_field *);
-static
-int bt_ctf_field_string_reset(struct bt_ctf_field *);
+struct bt_field_common *bt_field_floating_point_copy(
+               struct bt_field_common *src);
 
 static
-int bt_ctf_field_integer_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_enumeration_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_floating_point_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_structure_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_variant_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_array_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_sequence_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
-static
-int bt_ctf_field_string_serialize(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order);
+struct bt_field_common *bt_field_structure_copy_recursive(
+               struct bt_field_common *src);
 
 static
-int bt_ctf_field_integer_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_enumeration_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_floating_point_copy(struct bt_ctf_field *,
-               struct bt_ctf_field *);
-static
-int bt_ctf_field_structure_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_variant_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_array_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_sequence_copy(struct bt_ctf_field *, struct bt_ctf_field *);
-static
-int bt_ctf_field_string_copy(struct bt_ctf_field *, struct bt_ctf_field *);
+struct bt_field_common *bt_field_variant_copy_recursive(
+               struct bt_field_common *src);
 
 static
-void generic_field_freeze(struct bt_ctf_field *);
-static
-void bt_ctf_field_enumeration_freeze(struct bt_ctf_field *);
-static
-void bt_ctf_field_structure_freeze(struct bt_ctf_field *);
-static
-void bt_ctf_field_variant_freeze(struct bt_ctf_field *);
-static
-void bt_ctf_field_array_freeze(struct bt_ctf_field *);
-static
-void bt_ctf_field_sequence_freeze(struct bt_ctf_field *);
+struct bt_field_common *bt_field_array_copy_recursive(
+               struct bt_field_common *src);
 
 static
-bool bt_ctf_field_generic_is_set(struct bt_ctf_field *);
-static
-bool bt_ctf_field_structure_is_set(struct bt_ctf_field *);
-static
-bool bt_ctf_field_variant_is_set(struct bt_ctf_field *);
-static
-bool bt_ctf_field_enumeration_is_set(struct bt_ctf_field *);
-static
-bool bt_ctf_field_array_is_set(struct bt_ctf_field *);
-static
-bool bt_ctf_field_sequence_is_set(struct bt_ctf_field *);
+struct bt_field_common *bt_field_sequence_copy_recursive(
+               struct bt_field_common *src);
 
 static
-int increase_packet_size(struct bt_ctf_stream_pos *pos);
+struct bt_field_common *bt_field_string_copy(struct bt_field_common *src);
 
-static
-struct bt_ctf_field *(* const field_create_funcs[])(
-               struct bt_ctf_field_type *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_integer_create,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_create,
-       [BT_CTF_TYPE_ID_FLOAT] =
-               bt_ctf_field_floating_point_create,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_create,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_create,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_create,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_create,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_string_create,
+static struct bt_field_common_methods bt_field_integer_methods = {
+       .freeze = bt_field_common_generic_freeze,
+       .validate = bt_field_common_generic_validate,
+       .copy = bt_field_integer_copy,
+       .is_set = bt_field_common_generic_is_set,
+       .reset = bt_field_common_generic_reset,
 };
 
-static
-void (* const field_destroy_funcs[])(struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_integer_destroy,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_destroy,
-       [BT_CTF_TYPE_ID_FLOAT] =
-               bt_ctf_field_floating_point_destroy,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_destroy,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_destroy,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_destroy,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_destroy,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_string_destroy,
+static struct bt_field_common_methods bt_field_floating_point_methods = {
+       .freeze = bt_field_common_generic_freeze,
+       .validate = bt_field_common_generic_validate,
+       .copy = bt_field_floating_point_copy,
+       .is_set = bt_field_common_generic_is_set,
+       .reset = bt_field_common_generic_reset,
 };
 
-static
-int (* const field_validate_funcs[])(struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_generic_validate,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_validate,
-       [BT_CTF_TYPE_ID_FLOAT] = bt_ctf_field_generic_validate,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_validate,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_validate,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_validate,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_validate,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_generic_validate,
+static struct bt_field_common_methods bt_field_enumeration_methods = {
+       .freeze = bt_field_common_enumeration_freeze_recursive,
+       .validate = bt_field_common_enumeration_validate_recursive,
+       .copy = bt_field_enumeration_copy_recursive,
+       .is_set = bt_field_common_enumeration_is_set_recursive,
+       .reset = bt_field_common_enumeration_reset_recursive,
 };
 
-static
-int (* const field_reset_funcs[])(struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_generic_reset,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_reset,
-       [BT_CTF_TYPE_ID_FLOAT] = bt_ctf_field_generic_reset,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_reset,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_reset,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_reset,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_reset,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_string_reset,
+static struct bt_field_common_methods bt_field_string_methods = {
+       .freeze = bt_field_common_generic_freeze,
+       .validate = bt_field_common_generic_validate,
+       .copy = bt_field_string_copy,
+       .is_set = bt_field_common_generic_is_set,
+       .reset = bt_field_common_string_reset,
 };
 
-static
-int (* const field_serialize_funcs[])(struct bt_ctf_field *,
-               struct bt_ctf_stream_pos *, enum bt_ctf_byte_order) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_integer_serialize,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_serialize,
-       [BT_CTF_TYPE_ID_FLOAT] =
-               bt_ctf_field_floating_point_serialize,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_serialize,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_serialize,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_serialize,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_serialize,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_string_serialize,
+static struct bt_field_common_methods bt_field_structure_methods = {
+       .freeze = bt_field_common_structure_freeze_recursive,
+       .validate = bt_field_common_structure_validate_recursive,
+       .copy = bt_field_structure_copy_recursive,
+       .is_set = bt_field_common_structure_is_set_recursive,
+       .reset = bt_field_common_structure_reset_recursive,
 };
 
-static
-int (* const field_copy_funcs[])(struct bt_ctf_field *,
-               struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_integer_copy,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_copy,
-       [BT_CTF_TYPE_ID_FLOAT] = bt_ctf_field_floating_point_copy,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_copy,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_copy,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_copy,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_copy,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_string_copy,
+static struct bt_field_common_methods bt_field_sequence_methods = {
+       .freeze = bt_field_common_sequence_freeze_recursive,
+       .validate = bt_field_common_sequence_validate_recursive,
+       .copy = bt_field_sequence_copy_recursive,
+       .is_set = bt_field_common_sequence_is_set_recursive,
+       .reset = bt_field_common_sequence_reset_recursive,
 };
 
-static
-void (* const field_freeze_funcs[])(struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = generic_field_freeze,
-       [BT_CTF_TYPE_ID_FLOAT] = generic_field_freeze,
-       [BT_CTF_TYPE_ID_STRING] = generic_field_freeze,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_freeze,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_freeze,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_freeze,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_freeze,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_freeze,
+static struct bt_field_common_methods bt_field_array_methods = {
+       .freeze = bt_field_common_array_freeze_recursive,
+       .validate = bt_field_common_array_validate_recursive,
+       .copy = bt_field_array_copy_recursive,
+       .is_set = bt_field_common_array_is_set_recursive,
+       .reset = bt_field_common_array_reset_recursive,
 };
 
-static
-bool (* const field_is_set_funcs[])(struct bt_ctf_field *) = {
-       [BT_CTF_TYPE_ID_INTEGER] = bt_ctf_field_generic_is_set,
-       [BT_CTF_TYPE_ID_ENUM] = bt_ctf_field_enumeration_is_set,
-       [BT_CTF_TYPE_ID_FLOAT] = bt_ctf_field_generic_is_set,
-       [BT_CTF_TYPE_ID_STRUCT] = bt_ctf_field_structure_is_set,
-       [BT_CTF_TYPE_ID_VARIANT] = bt_ctf_field_variant_is_set,
-       [BT_CTF_TYPE_ID_ARRAY] = bt_ctf_field_array_is_set,
-       [BT_CTF_TYPE_ID_SEQUENCE] = bt_ctf_field_sequence_is_set,
-       [BT_CTF_TYPE_ID_STRING] = bt_ctf_field_generic_is_set,
+static struct bt_field_common_methods bt_field_variant_methods = {
+       .freeze = bt_field_common_variant_freeze_recursive,
+       .validate = bt_field_common_variant_validate_recursive,
+       .copy = bt_field_variant_copy_recursive,
+       .is_set = bt_field_common_variant_is_set_recursive,
+       .reset = bt_field_common_variant_reset_recursive,
 };
 
-struct bt_ctf_field *bt_ctf_field_create(struct bt_ctf_field_type *type)
-{
-       struct bt_ctf_field *field = NULL;
-       enum bt_ctf_type_id type_id;
-       int ret;
+static
+struct bt_field *bt_field_integer_create(struct bt_field_type *);
 
-       if (!type) {
-               goto error;
-       }
+static
+struct bt_field *bt_field_enumeration_create(struct bt_field_type *);
 
-       type_id = bt_ctf_field_type_get_type_id(type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN ||
-                       type_id >= BT_CTF_NR_TYPE_IDS) {
-               goto error;
-       }
+static
+struct bt_field *bt_field_floating_point_create(struct bt_field_type *);
 
-       /* Field class MUST be valid */
-       ret = bt_ctf_field_type_validate(type);
+static
+struct bt_field *bt_field_structure_create(struct bt_field_type *);
 
-       if (ret) {
-               /* Invalid */
-               goto error;
-       }
+static
+struct bt_field *bt_field_variant_create(struct bt_field_type *);
 
-       field = field_create_funcs[type_id](type);
-       if (!field) {
-               goto error;
-       }
+static
+struct bt_field *bt_field_array_create(struct bt_field_type *);
 
-       /* The type's declaration can't change after this point */
-       bt_ctf_field_type_freeze(type);
-       bt_get(type);
-       bt_object_init(field, bt_ctf_field_destroy);
-       field->type = type;
-error:
-       return field;
-}
+static
+struct bt_field *bt_field_sequence_create(struct bt_field_type *);
 
-void bt_ctf_field_get(struct bt_ctf_field *field)
-{
-       bt_get(field);
-}
+static
+struct bt_field *bt_field_string_create(struct bt_field_type *);
 
-void bt_ctf_field_put(struct bt_ctf_field *field)
-{
-       bt_put(field);
-}
+static
+struct bt_field *(* const field_create_funcs[])(struct bt_field_type *) = {
+       [BT_FIELD_TYPE_ID_INTEGER] =    bt_field_integer_create,
+       [BT_FIELD_TYPE_ID_ENUM] =       bt_field_enumeration_create,
+       [BT_FIELD_TYPE_ID_FLOAT] =      bt_field_floating_point_create,
+       [BT_FIELD_TYPE_ID_STRUCT] =     bt_field_structure_create,
+       [BT_FIELD_TYPE_ID_VARIANT] =    bt_field_variant_create,
+       [BT_FIELD_TYPE_ID_ARRAY] =      bt_field_array_create,
+       [BT_FIELD_TYPE_ID_SEQUENCE] =   bt_field_sequence_create,
+       [BT_FIELD_TYPE_ID_STRING] =     bt_field_string_create,
+};
 
-struct bt_ctf_field_type *bt_ctf_field_get_type(struct bt_ctf_field *field)
+struct bt_field *bt_field_create(struct bt_field_type *type)
 {
-       struct bt_ctf_field_type *ret = NULL;
+       struct bt_field *field = NULL;
+       enum bt_field_type_id type_id;
 
+       BT_ASSERT_PRE_NON_NULL(type, "Field type");
+       BT_ASSERT(field_type_common_has_known_id((void *) type));
+       BT_ASSERT_PRE(bt_field_type_common_validate((void *) type) == 0,
+               "Field type is invalid: %!+F", type);
+       type_id = bt_field_type_get_type_id(type);
+       field = field_create_funcs[type_id](type);
        if (!field) {
                goto end;
        }
 
-       ret = field->type;
-       bt_get(ret);
+       bt_field_type_freeze(type);
+
 end:
-       return ret;
+       return field;
 }
 
-enum bt_ctf_type_id bt_ctf_field_get_type_id(struct bt_ctf_field *field)
+struct bt_field_type *bt_field_borrow_type(struct bt_field *field)
 {
-       enum bt_ctf_type_id ret = BT_CTF_TYPE_ID_UNKNOWN;
+       return (void *) bt_field_common_borrow_type((void *) field);
+}
 
-       if (!field) {
-               goto end;
-       }
+enum bt_field_type_id bt_field_get_type_id(struct bt_field *field)
+{
+       struct bt_field_common *field_common = (void *) field;
 
-       ret = bt_ctf_field_type_get_type_id(field->type);
-end:
-       return ret;
+       BT_ASSERT_PRE_NON_NULL(field, "Field");
+       return field_common->type->id;
 }
 
-int bt_ctf_field_is_integer(struct bt_ctf_field *field)
+bt_bool bt_field_is_integer(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_INTEGER;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_INTEGER;
 }
 
-int bt_ctf_field_is_floating_point(struct bt_ctf_field *field)
+bt_bool bt_field_is_floating_point(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_FLOAT;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_FLOAT;
 }
 
-int bt_ctf_field_is_enumeration(struct bt_ctf_field *field)
+bt_bool bt_field_is_enumeration(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_ENUM;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_ENUM;
 }
 
-int bt_ctf_field_is_string(struct bt_ctf_field *field)
+bt_bool bt_field_is_string(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_STRING;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_STRING;
 }
 
-int bt_ctf_field_is_structure(struct bt_ctf_field *field)
+bt_bool bt_field_is_structure(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_STRUCT;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_STRUCT;
 }
 
-int bt_ctf_field_is_array(struct bt_ctf_field *field)
+bt_bool bt_field_is_array(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_ARRAY;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_ARRAY;
 }
 
-int bt_ctf_field_is_sequence(struct bt_ctf_field *field)
+bt_bool bt_field_is_sequence(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_SEQUENCE;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_SEQUENCE;
 }
 
-int bt_ctf_field_is_variant(struct bt_ctf_field *field)
+bt_bool bt_field_is_variant(struct bt_field *field)
 {
-       return bt_ctf_field_get_type_id(field) == BT_CTF_TYPE_ID_VARIANT;
+       return bt_field_get_type_id(field) == BT_FIELD_TYPE_ID_VARIANT;
 }
 
-struct bt_ctf_field *bt_ctf_field_sequence_get_length(
-               struct bt_ctf_field *field)
+BT_HIDDEN
+int64_t bt_field_sequence_get_int_length(struct bt_field *field)
 {
-       struct bt_ctf_field *ret = NULL;
-       struct bt_ctf_field_sequence *sequence;
-
-       if (!field) {
-               goto end;
-       }
-
-       if (bt_ctf_field_type_get_type_id(field->type) !=
-               BT_CTF_TYPE_ID_SEQUENCE) {
-               goto end;
-       }
-
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
-       ret = sequence->length;
-       bt_get(ret);
-end:
-       return ret;
+       return bt_field_common_sequence_get_int_length((void *) field);
 }
 
-int bt_ctf_field_sequence_set_length(struct bt_ctf_field *field,
-               struct bt_ctf_field *length_field)
+struct bt_field *bt_field_sequence_borrow_length(struct bt_field *field)
 {
-       int ret = 0;
-       struct bt_ctf_field_type_integer *length_type;
-       struct bt_ctf_field_integer *length;
-       struct bt_ctf_field_sequence *sequence;
-       uint64_t sequence_length;
-
-       if (!field || !length_field || field->frozen) {
-               ret = -1;
-               goto end;
-       }
-       if (bt_ctf_field_type_get_type_id(length_field->type) !=
-               BT_CTF_TYPE_ID_INTEGER) {
-               ret = -1;
-               goto end;
-       }
-
-       length_type = container_of(length_field->type,
-               struct bt_ctf_field_type_integer, parent);
-       /* The length field must be unsigned */
-       if (length_type->is_signed) {
-               ret = -1;
-               goto end;
-       }
-
-       length = container_of(length_field, struct bt_ctf_field_integer,
-               parent);
-       sequence_length = length->payload.unsignd;
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
-       if (sequence->elements) {
-               g_ptr_array_free(sequence->elements, TRUE);
-               bt_put(sequence->length);
-       }
-
-       sequence->elements = g_ptr_array_sized_new((size_t)sequence_length);
-       if (!sequence->elements) {
-               ret = -1;
-               goto end;
-       }
-
-       g_ptr_array_set_free_func(sequence->elements,
-               (GDestroyNotify) bt_put);
-       g_ptr_array_set_size(sequence->elements, (size_t) sequence_length);
-       bt_get(length_field);
-       sequence->length = length_field;
-end:
-       return ret;
+       return (void *) bt_field_common_sequence_borrow_length((void *) field);
 }
 
-struct bt_ctf_field *bt_ctf_field_structure_get_field(
-               struct bt_ctf_field *field, const char *name)
+int bt_field_sequence_set_length(struct bt_field *field,
+               struct bt_field *length_field)
 {
-       struct bt_ctf_field *new_field = NULL;
-       GQuark field_quark;
-       struct bt_ctf_field_structure *structure;
-       struct bt_ctf_field_type *field_type = NULL;
-       size_t index;
-
-       if (!field || !name ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRUCT) {
-               goto error;
-       }
-
-       field_quark = g_quark_from_string(name);
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
-       field_type =
-               bt_ctf_field_type_structure_get_field_type_by_name(field->type,
-               name);
-       if (!g_hash_table_lookup_extended(structure->field_name_to_index,
-               GUINT_TO_POINTER(field_quark), NULL, (gpointer *)&index)) {
-               goto error;
-       }
-
-       if (structure->fields->pdata[index]) {
-               new_field = structure->fields->pdata[index];
-               goto end;
-       }
-
-       /* We don't want to modify this field if it's frozen */
-       if (field->frozen) {
-               goto end;
-       }
-
-       new_field = bt_ctf_field_create(field_type);
-       if (!new_field) {
-               goto error;
-       }
-
-       structure->fields->pdata[index] = new_field;
-end:
-       bt_get(new_field);
-error:
-       if (field_type) {
-               bt_put(field_type);
-       }
-       return new_field;
+       return bt_field_common_sequence_set_length((void *) field,
+               (void *) length_field);
 }
 
-struct bt_ctf_field *bt_ctf_field_structure_get_field_by_index(
-               struct bt_ctf_field *field, int index)
+struct bt_field *bt_field_structure_borrow_field_by_index(
+               struct bt_field *field, uint64_t index)
 {
-       int ret;
-       const char *field_name;
-       struct bt_ctf_field_structure *structure;
-       struct bt_ctf_field_type *structure_type;
-       struct bt_ctf_field_type *field_type = NULL;
-       struct bt_ctf_field *ret_field = NULL;
-
-       if (!field ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-               BT_CTF_TYPE_ID_STRUCT) {
-               goto end;
-       }
-
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
-       if (index >= structure->fields->len) {
-               goto error;
-       }
-
-       ret_field = structure->fields->pdata[index];
-       if (ret_field) {
-               goto end;
-       }
-
-       /* We don't want to modify this field if it's frozen */
-       if (field->frozen) {
-               goto end;
-       }
-
-       /* Field has not been instanciated yet, create it */
-       structure_type = bt_ctf_field_get_type(field);
-       if (!structure_type) {
-               goto error;
-       }
-
-       ret = bt_ctf_field_type_structure_get_field(structure_type,
-               &field_name, &field_type, index);
-       bt_put(structure_type);
-       if (ret) {
-               goto error;
-       }
-
-       ret_field = bt_ctf_field_create(field_type);
-       if (!ret_field) {
-               goto error;
-       }
-
-       structure->fields->pdata[index] = ret_field;
-end:
-       bt_get(ret_field);
-error:
-       bt_put(field_type);
-       return ret_field;
+       return (void *) bt_field_common_structure_borrow_field_by_index(
+               (void *) field, index);
 }
 
-int bt_ctf_field_structure_set_field(struct bt_ctf_field *field,
-               const char *name, struct bt_ctf_field *value)
+struct bt_field *bt_field_structure_borrow_field_by_name(
+               struct bt_field *field, const char *name)
 {
-       int ret = 0;
-       GQuark field_quark;
-       struct bt_ctf_field_structure *structure;
-       struct bt_ctf_field_type *expected_field_type = NULL;
-       size_t index;
-
-       if (!field || !name || !value || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRUCT) {
-               ret = -1;
-               goto end;
-       }
-
-       field_quark = g_quark_from_string(name);
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
-       expected_field_type =
-               bt_ctf_field_type_structure_get_field_type_by_name(field->type,
-               name);
-
-       if (bt_ctf_field_type_compare(expected_field_type, value->type)) {
-               ret = -1;
-               goto end;
-       }
-
-       if (!g_hash_table_lookup_extended(structure->field_name_to_index,
-               GUINT_TO_POINTER(field_quark), NULL, (gpointer *) &index)) {
-               goto end;
-       }
-
-       if (structure->fields->pdata[index]) {
-               bt_put(structure->fields->pdata[index]);
-       }
-
-       structure->fields->pdata[index] = value;
-       bt_get(value);
-end:
-       if (expected_field_type) {
-               bt_put(expected_field_type);
-       }
-       return ret;
+       return (void *) bt_field_common_structure_borrow_field_by_name(
+               (void *) field, name);
 }
 
-struct bt_ctf_field *bt_ctf_field_array_get_field(struct bt_ctf_field *field,
-               uint64_t index)
+int bt_field_structure_set_field_by_name(struct bt_field_common *field,
+               const char *name, struct bt_field_common *value)
 {
-       struct bt_ctf_field *new_field = NULL;
-       struct bt_ctf_field_type *field_type = NULL;
-       struct bt_ctf_field_array *array;
-
-       if (!field || bt_ctf_field_type_get_type_id(field->type) !=
-               BT_CTF_TYPE_ID_ARRAY) {
-               goto end;
-       }
+       return bt_field_common_structure_set_field_by_name((void *) field,
+               name, (void *) value);
+}
 
-       array = container_of(field, struct bt_ctf_field_array, parent);
-       if (index >= array->elements->len) {
-               goto end;
-       }
+struct bt_field *bt_field_array_borrow_field(
+               struct bt_field *field, uint64_t index)
+{
+       return (void *) bt_field_common_array_borrow_field((void *) field,
+               index, (bt_field_common_create_func) bt_field_create);
+}
 
-       field_type = bt_ctf_field_type_array_get_element_type(field->type);
-       if (array->elements->pdata[(size_t)index]) {
-               new_field = array->elements->pdata[(size_t)index];
-               goto end;
-       }
+struct bt_field *bt_field_sequence_borrow_field(
+               struct bt_field *field, uint64_t index)
+{
+       return (void *) bt_field_common_sequence_borrow_field((void *) field,
+               index, (bt_field_common_create_func) bt_field_create);
+}
 
-       /* We don't want to modify this field if it's frozen */
-       if (field->frozen) {
-               goto end;
-       }
+struct bt_field *bt_field_variant_borrow_field(struct bt_field *field,
+               struct bt_field *tag_field)
+{
+       return (void *) bt_field_common_variant_borrow_field((void *) field,
+               (void *) tag_field,
+               (bt_field_common_create_func) bt_field_create);
+}
 
-       new_field = bt_ctf_field_create(field_type);
-       array->elements->pdata[(size_t)index] = new_field;
-end:
-       if (field_type) {
-               bt_put(field_type);
-       }
-       if (new_field) {
-               bt_get(new_field);
-       }
-       return new_field;
+struct bt_field *bt_field_variant_borrow_current_field(
+               struct bt_field *variant_field)
+{
+       return (void *) bt_field_common_variant_borrow_current_field(
+               (void *) variant_field);
 }
 
-struct bt_ctf_field *bt_ctf_field_sequence_get_field(struct bt_ctf_field *field,
-               uint64_t index)
+struct bt_field_common *bt_field_variant_borrow_tag(
+               struct bt_field_common *variant_field)
 {
-       struct bt_ctf_field *new_field = NULL;
-       struct bt_ctf_field_type *field_type = NULL;
-       struct bt_ctf_field_sequence *sequence;
+       return (void *) bt_field_common_variant_borrow_tag(
+               (void *) variant_field);
+}
 
-       if (!field || bt_ctf_field_type_get_type_id(field->type) !=
-               BT_CTF_TYPE_ID_SEQUENCE) {
-               goto end;
-       }
+struct bt_field *bt_field_enumeration_borrow_container(struct bt_field *field)
+{
+       return (void *) bt_field_common_enumeration_borrow_container(
+               (void *) field, (bt_field_common_create_func) bt_field_create);
+}
 
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
-       if (!sequence->elements || sequence->elements->len <= index) {
-               goto end;
-       }
+struct bt_field_type_enumeration_mapping_iterator *
+bt_field_enumeration_get_mappings(struct bt_field *field)
+{
+       return bt_field_common_enumeration_get_mappings((void *) field,
+               (bt_field_common_create_func) bt_field_create);
+}
 
-       field_type = bt_ctf_field_type_sequence_get_element_type(field->type);
-       if (sequence->elements->pdata[(size_t) index]) {
-               new_field = sequence->elements->pdata[(size_t) index];
-               goto end;
-       }
+int bt_field_integer_signed_get_value(struct bt_field *field, int64_t *value)
+{
+       return bt_field_common_integer_signed_get_value((void *) field, value);
+}
 
-       /* We don't want to modify this field if it's frozen */
-       if (field->frozen) {
-               goto end;
-       }
+int bt_field_integer_signed_set_value(struct bt_field *field,
+               int64_t value)
+{
+       return bt_field_common_integer_signed_set_value((void *) field, value);
+}
 
-       new_field = bt_ctf_field_create(field_type);
-       sequence->elements->pdata[(size_t) index] = new_field;
-end:
-       if (field_type) {
-               bt_put(field_type);
-       }
-       if (new_field) {
-               bt_get(new_field);
-       }
-       return new_field;
+int bt_field_integer_unsigned_get_value(struct bt_field *field,
+               uint64_t *value)
+{
+       return bt_field_common_integer_unsigned_get_value((void *) field,
+               value);
 }
 
-struct bt_ctf_field *bt_ctf_field_variant_get_field(struct bt_ctf_field *field,
-               struct bt_ctf_field *tag_field)
+int bt_field_integer_unsigned_set_value(struct bt_field *field, uint64_t value)
 {
-       struct bt_ctf_field *new_field = NULL;
-       struct bt_ctf_field_variant *variant;
-       struct bt_ctf_field_type_variant *variant_type;
-       struct bt_ctf_field_type *field_type;
-       struct bt_ctf_field *tag_enum = NULL;
-       struct bt_ctf_field_integer *tag_enum_integer;
-       int64_t tag_enum_value;
+       return bt_field_common_integer_unsigned_set_value((void *) field, value);
+}
 
-       if (!field || !tag_field ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_VARIANT ||
-               bt_ctf_field_type_get_type_id(tag_field->type) !=
-                       BT_CTF_TYPE_ID_ENUM) {
-               goto end;
-       }
+int bt_field_floating_point_get_value(struct bt_field *field,
+               double *value)
+{
+       return bt_field_common_floating_point_get_value((void *) field, value);
+}
 
-       variant = container_of(field, struct bt_ctf_field_variant, parent);
-       variant_type = container_of(field->type,
-               struct bt_ctf_field_type_variant, parent);
-       tag_enum = bt_ctf_field_enumeration_get_container(tag_field);
-       if (!tag_enum) {
-               goto end;
-       }
-
-       tag_enum_integer = container_of(tag_enum, struct bt_ctf_field_integer,
-               parent);
-
-       if (bt_ctf_field_validate(tag_field) < 0) {
-               goto end;
-       }
-
-       tag_enum_value = tag_enum_integer->payload.signd;
-
-       /*
-        * If the variant currently has a tag and a payload, and if the
-        * requested tag value is the same as the current one, return
-        * the current payload instead of creating a fresh one.
-        */
-       if (variant->tag && variant->payload) {
-               struct bt_ctf_field *cur_tag_container = NULL;
-               struct bt_ctf_field_integer *cur_tag_enum_integer;
-               int64_t cur_tag_value;
-
-               cur_tag_container =
-                       bt_ctf_field_enumeration_get_container(variant->tag);
-               assert(cur_tag_container);
-               cur_tag_enum_integer = container_of(cur_tag_container,
-                       struct bt_ctf_field_integer, parent);
-               bt_put(cur_tag_container);
-               cur_tag_value = cur_tag_enum_integer->payload.signd;
-
-               if (cur_tag_value == tag_enum_value) {
-                       new_field = variant->payload;
-                       bt_get(new_field);
-                       goto end;
-               }
-       }
-
-       /* We don't want to modify this field if it's frozen */
-       if (field->frozen) {
-               goto end;
-       }
-
-       field_type = bt_ctf_field_type_variant_get_field_type_signed(
-               variant_type, tag_enum_value);
-       if (!field_type) {
-               goto end;
-       }
-
-       new_field = bt_ctf_field_create(field_type);
-       if (!new_field) {
-               goto end;
-       }
-
-       bt_put(variant->tag);
-       bt_put(variant->payload);
-       bt_get(new_field);
-       bt_get(tag_field);
-       variant->tag = tag_field;
-       variant->payload = new_field;
-end:
-       bt_put(tag_enum);
-       return new_field;
-}
-
-struct bt_ctf_field *bt_ctf_field_variant_get_current_field(
-               struct bt_ctf_field *variant_field)
-{
-       struct bt_ctf_field *current_field = NULL;
-       struct bt_ctf_field_variant *variant;
-
-       if (!variant_field ||
-               bt_ctf_field_type_get_type_id(variant_field->type) !=
-                       BT_CTF_TYPE_ID_VARIANT) {
-               goto end;
-       }
-
-       variant = container_of(variant_field, struct bt_ctf_field_variant,
-               parent);
-
-       if (variant->payload) {
-               current_field = variant->payload;
-               bt_get(current_field);
-               goto end;
-       }
-
-end:
-       return current_field;
-}
-
-struct bt_ctf_field *bt_ctf_field_variant_get_tag(
-               struct bt_ctf_field *variant_field)
-{
-       struct bt_ctf_field *tag = NULL;
-       struct bt_ctf_field_variant *variant;
-
-       if (!variant_field ||
-                       bt_ctf_field_type_get_type_id(variant_field->type) !=
-                       BT_CTF_TYPE_ID_VARIANT) {
-               goto end;
-       }
-
-       variant = container_of(variant_field, struct bt_ctf_field_variant,
-                       parent);
-       if (variant->tag) {
-               tag = bt_get(variant->tag);
-       }
-end:
-       return tag;
-}
-
-struct bt_ctf_field *bt_ctf_field_enumeration_get_container(
-       struct bt_ctf_field *field)
-{
-       struct bt_ctf_field *container = NULL;
-       struct bt_ctf_field_enumeration *enumeration;
-
-       if (!field || bt_ctf_field_type_get_type_id(field->type) !=
-               BT_CTF_TYPE_ID_ENUM) {
-               goto end;
-       }
-
-       enumeration = container_of(field, struct bt_ctf_field_enumeration,
-               parent);
-       if (!enumeration->payload) {
-               /* We don't want to modify this field if it's frozen */
-               if (field->frozen) {
-                       goto end;
-               }
-
-               struct bt_ctf_field_type_enumeration *enumeration_type =
-                       container_of(field->type,
-                       struct bt_ctf_field_type_enumeration, parent);
-               enumeration->payload =
-                       bt_ctf_field_create(enumeration_type->container);
-       }
-
-       container = enumeration->payload;
-       bt_get(container);
-end:
-       return container;
-}
-
-struct bt_ctf_field_type_enumeration_mapping_iterator *
-bt_ctf_field_enumeration_get_mappings(struct bt_ctf_field *field)
-{
-       int ret;
-       struct bt_ctf_field *container = NULL;
-       struct bt_ctf_field_type *container_type = NULL;
-       struct bt_ctf_field_type_integer *integer_type = NULL;
-       struct bt_ctf_field_type_enumeration_mapping_iterator *iter = NULL;
-
-       container = bt_ctf_field_enumeration_get_container(field);
-       if (!container) {
-               goto end;
-       }
-
-       container_type = bt_ctf_field_get_type(container);
-       if (!container_type) {
-               goto error_put_container;
-       }
-
-       integer_type = container_of(container_type,
-               struct bt_ctf_field_type_integer, parent);
-
-       if (!integer_type->is_signed) {
-               uint64_t value;
-
-               ret = bt_ctf_field_unsigned_integer_get_value(container,
-                     &value);
-               if (ret) {
-                       goto error_put_container_type;
-               }
-               iter = bt_ctf_field_type_enumeration_find_mappings_by_unsigned_value(
-                               field->type, value);
-       } else {
-               int64_t value;
-
-               ret = bt_ctf_field_signed_integer_get_value(container,
-                     &value);
-               if (ret) {
-                       goto error_put_container_type;
-               }
-               iter = bt_ctf_field_type_enumeration_find_mappings_by_signed_value(
-                               field->type, value);
-       }
-
-error_put_container_type:
-       bt_put(container_type);
-error_put_container:
-       bt_put(container);
-end:
-       return iter;
-}
-
-int bt_ctf_field_signed_integer_get_value(struct bt_ctf_field *field,
-               int64_t *value)
-{
-       int ret = 0;
-       struct bt_ctf_field_integer *integer;
-       struct bt_ctf_field_type_integer *integer_type;
-
-       if (!field || !value || !field->payload_set ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_INTEGER) {
-               ret = -1;
-               goto end;
-       }
-
-       integer_type = container_of(field->type,
-               struct bt_ctf_field_type_integer, parent);
-       if (!integer_type->is_signed) {
-               ret = -1;
-               goto end;
-       }
-
-       integer = container_of(field,
-               struct bt_ctf_field_integer, parent);
-       *value = integer->payload.signd;
-end:
-       return ret;
-}
-
-int bt_ctf_field_signed_integer_set_value(struct bt_ctf_field *field,
-               int64_t value)
-{
-       int ret = 0;
-       struct bt_ctf_field_integer *integer;
-       struct bt_ctf_field_type_integer *integer_type;
-       unsigned int size;
-       int64_t min_value, max_value;
-
-       if (!field || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_INTEGER) {
-               ret = -1;
-               goto end;
-       }
-
-       integer = container_of(field, struct bt_ctf_field_integer, parent);
-       integer_type = container_of(field->type,
-               struct bt_ctf_field_type_integer, parent);
-       if (!integer_type->is_signed) {
-               ret = -1;
-               goto end;
-       }
-
-       size = integer_type->size;
-       min_value = -(1ULL << (size - 1));
-       max_value = (1ULL << (size - 1)) - 1;
-       if (value < min_value || value > max_value) {
-               ret = -1;
-               goto end;
-       }
-
-       integer->payload.signd = value;
-       integer->parent.payload_set = 1;
-end:
-       return ret;
-}
-
-int bt_ctf_field_unsigned_integer_get_value(struct bt_ctf_field *field,
-               uint64_t *value)
-{
-       int ret = 0;
-       struct bt_ctf_field_integer *integer;
-       struct bt_ctf_field_type_integer *integer_type;
-
-       if (!field || !value || !field->payload_set ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_INTEGER) {
-               ret = -1;
-               goto end;
-       }
-
-       integer_type = container_of(field->type,
-               struct bt_ctf_field_type_integer, parent);
-       if (integer_type->is_signed) {
-               ret = -1;
-               goto end;
-       }
-
-       integer = container_of(field,
-               struct bt_ctf_field_integer, parent);
-       *value = integer->payload.unsignd;
-end:
-       return ret;
-}
-
-int bt_ctf_field_unsigned_integer_set_value(struct bt_ctf_field *field,
-               uint64_t value)
-{
-       int ret = 0;
-       struct bt_ctf_field_integer *integer;
-       struct bt_ctf_field_type_integer *integer_type;
-       unsigned int size;
-       uint64_t max_value;
-
-       if (!field || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_INTEGER) {
-               ret = -1;
-               goto end;
-       }
-
-       integer = container_of(field, struct bt_ctf_field_integer, parent);
-       integer_type = container_of(field->type,
-               struct bt_ctf_field_type_integer, parent);
-       if (integer_type->is_signed) {
-               ret = -1;
-               goto end;
-       }
-
-       size = integer_type->size;
-       max_value = (size == 64) ? UINT64_MAX : ((uint64_t) 1 << size) - 1;
-       if (value > max_value) {
-               ret = -1;
-               goto end;
-       }
-
-       integer->payload.unsignd = value;
-       integer->parent.payload_set = 1;
-end:
-       return ret;
-}
-
-int bt_ctf_field_floating_point_get_value(struct bt_ctf_field *field,
-               double *value)
-{
-       int ret = 0;
-       struct bt_ctf_field_floating_point *floating_point;
-
-       if (!field || !value || !field->payload_set ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_FLOAT) {
-               ret = -1;
-               goto end;
-       }
-
-       floating_point = container_of(field,
-               struct bt_ctf_field_floating_point, parent);
-       *value = floating_point->payload;
-end:
-       return ret;
-}
-
-int bt_ctf_field_floating_point_set_value(struct bt_ctf_field *field,
+int bt_field_floating_point_set_value(struct bt_field *field,
                double value)
 {
-       int ret = 0;
-       struct bt_ctf_field_floating_point *floating_point;
-
-       if (!field || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_FLOAT) {
-               ret = -1;
-               goto end;
-       }
-       floating_point = container_of(field, struct bt_ctf_field_floating_point,
-               parent);
-       floating_point->payload = value;
-       floating_point->parent.payload_set = 1;
-end:
-       return ret;
-}
-
-const char *bt_ctf_field_string_get_value(struct bt_ctf_field *field)
-{
-       const char *ret = NULL;
-       struct bt_ctf_field_string *string;
-
-       if (!field || !field->payload_set ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRING) {
-               goto end;
-       }
-
-       string = container_of(field,
-               struct bt_ctf_field_string, parent);
-       ret = string->payload->str;
-end:
-       return ret;
-}
-
-int bt_ctf_field_string_set_value(struct bt_ctf_field *field,
-               const char *value)
-{
-       int ret = 0;
-       struct bt_ctf_field_string *string;
-
-       if (!field || !value || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRING) {
-               ret = -1;
-               goto end;
-       }
-
-       string = container_of(field, struct bt_ctf_field_string, parent);
-       if (string->payload) {
-               g_string_assign(string->payload, value);
-       } else {
-               string->payload = g_string_new(value);
-       }
-
-       string->parent.payload_set = 1;
-end:
-       return ret;
-}
-
-int bt_ctf_field_string_append(struct bt_ctf_field *field,
-               const char *value)
-{
-       int ret = 0;
-       struct bt_ctf_field_string *string_field;
-
-       if (!field || !value || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRING) {
-               ret = -1;
-               goto end;
-       }
-
-       string_field = container_of(field, struct bt_ctf_field_string, parent);
-
-       if (string_field->payload) {
-               g_string_append(string_field->payload, value);
-       } else {
-               string_field->payload = g_string_new(value);
-       }
-
-       string_field->parent.payload_set = 1;
-
-end:
-       return ret;
-}
-
-int bt_ctf_field_string_append_len(struct bt_ctf_field *field,
-               const char *value, unsigned int length)
-{
-       int i;
-       int ret = 0;
-       unsigned int effective_length = length;
-       struct bt_ctf_field_string *string_field;
-
-       if (!field || !value || field->frozen ||
-               bt_ctf_field_type_get_type_id(field->type) !=
-                       BT_CTF_TYPE_ID_STRING) {
-               ret = -1;
-               goto end;
-       }
-
-       string_field = container_of(field, struct bt_ctf_field_string, parent);
-
-       /* make sure no null bytes are appended */
-       for (i = 0; i < length; ++i) {
-               if (value[i] == '\0') {
-                       effective_length = i;
-                       break;
-               }
-       }
-
-       if (string_field->payload) {
-               g_string_append_len(string_field->payload, value,
-                       effective_length);
-       } else {
-               string_field->payload = g_string_new_len(value,
-                       effective_length);
-       }
-
-       string_field->parent.payload_set = 1;
-
-end:
-       return ret;
-}
-
-BT_HIDDEN
-int bt_ctf_field_validate(struct bt_ctf_field *field)
-{
-       int ret = 0;
-       enum bt_ctf_type_id type_id;
-
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
-
-       type_id = bt_ctf_field_type_get_type_id(field->type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN || type_id >= BT_CTF_NR_TYPE_IDS) {
-               ret = -1;
-               goto end;
-       }
-
-       ret = field_validate_funcs[type_id](field);
-end:
-       return ret;
-}
-
-BT_HIDDEN
-int bt_ctf_field_reset(struct bt_ctf_field *field)
-{
-       int ret = 0;
-       enum bt_ctf_type_id type_id;
-
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
-
-       type_id = bt_ctf_field_type_get_type_id(field->type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN || type_id >= BT_CTF_NR_TYPE_IDS) {
-               ret = -1;
-               goto end;
-       }
-
-       ret = field_reset_funcs[type_id](field);
-end:
-       return ret;
-}
-
-BT_HIDDEN
-int bt_ctf_field_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
-{
-       int ret = 0;
-       enum bt_ctf_type_id type_id;
-
-       if (!field || !pos) {
-               ret = -1;
-               goto end;
-       }
-
-       type_id = bt_ctf_field_type_get_type_id(field->type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN || type_id >= BT_CTF_NR_TYPE_IDS) {
-               ret = -1;
-               goto end;
-       }
-
-       ret = field_serialize_funcs[type_id](field, pos, native_byte_order);
-end:
-       return ret;
-}
-
-
-BT_HIDDEN
-bool bt_ctf_field_is_set(struct bt_ctf_field *field)
-{
-       bool is_set = false;
-       enum bt_ctf_type_id type_id;
-
-       if (!field) {
-               goto end;
-       }
-
-       type_id = bt_ctf_field_type_get_type_id(field->type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN || type_id >= BT_CTF_NR_TYPE_IDS) {
-               goto end;
-       }
-
-       is_set = field_is_set_funcs[type_id](field);
-end:
-       return is_set;
-}
-
-struct bt_ctf_field *bt_ctf_field_copy(struct bt_ctf_field *field)
-{
-       int ret;
-       struct bt_ctf_field *copy = NULL;
-       enum bt_ctf_type_id type_id;
-
-       if (!field) {
-               goto end;
-       }
-
-       type_id = bt_ctf_field_type_get_type_id(field->type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN || type_id >= BT_CTF_NR_TYPE_IDS) {
-               goto end;
-       }
-
-       copy = bt_ctf_field_create(field->type);
-       if (!copy) {
-               goto end;
-       }
-
-       copy->payload_set = field->payload_set;
-       ret = field_copy_funcs[type_id](field, copy);
-       if (ret) {
-               bt_put(copy);
-               copy = NULL;
-       }
-end:
-       return copy;
-}
-
-static
-struct bt_ctf_field *bt_ctf_field_integer_create(struct bt_ctf_field_type *type)
-{
-       struct bt_ctf_field_integer *integer = g_new0(
-               struct bt_ctf_field_integer, 1);
-
-       return integer ? &integer->parent : NULL;
+       return bt_field_common_floating_point_set_value((void *) field, value);
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_enumeration_create(
-       struct bt_ctf_field_type *type)
+const char *bt_field_string_get_value(struct bt_field *field)
 {
-       struct bt_ctf_field_enumeration *enumeration = g_new0(
-               struct bt_ctf_field_enumeration, 1);
-
-       return enumeration ? &enumeration->parent : NULL;
+       return bt_field_common_string_get_value((void *) field);
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_floating_point_create(
-       struct bt_ctf_field_type *type)
+int bt_field_string_set_value(struct bt_field *field, const char *value)
 {
-       struct bt_ctf_field_floating_point *floating_point;
-
-       floating_point = g_new0(struct bt_ctf_field_floating_point, 1);
-       return floating_point ? &floating_point->parent : NULL;
+       return bt_field_common_string_set_value((void *) field, value);
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_structure_create(
-       struct bt_ctf_field_type *type)
+int bt_field_string_append(struct bt_field *field, const char *value)
 {
-       struct bt_ctf_field_type_structure *structure_type = container_of(type,
-               struct bt_ctf_field_type_structure, parent);
-       struct bt_ctf_field_structure *structure = g_new0(
-               struct bt_ctf_field_structure, 1);
-       struct bt_ctf_field *field = NULL;
-
-       if (!structure) {
-               goto end;
-       }
-
-       structure->field_name_to_index = structure_type->field_name_to_index;
-       structure->fields = g_ptr_array_new_with_free_func(
-               (GDestroyNotify)bt_ctf_field_put);
-       g_ptr_array_set_size(structure->fields,
-               g_hash_table_size(structure->field_name_to_index));
-       field = &structure->parent;
-end:
-       return field;
+       return bt_field_common_string_append((void *) field, value);
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_variant_create(struct bt_ctf_field_type *type)
+int bt_field_string_append_len(struct bt_field *field,
+               const char *value, unsigned int length)
 {
-       struct bt_ctf_field_variant *variant = g_new0(
-               struct bt_ctf_field_variant, 1);
-       return variant ? &variant->parent : NULL;
+       return bt_field_common_string_append_len((void *) field, value, length);
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_array_create(struct bt_ctf_field_type *type)
+BT_HIDDEN
+struct bt_field_common *bt_field_common_copy(struct bt_field_common *field)
 {
-       struct bt_ctf_field_array *array = g_new0(struct bt_ctf_field_array, 1);
-       struct bt_ctf_field_type_array *array_type;
-       unsigned int array_length;
-
-       if (!array || !type) {
-               goto error;
-       }
+       struct bt_field_common *copy = NULL;
 
-       array_type = container_of(type, struct bt_ctf_field_type_array, parent);
-       array_length = array_type->length;
-       array->elements = g_ptr_array_sized_new(array_length);
-       if (!array->elements) {
-               goto error;
+       BT_ASSERT_PRE_NON_NULL(field, "Field");
+       BT_ASSERT(field_type_common_has_known_id(field->type));
+       BT_ASSERT(field->methods->copy);
+       copy = field->methods->copy(field);
+       if (!copy) {
+               BT_LOGW("Cannot create field: ft-addr=%p", field->type);
+               goto end;
        }
 
-       g_ptr_array_set_free_func(array->elements,
-               (GDestroyNotify)bt_ctf_field_put);
-       g_ptr_array_set_size(array->elements, array_length);
-       return &array->parent;
-error:
-       g_free(array);
-       return NULL;
-}
+       bt_field_common_set(copy, field->payload_set);
 
-static
-struct bt_ctf_field *bt_ctf_field_sequence_create(
-       struct bt_ctf_field_type *type)
-{
-       struct bt_ctf_field_sequence *sequence = g_new0(
-               struct bt_ctf_field_sequence, 1);
-       return sequence ? &sequence->parent : NULL;
+end:
+       return copy;
 }
 
-static
-struct bt_ctf_field *bt_ctf_field_string_create(struct bt_ctf_field_type *type)
+struct bt_field *bt_field_copy(struct bt_field *field)
 {
-       struct bt_ctf_field_string *string = g_new0(
-               struct bt_ctf_field_string, 1);
-       return string ? &string->parent : NULL;
+       return (void *) bt_field_common_copy((void *) field);
 }
 
-static
-void bt_ctf_field_destroy(struct bt_object *obj)
+static void bt_field_common_finalize(struct bt_field_common *field)
 {
-       struct bt_ctf_field *field;
-       struct bt_ctf_field_type *type;
-       enum bt_ctf_type_id type_id;
-
-       field = container_of(obj, struct bt_ctf_field, base);
-       type = field->type;
-       type_id = bt_ctf_field_type_get_type_id(type);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN ||
-               type_id >= BT_CTF_NR_TYPE_IDS) {
-               return;
-       }
-
-       field_destroy_funcs[type_id](field);
-       bt_put(type);
+       BT_ASSERT(field);
+       BT_LOGD_STR("Putting field's type.");
+       bt_put(field->type);
 }
 
-static
-void bt_ctf_field_integer_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_integer_destroy(struct bt_object *obj)
 {
-       struct bt_ctf_field_integer *integer;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_integer *integer = (void *) obj;
 
-       integer = container_of(field, struct bt_ctf_field_integer, parent);
-       g_free(integer);
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(integer));
+       BT_LOGD("Destroying integer field object: addr=%p", obj);
+       g_free(obj);
 }
 
-static
-void bt_ctf_field_enumeration_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_enumeration_destroy_recursive(struct bt_object *obj)
 {
-       struct bt_ctf_field_enumeration *enumeration;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_enumeration *enumeration = (void *) obj;
 
-       enumeration = container_of(field, struct bt_ctf_field_enumeration,
-               parent);
+       BT_ASSERT(enumeration);
+       bt_field_common_finalize(BT_TO_COMMON(enumeration));
+       BT_LOGD("Destroying enumeration field object: addr=%p", obj);
+       BT_LOGD_STR("Putting payload field.");
        bt_put(enumeration->payload);
        g_free(enumeration);
 }
 
-static
-void bt_ctf_field_floating_point_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_floating_point_destroy(struct bt_object *obj)
 {
-       struct bt_ctf_field_floating_point *floating_point;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_floating_point *floating_point = (void *) obj;
 
-       floating_point = container_of(field, struct bt_ctf_field_floating_point,
-               parent);
-       g_free(floating_point);
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(floating_point));
+       BT_LOGD("Destroying floating point number field object: addr=%p", obj);
+       g_free(obj);
 }
 
-static
-void bt_ctf_field_structure_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_structure_destroy_recursive(struct bt_object *obj)
 {
-       struct bt_ctf_field_structure *structure;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_structure *structure = (void *) obj;
 
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(structure));
+       BT_LOGD("Destroying structure field object: addr=%p", obj);
        g_ptr_array_free(structure->fields, TRUE);
        g_free(structure);
 }
 
-static
-void bt_ctf_field_variant_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_variant_destroy_recursive(struct bt_object *obj)
 {
-       struct bt_ctf_field_variant *variant;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_variant *variant = (void *) obj;
 
-       variant = container_of(field, struct bt_ctf_field_variant, parent);
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(variant));
+       BT_LOGD("Destroying variant field object: addr=%p", obj);
+       BT_LOGD_STR("Putting tag field.");
        bt_put(variant->tag);
+       BT_LOGD_STR("Putting payload field.");
        bt_put(variant->payload);
        g_free(variant);
 }
 
-static
-void bt_ctf_field_array_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_array_destroy_recursive(struct bt_object *obj)
 {
-       struct bt_ctf_field_array *array;
-
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_array *array = (void *) obj;
 
-       array = container_of(field, struct bt_ctf_field_array, parent);
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(array));
+       BT_LOGD("Destroying array field object: addr=%p", obj);
        g_ptr_array_free(array->elements, TRUE);
        g_free(array);
 }
 
-static
-void bt_ctf_field_sequence_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_sequence_destroy_recursive(struct bt_object *obj)
 {
-       struct bt_ctf_field_sequence *sequence;
+       struct bt_field_common_sequence *sequence = (void *) obj;
 
-       if (!field) {
-               return;
-       }
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(sequence));
+       BT_LOGD("Destroying sequence field object: addr=%p", obj);
 
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
        if (sequence->elements) {
                g_ptr_array_free(sequence->elements, TRUE);
        }
+
+       BT_LOGD_STR("Putting length field.");
        bt_put(sequence->length);
        g_free(sequence);
 }
 
-static
-void bt_ctf_field_string_destroy(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_string_destroy(struct bt_object *obj)
 {
-       struct bt_ctf_field_string *string;
-       if (!field) {
-               return;
-       }
+       struct bt_field_common_string *string = (void *) obj;
+
+       BT_ASSERT(obj);
+       bt_field_common_finalize(BT_TO_COMMON(string));
+       BT_LOGD("Destroying string field object: addr=%p", obj);
 
-       string = container_of(field, struct bt_ctf_field_string, parent);
        if (string->payload) {
                g_string_free(string->payload, TRUE);
        }
-       g_free(string);
-}
 
-static
-int bt_ctf_field_generic_validate(struct bt_ctf_field *field)
-{
-       return (field && field->payload_set) ? 0 : -1;
+       g_free(string);
 }
 
 static
-int bt_ctf_field_enumeration_validate(struct bt_ctf_field *field)
+struct bt_field *bt_field_integer_create(struct bt_field_type *type)
 {
-       int ret;
-       struct bt_ctf_field_enumeration *enumeration;
+       struct bt_field_common_integer *integer =
+               g_new0(struct bt_field_common_integer, 1);
 
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       BT_LOGD("Creating integer field object: ft-addr=%p", type);
 
-       enumeration = container_of(field, struct bt_ctf_field_enumeration,
-               parent);
-       if (!enumeration->payload) {
-               ret = -1;
-               goto end;
+       if (integer) {
+               bt_field_common_initialize(BT_TO_COMMON(integer), (void *) type,
+                       bt_field_common_integer_destroy,
+                       &bt_field_integer_methods);
+               BT_LOGD("Created integer field object: addr=%p, ft-addr=%p",
+                       integer, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one integer field.");
        }
 
-       ret = bt_ctf_field_validate(enumeration->payload);
-end:
-       return ret;
+       return (void *) integer;
 }
 
 static
-int bt_ctf_field_structure_validate(struct bt_ctf_field *field)
+struct bt_field *bt_field_enumeration_create(struct bt_field_type *type)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_structure *structure;
+       struct bt_field_common_enumeration *enumeration = g_new0(
+               struct bt_field_common_enumeration, 1);
 
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       BT_LOGD("Creating enumeration field object: ft-addr=%p", type);
 
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
-       for (i = 0; i < structure->fields->len; i++) {
-               ret = bt_ctf_field_validate(structure->fields->pdata[i]);
-               if (ret) {
-                       const char *name;
-                       struct bt_ctf_field_type *field_type =
-                                       bt_ctf_field_get_type(field);
-
-                       (void) bt_ctf_field_type_structure_get_field(field_type,
-                                       &name, NULL, i);
-                       fprintf(stderr, "Field %s failed validation\n",
-                                       name ? name : "NULL");
-                       bt_put(field_type);
-                       goto end;
-               }
+       if (enumeration) {
+               bt_field_common_initialize(BT_TO_COMMON(enumeration),
+                       (void *) type,
+                       bt_field_common_enumeration_destroy_recursive,
+                       &bt_field_enumeration_methods);
+               BT_LOGD("Created enumeration field object: addr=%p, ft-addr=%p",
+                       enumeration, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one enumeration field.");
        }
-end:
-       return ret;
+
+       return (void *) enumeration;
 }
 
 static
-int bt_ctf_field_variant_validate(struct bt_ctf_field *field)
+struct bt_field *bt_field_floating_point_create(struct bt_field_type *type)
 {
-       int ret = 0;
-       struct bt_ctf_field_variant *variant;
+       struct bt_field_common_floating_point *floating_point;
 
-       if (!field) {
-               ret = -1;
-               goto end;
+       BT_LOGD("Creating floating point number field object: ft-addr=%p", type);
+       floating_point = g_new0(struct bt_field_common_floating_point, 1);
+
+       if (floating_point) {
+               bt_field_common_initialize(BT_TO_COMMON(floating_point),
+                       (void *) type,
+                       bt_field_common_floating_point_destroy,
+                       &bt_field_floating_point_methods);
+               BT_LOGD("Created floating point number field object: addr=%p, ft-addr=%p",
+                       floating_point, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one floating point number field.");
        }
 
-       variant = container_of(field, struct bt_ctf_field_variant, parent);
-       ret = bt_ctf_field_validate(variant->payload);
-end:
-       return ret;
+       return (void *) floating_point;
 }
 
-static
-int bt_ctf_field_array_validate(struct bt_ctf_field *field)
+BT_HIDDEN
+int bt_field_common_structure_initialize(struct bt_field_common *field,
+               struct bt_field_type_common *type,
+               bt_object_release_func release_func,
+               struct bt_field_common_methods *methods,
+               bt_field_common_create_func field_create_func)
 {
-       size_t i;
        int ret = 0;
-       struct bt_ctf_field_array *array;
-
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       struct bt_field_type_common_structure *structure_type =
+               BT_FROM_COMMON(type);
+       struct bt_field_common_structure *structure = BT_FROM_COMMON(field);
+       size_t i;
 
-       array = container_of(field, struct bt_ctf_field_array, parent);
-       for (i = 0; i < array->elements->len; i++) {
-               ret = bt_ctf_field_validate(array->elements->pdata[i]);
-               if (ret) {
-                       fprintf(stderr, "Failed to validate array field #%zu\n", i);
+       BT_LOGD("Initializing common structure field object: ft-addr=%p", type);
+       bt_field_common_initialize(field, type, release_func, methods);
+       structure->fields = g_ptr_array_new_with_free_func(
+               (GDestroyNotify) bt_put);
+       g_ptr_array_set_size(structure->fields, structure_type->fields->len);
+
+       /* Create all fields contained by the structure field. */
+       for (i = 0; i < structure_type->fields->len; i++) {
+               struct bt_field_common *field;
+               struct structure_field_common *struct_field =
+                       g_ptr_array_index(structure_type->fields, i);
+
+               field = field_create_func(struct_field->type);
+               if (!field) {
+                       BT_LOGE("Failed to create structure field's member: name=\"%s\", index=%zu",
+                               g_quark_to_string(struct_field->name), i);
+                       ret = -1;
                        goto end;
                }
+
+               g_ptr_array_index(structure->fields, i) = field;
        }
+
+       BT_LOGD("Initialized common structure field object: addr=%p, ft-addr=%p",
+               field, type);
+
 end:
        return ret;
 }
 
 static
-int bt_ctf_field_sequence_validate(struct bt_ctf_field *field)
+struct bt_field *bt_field_structure_create(struct bt_field_type *type)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_sequence *sequence;
+       struct bt_field_common_structure *structure = g_new0(
+               struct bt_field_common_structure, 1);
+       int iret;
 
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       BT_LOGD("Creating structure field object: ft-addr=%p", type);
 
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
-       for (i = 0; i < sequence->elements->len; i++) {
-               ret = bt_ctf_field_validate(sequence->elements->pdata[i]);
-               if (ret) {
-                       fprintf(stderr, "Failed to validate sequence field #%zu\n", i);
-                       goto end;
-               }
+       if (!structure) {
+               BT_LOGE_STR("Failed to allocate one structure field.");
+               goto end;
        }
-end:
-       return ret;
-}
-
-static
-int bt_ctf_field_generic_reset(struct bt_ctf_field *field)
-{
-       int ret = 0;
 
-       if (!field) {
-               ret = -1;
+       iret = bt_field_common_structure_initialize(BT_TO_COMMON(structure),
+               (void *) type, bt_field_common_structure_destroy_recursive,
+               &bt_field_structure_methods,
+               (bt_field_common_create_func) bt_field_create);
+       if (iret) {
+               BT_PUT(structure);
                goto end;
        }
 
-       field->payload_set = 0;
+       BT_LOGD("Created structure field object: addr=%p, ft-addr=%p",
+               structure, type);
+
 end:
-       return ret;
+       return (void *) structure;
 }
 
 static
-int bt_ctf_field_enumeration_reset(struct bt_ctf_field *field)
+struct bt_field *bt_field_variant_create(struct bt_field_type *type)
 {
-       int ret = 0;
-       struct bt_ctf_field_enumeration *enumeration;
+       struct bt_field_common_variant *variant = g_new0(
+               struct bt_field_common_variant, 1);
 
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       BT_LOGD("Creating variant field object: ft-addr=%p", type);
 
-       enumeration = container_of(field, struct bt_ctf_field_enumeration,
-               parent);
-       if (!enumeration->payload) {
-               goto end;
+       if (variant) {
+               bt_field_common_initialize(BT_TO_COMMON(variant),
+                       (void *) type,
+                       bt_field_common_variant_destroy_recursive,
+                       &bt_field_variant_methods);
+               BT_LOGD("Created variant field object: addr=%p, ft-addr=%p",
+                       variant, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one variant field.");
        }
 
-       ret = bt_ctf_field_reset(enumeration->payload);
-end:
-       return ret;
+       return (void *) variant;
 }
 
-static
-int bt_ctf_field_structure_reset(struct bt_ctf_field *field)
+BT_HIDDEN
+int bt_field_common_array_initialize(struct bt_field_common *field,
+               struct bt_field_type_common *type,
+               bt_object_release_func release_func,
+               struct bt_field_common_methods *methods)
 {
-       size_t i;
+       struct bt_field_type_common_array *array_type = BT_FROM_COMMON(type);
+       struct bt_field_common_array *array = BT_FROM_COMMON(field);
+       unsigned int array_length;
        int ret = 0;
-       struct bt_ctf_field_structure *structure;
 
-       if (!field) {
+       BT_LOGD("Initializing common array field object: ft-addr=%p", type);
+       BT_ASSERT(type);
+       bt_field_common_initialize(field, type, release_func, methods);
+       array_length = array_type->length;
+       array->elements = g_ptr_array_sized_new(array_length);
+       if (!array->elements) {
                ret = -1;
                goto end;
        }
 
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
-       for (i = 0; i < structure->fields->len; i++) {
-               struct bt_ctf_field *member = structure->fields->pdata[i];
-
-               if (!member) {
-                       /*
-                        * Structure members are lazily initialized; skip if
-                        * this member has not been allocated yet.
-                        */
-                       continue;
-               }
+       g_ptr_array_set_free_func(array->elements, (GDestroyNotify) bt_put);
+       g_ptr_array_set_size(array->elements, array_length);
+       BT_LOGD("Initialized common array field object: addr=%p, ft-addr=%p",
+               field, type);
 
-               ret = bt_ctf_field_reset(member);
-               if (ret) {
-                       goto end;
-               }
-       }
 end:
        return ret;
 }
 
 static
-int bt_ctf_field_variant_reset(struct bt_ctf_field *field)
+struct bt_field *bt_field_array_create(struct bt_field_type *type)
 {
-       int ret = 0;
-       struct bt_ctf_field_variant *variant;
+       struct bt_field_common_array *array =
+               g_new0(struct bt_field_common_array, 1);
+       int ret;
 
-       if (!field) {
-               ret = -1;
+       BT_LOGD("Creating array field object: ft-addr=%p", type);
+       BT_ASSERT(type);
+
+       if (!array) {
+               BT_LOGE_STR("Failed to allocate one array field.");
                goto end;
        }
 
-       variant = container_of(field, struct bt_ctf_field_variant, parent);
-       if (variant->payload) {
-               ret = bt_ctf_field_reset(variant->payload);
+       ret = bt_field_common_array_initialize(BT_TO_COMMON(array),
+               (void *) type,
+               bt_field_common_array_destroy_recursive,
+               &bt_field_array_methods);
+       if (ret) {
+               BT_PUT(array);
+               goto end;
        }
+
+       BT_LOGD("Created array field object: addr=%p, ft-addr=%p",
+               array, type);
+
 end:
-       return ret;
+       return (void *) array;
 }
 
 static
-int bt_ctf_field_array_reset(struct bt_ctf_field *field)
+struct bt_field *bt_field_sequence_create(struct bt_field_type *type)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_array *array;
-
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       struct bt_field_common_sequence *sequence = g_new0(
+               struct bt_field_common_sequence, 1);
 
-       array = container_of(field, struct bt_ctf_field_array, parent);
-       for (i = 0; i < array->elements->len; i++) {
-               struct bt_ctf_field *member = array->elements->pdata[i];
-
-               if (!member) {
-                       /*
-                        * Array elements are lazily initialized; skip if
-                        * this member has not been allocated yet.
-                        */
-                       continue;
-               }
+       BT_LOGD("Creating sequence field object: ft-addr=%p", type);
 
-               ret = bt_ctf_field_reset(member);
-               if (ret) {
-                       goto end;
-               }
+       if (sequence) {
+               bt_field_common_initialize(BT_TO_COMMON(sequence),
+                       (void *) type,
+                       bt_field_common_sequence_destroy_recursive,
+                       &bt_field_sequence_methods);
+               BT_LOGD("Created sequence field object: addr=%p, ft-addr=%p",
+                       sequence, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one sequence field.");
        }
-end:
-       return ret;
+
+       return (void *) sequence;
 }
 
 static
-int bt_ctf_field_sequence_reset(struct bt_ctf_field *field)
+struct bt_field *bt_field_string_create(struct bt_field_type *type)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_sequence *sequence;
+       struct bt_field_common_string *string = g_new0(
+               struct bt_field_common_string, 1);
 
-       if (!field) {
-               ret = -1;
-               goto end;
-       }
+       BT_LOGD("Creating string field object: ft-addr=%p", type);
 
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
-       for (i = 0; i < sequence->elements->len; i++) {
-               struct bt_ctf_field *member = sequence->elements->pdata[i];
+       if (string) {
+               bt_field_common_initialize(BT_TO_COMMON(string),
+                       (void *) type,
+                       bt_field_common_string_destroy,
+                       &bt_field_string_methods);
+               BT_LOGD("Created string field object: addr=%p, ft-addr=%p",
+                       string, type);
+       } else {
+               BT_LOGE_STR("Failed to allocate one string field.");
+       }
 
-               if (!member) {
-                       /*
-                        * Sequence elements are lazily initialized; skip if
-                        * this member has not been allocated yet.
-                        */
-                       continue;
-               }
+       return (void *) string;
+}
 
-               ret = bt_ctf_field_reset(member);
-               if (ret) {
-                       goto end;
-               }
-       }
-end:
-       return ret;
+BT_HIDDEN
+int bt_field_common_generic_validate(struct bt_field_common *field)
+{
+       return (field && field->payload_set) ? 0 : -1;
 }
 
-static
-int bt_ctf_field_string_reset(struct bt_ctf_field *field)
+BT_HIDDEN
+int bt_field_common_enumeration_validate_recursive(
+               struct bt_field_common *field)
 {
-       int ret = 0;
-       struct bt_ctf_field_string *string;
+       int ret;
+       struct bt_field_common_enumeration *enumeration = BT_FROM_COMMON(field);
 
-       if (!field) {
+       BT_ASSERT(field);
+
+       if (!enumeration->payload) {
+               BT_ASSERT_PRE_MSG("Invalid enumeration field: payload is not set: "
+                       "%!+_f", field);
                ret = -1;
                goto end;
        }
 
-       ret = bt_ctf_field_generic_reset(field);
-       if (ret) {
-               goto end;
-       }
+       ret = bt_field_common_validate_recursive(enumeration->payload);
 
-       string = container_of(field, struct bt_ctf_field_string, parent);
-       if (string->payload) {
-               g_string_truncate(string->payload, 0);
-       }
 end:
        return ret;
 }
 
-static
-int bt_ctf_field_integer_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+int bt_field_common_structure_validate_recursive(struct bt_field_common *field)
 {
+       int64_t i;
        int ret = 0;
-       struct bt_ctf_field_integer *integer = container_of(field,
-               struct bt_ctf_field_integer, parent);
+       struct bt_field_common_structure *structure = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
+
+       for (i = 0; i < structure->fields->len; i++) {
+               ret = bt_field_common_validate_recursive(
+                       (void *) structure->fields->pdata[i]);
 
-       if (!bt_ctf_field_generic_is_set(field)) {
-               ret = -1;
-               goto end;
-       }
-retry:
-       ret = bt_ctf_field_integer_write(integer, pos, native_byte_order);
-       if (ret == -EFAULT) {
-               /*
-                * The field is too large to fit in the current packet's
-                * remaining space. Bump the packet size and retry.
-                */
-               ret = increase_packet_size(pos);
                if (ret) {
+                       int this_ret;
+                       const char *name;
+
+                       this_ret = bt_field_type_common_structure_borrow_field_by_index(
+                               field->type, &name, NULL, i);
+                       BT_ASSERT(this_ret == 0);
+                       BT_ASSERT_PRE_MSG("Invalid structure field's field: "
+                               "%![struct-field-]+_f, field-name=\"%s\", "
+                               "index=%" PRId64 ", %![field-]+_f",
+                               field, name, i, structure->fields->pdata[i]);
                        goto end;
                }
-               goto retry;
        }
+
 end:
        return ret;
 }
 
-static
-int bt_ctf_field_enumeration_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+int bt_field_common_variant_validate_recursive(struct bt_field_common *field)
 {
-       struct bt_ctf_field_enumeration *enumeration = container_of(
-               field, struct bt_ctf_field_enumeration, parent);
+       int ret = 0;
+       struct bt_field_common_variant *variant = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
+       ret = bt_field_common_validate_recursive(variant->payload);
+       if (ret) {
+               BT_ASSERT_PRE_MSG("Invalid variant field's payload field: "
+                       "%![variant-field-]+_f, %![payload-field-]+_f",
+                       field, variant->payload);
+       }
 
-       return bt_ctf_field_serialize(enumeration->payload, pos,
-               native_byte_order);
+       return ret;
 }
 
-static
-int bt_ctf_field_floating_point_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+int bt_field_common_array_validate_recursive(struct bt_field_common *field)
 {
+       int64_t i;
        int ret = 0;
-       struct bt_ctf_field_floating_point *floating_point = container_of(field,
-               struct bt_ctf_field_floating_point, parent);
+       struct bt_field_common_array *array = BT_FROM_COMMON(field);
 
-       if (!bt_ctf_field_generic_is_set(field)) {
-               ret = -1;
-               goto end;
-       }
-retry:
-       ret = bt_ctf_field_floating_point_write(floating_point, pos,
-               native_byte_order);
-       if (ret == -EFAULT) {
-               /*
-                * The field is too large to fit in the current packet's
-                * remaining space. Bump the packet size and retry.
-                */
-               ret = increase_packet_size(pos);
+       BT_ASSERT(field);
+
+       for (i = 0; i < array->elements->len; i++) {
+               ret = bt_field_common_validate_recursive((void *) array->elements->pdata[i]);
                if (ret) {
+                       BT_ASSERT_PRE_MSG("Invalid array field's element field: "
+                               "%![array-field-]+_f, " PRId64 ", "
+                               "%![elem-field-]+_f",
+                               field, i, array->elements->pdata[i]);
                        goto end;
                }
-               goto retry;
        }
+
 end:
        return ret;
 }
 
-static
-int bt_ctf_field_structure_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+int bt_field_common_sequence_validate_recursive(struct bt_field_common *field)
 {
        size_t i;
        int ret = 0;
-       struct bt_ctf_field_structure *structure = container_of(
-               field, struct bt_ctf_field_structure, parent);
+       struct bt_field_common_sequence *sequence = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
 
-       while (!bt_ctf_stream_pos_access_ok(pos,
-               offset_align(pos->offset, field->type->alignment))) {
-               ret = increase_packet_size(pos);
+       for (i = 0; i < sequence->elements->len; i++) {
+               ret = bt_field_common_validate_recursive(
+                       (void *) sequence->elements->pdata[i]);
                if (ret) {
+                       BT_ASSERT_PRE_MSG("Invalid sequence field's element field: "
+                               "%![seq-field-]+_f, " PRId64 ", "
+                               "%![elem-field-]+_f",
+                               field, i, sequence->elements->pdata[i]);
                        goto end;
                }
        }
+end:
+       return ret;
+}
 
-       if (!bt_ctf_stream_pos_align(pos, field->type->alignment)) {
-               ret = -1;
-               goto end;
+BT_HIDDEN
+void bt_field_common_generic_reset(struct bt_field_common *field)
+{
+       BT_ASSERT(field);
+       field->payload_set = false;
+}
+
+BT_HIDDEN
+void bt_field_common_enumeration_reset_recursive(struct bt_field_common *field)
+{
+       struct bt_field_common_enumeration *enumeration = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
+
+       if (!enumeration->payload) {
+               return;
        }
 
+       bt_field_common_reset_recursive(enumeration->payload);
+}
+
+BT_HIDDEN
+void bt_field_common_structure_reset_recursive(struct bt_field_common *field)
+{
+       int64_t i;
+       struct bt_field_common_structure *structure = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
+
        for (i = 0; i < structure->fields->len; i++) {
-               struct bt_ctf_field *member = g_ptr_array_index(
-                       structure->fields, i);
+               struct bt_field_common *member = structure->fields->pdata[i];
 
-               ret = bt_ctf_field_serialize(member, pos, native_byte_order);
-               if (ret) {
-                       const char *name;
-                       struct bt_ctf_field_type *structure_type =
-                                       bt_ctf_field_get_type(field);
-
-                       (void) bt_ctf_field_type_structure_get_field(
-                                       structure_type, &name, NULL, i);
-                       fprintf(stderr, "Field %s failed to serialize\n",
-                                       name ? name : "NULL");
-                       bt_put(structure_type);
-                       break;
+               if (!member) {
+                       /*
+                        * Structure members are lazily initialized;
+                        * skip if this member has not been allocated
+                        * yet.
+                        */
+                       continue;
                }
+
+               bt_field_common_reset_recursive(member);
        }
-end:
-       return ret;
 }
 
-static
-int bt_ctf_field_variant_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+void bt_field_common_variant_reset_recursive(struct bt_field_common *field)
 {
-       struct bt_ctf_field_variant *variant = container_of(
-               field, struct bt_ctf_field_variant, parent);
+       struct bt_field_common_variant *variant = BT_FROM_COMMON(field);
 
-       return bt_ctf_field_serialize(variant->payload, pos,
-               native_byte_order);
+       BT_ASSERT(field);
+       BT_PUT(variant->tag);
+       BT_PUT(variant->payload);
 }
 
-static
-int bt_ctf_field_array_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+void bt_field_common_array_reset_recursive(struct bt_field_common *field)
 {
        size_t i;
-       int ret = 0;
-       struct bt_ctf_field_array *array = container_of(
-               field, struct bt_ctf_field_array, parent);
+       struct bt_field_common_array *array = BT_FROM_COMMON(field);
+
+       BT_ASSERT(field);
 
        for (i = 0; i < array->elements->len; i++) {
-               ret = bt_ctf_field_serialize(
-                       g_ptr_array_index(array->elements, i), pos,
-                       native_byte_order);
-               if (ret) {
-                       fprintf(stderr, "Failed to serialize array element #%zu\n", i);
-                       goto end;
+               struct bt_field_common *member = array->elements->pdata[i];
+
+               if (!member) {
+                       /*
+                        * Array elements are lazily initialized; skip
+                        * if this member has not been allocated yet.
+                        */
+                       continue;
                }
+
+               bt_field_common_reset_recursive(member);
        }
-end:
-       return ret;
 }
 
-static
-int bt_ctf_field_sequence_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+void bt_field_common_sequence_reset_recursive(struct bt_field_common *field)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_sequence *sequence = container_of(
-               field, struct bt_ctf_field_sequence, parent);
+       struct bt_field_common_sequence *sequence = BT_FROM_COMMON(field);
 
-       for (i = 0; i < sequence->elements->len; i++) {
-               ret = bt_ctf_field_serialize(
-                       g_ptr_array_index(sequence->elements, i), pos,
-                       native_byte_order);
-               if (ret) {
-                       fprintf(stderr, "Failed to serialize sequence element #%zu\n", i);
-                       goto end;
-               }
+       BT_ASSERT(field);
+
+       if (sequence->elements) {
+               g_ptr_array_free(sequence->elements, TRUE);
+               sequence->elements = NULL;
        }
-end:
-       return ret;
+
+       BT_PUT(sequence->length);
 }
 
-static
-int bt_ctf_field_string_serialize(struct bt_ctf_field *field,
-               struct bt_ctf_stream_pos *pos,
-               enum bt_ctf_byte_order native_byte_order)
+BT_HIDDEN
+void bt_field_common_string_reset(struct bt_field_common *field)
 {
-       size_t i;
-       int ret = 0;
-       struct bt_ctf_field_string *string = container_of(field,
-               struct bt_ctf_field_string, parent);
-       struct bt_ctf_field_type *character_type =
-               get_field_type(FIELD_TYPE_ALIAS_UINT8_T);
-       struct bt_ctf_field *character = bt_ctf_field_create(character_type);
-
-       for (i = 0; i < string->payload->len + 1; i++) {
-               ret = bt_ctf_field_unsigned_integer_set_value(character,
-                       (uint64_t) string->payload->str[i]);
-               if (ret) {
-                       goto end;
-               }
+       struct bt_field_common_string *string = BT_FROM_COMMON(field);
 
-               ret = bt_ctf_field_integer_serialize(character, pos,
-                       native_byte_order);
-               if (ret) {
-                       goto end;
-               }
+       BT_ASSERT(field);
+       bt_field_common_generic_reset(field);
+
+       if (string->payload) {
+               g_string_truncate(string->payload, 0);
        }
-end:
-       bt_put(character);
-       bt_put(character_type);
-       return ret;
 }
 
 static
-int bt_ctf_field_integer_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_integer_copy(struct bt_field_common *src)
 {
-       struct bt_ctf_field_integer *integer_src, *integer_dst;
+       struct bt_field_common_integer *integer_src = (void *) src;
+       struct bt_field_common_integer *integer_dst;
+
+       BT_LOGD("Copying integer field: src-field-addr=%p", src);
+       integer_dst = (void *) bt_field_create((void *) src->type);
+       if (!integer_dst) {
+               goto end;
+       }
 
-       integer_src = container_of(src, struct bt_ctf_field_integer, parent);
-       integer_dst = container_of(dst, struct bt_ctf_field_integer, parent);
        integer_dst->payload = integer_src->payload;
-       return 0;
+       BT_LOGD_STR("Copied integer field.");
+
+end:
+       return BT_TO_COMMON(integer_dst);
 }
 
 static
-int bt_ctf_field_enumeration_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_enumeration_copy_recursive(
+               struct bt_field_common *src)
 {
-       int ret = 0;
-       struct bt_ctf_field_enumeration *enum_src, *enum_dst;
+       struct bt_field_common_enumeration *enum_src = BT_FROM_COMMON(src);
+       struct bt_field_common_enumeration *enum_dst;
 
-       enum_src = container_of(src, struct bt_ctf_field_enumeration, parent);
-       enum_dst = container_of(dst, struct bt_ctf_field_enumeration, parent);
+       BT_LOGD("Copying enumeration field: src-field-addr=%p", src);
+       enum_dst = (void *) bt_field_create((void *) src->type);
+       if (!enum_dst) {
+               goto error;
+       }
 
        if (enum_src->payload) {
-               enum_dst->payload = bt_ctf_field_copy(enum_src->payload);
+               BT_LOGD_STR("Copying enumeration field's payload field.");
+               enum_dst->payload = (void *)
+                       bt_field_copy((void *) enum_src->payload);
                if (!enum_dst->payload) {
-                       ret = -1;
-                       goto end;
+                       BT_LOGE_STR("Cannot copy enumeration field's payload field.");
+                       goto error;
                }
        }
+
+       BT_LOGD_STR("Copied enumeration field.");
+       goto end;
+
+error:
+       BT_PUT(enum_dst);
+
 end:
-       return ret;
+       return BT_TO_COMMON(enum_dst);
 }
 
 static
-int bt_ctf_field_floating_point_copy(
-               struct bt_ctf_field *src, struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_floating_point_copy(
+               struct bt_field_common *src)
 {
-       struct bt_ctf_field_floating_point *float_src, *float_dst;
+       struct bt_field_common_floating_point *float_src = BT_FROM_COMMON(src);
+       struct bt_field_common_floating_point *float_dst;
+
+       BT_LOGD("Copying floating point number field: src-field-addr=%p", src);
+       float_dst = (void *) bt_field_create((void *) src->type);
+       if (!float_dst) {
+               goto end;
+       }
 
-       float_src = container_of(src, struct bt_ctf_field_floating_point,
-               parent);
-       float_dst = container_of(dst, struct bt_ctf_field_floating_point,
-               parent);
        float_dst->payload = float_src->payload;
-       return 0;
+       BT_LOGD_STR("Copied floating point number field.");
+
+end:
+       return BT_TO_COMMON(float_dst);
 }
 
 static
-int bt_ctf_field_structure_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_structure_copy_recursive(
+               struct bt_field_common *src)
 {
-       int ret = 0, i;
-       struct bt_ctf_field_structure *struct_src, *struct_dst;
+       int64_t i;
+       struct bt_field_common_structure *struct_src = BT_FROM_COMMON(src);
+       struct bt_field_common_structure *struct_dst;
 
-       struct_src = container_of(src, struct bt_ctf_field_structure, parent);
-       struct_dst = container_of(dst, struct bt_ctf_field_structure, parent);
+       BT_LOGD("Copying structure field: src-field-addr=%p", src);
+       struct_dst = (void *) bt_field_create((void *) src->type);
+       if (!struct_dst) {
+               goto error;
+       }
 
-       /* This field_name_to_index HT is owned by the structure field type */
-       struct_dst->field_name_to_index = struct_src->field_name_to_index;
        g_ptr_array_set_size(struct_dst->fields, struct_src->fields->len);
 
        for (i = 0; i < struct_src->fields->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *field =
                        g_ptr_array_index(struct_src->fields, i);
-               struct bt_ctf_field *field_copy = NULL;
+               struct bt_field_common *field_copy = NULL;
 
                if (field) {
-                       field_copy = bt_ctf_field_copy(field);
-
+                       BT_LOGD("Copying structure field's field: src-field-addr=%p"
+                               "index=%" PRId64, field, i);
+                       field_copy = (void *) bt_field_copy((void *) field);
                        if (!field_copy) {
-                               ret = -1;
-                               goto end;
+                               BT_LOGE("Cannot copy structure field's field: "
+                                       "src-field-addr=%p, index=%" PRId64,
+                                       field, i);
+                               goto error;
                        }
                }
 
-               g_ptr_array_index(struct_dst->fields, i) = field_copy;
+               BT_MOVE(g_ptr_array_index(struct_dst->fields, i), field_copy);
        }
+
+       BT_LOGD_STR("Copied structure field.");
+       goto end;
+
+error:
+       BT_PUT(struct_dst);
+
 end:
-       return ret;
+       return BT_TO_COMMON(struct_dst);
 }
 
 static
-int bt_ctf_field_variant_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_variant_copy_recursive(
+               struct bt_field_common *src)
 {
-       int ret = 0;
-       struct bt_ctf_field_variant *variant_src, *variant_dst;
+       struct bt_field_common_variant *variant_src = BT_FROM_COMMON(src);
+       struct bt_field_common_variant *variant_dst;
 
-       variant_src = container_of(src, struct bt_ctf_field_variant, parent);
-       variant_dst = container_of(dst, struct bt_ctf_field_variant, parent);
+       BT_LOGD("Copying variant field: src-field-addr=%p", src);
+       variant_dst = (void *) bt_field_create((void *) src->type);
+       if (!variant_dst) {
+               goto end;
+       }
 
        if (variant_src->tag) {
-               variant_dst->tag = bt_ctf_field_copy(variant_src->tag);
+               BT_LOGD_STR("Copying variant field's tag field.");
+               variant_dst->tag = (void *) bt_field_copy(
+                       (void *) variant_src->tag);
                if (!variant_dst->tag) {
-                       ret = -1;
-                       goto end;
+                       BT_LOGE_STR("Cannot copy variant field's tag field.");
+                       goto error;
                }
        }
        if (variant_src->payload) {
-               variant_dst->payload = bt_ctf_field_copy(variant_src->payload);
+               BT_LOGD_STR("Copying variant field's payload field.");
+               variant_dst->payload = (void *) bt_field_copy(
+                       (void *) variant_src->payload);
                if (!variant_dst->payload) {
-                       ret = -1;
-                       goto end;
+                       BT_LOGE_STR("Cannot copy variant field's payload field.");
+                       goto error;
                }
        }
+
+       BT_LOGD_STR("Copied variant field.");
+       goto end;
+
+error:
+       BT_PUT(variant_dst);
+
 end:
-       return ret;
+       return BT_TO_COMMON(variant_dst);
 }
 
 static
-int bt_ctf_field_array_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_array_copy_recursive(
+               struct bt_field_common *src)
 {
-       int ret = 0, i;
-       struct bt_ctf_field_array *array_src, *array_dst;
+       int64_t i;
+       struct bt_field_common_array *array_src = BT_FROM_COMMON(src);
+       struct bt_field_common_array *array_dst;
 
-       array_src = container_of(src, struct bt_ctf_field_array, parent);
-       array_dst = container_of(dst, struct bt_ctf_field_array, parent);
+       BT_LOGD("Copying array field: src-field-addr=%p", src);
+       array_dst = (void *) bt_field_create((void *) src->type);
+       if (!array_dst) {
+               goto error;
+       }
 
        g_ptr_array_set_size(array_dst->elements, array_src->elements->len);
        for (i = 0; i < array_src->elements->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *field =
                        g_ptr_array_index(array_src->elements, i);
-               struct bt_ctf_field *field_copy = NULL;
+               struct bt_field_common *field_copy = NULL;
 
                if (field) {
-                       field_copy = bt_ctf_field_copy(field);
-
+                       BT_LOGD("Copying array field's element field: field-addr=%p, "
+                               "index=%" PRId64, field, i);
+                       field_copy = (void *) bt_field_copy((void *) field);
                        if (!field_copy) {
-                               ret = -1;
-                               goto end;
+                               BT_LOGE("Cannot copy array field's element field: "
+                                       "src-field-addr=%p, index=%" PRId64,
+                                       field, i);
+                               goto error;
                        }
                }
 
                g_ptr_array_index(array_dst->elements, i) = field_copy;
        }
+
+       BT_LOGD_STR("Copied array field.");
+       goto end;
+
+error:
+       BT_PUT(array_dst);
+
 end:
-       return ret;
+       return BT_TO_COMMON(array_dst);
 }
 
 static
-int bt_ctf_field_sequence_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_sequence_copy_recursive(
+               struct bt_field_common *src)
 {
-       int ret = 0, i;
-       struct bt_ctf_field_sequence *sequence_src, *sequence_dst;
-       struct bt_ctf_field *src_length;
-       struct bt_ctf_field *dst_length;
-
-       sequence_src = container_of(src, struct bt_ctf_field_sequence, parent);
-       sequence_dst = container_of(dst, struct bt_ctf_field_sequence, parent);
-
-       src_length = bt_ctf_field_sequence_get_length(src);
+       int ret = 0;
+       int64_t i;
+       struct bt_field_common_sequence *sequence_src = BT_FROM_COMMON(src);
+       struct bt_field_common_sequence *sequence_dst;
+       struct bt_field_common *src_length;
+       struct bt_field_common *dst_length;
+
+       BT_LOGD("Copying sequence field: src-field-addr=%p", src);
+       sequence_dst = (void *) bt_field_create((void *) src->type);
+       if (!sequence_dst) {
+               goto error;
+       }
 
+       src_length = bt_field_common_sequence_borrow_length(src);
        if (!src_length) {
                /* no length set yet: keep destination sequence empty */
                goto end;
        }
 
        /* copy source length */
-       dst_length = bt_ctf_field_copy(src_length);
-       bt_put(src_length);
-
+       BT_LOGD_STR("Copying sequence field's length field.");
+       dst_length = (void *) bt_field_copy((void *) src_length);
        if (!dst_length) {
-               ret = -1;
-               goto end;
+               BT_LOGE_STR("Cannot copy sequence field's length field.");
+               goto error;
        }
 
        /* this will initialize the destination sequence's internal array */
-       ret = bt_ctf_field_sequence_set_length(dst, dst_length);
+       ret = bt_field_common_sequence_set_length(
+               BT_TO_COMMON(sequence_dst), dst_length);
        bt_put(dst_length);
-
        if (ret) {
-               goto end;
+               BT_LOGE("Cannot set sequence field copy's length field: "
+                       "dst-length-field-addr=%p", dst_length);
+               goto error;
        }
 
-       assert(sequence_dst->elements->len == sequence_src->elements->len);
+       BT_ASSERT(sequence_dst->elements->len == sequence_src->elements->len);
 
        for (i = 0; i < sequence_src->elements->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *field =
                        g_ptr_array_index(sequence_src->elements, i);
-               struct bt_ctf_field *field_copy = NULL;
+               struct bt_field_common *field_copy = NULL;
 
                if (field) {
-                       field_copy = bt_ctf_field_copy(field);
-
+                       BT_LOGD("Copying sequence field's element field: field-addr=%p, "
+                               "index=%" PRId64, field, i);
+                       field_copy = (void *) bt_field_copy((void *) field);
                        if (!field_copy) {
-                               ret = -1;
-                               goto end;
+                               BT_LOGE("Cannot copy sequence field's element field: "
+                                       "src-field-addr=%p, index=%" PRId64,
+                                       field, i);
+                               goto error;
                        }
                }
 
                g_ptr_array_index(sequence_dst->elements, i) = field_copy;
        }
+
+       BT_LOGD_STR("Copied sequence field.");
+       goto end;
+
+error:
+       BT_PUT(sequence_dst);
+
 end:
-       return ret;
+       return BT_TO_COMMON(sequence_dst);
 }
 
 static
-int bt_ctf_field_string_copy(struct bt_ctf_field *src,
-               struct bt_ctf_field *dst)
+struct bt_field_common *bt_field_string_copy(struct bt_field_common *src)
 {
-       int ret = 0;
-       struct bt_ctf_field_string *string_src, *string_dst;
+       struct bt_field_common_string *string_src = BT_FROM_COMMON(src);
+       struct bt_field_common_string *string_dst;
 
-       string_src = container_of(src, struct bt_ctf_field_string, parent);
-       string_dst = container_of(dst, struct bt_ctf_field_string, parent);
+       BT_LOGD("Copying string field: src-field-addr=%p", src);
+       string_dst = (void *) bt_field_create((void *) src->type);
+       if (!string_dst) {
+               goto error;
+       }
 
        if (string_src->payload) {
                string_dst->payload = g_string_new(string_src->payload->str);
                if (!string_dst->payload) {
-                       ret = -1;
-                       goto end;
+                       BT_LOGE_STR("Failed to allocate a GString.");
+                       goto error;
                }
        }
-end:
-       return ret;
-}
-
-static
-int increase_packet_size(struct bt_ctf_stream_pos *pos)
-{
-       int ret;
 
-       assert(pos);
-       ret = munmap_align(pos->base_mma);
-       if (ret) {
-               goto end;
-       }
+       BT_LOGD_STR("Copied string field.");
+       goto end;
 
-       pos->packet_size += PACKET_LEN_INCREMENT;
-       do {
-               ret = bt_posix_fallocate(pos->fd, pos->mmap_offset,
-                       pos->packet_size / CHAR_BIT);
-       } while (ret == EINTR);
-       if (ret) {
-               errno = EINTR;
-               ret = -1;
-               goto end;
-       }
+error:
+       BT_PUT(string_dst);
 
-       pos->base_mma = mmap_align(pos->packet_size / CHAR_BIT, pos->prot,
-               pos->flags, pos->fd, pos->mmap_offset);
-       if (pos->base_mma == MAP_FAILED) {
-               ret = -1;
-       }
 end:
-       return ret;
+       return BT_TO_COMMON(string_dst);
 }
 
-static
-void generic_field_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_generic_freeze(struct bt_field_common *field)
 {
-       field->frozen = 1;
+       field->frozen = true;
 }
 
-static
-void bt_ctf_field_enumeration_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_enumeration_freeze_recursive(struct bt_field_common *field)
 {
-       struct bt_ctf_field_enumeration *enum_field =
-               container_of(field, struct bt_ctf_field_enumeration, parent);
+       struct bt_field_common_enumeration *enum_field = BT_FROM_COMMON(field);
 
-       bt_ctf_field_freeze(enum_field->payload);
-       generic_field_freeze(field);
+       BT_LOGD("Freezing enumeration field object: addr=%p", field);
+       BT_LOGD("Freezing enumeration field object's contained payload field: payload-field-addr=%p", enum_field->payload);
+       bt_field_common_freeze_recursive(enum_field->payload);
+       bt_field_common_generic_freeze(field);
 }
 
-static
-void bt_ctf_field_structure_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_structure_freeze_recursive(struct bt_field_common *field)
 {
-       int i;
-       struct bt_ctf_field_structure *structure_field =
-               container_of(field, struct bt_ctf_field_structure, parent);
+       int64_t i;
+       struct bt_field_common_structure *structure_field =
+               BT_FROM_COMMON(field);
+
+       BT_LOGD("Freezing structure field object: addr=%p", field);
 
        for (i = 0; i < structure_field->fields->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *field =
                        g_ptr_array_index(structure_field->fields, i);
 
-               bt_ctf_field_freeze(field);
+               BT_LOGD("Freezing structure field's field: field-addr=%p, index=%" PRId64,
+                       field, i);
+               bt_field_common_freeze_recursive(field);
        }
 
-       generic_field_freeze(field);
+       bt_field_common_generic_freeze(field);
 }
 
-static
-void bt_ctf_field_variant_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_variant_freeze_recursive(struct bt_field_common *field)
 {
-       struct bt_ctf_field_variant *variant_field =
-               container_of(field, struct bt_ctf_field_variant, parent);
+       struct bt_field_common_variant *variant_field = BT_FROM_COMMON(field);
 
-       bt_ctf_field_freeze(variant_field->tag);
-       bt_ctf_field_freeze(variant_field->payload);
-       generic_field_freeze(field);
+       BT_LOGD("Freezing variant field object: addr=%p", field);
+       BT_LOGD("Freezing variant field object's tag field: tag-field-addr=%p", variant_field->tag);
+       bt_field_common_freeze_recursive(variant_field->tag);
+       BT_LOGD("Freezing variant field object's payload field: payload-field-addr=%p", variant_field->payload);
+       bt_field_common_freeze_recursive(variant_field->payload);
+       bt_field_common_generic_freeze(field);
 }
 
-static
-void bt_ctf_field_array_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_array_freeze_recursive(struct bt_field_common *field)
 {
-       int i;
-       struct bt_ctf_field_array *array_field =
-               container_of(field, struct bt_ctf_field_array, parent);
+       int64_t i;
+       struct bt_field_common_array *array_field = BT_FROM_COMMON(field);
+
+       BT_LOGD("Freezing array field object: addr=%p", field);
 
        for (i = 0; i < array_field->elements->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *elem_field =
                        g_ptr_array_index(array_field->elements, i);
 
-               bt_ctf_field_freeze(field);
+               BT_LOGD("Freezing array field object's element field: "
+                       "element-field-addr=%p, index=%" PRId64,
+                       elem_field, i);
+               bt_field_common_freeze_recursive(elem_field);
        }
 
-       generic_field_freeze(field);
+       bt_field_common_generic_freeze(field);
 }
 
-static
-void bt_ctf_field_sequence_freeze(struct bt_ctf_field *field)
+BT_HIDDEN
+void bt_field_common_sequence_freeze_recursive(struct bt_field_common *field)
 {
-       int i;
-       struct bt_ctf_field_sequence *sequence_field =
-               container_of(field, struct bt_ctf_field_sequence, parent);
+       int64_t i;
+       struct bt_field_common_sequence *sequence_field =
+               BT_FROM_COMMON(field);
 
-       bt_ctf_field_freeze(sequence_field->length);
+       BT_LOGD("Freezing sequence field object: addr=%p", field);
+       BT_LOGD("Freezing sequence field object's length field: length-field-addr=%p",
+               sequence_field->length);
+       bt_field_common_freeze_recursive(sequence_field->length);
 
        for (i = 0; i < sequence_field->elements->len; i++) {
-               struct bt_ctf_field *field =
+               struct bt_field_common *elem_field =
                        g_ptr_array_index(sequence_field->elements, i);
 
-               bt_ctf_field_freeze(field);
+               BT_LOGD("Freezing sequence field object's element field: "
+                       "element-field-addr=%p, index=%" PRId64,
+                       elem_field, i);
+               bt_field_common_freeze_recursive(elem_field);
        }
 
-       generic_field_freeze(field);
+       bt_field_common_generic_freeze(field);
 }
 
 BT_HIDDEN
-void bt_ctf_field_freeze(struct bt_ctf_field *field)
+void _bt_field_common_freeze_recursive(struct bt_field_common *field)
 {
-       enum bt_ctf_type_id type_id;
-
        if (!field) {
                goto end;
        }
 
-       type_id = bt_ctf_field_get_type_id(field);
-       if (type_id <= BT_CTF_TYPE_ID_UNKNOWN ||
-                       type_id >= BT_CTF_NR_TYPE_IDS) {
+       if (field->frozen) {
                goto end;
        }
 
-       field_freeze_funcs[type_id](field);
+       BT_LOGD("Freezing field object: addr=%p", field);
+       BT_ASSERT(field_type_common_has_known_id(field->type));
+       BT_ASSERT(field->methods->freeze);
+       field->methods->freeze(field);
+
 end:
        return;
 }
 
-static
-bool bt_ctf_field_generic_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_generic_is_set(struct bt_field_common *field)
 {
        return field && field->payload_set;
 }
 
-static
-bool bt_ctf_field_enumeration_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_enumeration_is_set_recursive(
+               struct bt_field_common *field)
 {
-       bool is_set = false;
-       struct bt_ctf_field_enumeration *enumeration;
+       bt_bool is_set = BT_FALSE;
+       struct bt_field_common_enumeration *enumeration = BT_FROM_COMMON(field);
 
-       if (!field) {
-               goto end;
-       }
+       BT_ASSERT(field);
 
-       enumeration = container_of(field, struct bt_ctf_field_enumeration,
-                       parent);
        if (!enumeration->payload) {
                goto end;
        }
 
-       is_set = bt_ctf_field_is_set(enumeration->payload);
+       is_set = bt_field_common_is_set_recursive(enumeration->payload);
+
 end:
        return is_set;
 }
 
-static
-bool bt_ctf_field_structure_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_structure_is_set_recursive(
+               struct bt_field_common *field)
 {
-       bool is_set = false;
+       bt_bool is_set = BT_FALSE;
        size_t i;
-       struct bt_ctf_field_structure *structure;
+       struct bt_field_common_structure *structure = BT_FROM_COMMON(field);
 
-       if (!field) {
-               goto end;
-       }
+       BT_ASSERT(field);
 
-       structure = container_of(field, struct bt_ctf_field_structure, parent);
        for (i = 0; i < structure->fields->len; i++) {
-               is_set = bt_ctf_field_is_set(structure->fields->pdata[i]);
+               is_set = bt_field_common_is_set_recursive(
+                       structure->fields->pdata[i]);
                if (!is_set) {
                        goto end;
                }
        }
+
 end:
        return is_set;
 }
 
-static
-bool bt_ctf_field_variant_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_variant_is_set_recursive(struct bt_field_common *field)
 {
-       bool is_set = false;
-       struct bt_ctf_field_variant *variant;
-
-       if (!field) {
-               goto end;
-       }
+       struct bt_field_common_variant *variant = BT_FROM_COMMON(field);
 
-       variant = container_of(field, struct bt_ctf_field_variant, parent);
-       is_set = bt_ctf_field_is_set(variant->payload);
-end:
-       return is_set;
+       BT_ASSERT(field);
+       return bt_field_common_is_set_recursive(variant->payload);
 }
 
-static
-bool bt_ctf_field_array_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_array_is_set_recursive(struct bt_field_common *field)
 {
        size_t i;
-       bool is_set = false;
-       struct bt_ctf_field_array *array;
+       bt_bool is_set = BT_FALSE;
+       struct bt_field_common_array *array = BT_FROM_COMMON(field);
 
-       if (!field) {
-               goto end;
-       }
+       BT_ASSERT(field);
 
-       array = container_of(field, struct bt_ctf_field_array, parent);
        for (i = 0; i < array->elements->len; i++) {
-               is_set = bt_ctf_field_is_set(array->elements->pdata[i]);
+               is_set = bt_field_common_is_set_recursive(array->elements->pdata[i]);
                if (!is_set) {
                        goto end;
                }
        }
+
 end:
        return is_set;
 }
 
-static
-bool bt_ctf_field_sequence_is_set(struct bt_ctf_field *field)
+BT_HIDDEN
+bt_bool bt_field_common_sequence_is_set_recursive(struct bt_field_common *field)
 {
        size_t i;
-       bool is_set = false;
-       struct bt_ctf_field_sequence *sequence;
+       bt_bool is_set = BT_FALSE;
+       struct bt_field_common_sequence *sequence = BT_FROM_COMMON(field);
 
-       if (!field) {
+       BT_ASSERT(field);
+
+       if (!sequence->elements) {
                goto end;
        }
 
-       sequence = container_of(field, struct bt_ctf_field_sequence, parent);
        for (i = 0; i < sequence->elements->len; i++) {
-               is_set = bt_ctf_field_validate(sequence->elements->pdata[i]);
+               is_set = bt_field_common_is_set_recursive(
+                       sequence->elements->pdata[i]);
                if (!is_set) {
                        goto end;
                }
        }
+
 end:
        return is_set;
 }
This page took 0.059767 seconds and 4 git commands to generate.