+
+static
+struct declaration_struct *bt_lookup_struct_declaration_scope(GQuark struct_name,
+ struct declaration_scope *scope)
+{
+ return g_hash_table_lookup(scope->struct_declarations,
+ (gconstpointer) (unsigned long) struct_name);
+}
+
+struct declaration_struct *bt_lookup_struct_declaration(GQuark struct_name,
+ struct declaration_scope *scope)
+{
+ struct declaration_struct *declaration;
+
+ while (scope) {
+ declaration = bt_lookup_struct_declaration_scope(struct_name, scope);
+ if (declaration)
+ return declaration;
+ scope = scope->parent_scope;
+ }
+ return NULL;
+}
+
+int bt_register_struct_declaration(GQuark struct_name,
+ struct declaration_struct *struct_declaration,
+ struct declaration_scope *scope)
+{
+ GQuark prefix_name;
+ int ret;
+
+ if (!struct_name)
+ return -EPERM;
+
+ /* Only lookup in local scope */
+ if (bt_lookup_struct_declaration_scope(struct_name, scope))
+ return -EEXIST;
+
+ g_hash_table_insert(scope->struct_declarations,
+ (gpointer) (unsigned long) struct_name,
+ struct_declaration);
+ bt_declaration_ref(&struct_declaration->p);
+
+ /* Also add in typedef/typealias scopes */
+ prefix_name = prefix_quark("struct ", struct_name);
+ ret = bt_register_declaration(prefix_name, &struct_declaration->p, scope);
+ assert(!ret);
+ return 0;
+}
+
+static
+struct declaration_untagged_variant *
+ bt_lookup_variant_declaration_scope(GQuark variant_name,
+ struct declaration_scope *scope)
+{
+ return g_hash_table_lookup(scope->variant_declarations,
+ (gconstpointer) (unsigned long) variant_name);
+}
+
+struct declaration_untagged_variant *
+ bt_lookup_variant_declaration(GQuark variant_name,
+ struct declaration_scope *scope)
+{
+ struct declaration_untagged_variant *declaration;
+
+ while (scope) {
+ declaration = bt_lookup_variant_declaration_scope(variant_name, scope);
+ if (declaration)
+ return declaration;
+ scope = scope->parent_scope;
+ }
+ return NULL;
+}
+
+int bt_register_variant_declaration(GQuark variant_name,
+ struct declaration_untagged_variant *untagged_variant_declaration,
+ struct declaration_scope *scope)
+{
+ GQuark prefix_name;
+ int ret;
+
+ if (!variant_name)
+ return -EPERM;
+
+ /* Only lookup in local scope */
+ if (bt_lookup_variant_declaration_scope(variant_name, scope))
+ return -EEXIST;
+
+ g_hash_table_insert(scope->variant_declarations,
+ (gpointer) (unsigned long) variant_name,
+ untagged_variant_declaration);
+ bt_declaration_ref(&untagged_variant_declaration->p);
+
+ /* Also add in typedef/typealias scopes */
+ prefix_name = prefix_quark("variant ", variant_name);
+ ret = bt_register_declaration(prefix_name,
+ &untagged_variant_declaration->p, scope);
+ assert(!ret);
+ return 0;
+}
+
+static
+struct declaration_enum *
+ bt_lookup_enum_declaration_scope(GQuark enum_name,
+ struct declaration_scope *scope)
+{
+ return g_hash_table_lookup(scope->enum_declarations,
+ (gconstpointer) (unsigned long) enum_name);
+}
+
+struct declaration_enum *
+ bt_lookup_enum_declaration(GQuark enum_name,
+ struct declaration_scope *scope)
+{
+ struct declaration_enum *declaration;
+
+ while (scope) {
+ declaration = bt_lookup_enum_declaration_scope(enum_name, scope);
+ if (declaration)
+ return declaration;
+ scope = scope->parent_scope;
+ }
+ return NULL;
+}
+
+int bt_register_enum_declaration(GQuark enum_name,
+ struct declaration_enum *enum_declaration,
+ struct declaration_scope *scope)
+{
+ GQuark prefix_name;
+ int ret;
+
+ if (!enum_name)
+ return -EPERM;
+
+ /* Only lookup in local scope */
+ if (bt_lookup_enum_declaration_scope(enum_name, scope))
+ return -EEXIST;
+
+ g_hash_table_insert(scope->enum_declarations,
+ (gpointer) (unsigned long) enum_name,
+ enum_declaration);
+ bt_declaration_ref(&enum_declaration->p);
+
+ /* Also add in typedef/typealias scopes */
+ prefix_name = prefix_quark("enum ", enum_name);
+ ret = bt_register_declaration(prefix_name, &enum_declaration->p, scope);
+ assert(!ret);
+ return 0;
+}
+
+static struct definition_scope *
+ _bt_new_definition_scope(struct definition_scope *parent_scope,
+ int scope_path_len)
+{
+ struct definition_scope *scope = g_new(struct definition_scope, 1);
+
+ scope->definitions = g_hash_table_new(g_direct_hash,
+ g_direct_equal);
+ scope->parent_scope = parent_scope;
+ scope->scope_path = g_array_sized_new(FALSE, TRUE, sizeof(GQuark),
+ scope_path_len);
+ g_array_set_size(scope->scope_path, scope_path_len);
+ return scope;
+}
+
+GQuark bt_new_definition_path(struct definition_scope *parent_scope,
+ GQuark field_name, const char *root_name)
+{
+ GQuark path;
+ GString *str;
+ gchar *c_str;
+ int need_dot = 0;
+
+ str = g_string_new("");
+ if (root_name) {
+ g_string_append(str, root_name);
+ need_dot = 1;
+ } else if (parent_scope) {
+ int i;
+
+ for (i = 0; i < parent_scope->scope_path->len; i++) {
+ GQuark q = g_array_index(parent_scope->scope_path,
+ GQuark, i);
+ if (!q)
+ continue;
+ if (need_dot)
+ g_string_append(str, ".");
+ g_string_append(str, g_quark_to_string(q));
+ need_dot = 1;
+ }
+ }
+ if (field_name) {
+ if (need_dot)
+ g_string_append(str, ".");
+ g_string_append(str, g_quark_to_string(field_name));
+ }
+ c_str = g_string_free(str, FALSE);
+ if (c_str[0] == '\0')
+ return 0;
+ path = g_quark_from_string(c_str);
+ printf_debug("new definition path: %s\n", c_str);
+ g_free(c_str);
+ return path;
+}
+
+struct definition_scope *
+ bt_new_definition_scope(struct definition_scope *parent_scope,
+ GQuark field_name, const char *root_name)
+{
+ struct definition_scope *scope;
+
+ if (root_name) {
+ scope = _bt_new_definition_scope(parent_scope, 0);
+ bt_append_scope_path(root_name, scope->scope_path);
+ } else {
+ int scope_path_len = 1;
+
+ assert(parent_scope);
+ scope_path_len += parent_scope->scope_path->len;
+ scope = _bt_new_definition_scope(parent_scope, scope_path_len);
+ memcpy(scope->scope_path->data, parent_scope->scope_path->data,
+ sizeof(GQuark) * (scope_path_len - 1));
+ g_array_index(scope->scope_path, GQuark, scope_path_len - 1) =
+ field_name;
+ }
+ if (babeltrace_debug) {
+ int i, need_dot = 0;
+
+ printf_debug("new definition scope: ");
+ for (i = 0; i < scope->scope_path->len; need_dot = 1, i++)
+ printf("%s%s", need_dot ? "." : "",
+ g_quark_to_string(g_array_index(scope->scope_path, GQuark, i)));
+ printf("\n");
+ }
+ return scope;
+}
+
+/*
+ * in: path (dot separated), out: q (GArray of GQuark)
+ */
+void bt_append_scope_path(const char *path, GArray *q)
+{
+ const char *ptrbegin, *ptrend = path;
+ GQuark quark;
+
+ for (;;) {
+ char *str;
+ size_t len;
+
+ ptrbegin = ptrend;
+ ptrend = strchr(ptrbegin, '.');
+ if (!ptrend)
+ break;
+ len = ptrend - ptrbegin;
+ /* Don't accept two consecutive dots */
+ assert(len != 0);
+ str = g_new(char, len + 1); /* include \0 */
+ memcpy(str, ptrbegin, len);
+ str[len] = '\0';
+ quark = g_quark_from_string(str);
+ g_array_append_val(q, quark);
+ g_free(str);
+ ptrend++; /* skip current dot */
+ }
+ /* last. Check for trailing dot (and discard). */
+ if (ptrbegin[0] != '\0') {
+ quark = g_quark_from_string(ptrbegin);
+ g_array_append_val(q, quark);
+ }
+}
+
+void bt_free_definition_scope(struct definition_scope *scope)
+{
+ g_array_free(scope->scope_path, TRUE);
+ g_hash_table_destroy(scope->definitions);
+ g_free(scope);
+}
+
+struct bt_definition *bt_lookup_definition(const struct bt_definition *definition,
+ const char *field_name)
+{
+ struct definition_scope *scope = get_definition_scope(definition);
+
+ if (!scope)
+ return NULL;
+
+ return lookup_field_definition_scope(g_quark_from_string(field_name),
+ scope);
+}
+
+struct definition_integer *bt_lookup_integer(const struct bt_definition *definition,
+ const char *field_name,
+ int signedness)
+{
+ struct bt_definition *lookup;
+ struct definition_integer *lookup_integer;
+
+ lookup = bt_lookup_definition(definition, field_name);
+ if (!lookup)
+ return NULL;
+ if (lookup->declaration->id != CTF_TYPE_INTEGER)
+ return NULL;
+ lookup_integer = container_of(lookup, struct definition_integer, p);
+ if (lookup_integer->declaration->signedness != signedness)
+ return NULL;
+ return lookup_integer;
+}
+
+struct definition_enum *bt_lookup_enum(const struct bt_definition *definition,
+ const char *field_name,
+ int signedness)
+{
+ struct bt_definition *lookup;
+ struct definition_enum *lookup_enum;
+
+ lookup = bt_lookup_definition(definition, field_name);
+ if (!lookup)
+ return NULL;
+ if (lookup->declaration->id != CTF_TYPE_ENUM)
+ return NULL;
+ lookup_enum = container_of(lookup, struct definition_enum, p);
+ if (lookup_enum->integer->declaration->signedness != signedness)
+ return NULL;
+ return lookup_enum;
+}
+
+struct bt_definition *bt_lookup_variant(const struct bt_definition *definition,
+ const char *field_name)
+{
+ struct bt_definition *lookup;
+ struct definition_variant *bt_lookup_variant;
+
+ lookup = bt_lookup_definition(definition, field_name);
+ if (!lookup)
+ return NULL;
+ if (lookup->declaration->id != CTF_TYPE_VARIANT)
+ return NULL;
+ bt_lookup_variant = container_of(lookup, struct definition_variant, p);
+ lookup = bt_variant_get_current_field(bt_lookup_variant);
+ assert(lookup);
+ return lookup;
+}