lib/trace-ir/field-classes.c

   1 /*
   2  * Copyright 2013, 2014 Jérémie Galarneau <jeremie.galarneau@efficios.com>
   3  *
   4  * Author: Jérémie Galarneau <jeremie.galarneau@efficios.com>
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining a copy
   7  * of this software and associated documentation files (the "Software"), to deal
   8  * in the Software without restriction, including without limitation the rights
   9  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  10  * copies of the Software, and to permit persons to whom the Software is
  11  * furnished to do so, subject to the following conditions:
  12  *
  13  * The above copyright notice and this permission notice shall be included in
  14  * all copies or substantial portions of the Software.
  15  *
  16  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  19  * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  21  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  22  * SOFTWARE.
  23  */
  24
  25 #define BT_LOG_TAG "FIELD-CLASSES"
  26 #include <babeltrace/lib-logging-internal.h>
  27
  28 #include <babeltrace/assert-pre-internal.h>
  29 #include <babeltrace/trace-ir/private-field-classes.h>
  30 #include <babeltrace/trace-ir/field-classes-internal.h>
  31 #include <babeltrace/trace-ir/field-path-internal.h>
  32 #include <babeltrace/trace-ir/fields-internal.h>
  33 #include <babeltrace/trace-ir/private-fields.h>
  34 #include <babeltrace/trace-ir/fields.h>
  35 #include <babeltrace/trace-ir/utils-internal.h>
  36 #include <babeltrace/object.h>
  37 #include <babeltrace/trace-ir/clock-class.h>
  38 #include <babeltrace/trace-ir/clock-class-internal.h>
  39 #include <babeltrace/object-internal.h>
  40 #include <babeltrace/object.h>
  41 #include <babeltrace/compiler-internal.h>
  42 #include <babeltrace/endian-internal.h>
  43 #include <babeltrace/assert-internal.h>
  44 #include <babeltrace/compat/glib-internal.h>
  45 #include <float.h>
  46 #include <inttypes.h>
  47 #include <stdlib.h>
  48
  49 enum bt_field_class_type bt_field_class_get_type(struct bt_field_class *fc)
  50 {
  51         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
  52         return fc->type;
  53 }
  54
  55 static
  56 void init_field_class(struct bt_field_class *fc, enum bt_field_class_type type,
  57                 bt_object_release_func release_func)
  58 {
  59         BT_ASSERT(fc);
  60         BT_ASSERT(bt_field_class_has_known_type(fc));
  61         BT_ASSERT(release_func);
  62         bt_object_init_shared(&fc->base, release_func);
  63         fc->type = type;
  64 }
  65
  66 static
  67 void init_integer_field_class(struct bt_field_class_integer *fc,
  68                 enum bt_field_class_type type,
  69                 bt_object_release_func release_func)
  70 {
  71         init_field_class((void *) fc, type, release_func);
  72         fc->range = 64;
  73         fc->base = BT_FIELD_CLASS_INTEGER_PREFERRED_DISPLAY_BASE_DECIMAL;
  74 }
  75
  76 static
  77 void destroy_integer_field_class(struct bt_object *obj)
  78 {
  79         BT_ASSERT(obj);
  80         BT_LIB_LOGD("Destroying integer field class object: %!+F", obj);
  81         g_free(obj);
  82 }
  83
  84 static inline
  85 struct bt_field_class *create_integer_field_class(enum bt_field_class_type type)
  86 {
  87         struct bt_field_class_integer *int_fc = NULL;
  88
  89         BT_LOGD("Creating default integer field class object: type=%s",
  90                 bt_common_field_class_type_string(type));
  91         int_fc = g_new0(struct bt_field_class_integer, 1);
  92         if (!int_fc) {
  93                 BT_LOGE_STR("Failed to allocate one integer field class.");
  94                 goto error;
  95         }
  96
  97         init_integer_field_class(int_fc, type, destroy_integer_field_class);
  98         BT_LIB_LOGD("Created integer field class object: %!+F", int_fc);
  99         goto end;
 100
 101 error:
 102         BT_OBJECT_PUT_REF_AND_RESET(int_fc);
 103
 104 end:
 105         return (void *) int_fc;
 106 }
 107
 108 struct bt_private_field_class *
 109 bt_private_field_class_unsigned_integer_create(void)
 110 {
 111         return (void *) create_integer_field_class(
 112                 BT_FIELD_CLASS_TYPE_UNSIGNED_INTEGER);
 113 }
 114
 115 struct bt_private_field_class *bt_private_field_class_signed_integer_create(void)
 116 {
 117         return (void *) create_integer_field_class(
 118                 BT_FIELD_CLASS_TYPE_SIGNED_INTEGER);
 119 }
 120
 121 uint64_t bt_field_class_integer_get_field_value_range(
 122                 struct bt_field_class *fc)
 123 {
 124         struct bt_field_class_integer *int_fc = (void *) fc;
 125
 126         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 127         BT_ASSERT_PRE_FC_IS_INT(fc, "Field class");
 128         return int_fc->range;
 129 }
 130
 131 BT_ASSERT_PRE_FUNC
 132 static
 133 bool size_is_valid_for_enumeration_field_class(struct bt_field_class *fc,
 134                 uint64_t size)
 135 {
 136         // TODO
 137         return true;
 138 }
 139
 140 void bt_private_field_class_integer_set_field_value_range(
 141                 struct bt_private_field_class *priv_fc, uint64_t size)
 142 {
 143         struct bt_field_class *fc = (void *) priv_fc;
 144         struct bt_field_class_integer *int_fc = (void *) fc;
 145
 146         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 147         BT_ASSERT_PRE_FC_IS_INT(fc, "Field class");
 148         BT_ASSERT_PRE_FC_HOT(fc, "Field class");
 149         BT_ASSERT_PRE(size <= 64,
 150                 "Unsupported size for integer field class's field value range "
 151                 "(maximum is 64): size=%" PRIu64, size);
 152         BT_ASSERT_PRE(
 153                 int_fc->common.type == BT_FIELD_CLASS_TYPE_UNSIGNED_INTEGER ||
 154                 int_fc->common.type == BT_FIELD_CLASS_TYPE_SIGNED_INTEGER ||
 155                 size_is_valid_for_enumeration_field_class(fc, size),
 156                 "Invalid field value range for enumeration field class: "
 157                 "at least one of the current mapping ranges contains values "
 158                 "which are outside this range: %!+F, size=%" PRIu64, fc, size);
 159         int_fc->range = size;
 160         BT_LIB_LOGV("Set integer field class's field value range: %!+F", fc);
 161 }
 162
 163 enum bt_field_class_integer_preferred_display_base
 164 bt_field_class_integer_get_preferred_display_base(struct bt_field_class *fc)
 165 {
 166         struct bt_field_class_integer *int_fc = (void *) fc;
 167
 168         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 169         BT_ASSERT_PRE_FC_IS_INT(fc, "Field class");
 170         return int_fc->base;
 171 }
 172
 173 void bt_private_field_class_integer_set_preferred_display_base(
 174                 struct bt_private_field_class *priv_fc,
 175                 enum bt_field_class_integer_preferred_display_base base)
 176 {
 177         struct bt_field_class *fc = (void *) priv_fc;
 178         struct bt_field_class_integer *int_fc = (void *) fc;
 179
 180         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 181         BT_ASSERT_PRE_FC_IS_INT(fc, "Field class");
 182         BT_ASSERT_PRE_FC_HOT(fc, "Field class");
 183         int_fc->base = base;
 184         BT_LIB_LOGV("Set integer field class's preferred display base: %!+F", fc);
 185 }
 186
 187 static
 188 void finalize_enumeration_field_class_mapping(
 189                 struct bt_field_class_enumeration_mapping *mapping)
 190 {
 191         BT_ASSERT(mapping);
 192
 193         if (mapping->label) {
 194                 g_string_free(mapping->label, TRUE);
 195         }
 196
 197         if (mapping->ranges) {
 198                 g_array_free(mapping->ranges, TRUE);
 199         }
 200 }
 201
 202 static
 203 void destroy_enumeration_field_class(struct bt_object *obj)
 204 {
 205         struct bt_field_class_enumeration *fc = (void *) obj;
 206
 207         BT_ASSERT(fc);
 208         BT_LIB_LOGD("Destroying enumeration field class object: %!+F", fc);
 209
 210         if (fc->mappings) {
 211                 uint64_t i;
 212
 213                 for (i = 0; i < fc->mappings->len; i++) {
 214                         finalize_enumeration_field_class_mapping(
 215                                 BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(fc, i));
 216                 }
 217
 218                 g_array_free(fc->mappings, TRUE);
 219                 fc->mappings = NULL;
 220         }
 221
 222         if (fc->label_buf) {
 223                 g_ptr_array_free(fc->label_buf, TRUE);
 224                 fc->label_buf = NULL;
 225         }
 226
 227         g_free(fc);
 228 }
 229
 230 static
 231 struct bt_field_class *create_enumeration_field_class(enum bt_field_class_type type)
 232 {
 233         struct bt_field_class_enumeration *enum_fc = NULL;
 234
 235         BT_LOGD("Creating default enumeration field class object: type=%s",
 236                 bt_common_field_class_type_string(type));
 237         enum_fc = g_new0(struct bt_field_class_enumeration, 1);
 238         if (!enum_fc) {
 239                 BT_LOGE_STR("Failed to allocate one enumeration field class.");
 240                 goto error;
 241         }
 242
 243         init_integer_field_class((void *) enum_fc, type,
 244                 destroy_enumeration_field_class);
 245         enum_fc->mappings = g_array_new(FALSE, TRUE,
 246                 sizeof(struct bt_field_class_enumeration_mapping));
 247         if (!enum_fc->mappings) {
 248                 BT_LOGE_STR("Failed to allocate a GArray.");
 249                 goto error;
 250         }
 251
 252         enum_fc->label_buf = g_ptr_array_new();
 253         if (!enum_fc->label_buf) {
 254                 BT_LOGE_STR("Failed to allocate a GArray.");
 255                 goto error;
 256         }
 257
 258         BT_LIB_LOGD("Created enumeration field class object: %!+F", enum_fc);
 259         goto end;
 260
 261 error:
 262         BT_OBJECT_PUT_REF_AND_RESET(enum_fc);
 263
 264 end:
 265         return (void *) enum_fc;
 266 }
 267
 268 struct bt_private_field_class *
 269 bt_private_field_class_unsigned_enumeration_create(void)
 270 {
 271         return (void *) create_enumeration_field_class(
 272                 BT_FIELD_CLASS_TYPE_UNSIGNED_ENUMERATION);
 273 }
 274
 275 struct bt_private_field_class *
 276 bt_private_field_class_signed_enumeration_create(void)
 277 {
 278         return (void *) create_enumeration_field_class(
 279                 BT_FIELD_CLASS_TYPE_SIGNED_ENUMERATION);
 280 }
 281
 282 uint64_t bt_field_class_enumeration_get_mapping_count(struct bt_field_class *fc)
 283 {
 284         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 285
 286         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 287         BT_ASSERT_PRE_FC_IS_ENUM(fc, "Field class");
 288         return (uint64_t) enum_fc->mappings->len;
 289 }
 290
 291 void bt_field_class_unsigned_enumeration_borrow_mapping_by_index(
 292                 struct bt_field_class *fc, uint64_t index,
 293                 const char **name,
 294                 struct bt_field_class_unsigned_enumeration_mapping_ranges **ranges)
 295 {
 296         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 297         struct bt_field_class_enumeration_mapping *mapping;
 298
 299         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 300         BT_ASSERT_PRE_NON_NULL(name, "Name (output)");
 301         BT_ASSERT_PRE_NON_NULL(ranges, "Ranges (output)");
 302         BT_ASSERT_PRE_VALID_INDEX(index, enum_fc->mappings->len);
 303         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_UNSIGNED_ENUMERATION,
 304                 "Field class");
 305         mapping = BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(fc, index);
 306         *name = mapping->label->str;
 307         *ranges = (void *) mapping;
 308 }
 309
 310 void bt_field_class_signed_enumeration_borrow_mapping_by_index(
 311                 struct bt_field_class *fc, uint64_t index,
 312                 const char **name,
 313                 struct bt_field_class_signed_enumeration_mapping_ranges **ranges)
 314 {
 315         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 316         struct bt_field_class_enumeration_mapping *mapping;
 317
 318         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 319         BT_ASSERT_PRE_NON_NULL(name, "Name (output)");
 320         BT_ASSERT_PRE_NON_NULL(ranges, "Ranges (output)");
 321         BT_ASSERT_PRE_VALID_INDEX(index, enum_fc->mappings->len);
 322         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_SIGNED_ENUMERATION,
 323                 "Field class");
 324         mapping = BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(fc, index);
 325         *name = mapping->label->str;
 326         *ranges = (void *) mapping;
 327 }
 328
 329 static inline
 330 uint64_t get_enumeration_field_class_mapping_range_count(
 331                 struct bt_field_class_enumeration_mapping *mapping)
 332 {
 333         BT_ASSERT_PRE_NON_NULL(mapping, "Ranges");
 334         return (uint64_t) mapping->ranges->len;
 335 }
 336
 337 uint64_t bt_field_class_unsigned_enumeration_mapping_ranges_get_range_count(
 338                 struct bt_field_class_unsigned_enumeration_mapping_ranges *ranges)
 339 {
 340         return get_enumeration_field_class_mapping_range_count((void *) ranges);
 341 }
 342
 343 uint64_t bt_field_class_signed_enumeration_mapping_ranges_get_range_count(
 344                 struct bt_field_class_signed_enumeration_mapping_ranges *ranges)
 345 {
 346         return get_enumeration_field_class_mapping_range_count((void *) ranges);
 347 }
 348
 349 static inline
 350 void get_enumeration_field_class_mapping_range_at_index(
 351                 struct bt_field_class_enumeration_mapping *mapping,
 352                 uint64_t index, uint64_t *lower, uint64_t *upper)
 353 {
 354         struct bt_field_class_enumeration_mapping_range *range;
 355
 356         BT_ASSERT_PRE_NON_NULL(mapping, "Ranges");
 357         BT_ASSERT_PRE_NON_NULL(lower, "Range's lower (output)");
 358         BT_ASSERT_PRE_NON_NULL(upper, "Range's upper (output)");
 359         BT_ASSERT_PRE_VALID_INDEX(index, mapping->ranges->len);
 360         range = BT_FIELD_CLASS_ENUM_MAPPING_RANGE_AT_INDEX(mapping, index);
 361         *lower = range->lower.u;
 362         *upper = range->upper.u;
 363 }
 364
 365 void bt_field_class_unsigned_enumeration_mapping_ranges_get_range_by_index(
 366                 struct bt_field_class_unsigned_enumeration_mapping_ranges *ranges,
 367                 uint64_t index, uint64_t *lower, uint64_t *upper)
 368 {
 369         get_enumeration_field_class_mapping_range_at_index((void *) ranges,
 370                 index, lower, upper);
 371 }
 372
 373 void bt_field_class_signed_enumeration_mapping_ranges_get_range_by_index(
 374                 struct bt_field_class_unsigned_enumeration_mapping_ranges *ranges,
 375                 uint64_t index, int64_t *lower, int64_t *upper)
 376 {
 377         get_enumeration_field_class_mapping_range_at_index((void *) ranges,
 378                 index, (uint64_t *) lower, (uint64_t *) upper);
 379 }
 380
 381
 382
 383 int bt_field_class_unsigned_enumeration_get_mapping_labels_by_value(
 384                 struct bt_field_class *fc, uint64_t value,
 385                 bt_field_class_enumeration_mapping_label_array *label_array,
 386                 uint64_t *count)
 387 {
 388         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 389         uint64_t i;
 390
 391         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 392         BT_ASSERT_PRE_NON_NULL(label_array, "Label array (output)");
 393         BT_ASSERT_PRE_NON_NULL(count, "Count (output)");
 394         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_UNSIGNED_ENUMERATION,
 395                 "Field class");
 396         g_ptr_array_set_size(enum_fc->label_buf, 0);
 397
 398         for (i = 0; i < enum_fc->mappings->len; i++) {
 399                 uint64_t j;
 400                 struct bt_field_class_enumeration_mapping *mapping =
 401                         BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(enum_fc, i);
 402
 403                 for (j = 0; j < mapping->ranges->len; j++) {
 404                         struct bt_field_class_enumeration_mapping_range *range =
 405                                 BT_FIELD_CLASS_ENUM_MAPPING_RANGE_AT_INDEX(
 406                                         mapping, j);
 407
 408                         if (value >= range->lower.u &&
 409                                         value <= range->upper.u) {
 410                                 g_ptr_array_add(enum_fc->label_buf,
 411                                         mapping->label->str);
 412                                 break;
 413                         }
 414                 }
 415         }
 416
 417         *label_array = (void *) enum_fc->label_buf->pdata;
 418         *count = (uint64_t) enum_fc->label_buf->len;
 419         return 0;
 420 }
 421
 422 int bt_field_class_signed_enumeration_get_mapping_labels_by_value(
 423                 struct bt_field_class *fc, int64_t value,
 424                 bt_field_class_enumeration_mapping_label_array *label_array,
 425                 uint64_t *count)
 426 {
 427         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 428         uint64_t i;
 429
 430         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 431         BT_ASSERT_PRE_NON_NULL(label_array, "Label array (output)");
 432         BT_ASSERT_PRE_NON_NULL(count, "Count (output)");
 433         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_SIGNED_ENUMERATION,
 434                 "Field class");
 435         g_ptr_array_set_size(enum_fc->label_buf, 0);
 436
 437         for (i = 0; i < enum_fc->mappings->len; i++) {
 438                 uint64_t j;
 439                 struct bt_field_class_enumeration_mapping *mapping =
 440                         BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(enum_fc, i);
 441
 442                 for (j = 0; j < mapping->ranges->len; j++) {
 443                         struct bt_field_class_enumeration_mapping_range *range =
 444                                 BT_FIELD_CLASS_ENUM_MAPPING_RANGE_AT_INDEX(
 445                                         mapping, j);
 446
 447                         if (value >= range->lower.i &&
 448                                         value <= range->upper.i) {
 449                                 g_ptr_array_add(enum_fc->label_buf,
 450                                         mapping->label->str);
 451                                 break;
 452                         }
 453                 }
 454         }
 455
 456         *label_array = (void *) enum_fc->label_buf->pdata;
 457         *count = (uint64_t) enum_fc->label_buf->len;
 458         return 0;
 459 }
 460
 461 static inline
 462 int add_mapping_to_enumeration_field_class(struct bt_field_class *fc,
 463                 const char *label, uint64_t lower, uint64_t upper)
 464 {
 465         int ret = 0;
 466         uint64_t i;
 467         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 468         struct bt_field_class_enumeration_mapping *mapping = NULL;
 469         struct bt_field_class_enumeration_mapping_range *range;
 470
 471         BT_ASSERT(fc);
 472         BT_ASSERT_PRE_NON_NULL(label, "Label");
 473
 474         /* Find existing mapping identified by this label */
 475         for (i = 0; i < enum_fc->mappings->len; i++) {
 476                 struct bt_field_class_enumeration_mapping *mapping_candidate =
 477                         BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(enum_fc, i);
 478
 479                 if (strcmp(mapping_candidate->label->str, label) == 0) {
 480                         mapping = mapping_candidate;
 481                         break;
 482                 }
 483         }
 484
 485         if (!mapping) {
 486                 /* Create new mapping for this label */
 487                 g_array_set_size(enum_fc->mappings, enum_fc->mappings->len + 1);
 488                 mapping = BT_FIELD_CLASS_ENUM_MAPPING_AT_INDEX(enum_fc,
 489                         enum_fc->mappings->len - 1);
 490                 mapping->ranges = g_array_new(FALSE, TRUE,
 491                         sizeof(struct bt_field_class_enumeration_mapping_range));
 492                 if (!mapping->ranges) {
 493                         finalize_enumeration_field_class_mapping(mapping);
 494                         g_array_set_size(enum_fc->mappings,
 495                                 enum_fc->mappings->len - 1);
 496                         ret = -1;
 497                         goto end;
 498                 }
 499
 500                 mapping->label = g_string_new(label);
 501                 if (!mapping->label) {
 502                         finalize_enumeration_field_class_mapping(mapping);
 503                         g_array_set_size(enum_fc->mappings,
 504                                 enum_fc->mappings->len - 1);
 505                         ret = -1;
 506                         goto end;
 507                 }
 508         }
 509
 510         /* Add range */
 511         BT_ASSERT(mapping);
 512         g_array_set_size(mapping->ranges, mapping->ranges->len + 1);
 513         range = BT_FIELD_CLASS_ENUM_MAPPING_RANGE_AT_INDEX(mapping,
 514                 mapping->ranges->len - 1);
 515         range->lower.u = lower;
 516         range->upper.u = upper;
 517         BT_LIB_LOGV("Added mapping to enumeration field class: "
 518                 "%![fc-]+F, label=\"%s\", lower-unsigned=%" PRIu64 ", "
 519                 "upper-unsigned=%" PRIu64, fc, label, lower, upper);
 520
 521 end:
 522         return ret;
 523 }
 524
 525 int bt_private_field_class_unsigned_enumeration_map_range(
 526                 struct bt_private_field_class *priv_fc, const char *label,
 527                 uint64_t range_lower, uint64_t range_upper)
 528 {
 529         struct bt_field_class *fc = (void *) priv_fc;
 530         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 531
 532         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 533         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_UNSIGNED_ENUMERATION,
 534                 "Field class");
 535         BT_ASSERT_PRE(range_lower <= range_upper,
 536                 "Range's upper bound is less than lower bound: "
 537                 "upper=%" PRIu64 ", lower=%" PRIu64,
 538                 range_lower, range_upper);
 539         BT_ASSERT_PRE(bt_util_value_is_in_range_unsigned(enum_fc->common.range,
 540                 range_lower),
 541                 "Range's lower bound is outside the enumeration field class's value range: "
 542                 "%![fc-]+F, lower=%" PRIu64, fc, range_lower);
 543         BT_ASSERT_PRE(bt_util_value_is_in_range_unsigned(enum_fc->common.range,
 544                 range_upper),
 545                 "Range's upper bound is outside the enumeration field class's value range: "
 546                 "%![fc-]+F, upper=%" PRIu64, fc, range_upper);
 547         return add_mapping_to_enumeration_field_class(fc, label, range_lower,
 548                 range_upper);
 549 }
 550
 551 int bt_private_field_class_signed_enumeration_map_range(
 552                 struct bt_private_field_class *priv_fc, const char *label,
 553                 int64_t range_lower, int64_t range_upper)
 554 {
 555         struct bt_field_class *fc = (void *) priv_fc;
 556         struct bt_field_class_enumeration *enum_fc = (void *) fc;
 557
 558         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 559         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_SIGNED_ENUMERATION,
 560                 "Field class");
 561         BT_ASSERT_PRE(range_lower <= range_upper,
 562                 "Range's upper bound is less than lower bound: "
 563                 "upper=%" PRId64 ", lower=%" PRId64,
 564                 range_lower, range_upper);
 565         BT_ASSERT_PRE(bt_util_value_is_in_range_signed(enum_fc->common.range,
 566                 range_lower),
 567                 "Range's lower bound is outside the enumeration field class's value range: "
 568                 "%![fc-]+F, lower=%" PRId64, fc, range_lower);
 569         BT_ASSERT_PRE(bt_util_value_is_in_range_signed(enum_fc->common.range,
 570                 range_upper),
 571                 "Range's upper bound is outside the enumeration field class's value range: "
 572                 "%![fc-]+F, upper=%" PRId64, fc, range_upper);
 573         return add_mapping_to_enumeration_field_class(fc, label, range_lower,
 574                 range_upper);
 575 }
 576
 577 static
 578 void destroy_real_field_class(struct bt_object *obj)
 579 {
 580         BT_ASSERT(obj);
 581         BT_LIB_LOGD("Destroying real field class object: %!+F", obj);
 582         g_free(obj);
 583 }
 584
 585 struct bt_private_field_class *bt_private_field_class_real_create(void)
 586 {
 587         struct bt_field_class_real *real_fc = NULL;
 588
 589         BT_LOGD_STR("Creating default real field class object.");
 590         real_fc = g_new0(struct bt_field_class_real, 1);
 591         if (!real_fc) {
 592                 BT_LOGE_STR("Failed to allocate one real field class.");
 593                 goto error;
 594         }
 595
 596         init_field_class((void *) real_fc, BT_FIELD_CLASS_TYPE_REAL,
 597                 destroy_real_field_class);
 598         BT_LIB_LOGD("Created real field class object: %!+F", real_fc);
 599         goto end;
 600
 601 error:
 602         BT_OBJECT_PUT_REF_AND_RESET(real_fc);
 603
 604 end:
 605         return (void *) real_fc;
 606 }
 607
 608 bt_bool bt_field_class_real_is_single_precision(struct bt_field_class *fc)
 609 {
 610         struct bt_field_class_real *real_fc = (void *) fc;
 611
 612         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 613         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_REAL, "Field class");
 614         return real_fc->is_single_precision;
 615 }
 616
 617 void bt_private_field_class_real_set_is_single_precision(
 618                 struct bt_private_field_class *priv_fc,
 619                 bt_bool is_single_precision)
 620 {
 621         struct bt_field_class *fc = (void *) priv_fc;
 622         struct bt_field_class_real *real_fc = (void *) fc;
 623
 624         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 625         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_REAL, "Field class");
 626         BT_ASSERT_PRE_FC_HOT(fc, "Field class");
 627         real_fc->is_single_precision = (bool) is_single_precision;
 628         BT_LIB_LOGV("Set real field class's \"is single precision\" property: "
 629                 "%!+F", fc);
 630 }
 631
 632 static
 633 int init_named_field_classes_container(
 634                 struct bt_field_class_named_field_class_container *fc,
 635                 enum bt_field_class_type type, bt_object_release_func release_func)
 636 {
 637         int ret = 0;
 638
 639         init_field_class((void *) fc, type, release_func);
 640         fc->named_fcs = g_array_new(FALSE, TRUE,
 641                 sizeof(struct bt_named_field_class));
 642         if (!fc->named_fcs) {
 643                 BT_LOGE_STR("Failed to allocate a GArray.");
 644                 ret = -1;
 645                 goto end;
 646         }
 647
 648         fc->name_to_index = g_hash_table_new(g_str_hash, g_str_equal);
 649         if (!fc->name_to_index) {
 650                 BT_LOGE_STR("Failed to allocate a GHashTable.");
 651                 ret = -1;
 652                 goto end;
 653         }
 654
 655 end:
 656         return ret;
 657 }
 658
 659 static
 660 void finalize_named_field_class(struct bt_named_field_class *named_fc)
 661 {
 662         BT_ASSERT(named_fc);
 663         BT_LIB_LOGD("Finalizing named field class: "
 664                 "addr=%p, name=\"%s\", %![fc-]+F",
 665                 named_fc, named_fc->name ? named_fc->name->str : NULL,
 666                 named_fc->fc);
 667
 668         if (named_fc->name) {
 669                 g_string_free(named_fc->name, TRUE);
 670         }
 671
 672         BT_LOGD_STR("Putting named field class's field class.");
 673         BT_OBJECT_PUT_REF_AND_RESET(named_fc->fc);
 674 }
 675
 676 static
 677 void finalize_named_field_classes_container(
 678                 struct bt_field_class_named_field_class_container *fc)
 679 {
 680         uint64_t i;
 681
 682         BT_ASSERT(fc);
 683
 684         if (fc->named_fcs) {
 685                 for (i = 0; i < fc->named_fcs->len; i++) {
 686                         finalize_named_field_class(
 687                                 &g_array_index(fc->named_fcs,
 688                                         struct bt_named_field_class, i));
 689                 }
 690
 691                 g_array_free(fc->named_fcs, TRUE);
 692         }
 693
 694         if (fc->name_to_index) {
 695                 g_hash_table_destroy(fc->name_to_index);
 696         }
 697 }
 698
 699 static
 700 void destroy_structure_field_class(struct bt_object *obj)
 701 {
 702         BT_ASSERT(obj);
 703         BT_LIB_LOGD("Destroying string field class object: %!+F", obj);
 704         finalize_named_field_classes_container((void *) obj);
 705         g_free(obj);
 706 }
 707
 708 struct bt_private_field_class *bt_private_field_class_structure_create(void)
 709 {
 710         int ret;
 711         struct bt_field_class_structure *struct_fc = NULL;
 712
 713         BT_LOGD_STR("Creating default structure field class object.");
 714         struct_fc = g_new0(struct bt_field_class_structure, 1);
 715         if (!struct_fc) {
 716                 BT_LOGE_STR("Failed to allocate one structure field class.");
 717                 goto error;
 718         }
 719
 720         ret = init_named_field_classes_container((void *) struct_fc,
 721                 BT_FIELD_CLASS_TYPE_STRUCTURE, destroy_structure_field_class);
 722         if (ret) {
 723                 goto error;
 724         }
 725
 726         BT_LIB_LOGD("Created structure field class object: %!+F", struct_fc);
 727         goto end;
 728
 729 error:
 730         BT_OBJECT_PUT_REF_AND_RESET(struct_fc);
 731
 732 end:
 733         return (void *) struct_fc;
 734 }
 735
 736 static
 737 int append_named_field_class_to_container_field_class(
 738                 struct bt_field_class_named_field_class_container *container_fc,
 739                 const char *name, struct bt_field_class *fc)
 740 {
 741         int ret = 0;
 742         struct bt_named_field_class *named_fc;
 743         GString *name_str;
 744
 745         BT_ASSERT(container_fc);
 746         BT_ASSERT_PRE_FC_HOT(container_fc, "Field class");
 747         BT_ASSERT_PRE_NON_NULL(name, "Name");
 748         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 749         BT_ASSERT_PRE(!bt_g_hash_table_contains(container_fc->name_to_index,
 750                 name),
 751                 "Duplicate member/option name in structure/variant field class: "
 752                 "%![container-fc-]+F, name=\"%s\"", container_fc, name);
 753         name_str = g_string_new(name);
 754         if (!name_str) {
 755                 BT_LOGE_STR("Failed to allocate a GString.");
 756                 ret = -1;
 757                 goto end;
 758         }
 759
 760         g_array_set_size(container_fc->named_fcs,
 761                 container_fc->named_fcs->len + 1);
 762         named_fc = &g_array_index(container_fc->named_fcs,
 763                 struct bt_named_field_class, container_fc->named_fcs->len - 1);
 764         named_fc->name = name_str;
 765         named_fc->fc = fc;
 766         bt_object_get_no_null_check(fc);
 767         g_hash_table_insert(container_fc->name_to_index, named_fc->name->str,
 768                 GUINT_TO_POINTER(container_fc->named_fcs->len - 1));
 769         bt_field_class_freeze(fc);
 770
 771 end:
 772         return ret;
 773 }
 774
 775 int bt_private_field_class_structure_append_member(
 776                 struct bt_private_field_class *priv_fc,
 777                 const char *name, struct bt_private_field_class *member_fc)
 778 {
 779         struct bt_field_class *fc = (void *) priv_fc;
 780
 781         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 782         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_STRUCTURE, "Field class");
 783         return append_named_field_class_to_container_field_class((void *) fc,
 784                 name, (void *) member_fc);
 785 }
 786
 787 uint64_t bt_field_class_structure_get_member_count(struct bt_field_class *fc)
 788 {
 789         struct bt_field_class_structure *struct_fc = (void *) fc;
 790
 791         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 792         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_STRUCTURE, "Field class");
 793         return (uint64_t) struct_fc->common.named_fcs->len;
 794 }
 795
 796 static
 797 void borrow_named_field_class_from_container_field_class_at_index(
 798                 struct bt_field_class_named_field_class_container *fc,
 799                 uint64_t index, const char **name,
 800                 struct bt_field_class **out_fc)
 801 {
 802         struct bt_named_field_class *named_fc;
 803
 804         BT_ASSERT(fc);
 805         BT_ASSERT_PRE_NON_NULL(name, "Name");
 806         BT_ASSERT_PRE_NON_NULL(out_fc, "Field class (output)");
 807         BT_ASSERT_PRE_VALID_INDEX(index, fc->named_fcs->len);
 808         named_fc = BT_FIELD_CLASS_NAMED_FC_AT_INDEX(fc, index);
 809         *name = named_fc->name->str;
 810         *out_fc = named_fc->fc;
 811 }
 812
 813 void bt_field_class_structure_borrow_member_by_index(
 814                 struct bt_field_class *fc, uint64_t index,
 815                 const char **name, struct bt_field_class **out_fc)
 816 {
 817         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 818         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_STRUCTURE, "Field class");
 819         borrow_named_field_class_from_container_field_class_at_index((void *) fc,
 820                 index, name, out_fc);
 821 }
 822
 823 void bt_private_field_class_structure_borrow_member_by_index(
 824                 struct bt_private_field_class *fc, uint64_t index,
 825                 const char **name, struct bt_private_field_class **out_fc)
 826 {
 827         bt_field_class_structure_borrow_member_by_index((void *) fc,
 828                 index, name, (void *) out_fc);
 829 }
 830
 831 static
 832 struct bt_field_class *borrow_field_class_from_container_field_class_by_name(
 833                 struct bt_field_class_named_field_class_container *fc,
 834                 const char *name)
 835 {
 836         struct bt_field_class *ret_fc = NULL;
 837         struct bt_named_field_class *named_fc;
 838         gpointer orig_key;
 839         gpointer value;
 840
 841         BT_ASSERT(fc);
 842         BT_ASSERT_PRE_NON_NULL(name, "Name");
 843         if (!g_hash_table_lookup_extended(fc->name_to_index, name, &orig_key,
 844                         &value)) {
 845                 goto end;
 846         }
 847
 848         named_fc = BT_FIELD_CLASS_NAMED_FC_AT_INDEX(fc,
 849                 GPOINTER_TO_UINT(value));
 850         ret_fc = named_fc->fc;
 851
 852 end:
 853         return ret_fc;
 854 }
 855
 856 struct bt_field_class *bt_field_class_structure_borrow_member_field_class_by_name(
 857                 struct bt_field_class *fc, const char *name)
 858 {
 859         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 860         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_STRUCTURE, "Field class");
 861         return borrow_field_class_from_container_field_class_by_name((void *) fc,
 862                 name);
 863 }
 864
 865 struct bt_private_field_class *
 866 bt_private_field_class_structure_borrow_member_field_class_by_name(
 867                 struct bt_private_field_class *fc, const char *name)
 868 {
 869         return (void *) bt_field_class_structure_borrow_member_field_class_by_name(
 870                 (void *) fc, name);
 871 }
 872
 873 static
 874 void destroy_variant_field_class(struct bt_object *obj)
 875 {
 876         struct bt_field_class_variant *fc = (void *) obj;
 877
 878         BT_ASSERT(fc);
 879         BT_LIB_LOGD("Destroying variant field class object: %!+F", fc);
 880         finalize_named_field_classes_container((void *) fc);
 881         BT_LOGD_STR("Putting selector field path.");
 882         BT_OBJECT_PUT_REF_AND_RESET(fc->selector_field_path);
 883         BT_LOGD_STR("Putting selector field class.");
 884         BT_OBJECT_PUT_REF_AND_RESET(fc->selector_fc);
 885         g_free(fc);
 886 }
 887
 888 struct bt_private_field_class *bt_private_field_class_variant_create(void)
 889 {
 890         int ret;
 891         struct bt_field_class_variant *var_fc = NULL;
 892
 893         BT_LOGD_STR("Creating default variant field class object.");
 894         var_fc = g_new0(struct bt_field_class_variant, 1);
 895         if (!var_fc) {
 896                 BT_LOGE_STR("Failed to allocate one variant field class.");
 897                 goto error;
 898         }
 899
 900         ret = init_named_field_classes_container((void *) var_fc,
 901                 BT_FIELD_CLASS_TYPE_VARIANT, destroy_variant_field_class);
 902         if (ret) {
 903                 goto error;
 904         }
 905
 906         BT_LIB_LOGD("Created variant field class object: %!+F", var_fc);
 907         goto end;
 908
 909 error:
 910         BT_OBJECT_PUT_REF_AND_RESET(var_fc);
 911
 912 end:
 913         return (void *) var_fc;
 914 }
 915
 916 int bt_private_field_class_variant_set_selector_field_class(
 917                 struct bt_private_field_class *priv_fc,
 918                 struct bt_private_field_class *selector_fc)
 919 {
 920         struct bt_field_class *fc = (void *) priv_fc;
 921         struct bt_field_class_variant *var_fc = (void *) fc;
 922
 923         BT_ASSERT_PRE_NON_NULL(fc, "Variant field class");
 924         BT_ASSERT_PRE_NON_NULL(selector_fc, "Selector field class");
 925         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT, "Field class");
 926         BT_ASSERT_PRE_FC_IS_ENUM(selector_fc, "Selector field class");
 927         BT_ASSERT_PRE_FC_HOT(fc, "Variant field class");
 928         var_fc->selector_fc = (void *) selector_fc;
 929         bt_object_get_no_null_check(selector_fc);
 930         bt_field_class_freeze((void *) selector_fc);
 931         return 0;
 932 }
 933
 934 int bt_private_field_class_variant_append_private_option(
 935                 struct bt_private_field_class *priv_fc,
 936                 const char *name, struct bt_private_field_class *option_fc)
 937 {
 938         struct bt_field_class *fc = (void *) priv_fc;
 939
 940         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 941         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT, "Field class");
 942         return append_named_field_class_to_container_field_class((void *) fc,
 943                 name, (void *) option_fc);
 944 }
 945
 946 struct bt_field_class *bt_field_class_variant_borrow_option_field_class_by_name(
 947                 struct bt_field_class *fc, const char *name)
 948 {
 949         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 950         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT, "Field class");
 951         return borrow_field_class_from_container_field_class_by_name((void *) fc,
 952                 name);
 953 }
 954
 955 struct bt_private_field_class *
 956 bt_private_field_class_variant_borrow_option_field_class_by_name(
 957                 struct bt_private_field_class *fc, const char *name)
 958 {
 959         return (void *) bt_field_class_variant_borrow_option_field_class_by_name(
 960                 (void *) fc, name);
 961 }
 962
 963 uint64_t bt_field_class_variant_get_option_count(struct bt_field_class *fc)
 964 {
 965         struct bt_field_class_variant *var_fc = (void *) fc;
 966
 967         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 968         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT, "Field class");
 969         return (uint64_t) var_fc->common.named_fcs->len;
 970 }
 971
 972 void bt_field_class_variant_borrow_option_by_index(
 973                 struct bt_field_class *fc, uint64_t index,
 974                 const char **name, struct bt_field_class **out_fc)
 975 {
 976         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 977         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT, "Field class");
 978         borrow_named_field_class_from_container_field_class_at_index((void *) fc,
 979                 index, name, out_fc);
 980 }
 981
 982 void bt_private_field_class_variant_borrow_option_by_index(
 983                 struct bt_private_field_class *fc, uint64_t index,
 984                 const char **name, struct bt_private_field_class **out_fc)
 985 {
 986         bt_field_class_variant_borrow_option_by_index((void *) fc,
 987                 index, name, (void *) out_fc);
 988 }
 989
 990 struct bt_field_path *bt_field_class_variant_borrow_selector_field_path(
 991                 struct bt_field_class *fc)
 992 {
 993         struct bt_field_class_variant *var_fc = (void *) fc;
 994
 995         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
 996         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_VARIANT,
 997                 "Field class");
 998         return var_fc->selector_field_path;
 999 }
1000
1001 static
1002 void init_array_field_class(struct bt_field_class_array *fc,
1003                 enum bt_field_class_type type, bt_object_release_func release_func,
1004                 struct bt_field_class *element_fc)
1005 {
1006         BT_ASSERT(element_fc);
1007         init_field_class((void *) fc, type, release_func);
1008         fc->element_fc = element_fc;
1009         bt_object_get_no_null_check(element_fc);
1010         bt_field_class_freeze(element_fc);
1011 }
1012
1013 static
1014 void finalize_array_field_class(struct bt_field_class_array *array_fc)
1015 {
1016         BT_ASSERT(array_fc);
1017         BT_LOGD_STR("Putting element field class.");
1018         BT_OBJECT_PUT_REF_AND_RESET(array_fc->element_fc);
1019 }
1020
1021 static
1022 void destroy_static_array_field_class(struct bt_object *obj)
1023 {
1024         BT_ASSERT(obj);
1025         BT_LIB_LOGD("Destroying static array field class object: %!+F", obj);
1026         finalize_array_field_class((void *) obj);
1027         g_free(obj);
1028 }
1029
1030 struct bt_private_field_class *
1031 bt_private_field_class_static_array_create(
1032                 struct bt_private_field_class *priv_element_fc,
1033                 uint64_t length)
1034 {
1035         struct bt_field_class *element_fc = (void *) priv_element_fc;
1036         struct bt_field_class_static_array *array_fc = NULL;
1037
1038         BT_ASSERT_PRE_NON_NULL(element_fc, "Element field class");
1039         BT_LOGD_STR("Creating default static array field class object.");
1040         array_fc = g_new0(struct bt_field_class_static_array, 1);
1041         if (!array_fc) {
1042                 BT_LOGE_STR("Failed to allocate one static array field class.");
1043                 goto error;
1044         }
1045
1046         init_array_field_class((void *) array_fc, BT_FIELD_CLASS_TYPE_STATIC_ARRAY,
1047                 destroy_static_array_field_class, element_fc);
1048         array_fc->length = length;
1049         BT_LIB_LOGD("Created static array field class object: %!+F", array_fc);
1050         goto end;
1051
1052 error:
1053         BT_OBJECT_PUT_REF_AND_RESET(array_fc);
1054
1055 end:
1056         return (void *) array_fc;
1057 }
1058
1059 struct bt_field_class *bt_field_class_array_borrow_element_field_class(
1060                 struct bt_field_class *fc)
1061 {
1062         struct bt_field_class_array *array_fc = (void *) fc;
1063
1064         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
1065         BT_ASSERT_PRE_FC_IS_ARRAY(fc, "Field class");
1066         return array_fc->element_fc;
1067 }
1068
1069 struct bt_private_field_class *
1070 bt_private_field_class_array_borrow_element_field_class(
1071                 struct bt_private_field_class *fc)
1072 {
1073         return (void *) bt_field_class_array_borrow_element_field_class(
1074                 (void *) fc);
1075 }
1076
1077 uint64_t bt_field_class_static_array_get_length(struct bt_field_class *fc)
1078 {
1079         struct bt_field_class_static_array *array_fc = (void *) fc;
1080
1081         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
1082         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_STATIC_ARRAY,
1083                 "Field class");
1084         return (uint64_t) array_fc->length;
1085 }
1086
1087 static
1088 void destroy_dynamic_array_field_class(struct bt_object *obj)
1089 {
1090         struct bt_field_class_dynamic_array *fc = (void *) obj;
1091
1092         BT_ASSERT(fc);
1093         BT_LIB_LOGD("Destroying dynamic array field class object: %!+F", fc);
1094         finalize_array_field_class((void *) fc);
1095         BT_LOGD_STR("Putting length field path.");
1096         BT_OBJECT_PUT_REF_AND_RESET(fc->length_field_path);
1097         BT_LOGD_STR("Putting length field class.");
1098         BT_OBJECT_PUT_REF_AND_RESET(fc->length_fc);
1099         g_free(fc);
1100 }
1101
1102 struct bt_private_field_class *bt_private_field_class_dynamic_array_create(
1103                 struct bt_private_field_class *priv_element_fc)
1104 {
1105         struct bt_field_class *element_fc = (void *) priv_element_fc;
1106         struct bt_field_class_dynamic_array *array_fc = NULL;
1107
1108         BT_ASSERT_PRE_NON_NULL(element_fc, "Element field class");
1109         BT_LOGD_STR("Creating default dynamic array field class object.");
1110         array_fc = g_new0(struct bt_field_class_dynamic_array, 1);
1111         if (!array_fc) {
1112                 BT_LOGE_STR("Failed to allocate one dynamic array field class.");
1113                 goto error;
1114         }
1115
1116         init_array_field_class((void *) array_fc, BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY,
1117                 destroy_dynamic_array_field_class, element_fc);
1118         BT_LIB_LOGD("Created dynamic array field class object: %!+F", array_fc);
1119         goto end;
1120
1121 error:
1122         BT_OBJECT_PUT_REF_AND_RESET(array_fc);
1123
1124 end:
1125         return (void *) array_fc;
1126 }
1127
1128 int bt_private_field_class_dynamic_array_set_length_field_class(
1129                 struct bt_private_field_class *priv_fc,
1130                 struct bt_private_field_class *priv_length_fc)
1131 {
1132         struct bt_field_class *fc = (void *) priv_fc;
1133         struct bt_field_class *length_fc = (void *) priv_length_fc;
1134         struct bt_field_class_dynamic_array *array_fc = (void *) fc;
1135
1136         BT_ASSERT_PRE_NON_NULL(fc, "Dynamic array field class");
1137         BT_ASSERT_PRE_NON_NULL(length_fc, "Length field class");
1138         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY,
1139                 "Field class");
1140         BT_ASSERT_PRE_FC_IS_UNSIGNED_INT(length_fc, "Length field class");
1141         BT_ASSERT_PRE_FC_HOT(fc, "Dynamic array field class");
1142         array_fc->length_fc = (void *) length_fc;
1143         bt_object_get_no_null_check(length_fc);
1144         bt_field_class_freeze(length_fc);
1145         return 0;
1146 }
1147
1148 struct bt_field_path *bt_field_class_dynamic_array_borrow_length_field_path(
1149                 struct bt_field_class *fc)
1150 {
1151         struct bt_field_class_dynamic_array *seq_fc = (void *) fc;
1152
1153         BT_ASSERT_PRE_NON_NULL(fc, "Field class");
1154         BT_ASSERT_PRE_FC_HAS_ID(fc, BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY,
1155                 "Field class");
1156         return seq_fc->length_field_path;
1157 }
1158
1159 static
1160 void destroy_string_field_class(struct bt_object *obj)
1161 {
1162         BT_ASSERT(obj);
1163         BT_LIB_LOGD("Destroying string field class object: %!+F", obj);
1164         g_free(obj);
1165 }
1166
1167 struct bt_private_field_class *bt_private_field_class_string_create(void)
1168 {
1169         struct bt_field_class_string *string_fc = NULL;
1170
1171         BT_LOGD_STR("Creating default string field class object.");
1172         string_fc = g_new0(struct bt_field_class_string, 1);
1173         if (!string_fc) {
1174                 BT_LOGE_STR("Failed to allocate one string field class.");
1175                 goto error;
1176         }
1177
1178         init_field_class((void *) string_fc, BT_FIELD_CLASS_TYPE_STRING,
1179                 destroy_string_field_class);
1180         BT_LIB_LOGD("Created string field class object: %!+F", string_fc);
1181         goto end;
1182
1183 error:
1184         BT_OBJECT_PUT_REF_AND_RESET(string_fc);
1185
1186 end:
1187         return (void *) string_fc;
1188 }
1189
1190 BT_HIDDEN
1191 void _bt_field_class_freeze(struct bt_field_class *fc)
1192 {
1193         /*
1194          * Element/member/option field classes are frozen when added to
1195          * their owner.
1196          */
1197         BT_ASSERT(fc);
1198         fc->frozen = true;
1199 }
1200
1201 BT_HIDDEN
1202 void _bt_field_class_make_part_of_trace(struct bt_field_class *fc)
1203 {
1204         BT_ASSERT(fc);
1205         BT_ASSERT_PRE(!fc->part_of_trace,
1206                 "Field class is already part of a trace: %!+F", fc);
1207         fc->part_of_trace = true;
1208
1209         switch (fc->type) {
1210         case BT_FIELD_CLASS_TYPE_STRUCTURE:
1211         case BT_FIELD_CLASS_TYPE_VARIANT:
1212         {
1213                 struct bt_field_class_named_field_class_container *container_fc =
1214                         (void *) fc;
1215                 uint64_t i;
1216
1217                 for (i = 0; i < container_fc->named_fcs->len; i++) {
1218                         struct bt_named_field_class *named_fc =
1219                                 BT_FIELD_CLASS_NAMED_FC_AT_INDEX(
1220                                         container_fc, i);
1221
1222                         bt_field_class_make_part_of_trace(named_fc->fc);
1223                 }
1224
1225                 break;
1226         }
1227         case BT_FIELD_CLASS_TYPE_STATIC_ARRAY:
1228         case BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY:
1229         {
1230                 struct bt_field_class_array *array_fc = (void *) fc;
1231
1232                 bt_field_class_make_part_of_trace(array_fc->element_fc);
1233                 break;
1234         }
1235         default:
1236                 break;
1237         }
1238 }