X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=plugins%2Fctf%2Fcommon%2Fmetadata%2Fvisitor-generate-ir.c;h=0ebb0157ae28215c670f6ed35ef5a4bde7c772e0;hb=53ac34280b8e354671b94046b4cb39a643931926;hp=1ffa1c22a0a711e2e3f45976313823214013ebab;hpb=55314f2a6c08045f6f7ca7700a4932628eff1b87;p=babeltrace.git diff --git a/plugins/ctf/common/metadata/visitor-generate-ir.c b/plugins/ctf/common/metadata/visitor-generate-ir.c index 1ffa1c22..0ebb0157 100644 --- a/plugins/ctf/common/metadata/visitor-generate-ir.c +++ b/plugins/ctf/common/metadata/visitor-generate-ir.c @@ -27,6 +27,9 @@ * SOFTWARE. */ +#define BT_LOG_TAG "PLUGIN-CTF-METADATA-IR-VISITOR" +#include "logging.h" + #include #include #include @@ -51,9 +54,7 @@ #include "scanner.h" #include "parser.h" #include "ast.h" - -#define BT_LOG_TAG "PLUGIN-CTF-METADATA-VISITOR-GENERATE-IR" -#include "logging.h" +#include "decoder.h" /* Bit value (left shift) */ #define _BV(_val) (1 << (_val)) @@ -153,11 +154,19 @@ enum loglevel { #define _BT_CTF_FIELD_TYPE_INIT(_name) struct bt_ctf_field_type *_name = NULL; -#define BT_LOGE_DUP_ATTR(_attr, _entity) \ - do { \ - BT_LOGE("[error] %s: duplicate attribute \"" \ - _attr "\" in " _entity "\n", __func__); \ - } while (0) +#define _BT_LOGE_DUP_ATTR(_node, _attr, _entity) \ + _BT_LOGE_LINENO((_node)->lineno, \ + "Duplicate attribute in %s: attr-name=\"%s\"", \ + _entity, _attr) + +#define _BT_LOGE_NODE(_node, _msg, args...) \ + _BT_LOGE_LINENO((_node)->lineno, _msg, ## args) + +#define _BT_LOGW_NODE(_node, _msg, args...) \ + _BT_LOGW_LINENO((_node)->lineno, _msg, ## args) + +#define _BT_LOGV_NODE(_node, _msg, args...) \ + _BT_LOGV_LINENO((_node)->lineno, _msg, ## args) /* * Declaration scope of a visitor context. This represents a TSDL @@ -192,9 +201,6 @@ struct ctx { /* 1 if this is an LTTng trace */ bool is_lttng; - /* Offset (ns) to apply to clock classes on creation */ - int64_t clock_class_offset_ns; - /* Eventual name suffix of the trace to set */ char *trace_name_suffix; @@ -210,6 +216,9 @@ struct ctx { * int64_t -> struct bt_ctf_stream_class * */ GHashTable *stream_classes; + + /* Config passed by the user */ + struct ctf_metadata_decoder_config decoder_config; }; /* @@ -261,6 +270,7 @@ struct ctx_decl_scope *ctx_decl_scope_create(struct ctx_decl_scope *par_scope) scope = g_new(struct ctx_decl_scope, 1); if (!scope) { + BT_LOGE_STR("Failed to allocate one declaration scope."); goto end; } @@ -310,6 +320,7 @@ GQuark get_prefixed_named_quark(char prefix, const char *name) /* Prefix character + original string + '\0' */ char *prname = g_new(char, strlen(name) + 2); if (!prname) { + BT_LOGE_STR("Failed to allocate a string."); goto end; } @@ -591,31 +602,38 @@ end: */ static struct ctx *ctx_create(struct bt_ctf_trace *trace, - int64_t clock_class_offset_ns, const char *trace_name_suffix) + const struct ctf_metadata_decoder_config *decoder_config, + const char *trace_name_suffix) { struct ctx *ctx = NULL; struct ctx_decl_scope *scope = NULL; + assert(decoder_config); + ctx = g_new0(struct ctx, 1); if (!ctx) { + BT_LOGE_STR("Failed to allocate one visitor context."); goto error; } /* Root declaration scope */ scope = ctx_decl_scope_create(NULL); if (!scope) { + BT_LOGE_STR("Cannot create declaration scope."); goto error; } ctx->stream_classes = g_hash_table_new_full(g_direct_hash, g_direct_equal, NULL, (GDestroyNotify) bt_put); if (!ctx->stream_classes) { + BT_LOGE_STR("Failed to allocate a GHashTable."); goto error; } if (trace_name_suffix) { ctx->trace_name_suffix = strdup(trace_name_suffix); if (!ctx->trace_name_suffix) { + BT_LOGE_STR("Failed to copy string."); goto error; } } @@ -624,7 +642,7 @@ struct ctx *ctx_create(struct bt_ctf_trace *trace, ctx->current_scope = scope; scope = NULL; ctx->trace_bo = BT_CTF_BYTE_ORDER_NATIVE; - ctx->clock_class_offset_ns = clock_class_offset_ns; + ctx->decoder_config = *decoder_config; return ctx; error: @@ -649,6 +667,7 @@ int ctx_push_scope(struct ctx *ctx) assert(ctx); new_scope = ctx_decl_scope_create(ctx->current_scope); if (!new_scope) { + BT_LOGE_STR("Cannot create declaration scope."); ret = -ENOMEM; goto end; } @@ -709,6 +728,7 @@ char *concatenate_unary_strings(struct bt_list_head *head) struct ctf_node *node; str = g_string_new(NULL); + assert(str); bt_list_for_each_entry(node, head, siblings) { char *src_string; @@ -850,6 +870,7 @@ int get_unary_unsigned(struct bt_list_head *head, uint64_t *value) uexpr_type != UNARY_UNSIGNED_CONSTANT || uexpr_link != UNARY_LINK_UNKNOWN || i != 0; if (cond) { + _BT_LOGE_NODE(node, "Invalid constant unsigned integer."); ret = -EINVAL; goto end; } @@ -944,6 +965,8 @@ int get_unary_uuid(struct bt_list_head *head, unsigned char *uuid) src_string = node->u.unary_expression.u.string; ret = bt_uuid_parse(src_string, uuid); if (ret) { + _BT_LOGE_NODE(node, + "Cannot parse UUID: uuid=\"%s\"", src_string); goto end; } } @@ -958,7 +981,9 @@ int get_boolean(struct ctf_node *unary_expr) int ret = 0; if (unary_expr->type != NODE_UNARY_EXPRESSION) { - BT_LOGE("expecting unary expression"); + _BT_LOGE_NODE(unary_expr, + "Expecting unary expression: node-type=%d", + unary_expr->type); ret = -EINVAL; goto end; } @@ -979,14 +1004,17 @@ int get_boolean(struct ctf_node *unary_expr) } else if (!strcmp(str, "false") || !strcmp(str, "FALSE")) { ret = FALSE; } else { - BT_LOGE("unexpected string \"%s\"", str); + _BT_LOGE_NODE(unary_expr, + "Unexpected boolean value: value=\"%s\"", str); ret = -EINVAL; goto end; } break; } default: - BT_LOGE("unexpected unary expression type"); + _BT_LOGE_NODE(unary_expr, + "Unexpected unary expression type: node-type=%d", + unary_expr->u.unary_expression.type); ret = -EINVAL; goto end; } @@ -1002,7 +1030,8 @@ enum bt_ctf_byte_order byte_order_from_unary_expr(struct ctf_node *unary_expr) enum bt_ctf_byte_order bo = BT_CTF_BYTE_ORDER_UNKNOWN; if (unary_expr->u.unary_expression.type != UNARY_STRING) { - BT_LOGE("\"byte_order\" attribute: expecting string"); + _BT_LOGE_NODE(unary_expr, + "\"byte_order\" attribute: expecting `be`, `le`, `network`, or `native`."); goto end; } @@ -1015,7 +1044,9 @@ enum bt_ctf_byte_order byte_order_from_unary_expr(struct ctf_node *unary_expr) } else if (!strcmp(str, "native")) { bo = BT_CTF_BYTE_ORDER_NATIVE; } else { - BT_LOGE("unexpected \"byte_order\" attribute value \"%s\"; should be \"be\", \"le\", \"network\", or \"native\"", + _BT_LOGE_NODE(unary_expr, + "Unexpected \"byte_order\" attribute value: " + "expecting `be`, `le`, `network`, or `native`: value=\"%s\"", str); goto end; } @@ -1050,6 +1081,9 @@ int get_type_specifier_name(struct ctx *ctx, struct ctf_node *type_specifier, int ret = 0; if (type_specifier->type != NODE_TYPE_SPECIFIER) { + _BT_LOGE_NODE(type_specifier, + "Unexpected node type: node-type=%d", + type_specifier->type); ret = -EINVAL; goto end; } @@ -1105,7 +1139,7 @@ int get_type_specifier_name(struct ctx *ctx, struct ctf_node *type_specifier, struct ctf_node *node = type_specifier->u.type_specifier.node; if (!node->u._struct.name) { - BT_LOGE("unexpected empty structure name"); + _BT_LOGE_NODE(node, "Unexpected empty structure field type name."); ret = -EINVAL; goto end; } @@ -1119,7 +1153,7 @@ int get_type_specifier_name(struct ctx *ctx, struct ctf_node *type_specifier, struct ctf_node *node = type_specifier->u.type_specifier.node; if (!node->u.variant.name) { - BT_LOGE("unexpected empty variant name"); + _BT_LOGE_NODE(node, "Unexpected empty variant field type name."); ret = -EINVAL; goto end; } @@ -1133,7 +1167,8 @@ int get_type_specifier_name(struct ctx *ctx, struct ctf_node *type_specifier, struct ctf_node *node = type_specifier->u.type_specifier.node; if (!node->u._enum.enum_id) { - BT_LOGE("unexpected empty enum name"); + _BT_LOGE_NODE(node, + "Unexpected empty enumeration field type (`enum`) name."); ret = -EINVAL; goto end; } @@ -1146,7 +1181,9 @@ int get_type_specifier_name(struct ctx *ctx, struct ctf_node *type_specifier, case TYPESPEC_INTEGER: case TYPESPEC_STRING: default: - BT_LOGE("unknown specifier"); + _BT_LOGE_NODE(type_specifier->u.type_specifier.node, + "Unexpected type specifier type: %d", + type_specifier->u.type_specifier.type); ret = -EINVAL; goto end; } @@ -1236,6 +1273,9 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, if (node_type_declarator) { if (node_type_declarator->u.type_declarator.type == TYPEDEC_UNKNOWN) { + _BT_LOGE_NODE(node_type_declarator, + "Unexpected type declarator type: type=%d", + node_type_declarator->u.type_declarator.type); ret = -EINVAL; goto error; } @@ -1243,7 +1283,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, /* TODO: GCC bitfields not supported yet */ if (node_type_declarator->u.type_declarator.bitfield_len != NULL) { - BT_LOGE("GCC bitfields are not supported as of this version"); + _BT_LOGE_NODE(node_type_declarator, + "GCC bitfields are not supported as of this version."); ret = -EPERM; goto error; } @@ -1268,7 +1309,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, ctx_decl_scope_lookup_alias(ctx->current_scope, g_quark_to_string(qalias), -1); if (!nested_decl) { - BT_LOGE("cannot find typealias \"%s\"", + _BT_LOGE_NODE(node_type_declarator, + "Cannot find type alias: name=\"%s\"", g_quark_to_string(qalias)); ret = -EINVAL; goto error; @@ -1278,7 +1320,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, nested_decl_copy = bt_ctf_field_type_copy(nested_decl); BT_PUT(nested_decl); if (!nested_decl_copy) { - BT_LOGE("cannot copy nested field type"); + _BT_LOGE_NODE(node_type_declarator, + "Cannot copy nested field type."); ret = -EINVAL; goto error; } @@ -1287,8 +1330,10 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, /* Force integer's base to 16 since it's a pointer */ if (bt_ctf_field_type_is_integer(nested_decl)) { - bt_ctf_field_type_integer_set_base(nested_decl, + ret = bt_ctf_field_type_integer_set_base( + nested_decl, BT_CTF_INTEGER_BASE_HEXADECIMAL); + assert(ret == 0); } } else { ret = visit_type_specifier_list(ctx, @@ -1329,13 +1374,17 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, /* Create array/sequence, pass nested_decl as child */ if (bt_list_empty(length)) { - BT_LOGE("expecting length field reference or value"); + _BT_LOGE_NODE(node_type_declarator, + "Expecting length field reference or value."); ret = -EINVAL; goto error; } first = _BT_LIST_FIRST_ENTRY(length, struct ctf_node, siblings); if (first->type != NODE_UNARY_EXPRESSION) { + _BT_LOGE_NODE(first, + "Unexpected node type: node-type=%d", + first->type); ret = -EINVAL; goto error; } @@ -1351,7 +1400,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, len); BT_PUT(nested_decl); if (!array_decl) { - BT_LOGE("cannot create array field type"); + _BT_LOGE_NODE(first, + "Cannot create array field type."); ret = -ENOMEM; goto error; } @@ -1366,6 +1416,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, char *length_name = concatenate_unary_strings(length); if (!length_name) { + _BT_LOGE_NODE(node_type_declarator, + "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } @@ -1375,7 +1427,8 @@ int visit_type_declarator(struct ctx *ctx, struct ctf_node *type_specifier_list, g_free(length_name); BT_PUT(nested_decl); if (!seq_decl) { - BT_LOGE("cannot create sequence field type"); + _BT_LOGE_NODE(node_type_declarator, + "Cannot create sequence field type."); ret = -ENOMEM; goto error; } @@ -1448,7 +1501,8 @@ int visit_struct_decl_field(struct ctx *ctx, &qfield_name, iter, &field_decl, NULL); if (ret) { assert(!field_decl); - BT_LOGE("cannot visit type declarator"); + _BT_LOGE_NODE(type_specifier_list, + "Cannot visit type declarator: ret=%d", ret); goto error; } @@ -1461,8 +1515,9 @@ int visit_struct_decl_field(struct ctx *ctx, struct_decl, field_name); if (efield_decl) { BT_PUT(efield_decl); - BT_LOGE("duplicate field \"%s\" in structure", - field_name); + _BT_LOGE_NODE(type_specifier_list, + "Duplicate field in structure field type: " + "field-name=\"%s\"", field_name); ret = -EINVAL; goto error; } @@ -1472,8 +1527,10 @@ int visit_struct_decl_field(struct ctx *ctx, field_decl, field_name); BT_PUT(field_decl); if (ret) { - BT_LOGE("cannot add field \"%s\" to structure", - g_quark_to_string(qfield_name)); + _BT_LOGE_NODE(type_specifier_list, + "Cannot add field to structure field type: " + "field-name=\"%s\", ret=%d", + g_quark_to_string(qfield_name), ret); goto error; } } @@ -1506,7 +1563,8 @@ int visit_variant_decl_field(struct ctx *ctx, &qfield_name, iter, &field_decl, NULL); if (ret) { assert(!field_decl); - BT_LOGE("cannot visit type declarator"); + _BT_LOGE_NODE(type_specifier_list, + "Cannot visit type declarator: ret=%d", ret); goto error; } @@ -1519,8 +1577,9 @@ int visit_variant_decl_field(struct ctx *ctx, variant_decl, field_name); if (efield_decl) { BT_PUT(efield_decl); - BT_LOGE("duplicate field \"%s\" in variant", - field_name); + _BT_LOGE_NODE(type_specifier_list, + "Duplicate field in variant field type: " + "field-name=\"%s\"", field_name); ret = -EINVAL; goto error; } @@ -1530,8 +1589,10 @@ int visit_variant_decl_field(struct ctx *ctx, field_decl, field_name); BT_PUT(field_decl); if (ret) { - BT_LOGE("cannot add field \"%s\" to variant", - g_quark_to_string(qfield_name)); + _BT_LOGE_NODE(type_specifier_list, + "Cannot add field to variant field type: " + "field-name=\"%s\", ret=%d", + g_quark_to_string(qfield_name), ret); goto error; } } @@ -1557,7 +1618,8 @@ int visit_typedef(struct ctx *ctx, struct ctf_node *type_specifier_list, ret = visit_type_declarator(ctx, type_specifier_list, &qidentifier, iter, &type_decl, NULL); if (ret) { - BT_LOGE("cannot visit type declarator"); + _BT_LOGE_NODE(iter, + "Cannot visit type declarator: ret=%d", ret); ret = -EINVAL; goto end; } @@ -1565,7 +1627,8 @@ int visit_typedef(struct ctx *ctx, struct ctf_node *type_specifier_list, /* Do not allow typedef and typealias of untagged variants */ if (bt_ctf_field_type_is_variant(type_decl)) { if (bt_ctf_field_type_variant_get_tag_name(type_decl)) { - BT_LOGE("typedef of untagged variant is not allowed"); + _BT_LOGE_NODE(iter, + "Type definition of untagged variant field type is not allowed."); ret = -EPERM; goto end; } @@ -1574,7 +1637,8 @@ int visit_typedef(struct ctx *ctx, struct ctf_node *type_specifier_list, ret = ctx_decl_scope_register_alias(ctx->current_scope, g_quark_to_string(qidentifier), type_decl); if (ret) { - BT_LOGE("cannot register typedef \"%s\"", + _BT_LOGE_NODE(iter, + "Cannot register type definition: name=\"%s\"", g_quark_to_string(qidentifier)); goto end; } @@ -1610,14 +1674,16 @@ int visit_typealias(struct ctx *ctx, struct ctf_node *target, &qdummy_field_name, node, &type_decl, NULL); if (ret) { assert(!type_decl); - BT_LOGE("cannot visit type declarator"); + _BT_LOGE_NODE(node, + "Cannot visit type declarator: ret=%d", ret); goto end; } /* Do not allow typedef and typealias of untagged variants */ if (bt_ctf_field_type_is_variant(type_decl)) { if (bt_ctf_field_type_variant_get_tag_name(type_decl)) { - BT_LOGE("typealias of untagged variant is not allowed"); + _BT_LOGE_NODE(node, + "Type definition of untagged variant field type is not allowed."); ret = -EPERM; goto end; } @@ -1628,7 +1694,9 @@ int visit_typealias(struct ctx *ctx, struct ctf_node *target, * abstract or not (if it has an identifier). Check it here. */ if (qdummy_field_name != 0) { - BT_LOGE("expecting empty identifier"); + _BT_LOGE_NODE(node, + "Expecting empty identifier: id=\"%s\"", + g_quark_to_string(qdummy_field_name)); ret = -EINVAL; goto end; } @@ -1641,7 +1709,8 @@ int visit_typealias(struct ctx *ctx, struct ctf_node *target, ret = ctx_decl_scope_register_alias(ctx->current_scope, g_quark_to_string(qalias), type_decl); if (ret) { - BT_LOGE("cannot register typealias \"%s\"", + _BT_LOGE_NODE(node, + "Cannot register type alias: name=\"%s\"", g_quark_to_string(qalias)); goto end; } @@ -1664,7 +1733,9 @@ int visit_struct_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, entry_node->u._typedef.type_specifier_list, &entry_node->u._typedef.type_declarators); if (ret) { - BT_LOGE("cannot add typedef in \"struct\" declaration"); + _BT_LOGE_NODE(entry_node, + "Cannot add type definition found in structure field type: ret=%d", + ret); goto end; } break; @@ -1672,7 +1743,9 @@ int visit_struct_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = visit_typealias(ctx, entry_node->u.typealias.target, entry_node->u.typealias.alias); if (ret) { - BT_LOGE("cannot add typealias in \"struct\" declaration"); + _BT_LOGE_NODE(entry_node, + "Cannot add type alias found in structure field type: ret=%d", + ret); goto end; } break; @@ -1688,7 +1761,8 @@ int visit_struct_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, } break; default: - BT_LOGE("unexpected node type: %d", (int) entry_node->type); + _BT_LOGE_NODE(entry_node, + "Unexpected node type: node-type=%d", entry_node->type); ret = -EINVAL; goto end; } @@ -1709,8 +1783,9 @@ int visit_variant_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, entry_node->u._typedef.type_specifier_list, &entry_node->u._typedef.type_declarators); if (ret) { - BT_LOGE( - "cannot add typedef in \"variant\" declaration"); + _BT_LOGE_NODE(entry_node, + "Cannot add type definition found in variant field type: ret=%d", + ret); goto end; } break; @@ -1718,8 +1793,9 @@ int visit_variant_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = visit_typealias(ctx, entry_node->u.typealias.target, entry_node->u.typealias.alias); if (ret) { - BT_LOGE( - "cannot add typealias in \"variant\" declaration"); + _BT_LOGE_NODE(entry_node, + "Cannot add type alias found in variant field type: ret=%d", + ret); goto end; } break; @@ -1735,7 +1811,9 @@ int visit_variant_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, } break; default: - BT_LOGE("unexpected node type: %d", (int) entry_node->type); + _BT_LOGE_NODE(entry_node, + "Unexpected node type: node-type=%d", + entry_node->type); ret = -EINVAL; goto end; } @@ -1759,6 +1837,7 @@ int visit_struct_decl(struct ctx *ctx, const char *name, _BT_CTF_FIELD_TYPE_INIT(struct_decl_copy); if (!name) { + BT_LOGE_STR("Bodyless structure field type: missing name."); ret = -EPERM; goto error; } @@ -1766,7 +1845,8 @@ int visit_struct_decl(struct ctx *ctx, const char *name, *struct_decl = ctx_decl_scope_lookup_struct(ctx->current_scope, name, -1); if (!*struct_decl) { - BT_LOGE("cannot find \"struct %s\"", name); + BT_LOGE("Cannot find structure field type: name=\"struct %s\"", + name); ret = -EINVAL; goto error; } @@ -1774,8 +1854,7 @@ int visit_struct_decl(struct ctx *ctx, const char *name, /* Make a copy of it */ struct_decl_copy = bt_ctf_field_type_copy(*struct_decl); if (!struct_decl_copy) { - BT_LOGE( - "cannot create copy of structure field type"); + BT_LOGE_STR("Cannot create copy of structure field type."); ret = -EINVAL; goto error; } @@ -1792,8 +1871,8 @@ int visit_struct_decl(struct ctx *ctx, const char *name, ctx->current_scope, name, 1); if (estruct_decl) { BT_PUT(estruct_decl); - BT_LOGE("\"struct %s\" already declared in local scope", - name); + BT_LOGE("Structure field type already declared in local scope: " + "name=\"struct %s\"", name); ret = -EINVAL; goto error; } @@ -1802,14 +1881,15 @@ int visit_struct_decl(struct ctx *ctx, const char *name, if (!bt_list_empty(min_align)) { ret = get_unary_unsigned(min_align, &min_align_value); if (ret) { - BT_LOGE("unexpected unary expression for structure declaration's \"align\" attribute"); + BT_LOGE("Unexpected unary expression for structure field type's `align` attribute: " + "ret=%d", ret); goto error; } } *struct_decl = bt_ctf_field_type_structure_create(); if (!*struct_decl) { - BT_LOGE("cannot create structure field type"); + BT_LOGE_STR("Cannot create empty structure field type."); ret = -ENOMEM; goto error; } @@ -1818,14 +1898,15 @@ int visit_struct_decl(struct ctx *ctx, const char *name, ret = bt_ctf_field_type_set_alignment(*struct_decl, min_align_value); if (ret) { - BT_LOGE("failed to set structure's minimal alignment"); + BT_LOGE("Cannot set structure field type's alignment: " + "ret=%d", ret); goto error; } } ret = ctx_push_scope(ctx); if (ret) { - BT_LOGE("cannot push scope"); + BT_LOGE_STR("Cannot push scope."); goto error; } @@ -1833,6 +1914,9 @@ int visit_struct_decl(struct ctx *ctx, const char *name, ret = visit_struct_decl_entry(ctx, entry_node, *struct_decl); if (ret) { + _BT_LOGE_NODE(entry_node, + "Cannot visit structure field type entry: " + "ret=%d", ret); ctx_pop_scope(ctx); goto error; } @@ -1844,8 +1928,8 @@ int visit_struct_decl(struct ctx *ctx, const char *name, ret = ctx_decl_scope_register_struct(ctx->current_scope, name, *struct_decl); if (ret) { - BT_LOGE("cannot register \"struct %s\" in declaration scope", - name); + BT_LOGE("Cannot register structure field type in declaration scope: " + "name=\"struct %s\", ret=%d", name, ret); goto error; } } @@ -1874,6 +1958,7 @@ int visit_variant_decl(struct ctx *ctx, const char *name, _BT_CTF_FIELD_TYPE_INIT(variant_decl_copy); if (!name) { + BT_LOGE_STR("Bodyless variant field type: missing name."); ret = -EPERM; goto error; } @@ -1882,7 +1967,8 @@ int visit_variant_decl(struct ctx *ctx, const char *name, ctx_decl_scope_lookup_variant(ctx->current_scope, name, -1); if (!untagged_variant_decl) { - BT_LOGE("cannot find \"variant %s\"", name); + BT_LOGE("Cannot find variant field type: name=\"variant %s\"", + name); ret = -EINVAL; goto error; } @@ -1891,8 +1977,7 @@ int visit_variant_decl(struct ctx *ctx, const char *name, variant_decl_copy = bt_ctf_field_type_copy( untagged_variant_decl); if (!variant_decl_copy) { - BT_LOGE( - "cannot create copy of variant field type"); + BT_LOGE_STR("Cannot create copy of variant field type."); ret = -EINVAL; goto error; } @@ -1908,8 +1993,8 @@ int visit_variant_decl(struct ctx *ctx, const char *name, if (evariant_decl) { BT_PUT(evariant_decl); - BT_LOGE("\"variant %s\" already declared in local scope", - name); + BT_LOGE("Variant field type already declared in local scope: " + "name=\"variant %s\"", name); ret = -EINVAL; goto error; } @@ -1918,14 +2003,14 @@ int visit_variant_decl(struct ctx *ctx, const char *name, untagged_variant_decl = bt_ctf_field_type_variant_create(NULL, NULL); if (!untagged_variant_decl) { - BT_LOGE("cannot create variant field type"); + BT_LOGE_STR("Cannot create empty variant field type."); ret = -ENOMEM; goto error; } ret = ctx_push_scope(ctx); if (ret) { - BT_LOGE("cannot push scope"); + BT_LOGE_STR("Cannot push scope."); goto error; } @@ -1933,6 +2018,9 @@ int visit_variant_decl(struct ctx *ctx, const char *name, ret = visit_variant_decl_entry(ctx, entry_node, untagged_variant_decl); if (ret) { + _BT_LOGE_NODE(entry_node, + "Cannot visit variant field type entry: " + "ret=%d", ret); ctx_pop_scope(ctx); goto error; } @@ -1945,8 +2033,8 @@ int visit_variant_decl(struct ctx *ctx, const char *name, ctx->current_scope, name, untagged_variant_decl); if (ret) { - BT_LOGE("cannot register \"variant %s\" in declaration scope", - name); + BT_LOGE("Cannot register variant field type in declaration scope: " + "name=\"variant %s\", ret=%d", name, ret); goto error; } } @@ -1966,6 +2054,8 @@ int visit_variant_decl(struct ctx *ctx, const char *name, ret = bt_ctf_field_type_variant_set_tag_name( untagged_variant_decl, tag); if (ret) { + BT_LOGE("Cannot set variant field type's tag name: " + "tag-name=\"%s\"", tag); goto error; } @@ -1999,7 +2089,9 @@ int visit_enum_decl_entry(struct ctx *ctx, struct ctf_node *enumerator, int64_t *target; if (iter->type != NODE_UNARY_EXPRESSION) { - BT_LOGE("wrong unary expression for enumeration label \"%s\"", + _BT_LOGE_NODE(iter, + "Wrong expression for enumeration field type label: " + "node-type=%d, label=\"%s\"", iter->type, label); ret = -EINVAL; goto error; @@ -2020,14 +2112,18 @@ int visit_enum_decl_entry(struct ctx *ctx, struct ctf_node *enumerator, iter->u.unary_expression.u.unsigned_constant; break; default: - BT_LOGE("invalid enumeration entry: \"%s\"", - label); + _BT_LOGE_NODE(iter, + "Invalid enumeration field type entry: " + "expecting constant signed or unsigned integer: " + "node-type=%d, label=\"%s\"", + iter->u.unary_expression.type, label); ret = -EINVAL; goto error; } if (nr_vals > 1) { - BT_LOGE("invalid enumeration entry: \"%s\"", + _BT_LOGE_NODE(iter, + "Invalid enumeration field type entry: label=\"%s\"", label); ret = -EINVAL; goto error; @@ -2054,8 +2150,12 @@ int visit_enum_decl_entry(struct ctx *ctx, struct ctf_node *enumerator, label, (uint64_t) start, (uint64_t) end); } if (ret) { - BT_LOGE("cannot add mapping to enumeration for label \"%s\"", - label); + _BT_LOGE_NODE(enumerator, + "Cannot add mapping to enumeration field type: " + "label=\"%s\", ret=%d, " + "start-value-unsigned=%" PRIu64 ", " + "end-value-unsigned=%" PRIu64, label, ret, + (uint64_t) start, (uint64_t) end); goto error; } @@ -2083,6 +2183,7 @@ int visit_enum_decl(struct ctx *ctx, const char *name, _BT_CTF_FIELD_TYPE_INIT(enum_decl_copy); if (!name) { + BT_LOGE_STR("Bodyless enumeration field type: missing name."); ret = -EPERM; goto error; } @@ -2090,7 +2191,8 @@ int visit_enum_decl(struct ctx *ctx, const char *name, *enum_decl = ctx_decl_scope_lookup_enum(ctx->current_scope, name, -1); if (!*enum_decl) { - BT_LOGE("cannot find \"enum %s\"", name); + BT_LOGE("Cannot find enumeration field type: " + "name=\"enum %s\"", name); ret = -EINVAL; goto error; } @@ -2098,8 +2200,7 @@ int visit_enum_decl(struct ctx *ctx, const char *name, /* Make a copy of it */ enum_decl_copy = bt_ctf_field_type_copy(*enum_decl); if (!enum_decl_copy) { - BT_LOGE( - "cannot create copy of enumeration field type"); + BT_LOGE_STR("Cannot create copy of enumeration field type."); ret = -EINVAL; goto error; } @@ -2117,8 +2218,8 @@ int visit_enum_decl(struct ctx *ctx, const char *name, ctx->current_scope, name, 1); if (eenum_decl) { BT_PUT(eenum_decl); - BT_LOGE("\"enum %s\" already declared in local scope", - name); + BT_LOGE("Enumeration field type already declared in local scope: " + "name=\"enum %s\"", name); ret = -EINVAL; goto error; } @@ -2128,7 +2229,7 @@ int visit_enum_decl(struct ctx *ctx, const char *name, integer_decl = ctx_decl_scope_lookup_alias( ctx->current_scope, "int", -1); if (!integer_decl) { - BT_LOGE("cannot find \"int\" type for enumeration"); + BT_LOGE_STR("Cannot find implicit `int` field type alias for enumeration field type."); ret = -EINVAL; goto error; } @@ -2145,14 +2246,17 @@ int visit_enum_decl(struct ctx *ctx, const char *name, assert(integer_decl); if (!bt_ctf_field_type_is_integer(integer_decl)) { - BT_LOGE("container type for enumeration is not an integer"); + BT_LOGE("Container field type for enumeration field type is not an integer field type: " + "ft-id=%s", + bt_ctf_field_type_id_string( + bt_ctf_field_type_get_type_id(integer_decl))); ret = -EINVAL; goto error; } *enum_decl = bt_ctf_field_type_enumeration_create(integer_decl); if (!*enum_decl) { - BT_LOGE("cannot create enumeration field type"); + BT_LOGE_STR("Cannot create enumeration field type."); ret = -ENOMEM; goto error; } @@ -2162,6 +2266,9 @@ int visit_enum_decl(struct ctx *ctx, const char *name, &last_value, bt_ctf_field_type_integer_get_signed(integer_decl)); if (ret) { + _BT_LOGE_NODE(iter, + "Cannot visit enumeration field type entry: " + "ret=%d", ret); goto error; } } @@ -2170,6 +2277,8 @@ int visit_enum_decl(struct ctx *ctx, const char *name, ret = ctx_decl_scope_register_enum(ctx->current_scope, name, *enum_decl); if (ret) { + BT_LOGE("Cannot register enumeration field type in declaration scope: " + "ret=%d", ret); goto error; } } @@ -2199,12 +2308,15 @@ int visit_type_specifier(struct ctx *ctx, str = g_string_new(""); ret = get_type_specifier_list_name(ctx, type_specifier_list, str); if (ret) { + _BT_LOGE_NODE(type_specifier_list, + "Cannot get type specifier list's name: ret=%d", ret); goto error; } *decl = ctx_decl_scope_lookup_alias(ctx->current_scope, str->str, -1); if (!*decl) { - BT_LOGE("cannot find type alias \"%s\"", str->str); + _BT_LOGE_NODE(type_specifier_list, + "Cannot find type alias: name=\"%s\"", str->str); ret = -EINVAL; goto error; } @@ -2212,7 +2324,8 @@ int visit_type_specifier(struct ctx *ctx, /* Make a copy of the type declaration */ decl_copy = bt_ctf_field_type_copy(*decl); if (!decl_copy) { - BT_LOGE("cannot create field type copy"); + _BT_LOGE_NODE(type_specifier_list, + "Cannot create field type copy."); ret = -EINVAL; goto error; } @@ -2261,20 +2374,26 @@ int visit_integer_decl(struct ctx *ctx, siblings); if (left->u.unary_expression.type != UNARY_STRING) { + _BT_LOGE_NODE(left, + "Unexpected unary expression type: type=%d", + left->u.unary_expression.type); ret = -EINVAL; goto error; } if (!strcmp(left->u.unary_expression.u.string, "signed")) { if (_IS_SET(&set, _INTEGER_SIGNED_SET)) { - BT_LOGE_DUP_ATTR("signed", - "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "signed", + "integer field type"); ret = -EPERM; goto error; } signedness = get_boolean(right); if (signedness < 0) { + _BT_LOGE_NODE(right, + "Invalid boolean value for integer field type's `signed` attribute: " + "ret=%d", ret); ret = -EINVAL; goto error; } @@ -2283,15 +2402,17 @@ int visit_integer_decl(struct ctx *ctx, } else if (!strcmp(left->u.unary_expression.u.string, "byte_order")) { if (_IS_SET(&set, _INTEGER_BYTE_ORDER_SET)) { - BT_LOGE_DUP_ATTR("byte_order", - "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "byte_order", + "integer field type"); ret = -EPERM; goto error; } byte_order = get_real_byte_order(ctx, right); if (byte_order == BT_CTF_BYTE_ORDER_UNKNOWN) { - BT_LOGE("invalid \"byte_order\" attribute in integer declaration"); + _BT_LOGE_NODE(right, + "Invalid `byte_order` attribute in integer field type: " + "ret=%d", ret); ret = -EINVAL; goto error; } @@ -2299,26 +2420,36 @@ int visit_integer_decl(struct ctx *ctx, _SET(&set, _INTEGER_BYTE_ORDER_SET); } else if (!strcmp(left->u.unary_expression.u.string, "size")) { if (_IS_SET(&set, _INTEGER_SIZE_SET)) { - BT_LOGE_DUP_ATTR("size", - "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "size", + "integer field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_UNSIGNED_CONSTANT) { - BT_LOGE("invalid \"size\" attribute in integer declaration: expecting unsigned constant"); + _BT_LOGE_NODE(right, + "Invalid `size` attribute in integer field type: " + "expecting unsigned constant integer: " + "node-type=%d", + right->u.unary_expression.type); ret = -EINVAL; goto error; } size = right->u.unary_expression.u.unsigned_constant; if (size == 0) { - BT_LOGE("invalid \"size\" attribute in integer declaration: expecting positive constant"); + _BT_LOGE_NODE(right, + "Invalid `size` attribute in integer field type: " + "expecting positive constant integer: " + "size=%" PRIu64, size); ret = -EINVAL; goto error; } else if (size > 64) { - BT_LOGE("invalid \"size\" attribute in integer declaration: integers over 64-bit are not supported as of this version"); + _BT_LOGE_NODE(right, + "Invalid `size` attribute in integer field type: " + "integer fields over 64 bits are not supported as of this version: " + "size=%" PRIu64, size); ret = -EINVAL; goto error; } @@ -2327,15 +2458,19 @@ int visit_integer_decl(struct ctx *ctx, } else if (!strcmp(left->u.unary_expression.u.string, "align")) { if (_IS_SET(&set, _INTEGER_ALIGN_SET)) { - BT_LOGE_DUP_ATTR("align", - "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "align", + "integer field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_UNSIGNED_CONSTANT) { - BT_LOGE("invalid \"align\" attribute in integer declaration: expecting unsigned constant"); + _BT_LOGE_NODE(right, + "Invalid `align` attribute in integer field type: " + "expecting unsigned constant integer: " + "node-type=%d", + right->u.unary_expression.type); ret = -EINVAL; goto error; } @@ -2343,7 +2478,10 @@ int visit_integer_decl(struct ctx *ctx, alignment = right->u.unary_expression.u.unsigned_constant; if (!is_align_valid(alignment)) { - BT_LOGE("invalid \"align\" attribute in integer declaration: expecting power of two"); + _BT_LOGE_NODE(right, + "Invalid `align` attribute in integer field type: " + "expecting power of two: " + "align=%" PRIu64, alignment); ret = -EINVAL; goto error; } @@ -2351,7 +2489,8 @@ int visit_integer_decl(struct ctx *ctx, _SET(&set, _INTEGER_ALIGN_SET); } else if (!strcmp(left->u.unary_expression.u.string, "base")) { if (_IS_SET(&set, _INTEGER_BASE_SET)) { - BT_LOGE_DUP_ATTR("base", "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "base", + "integer field type"); ret = -EPERM; goto error; } @@ -2376,7 +2515,9 @@ int visit_integer_decl(struct ctx *ctx, base = BT_CTF_INTEGER_BASE_HEXADECIMAL; break; default: - BT_LOGE("invalid \"base\" attribute in integer declaration: %" PRIu64, + _BT_LOGE_NODE(right, + "Invalid `base` attribute in integer field type: " + "base=%" PRIu64, right->u.unary_expression.u.unsigned_constant); ret = -EINVAL; goto error; @@ -2388,7 +2529,8 @@ int visit_integer_decl(struct ctx *ctx, char *s_right = concatenate_unary_strings( &expression->u.ctf_expression.right); if (!s_right) { - BT_LOGE("unexpected unary expression for integer declaration's \"base\" attribute"); + _BT_LOGE_NODE(right, + "Unexpected unary expression for integer field type's `base` attribute."); ret = -EINVAL; goto error; } @@ -2413,8 +2555,9 @@ int visit_integer_decl(struct ctx *ctx, !strcmp(s_right, "b")) { base = BT_CTF_INTEGER_BASE_BINARY; } else { - BT_LOGE("unexpected unary expression for integer declaration's \"base\" attribute: \"%s\"", - s_right); + _BT_LOGE_NODE(right, + "Unexpected unary expression for integer field type's `base` attribute: " + "base=\"%s\"", s_right); g_free(s_right); ret = -EINVAL; goto error; @@ -2424,7 +2567,9 @@ int visit_integer_decl(struct ctx *ctx, break; } default: - BT_LOGE("invalid \"base\" attribute in integer declaration: expecting unsigned constant or unary string"); + _BT_LOGE_NODE(right, + "Invalid `base` attribute in integer field type: " + "expecting unsigned constant integer or unary string."); ret = -EINVAL; goto error; } @@ -2435,14 +2580,16 @@ int visit_integer_decl(struct ctx *ctx, char *s_right; if (_IS_SET(&set, _INTEGER_ENCODING_SET)) { - BT_LOGE_DUP_ATTR("encoding", - "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "encoding", + "integer field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_STRING) { - BT_LOGE("invalid \"encoding\" attribute in integer declaration: expecting unary string"); + _BT_LOGE_NODE(right, + "Invalid `encoding` attribute in integer field type: " + "expecting unary string."); ret = -EINVAL; goto error; } @@ -2450,7 +2597,8 @@ int visit_integer_decl(struct ctx *ctx, s_right = concatenate_unary_strings( &expression->u.ctf_expression.right); if (!s_right) { - BT_LOGE("unexpected unary expression for integer declaration's \"encoding\" attribute"); + _BT_LOGE_NODE(right, + "Unexpected unary expression for integer field type's `encoding` attribute."); ret = -EINVAL; goto error; } @@ -2466,7 +2614,9 @@ int visit_integer_decl(struct ctx *ctx, } else if (!strcmp(s_right, "none")) { encoding = BT_CTF_STRING_ENCODING_NONE; } else { - BT_LOGE("invalid \"encoding\" attribute in integer declaration: unknown encoding \"%s\"", + _BT_LOGE_NODE(right, + "Invalid `encoding` attribute in integer field type: " + "unknown encoding: encoding=\"%s\"", s_right); g_free(s_right); ret = -EINVAL; @@ -2479,13 +2629,16 @@ int visit_integer_decl(struct ctx *ctx, const char *clock_name; if (_IS_SET(&set, _INTEGER_MAP_SET)) { - BT_LOGE_DUP_ATTR("map", "integer declaration"); + _BT_LOGE_DUP_ATTR(left, "map", + "integer field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_STRING) { - BT_LOGE("invalid \"map\" attribute in integer declaration: expecting unary string"); + _BT_LOGE_NODE(right, + "Invalid `map` attribute in integer field type: " + "expecting unary string."); ret = -EINVAL; goto error; } @@ -2498,12 +2651,15 @@ int visit_integer_decl(struct ctx *ctx, &expression->u.ctf_expression.right); if (!s_right) { - BT_LOGE("unexpected unary expression for integer declaration's \"map\" attribute"); + _BT_LOGE_NODE(right, + "Unexpected unary expression for integer field type's `map` attribute."); ret = -EINVAL; goto error; } - BT_LOGW("invalid \"map\" attribute in integer declaration: unknown clock class: \"%s\"", + _BT_LOGE_NODE(right, + "Invalid `map` attribute in integer field type: " + "cannot find clock class at this point: name=\"%s\"", s_right); _SET(&set, _INTEGER_MAP_SET); g_free(s_right); @@ -2513,7 +2669,9 @@ int visit_integer_decl(struct ctx *ctx, mapped_clock = bt_ctf_trace_get_clock_class_by_name( ctx->trace, clock_name); if (!mapped_clock) { - BT_LOGE("invalid \"map\" attribute in integer declaration: cannot find clock class \"%s\"", + _BT_LOGE_NODE(right, + "Invalid `map` attribute in integer field type: " + "cannot find clock class at this point: name=\"%s\"", clock_name); ret = -EINVAL; goto error; @@ -2521,14 +2679,15 @@ int visit_integer_decl(struct ctx *ctx, _SET(&set, _INTEGER_MAP_SET); } else { - BT_LOGW("unknown attribute \"%s\" in integer declaration", + _BT_LOGW_NODE(left, + "Unknown attribute in integer field type: " + "attr-name=\"%s\"", left->u.unary_expression.u.string); } } if (!_IS_SET(&set, _INTEGER_SIZE_SET)) { - BT_LOGE( - "missing \"size\" attribute in integer declaration"); + BT_LOGE_STR("Missing `size` attribute in integer field type."); ret = -EPERM; goto error; } @@ -2545,7 +2704,7 @@ int visit_integer_decl(struct ctx *ctx, *integer_decl = bt_ctf_field_type_integer_create((unsigned int) size); if (!*integer_decl) { - BT_LOGE("cannot create integer field type"); + BT_LOGE_STR("Cannot create integer field type."); ret = -ENOMEM; goto error; } @@ -2566,7 +2725,7 @@ int visit_integer_decl(struct ctx *ctx, } if (ret) { - BT_LOGE("cannot configure integer field type"); + BT_LOGE_STR("Cannot configure integer field type."); ret = -EINVAL; goto error; } @@ -2607,21 +2766,26 @@ int visit_floating_point_number_decl(struct ctx *ctx, siblings); if (left->u.unary_expression.type != UNARY_STRING) { + _BT_LOGE_NODE(left, + "Unexpected unary expression type: type=%d", + left->u.unary_expression.type); ret = -EINVAL; goto error; } if (!strcmp(left->u.unary_expression.u.string, "byte_order")) { if (_IS_SET(&set, _FLOAT_BYTE_ORDER_SET)) { - BT_LOGE_DUP_ATTR("byte_order", - "floating point number declaration"); + _BT_LOGE_DUP_ATTR(left, "byte_order", + "floating point number field type"); ret = -EPERM; goto error; } byte_order = get_real_byte_order(ctx, right); if (byte_order == BT_CTF_BYTE_ORDER_UNKNOWN) { - BT_LOGE("invalid \"byte_order\" attribute in floating point number declaration"); + _BT_LOGE_NODE(right, + "Invalid `byte_order` attribute in floating point number field type: " + "ret=%d", ret); ret = -EINVAL; goto error; } @@ -2630,15 +2794,19 @@ int visit_floating_point_number_decl(struct ctx *ctx, } else if (!strcmp(left->u.unary_expression.u.string, "exp_dig")) { if (_IS_SET(&set, _FLOAT_EXP_DIG_SET)) { - BT_LOGE_DUP_ATTR("exp_dig", - "floating point number declaration"); + _BT_LOGE_DUP_ATTR(left, "exp_dig", + "floating point number field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_UNSIGNED_CONSTANT) { - BT_LOGE("invalid \"exp_dig\" attribute in floating point number declaration: expecting unsigned constant"); + _BT_LOGE_NODE(right, + "Invalid `exp_dig` attribute in floating point number field type: " + "expecting unsigned constant integer: " + "node-type=%d", + right->u.unary_expression.type); ret = -EINVAL; goto error; } @@ -2648,15 +2816,19 @@ int visit_floating_point_number_decl(struct ctx *ctx, } else if (!strcmp(left->u.unary_expression.u.string, "mant_dig")) { if (_IS_SET(&set, _FLOAT_MANT_DIG_SET)) { - BT_LOGE_DUP_ATTR("mant_dig", - "floating point number declaration"); + _BT_LOGE_DUP_ATTR(left, "mant_dig", + "floating point number field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_UNSIGNED_CONSTANT) { - BT_LOGE("invalid \"mant_dig\" attribute in floating point number declaration: expecting unsigned constant"); + _BT_LOGE_NODE(right, + "Invalid `mant_dig` attribute in floating point number field type: " + "expecting unsigned constant integer: " + "node-type=%d", + right->u.unary_expression.type); ret = -EINVAL; goto error; } @@ -2667,15 +2839,19 @@ int visit_floating_point_number_decl(struct ctx *ctx, } else if (!strcmp(left->u.unary_expression.u.string, "align")) { if (_IS_SET(&set, _FLOAT_ALIGN_SET)) { - BT_LOGE_DUP_ATTR("align", - "floating point number declaration"); + _BT_LOGE_DUP_ATTR(left, "align", + "floating point number field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_UNSIGNED_CONSTANT) { - BT_LOGE("invalid \"align\" attribute in floating point number declaration: expecting unsigned constant"); + _BT_LOGE_NODE(right, + "Invalid `align` attribute in floating point number field type: " + "expecting unsigned constant integer: " + "node-type=%d", + right->u.unary_expression.type); ret = -EINVAL; goto error; } @@ -2684,26 +2860,31 @@ int visit_floating_point_number_decl(struct ctx *ctx, unsigned_constant; if (!is_align_valid(alignment)) { - BT_LOGE("invalid \"align\" attribute in floating point number declaration: expecting power of two"); + _BT_LOGE_NODE(right, + "Invalid `align` attribute in floating point number field type: " + "expecting power of two: " + "align=%" PRIu64, alignment); ret = -EINVAL; goto error; } _SET(&set, _FLOAT_ALIGN_SET); } else { - BT_LOGW("unknown attribute \"%s\" in floating point number declaration", + _BT_LOGW_NODE(left, + "Unknown attribute in floating point number field type: " + "attr-name=\"%s\"", left->u.unary_expression.u.string); } } if (!_IS_SET(&set, _FLOAT_MANT_DIG_SET)) { - BT_LOGE("missing \"mant_dig\" attribute in floating point number declaration"); + BT_LOGE_STR("Missing `mant_dig` attribute in floating point number field type."); ret = -EPERM; goto error; } if (!_IS_SET(&set, _FLOAT_EXP_DIG_SET)) { - BT_LOGE("missing \"exp_dig\" attribute in floating point number declaration"); + BT_LOGE_STR("Missing `exp_dig` attribute in floating point number field type."); ret = -EPERM; goto error; } @@ -2720,8 +2901,7 @@ int visit_floating_point_number_decl(struct ctx *ctx, *float_decl = bt_ctf_field_type_floating_point_create(); if (!*float_decl) { - BT_LOGE( - "cannot create floating point number field type"); + BT_LOGE_STR("Cannot create floating point number field type."); ret = -ENOMEM; goto error; } @@ -2733,8 +2913,7 @@ int visit_floating_point_number_decl(struct ctx *ctx, ret |= bt_ctf_field_type_set_byte_order(*float_decl, byte_order); ret |= bt_ctf_field_type_set_alignment(*float_decl, alignment); if (ret) { - BT_LOGE( - "cannot configure floating point number field type"); + BT_LOGE_STR("Cannot configure floating point number field type."); ret = -EINVAL; goto error; } @@ -2769,6 +2948,9 @@ int visit_string_decl(struct ctx *ctx, siblings); if (left->u.unary_expression.type != UNARY_STRING) { + _BT_LOGE_NODE(left, + "Unexpected unary expression type: type=%d", + left->u.unary_expression.type); ret = -EINVAL; goto error; } @@ -2777,14 +2959,16 @@ int visit_string_decl(struct ctx *ctx, char *s_right; if (_IS_SET(&set, _STRING_ENCODING_SET)) { - BT_LOGE_DUP_ATTR("encoding", - "string declaration"); + _BT_LOGE_DUP_ATTR(left, "encoding", + "string field type"); ret = -EPERM; goto error; } if (right->u.unary_expression.type != UNARY_STRING) { - BT_LOGE("invalid \"encoding\" attribute in string declaration: expecting unary string"); + _BT_LOGE_NODE(right, + "Invalid `encoding` attribute in string field type: " + "expecting unary string."); ret = -EINVAL; goto error; } @@ -2792,7 +2976,8 @@ int visit_string_decl(struct ctx *ctx, s_right = concatenate_unary_strings( &expression->u.ctf_expression.right); if (!s_right) { - BT_LOGE("unexpected unary expression for string declaration's \"encoding\" attribute"); + _BT_LOGE_NODE(right, + "Unexpected unary expression for string field type's `encoding` attribute."); ret = -EINVAL; goto error; } @@ -2808,7 +2993,9 @@ int visit_string_decl(struct ctx *ctx, } else if (!strcmp(s_right, "none")) { encoding = BT_CTF_STRING_ENCODING_NONE; } else { - BT_LOGE("invalid \"encoding\" attribute in string declaration: unknown encoding \"%s\"", + _BT_LOGE_NODE(right, + "Invalid `encoding` attribute in string field type: " + "unknown encoding: encoding=\"%s\"", s_right); g_free(s_right); ret = -EINVAL; @@ -2818,21 +3005,23 @@ int visit_string_decl(struct ctx *ctx, g_free(s_right); _SET(&set, _STRING_ENCODING_SET); } else { - BT_LOGW("unknown attribute \"%s\" in string declaration", + _BT_LOGW_NODE(left, + "Unknown attribute in string field type: " + "attr-name=\"%s\"", left->u.unary_expression.u.string); } } *string_decl = bt_ctf_field_type_string_create(); if (!*string_decl) { - BT_LOGE("cannot create string field type"); + BT_LOGE_STR("Cannot create string field type."); ret = -ENOMEM; goto error; } ret = bt_ctf_field_type_string_set_encoding(*string_decl, encoding); if (ret) { - BT_LOGE("cannot configure string field type"); + BT_LOGE_STR("Cannot configure string field type."); ret = -EINVAL; goto error; } @@ -2856,6 +3045,8 @@ int visit_type_specifier_list(struct ctx *ctx, *decl = NULL; if (ts_list->type != NODE_TYPE_SPECIFIER_LIST) { + _BT_LOGE_NODE(ts_list, + "Unexpected node type: node-type=%d", ts_list->type); ret = -EINVAL; goto error; } @@ -2863,6 +3054,8 @@ int visit_type_specifier_list(struct ctx *ctx, first = _BT_LIST_FIRST_ENTRY(&ts_list->u.type_specifier_list.head, struct ctf_node, siblings); if (first->type != NODE_TYPE_SPECIFIER) { + _BT_LOGE_NODE(first, + "Unexpected node type: node-type=%d", first->type); ret = -EINVAL; goto error; } @@ -2940,13 +3133,17 @@ int visit_type_specifier_list(struct ctx *ctx, case TYPESPEC_ID_TYPE: ret = visit_type_specifier(ctx, ts_list, decl); if (ret) { + _BT_LOGE_NODE(first, + "Cannot visit type specifier: ret=%d", + ret); assert(!*decl); goto error; } break; default: - BT_LOGE("unexpected node type: %d", - (int) first->u.type_specifier.type); + _BT_LOGE_NODE(first, + "Unexpected type specifier type: node-type=%d", + first->u.type_specifier.type); ret = -EINVAL; goto error; } @@ -2975,8 +3172,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = visit_typedef(ctx, node->u._typedef.type_specifier_list, &node->u._typedef.type_declarators); if (ret) { - BT_LOGE( - "cannot add typedef in \"event\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type definition found in event class."); goto error; } break; @@ -2984,7 +3181,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = visit_typealias(ctx, node->u.typealias.target, node->u.typealias.alias); if (ret) { - BT_LOGE("cannot add typealias in \"event\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type alias found in event class."); goto error; } break; @@ -2992,6 +3190,7 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, { left = concatenate_unary_strings(&node->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(node, "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } @@ -2999,7 +3198,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, if (!strcmp(left, "name")) { /* This is already known at this stage */ if (_IS_SET(set, _EVENT_NAME_SET)) { - BT_LOGE_DUP_ATTR("name", "event declaration"); + _BT_LOGE_DUP_ATTR(node, "name", + "event class"); ret = -EPERM; goto error; } @@ -3009,7 +3209,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, int64_t id; if (_IS_SET(set, _EVENT_ID_SET)) { - BT_LOGE_DUP_ATTR("id", "event declaration"); + _BT_LOGE_DUP_ATTR(node, "id", + "event class"); ret = -EPERM; goto error; } @@ -3018,23 +3219,25 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, (uint64_t *) &id); /* Only read "id" if get_unary_unsigned() succeeded. */ if (ret || (!ret && id < 0)) { - BT_LOGE("unexpected unary expression for event declaration's \"id\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for event class's `id` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_event_class_set_id(event_class, id); if (ret) { - BT_LOGE( - "cannot set event declaration's ID"); + _BT_LOGE_NODE(node, + "Cannot set event class's ID: " + "id=%" PRId64, id); goto error; } _SET(set, _EVENT_ID_SET); } else if (!strcmp(left, "stream_id")) { if (_IS_SET(set, _EVENT_STREAM_ID_SET)) { - BT_LOGE_DUP_ATTR("stream_id", - "event declaration"); + _BT_LOGE_DUP_ATTR(node, "stream_id", + "event class"); ret = -EPERM; goto error; } @@ -3046,7 +3249,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, * succeeded. */ if (ret || (!ret && *stream_id < 0)) { - BT_LOGE("unexpected unary expression for event declaration's \"stream_id\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for event class's `stream_id` attribute."); ret = -EINVAL; goto error; } @@ -3054,7 +3258,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, _SET(set, _EVENT_STREAM_ID_SET); } else if (!strcmp(left, "context")) { if (_IS_SET(set, _EVENT_CONTEXT_SET)) { - BT_LOGE("duplicate \"context\" entry in event declaration"); + _BT_LOGE_NODE(node, + "Duplicate `context` entry in event class."); ret = -EPERM; goto error; } @@ -3065,7 +3270,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, struct ctf_node, siblings), &decl); if (ret) { - BT_LOGE("cannot create event context declaration"); + _BT_LOGE_NODE(node, + "Cannot create event class's context field type."); goto error; } @@ -3074,14 +3280,16 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, event_class, decl); BT_PUT(decl); if (ret) { - BT_LOGE("cannot set event's context declaration"); + _BT_LOGE_NODE(node, + "Cannot set event class's context field type."); goto error; } _SET(set, _EVENT_CONTEXT_SET); } else if (!strcmp(left, "fields")) { if (_IS_SET(set, _EVENT_FIELDS_SET)) { - BT_LOGE("duplicate \"fields\" entry in event declaration"); + _BT_LOGE_NODE(node, + "Duplicate `fields` entry in event class."); ret = -EPERM; goto error; } @@ -3092,7 +3300,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, struct ctf_node, siblings), &decl); if (ret) { - BT_LOGE("cannot create event payload field type"); + _BT_LOGE_NODE(node, + "Cannot create event class's payload field type."); goto error; } @@ -3101,7 +3310,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, event_class, decl); BT_PUT(decl); if (ret) { - BT_LOGE("cannot set event's payload field type"); + _BT_LOGE_NODE(node, + "Cannot set event class's payload field type."); goto error; } @@ -3112,8 +3322,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, struct bt_value *value_obj, *str_obj; if (_IS_SET(set, _EVENT_LOGLEVEL_SET)) { - BT_LOGE_DUP_ATTR("loglevel", - "event declaration"); + _BT_LOGE_DUP_ATTR(node, "loglevel", + "event class"); ret = -EPERM; goto error; } @@ -3121,19 +3331,22 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = get_unary_unsigned(&node->u.ctf_expression.right, &loglevel_value); if (ret) { - BT_LOGE("unexpected unary expression for event declaration's \"loglevel\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for event class's `loglevel` attribute."); ret = -EINVAL; goto error; } value_obj = bt_value_integer_create_init(loglevel_value); if (!value_obj) { - BT_LOGE("cannot allocate memory for loglevel value object"); + _BT_LOGE_NODE(node, + "Cannot create integer value object."); ret = -ENOMEM; goto error; } if (bt_ctf_event_class_set_attribute(event_class, - "loglevel", value_obj) != BT_VALUE_STATUS_OK) { - BT_LOGE("cannot set loglevel value"); + "loglevel", value_obj) != BT_VALUE_STATUS_OK) { + _BT_LOGE_NODE(node, + "Cannot set event class's `loglevel` attribute."); ret = -EINVAL; bt_put(value_obj); goto error; @@ -3143,7 +3356,8 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, str_obj = bt_value_string_create_init(loglevel_str); if (bt_ctf_event_class_set_attribute(event_class, "loglevel_string", str_obj) != BT_VALUE_STATUS_OK) { - BT_LOGE("cannot set loglevel string"); + _BT_LOGE_NODE(node, + "Cannot set event class's `loglevel_string` attribute."); ret = -EINVAL; bt_put(str_obj); goto error; @@ -3154,10 +3368,11 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, _SET(set, _EVENT_LOGLEVEL_SET); } else if (!strcmp(left, "model.emf.uri")) { char *right; + struct bt_value *str_obj; if (_IS_SET(set, _EVENT_MODEL_EMF_URI_SET)) { - BT_LOGE_DUP_ATTR("model.emf.uri", - "event declaration"); + _BT_LOGE_DUP_ATTR(node, "model.emf.uri", + "event class"); ret = -EPERM; goto error; } @@ -3165,18 +3380,28 @@ int visit_event_decl_entry(struct ctx *ctx, struct ctf_node *node, right = concatenate_unary_strings( &node->u.ctf_expression.right); if (!right) { - BT_LOGE("unexpected unary expression for event declaration's \"model.emf.uri\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for event class's `model.emf.uri` attribute."); ret = -EINVAL; goto error; } - // TODO: FIXME: set model EMF URI here - + str_obj = bt_value_string_create_init(right); + if (bt_ctf_event_class_set_attribute(event_class, + "model.emf.uri", str_obj) != BT_VALUE_STATUS_OK) { + _BT_LOGE_NODE(node, + "Cannot set event class's `model.emf.uri` attribute."); + ret = -EINVAL; + bt_put(str_obj); + goto error; + } + bt_put(str_obj); g_free(right); _SET(set, _EVENT_MODEL_EMF_URI_SET); } else { - BT_LOGW("unknown attribute \"%s\" in event declaration", - left); + _BT_LOGW_NODE(node, + "Unknown attribute in event class: " + "attr-name=\"%s\"", left); } g_free(left); @@ -3215,6 +3440,8 @@ char *get_event_decl_name(struct ctx *ctx, struct ctf_node *node) left = concatenate_unary_strings(&iter->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(iter, + "Cannot concatenate unary strings."); goto error; } @@ -3222,7 +3449,8 @@ char *get_event_decl_name(struct ctx *ctx, struct ctf_node *node) name = concatenate_unary_strings( &iter->u.ctf_expression.right); if (!name) { - BT_LOGE("unexpected unary expression for event declaration's \"name\" attribute"); + _BT_LOGE_NODE(iter, + "Unexpected unary expression for event class's `name` attribute."); goto error; } } @@ -3252,14 +3480,18 @@ int reset_event_decl_types(struct ctx *ctx, /* Context type. */ ret = bt_ctf_event_class_set_context_type(event_class, NULL); if (ret) { - BT_LOGE("cannot set initial NULL event context"); + BT_LOGE("Cannot reset initial event class's context field type: " + "event-name=\"%s\"", + bt_ctf_event_class_get_name(event_class)); goto end; } /* Event payload. */ ret = bt_ctf_event_class_set_payload_type(event_class, NULL); if (ret) { - BT_LOGE("cannot set initial NULL event payload"); + BT_LOGE("Cannot reset initial event class's payload field type: " + "event-name=\"%s\"", + bt_ctf_event_class_get_name(event_class)); goto end; } end: @@ -3275,21 +3507,21 @@ int reset_stream_decl_types(struct ctx *ctx, /* Packet context. */ ret = bt_ctf_stream_class_set_packet_context_type(stream_class, NULL); if (ret) { - BT_LOGE("cannot set initial empty packet context"); + BT_LOGE_STR("Cannot reset initial stream class's packet context field type."); goto end; } /* Event header. */ ret = bt_ctf_stream_class_set_event_header_type(stream_class, NULL); if (ret) { - BT_LOGE("cannot set initial empty event header"); + BT_LOGE_STR("Cannot reset initial stream class's event header field type."); goto end; } /* Event context. */ ret = bt_ctf_stream_class_set_event_context_type(stream_class, NULL); if (ret) { - BT_LOGE("cannot set initial empty stream event context"); + BT_LOGE_STR("Cannot reset initial stream class's event context field type."); goto end; } end: @@ -3302,9 +3534,9 @@ struct bt_ctf_stream_class *create_reset_stream_class(struct ctx *ctx) int ret; struct bt_ctf_stream_class *stream_class; - stream_class = bt_ctf_stream_class_create(NULL); + stream_class = bt_ctf_stream_class_create_empty(NULL); if (!stream_class) { - BT_LOGE("cannot create stream class"); + BT_LOGE_STR("Cannot create empty stream class."); goto error; } @@ -3347,8 +3579,8 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) node->visited = TRUE; event_name = get_event_decl_name(ctx, node); if (!event_name) { - BT_LOGE( - "missing \"name\" attribute in event declaration"); + _BT_LOGE_NODE(node, + "Missing `name` attribute in event class."); ret = -EPERM; goto error; } @@ -3360,12 +3592,15 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) */ ret = reset_event_decl_types(ctx, event_class); if (ret) { + _BT_LOGE_NODE(node, + "Cannot reset event class's field types: " + "ret=%d", ret); goto error; } ret = ctx_push_scope(ctx); if (ret) { - BT_LOGE("cannot push scope"); + BT_LOGE_STR("Cannot push scope."); goto error; } @@ -3375,6 +3610,8 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) ret = visit_event_decl_entry(ctx, iter, event_class, &stream_id, &set); if (ret) { + _BT_LOGE_NODE(iter, "Cannot visit event class's entry: " + "ret=%d", ret); goto error; } } @@ -3395,13 +3632,17 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) /* Create implicit stream class if there's none */ new_stream_class = create_reset_stream_class(ctx); if (!new_stream_class) { + _BT_LOGE_NODE(node, + "Cannot create empty stream class."); ret = -EINVAL; goto error; } ret = bt_ctf_stream_class_set_id(new_stream_class, 0); if (ret) { - BT_LOGE("cannot set stream class's ID"); + _BT_LOGE_NODE(node, + "Cannot set stream class's ID: " + "id=0, ret=%d", ret); BT_PUT(new_stream_class); goto error; } @@ -3432,7 +3673,8 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) } break; default: - BT_LOGE("missing \"stream_id\" attribute in event declaration"); + _BT_LOGE_NODE(node, + "Missing `stream_id` attribute in event class."); ret = -EPERM; goto error; } @@ -3448,8 +3690,9 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) stream_class = bt_ctf_trace_get_stream_class_by_id(ctx->trace, stream_id); if (!stream_class) { - BT_LOGE("cannot find stream class with ID %" PRId64, - stream_id); + _BT_LOGE_NODE(node, + "Cannot find stream class at this point: " + "id=%" PRId64, stream_id); ret = -EINVAL; goto error; } @@ -3461,8 +3704,8 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) /* Allow only one event without ID per stream */ if (bt_ctf_stream_class_get_event_class_count(stream_class) != 0) { - BT_LOGE( - "missing \"id\" field in event declaration"); + _BT_LOGE_NODE(node, + "Missing `id` attribute in event class."); ret = -EPERM; goto error; } @@ -3470,14 +3713,16 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) /* Automatic ID */ ret = bt_ctf_event_class_set_id(event_class, 0); if (ret) { - BT_LOGE("cannot set event's ID"); + _BT_LOGE_NODE(node, + "Cannot set event class's ID: id=0, ret=%d", + ret); goto error; } } event_id = bt_ctf_event_class_get_id(event_class); if (event_id < 0) { - BT_LOGE("cannot get event's ID"); + _BT_LOGE_NODE(node, "Cannot get event class's ID."); ret = -EINVAL; goto error; } @@ -3486,7 +3731,9 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) event_id); if (eevent_class) { BT_PUT(eevent_class); - BT_LOGE("duplicate event with ID %" PRId64 " in same stream", event_id); + _BT_LOGE_NODE(node, + "Duplicate event class (same ID) in the same stream class: " + "id=%" PRId64, event_id); ret = -EEXIST; goto error; } @@ -3494,7 +3741,8 @@ int visit_event_decl(struct ctx *ctx, struct ctf_node *node) ret = bt_ctf_stream_class_add_event_class(stream_class, event_class); BT_PUT(event_class); if (ret) { - BT_LOGE("cannot add event class to stream class"); + _BT_LOGE_NODE(node, + "Cannot add event class to stream class: ret=%d", ret); goto error; } @@ -3526,8 +3774,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = visit_typedef(ctx, node->u._typedef.type_specifier_list, &node->u._typedef.type_declarators); if (ret) { - BT_LOGE( - "cannot add typedef in \"stream\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type definition found in stream class."); goto error; } break; @@ -3535,7 +3783,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = visit_typealias(ctx, node->u.typealias.target, node->u.typealias.alias); if (ret) { - BT_LOGE("cannot add typealias in \"stream\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type alias found in stream class."); goto error; } break; @@ -3543,6 +3792,7 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, { left = concatenate_unary_strings(&node->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(node, "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } @@ -3552,7 +3802,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, gpointer ptr; if (_IS_SET(set, _STREAM_ID_SET)) { - BT_LOGE_DUP_ATTR("id", "stream declaration"); + _BT_LOGE_DUP_ATTR(node, "id", + "stream declaration"); ret = -EPERM; goto error; } @@ -3561,7 +3812,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, (uint64_t *) &id); /* Only read "id" if get_unary_unsigned() succeeded. */ if (ret || (!ret && id < 0)) { - BT_LOGE("unexpected unary expression for stream declaration's \"id\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for stream class's `id` attribute."); ret = -EINVAL; goto error; } @@ -3569,7 +3821,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, ptr = g_hash_table_lookup(ctx->stream_classes, (gpointer) id); if (ptr) { - BT_LOGE("duplicate stream with ID %" PRId64, + _BT_LOGE_NODE(node, + "Duplicate stream class (same ID): id=%" PRId64, id); ret = -EEXIST; goto error; @@ -3577,15 +3830,17 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, ret = bt_ctf_stream_class_set_id(stream_class, id); if (ret) { - BT_LOGE( - "cannot set stream class's ID"); + _BT_LOGE_NODE(node, + "Cannot set stream class's ID: " + "id=%" PRId64 ", ret=%d", id, ret); goto error; } _SET(set, _STREAM_ID_SET); } else if (!strcmp(left, "event.header")) { if (_IS_SET(set, _STREAM_EVENT_HEADER_SET)) { - BT_LOGE("duplicate \"event.header\" entry in stream declaration"); + _BT_LOGE_NODE(node, + "Duplicate `event.header` entry in stream class."); ret = -EPERM; goto error; } @@ -3596,7 +3851,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, struct ctf_node, siblings), &decl); if (ret) { - BT_LOGE("cannot create event header field type"); + _BT_LOGE_NODE(node, + "Cannot create stream class's event header field type."); goto error; } @@ -3606,14 +3862,16 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, stream_class, decl); BT_PUT(decl); if (ret) { - BT_LOGE("cannot set stream's event header field type"); + _BT_LOGE_NODE(node, + "Cannot set stream class's event header field type."); goto error; } _SET(set, _STREAM_EVENT_HEADER_SET); } else if (!strcmp(left, "event.context")) { if (_IS_SET(set, _STREAM_EVENT_CONTEXT_SET)) { - BT_LOGE("duplicate \"event.context\" entry in stream declaration"); + _BT_LOGE_NODE(node, + "Duplicate `event.context` entry in stream class."); ret = -EPERM; goto error; } @@ -3624,7 +3882,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, struct ctf_node, siblings), &decl); if (ret) { - BT_LOGE("cannot create stream event context field type"); + _BT_LOGE_NODE(node, + "Cannot create stream class's event context field type."); goto error; } @@ -3634,14 +3893,16 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, stream_class, decl); BT_PUT(decl); if (ret) { - BT_LOGE("cannot set stream's event context field type"); + _BT_LOGE_NODE(node, + "Cannot set stream class's event context field type."); goto error; } _SET(set, _STREAM_EVENT_CONTEXT_SET); } else if (!strcmp(left, "packet.context")) { if (_IS_SET(set, _STREAM_PACKET_CONTEXT_SET)) { - BT_LOGE("duplicate \"packet.context\" entry in stream declaration"); + _BT_LOGE_NODE(node, + "Duplicate `packet.context` entry in stream class."); ret = -EPERM; goto error; } @@ -3652,7 +3913,8 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, struct ctf_node, siblings), &decl); if (ret) { - BT_LOGE("cannot create packet context field type"); + _BT_LOGE_NODE(node, + "Cannot create stream class's packet context field type."); goto error; } @@ -3662,14 +3924,16 @@ int visit_stream_decl_entry(struct ctx *ctx, struct ctf_node *node, stream_class, decl); BT_PUT(decl); if (ret) { - BT_LOGE("cannot set stream's packet context field type"); + _BT_LOGE_NODE(node, + "Cannot set stream class's packet context field type."); goto error; } _SET(set, _STREAM_PACKET_CONTEXT_SET); } else { - BT_LOGW("unknown attribute \"%s\" in stream declaration", - left); + _BT_LOGW_NODE(node, + "Unknown attribute in stream class: " + "attr-name=\"%s\"", left); } g_free(left); @@ -3709,19 +3973,23 @@ int visit_stream_decl(struct ctx *ctx, struct ctf_node *node) node->visited = TRUE; stream_class = create_reset_stream_class(ctx); if (!stream_class) { + _BT_LOGE_NODE(node, "Cannot create empty stream class."); ret = -EINVAL; goto error; } ret = ctx_push_scope(ctx); if (ret) { - BT_LOGE("cannot push scope"); + BT_LOGE_STR("Cannot push scope."); goto error; } bt_list_for_each_entry(iter, decl_list, siblings) { ret = visit_stream_decl_entry(ctx, iter, stream_class, &set); if (ret) { + _BT_LOGE_NODE(iter, + "Cannot visit stream class's entry: " + "ret=%d", ret); ctx_pop_scope(ctx); goto error; } @@ -3737,8 +4005,9 @@ int visit_stream_decl(struct ctx *ctx, struct ctf_node *node) packet_header_decl = bt_ctf_trace_get_packet_header_type(ctx->trace); if (!packet_header_decl) { - BT_LOGE( - "cannot get trace packet header field type"); + _BT_LOGE_NODE(node, + "Stream class has a `id` attribute, " + "but trace has no packet header field type."); goto error; } @@ -3747,13 +4016,17 @@ int visit_stream_decl(struct ctx *ctx, struct ctf_node *node) packet_header_decl, "stream_id"); BT_PUT(packet_header_decl); if (!stream_id_decl) { - BT_LOGE("missing \"stream_id\" field in packet header declaration, but \"id\" attribute is declared for stream"); + _BT_LOGE_NODE(node, + "Stream class has a `id` attribute, " + "but trace's packet header field type has no `stream_id` field."); goto error; } if (!bt_ctf_field_type_is_integer(stream_id_decl)) { BT_PUT(stream_id_decl); - BT_LOGE("\"stream_id\" field in packet header declaration is not an integer"); + _BT_LOGE_NODE(node, + "Stream class has a `id` attribute, " + "but trace's packet header field type's `stream_id` field is not an integer field type."); goto error; } @@ -3761,19 +4034,21 @@ int visit_stream_decl(struct ctx *ctx, struct ctf_node *node) } else { /* Allow only _one_ ID-less stream */ if (g_hash_table_size(ctx->stream_classes) != 0) { - BT_LOGE( - "missing \"id\" field in stream declaration"); + _BT_LOGE_NODE(node, + "Missing `id` attribute in stream class as there's more than one stream class in the trace."); ret = -EPERM; goto error; } /* Automatic ID: 0 */ ret = bt_ctf_stream_class_set_id(stream_class, 0); + assert(ret == 0); } id = bt_ctf_stream_class_get_id(stream_class); if (id < 0) { - BT_LOGE("wrong stream ID: %" PRId64, id); + _BT_LOGE_NODE(node, + "Cannot get stream class's ID."); ret = -EINVAL; goto error; } @@ -3782,16 +4057,13 @@ int visit_stream_decl(struct ctx *ctx, struct ctf_node *node) * Make sure that this stream class's ID is currently unique in * the trace. */ - if (g_hash_table_lookup(ctx->stream_classes, (gpointer) id)) { - BT_LOGE("a stream class with ID: %" PRId64 " already exists in the trace", id); - ret = -EINVAL; - goto error; - } - existing_stream_class = bt_ctf_trace_get_stream_class_by_id(ctx->trace, id); - if (existing_stream_class) { - BT_LOGE("a stream class with ID: %" PRId64 " already exists in the trace", id); + if (g_hash_table_lookup(ctx->stream_classes, (gpointer) id) || + existing_stream_class) { + _BT_LOGE_NODE(node, + "Duplicate stream class (same ID): id=%" PRId64, + id); ret = -EINVAL; goto error; } @@ -3822,8 +4094,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) ret = visit_typedef(ctx, node->u._typedef.type_specifier_list, &node->u._typedef.type_declarators); if (ret) { - BT_LOGE( - "cannot add typedef in \"trace\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type definition found in trace (`trace` block)."); goto error; } break; @@ -3831,8 +4103,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) ret = visit_typealias(ctx, node->u.typealias.target, node->u.typealias.alias); if (ret) { - BT_LOGE( - "cannot add typealias in \"trace\" declaration"); + _BT_LOGE_NODE(node, + "Cannot add type alias found in trace (`trace` block)."); goto error; } break; @@ -3840,13 +4112,14 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) { left = concatenate_unary_strings(&node->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(node, "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } if (!strcmp(left, "major")) { if (_IS_SET(set, _TRACE_MAJOR_SET)) { - BT_LOGE_DUP_ATTR("major", "trace declaration"); + _BT_LOGE_DUP_ATTR(node, "major", "trace"); ret = -EPERM; goto error; } @@ -3854,7 +4127,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) ret = get_unary_unsigned(&node->u.ctf_expression.right, &ctx->trace_major); if (ret) { - BT_LOGE("unexpected unary expression for trace's \"major\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for trace's `major` attribute."); ret = -EINVAL; goto error; } @@ -3862,7 +4136,7 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) _SET(set, _TRACE_MAJOR_SET); } else if (!strcmp(left, "minor")) { if (_IS_SET(set, _TRACE_MINOR_SET)) { - BT_LOGE_DUP_ATTR("minor", "trace declaration"); + _BT_LOGE_DUP_ATTR(node, "minor", "trace"); ret = -EPERM; goto error; } @@ -3870,7 +4144,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) ret = get_unary_unsigned(&node->u.ctf_expression.right, &ctx->trace_minor); if (ret) { - BT_LOGE("unexpected unary expression for trace's \"minor\" attribute"); + _BT_LOGE_NODE(node, + "Unexpected unary expression for trace's `minor` attribute."); ret = -EINVAL; goto error; } @@ -3878,7 +4153,7 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) _SET(set, _TRACE_MINOR_SET); } else if (!strcmp(left, "uuid")) { if (_IS_SET(set, _TRACE_UUID_SET)) { - BT_LOGE_DUP_ATTR("uuid", "trace declaration"); + _BT_LOGE_DUP_ATTR(node, "uuid", "trace"); ret = -EPERM; goto error; } @@ -3886,15 +4161,14 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) ret = get_unary_uuid(&node->u.ctf_expression.right, ctx->trace_uuid); if (ret) { - BT_LOGE( - "invalid trace declaration's UUID"); + _BT_LOGE_NODE(node, + "Invalid trace's `uuid` attribute."); goto error; } ret = bt_ctf_trace_set_uuid(ctx->trace, ctx->trace_uuid); if (ret) { - BT_LOGE( - "cannot set trace's UUID"); + _BT_LOGE_NODE(node, "Cannot set trace's UUID."); goto error; } @@ -3902,8 +4176,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) } else if (!strcmp(left, "byte_order")) { /* Native byte order is already known at this stage */ if (_IS_SET(set, _TRACE_BYTE_ORDER_SET)) { - BT_LOGE_DUP_ATTR("byte_order", - "trace declaration"); + _BT_LOGE_DUP_ATTR(node, "byte_order", + "trace"); ret = -EPERM; goto error; } @@ -3911,7 +4185,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) _SET(set, _TRACE_BYTE_ORDER_SET); } else if (!strcmp(left, "packet.header")) { if (_IS_SET(set, _TRACE_PACKET_HEADER_SET)) { - BT_LOGE("duplicate \"packet.header\" entry in trace declaration"); + _BT_LOGE_NODE(node, + "Duplicate `packet.header` entry in trace."); ret = -EPERM; goto error; } @@ -3922,7 +4197,8 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) struct ctf_node, siblings), &packet_header_decl); if (ret) { - BT_LOGE("cannot create packet header field type"); + _BT_LOGE_NODE(node, + "Cannot create trace's packet header field type."); goto error; } @@ -3931,13 +4207,16 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) packet_header_decl); BT_PUT(packet_header_decl); if (ret) { - BT_LOGE("cannot set trace's packet header field type"); + _BT_LOGE_NODE(node, + "Cannot set trace's packet header field type."); goto error; } _SET(set, _TRACE_PACKET_HEADER_SET); } else { - BT_LOGW("unknown attribute \"%s\" in trace declaration", left); + _BT_LOGW_NODE(node, + "Unknown attribute in stream class: " + "attr-name=\"%s\"", left); } g_free(left); @@ -3945,7 +4224,7 @@ int visit_trace_decl_entry(struct ctx *ctx, struct ctf_node *node, int *set) break; } default: - BT_LOGE("unknown expression in trace declaration"); + _BT_LOGE_NODE(node, "Unknown expression in trace."); ret = -EINVAL; goto error; } @@ -3974,20 +4253,22 @@ int visit_trace_decl(struct ctx *ctx, struct ctf_node *node) node->visited = TRUE; if (ctx->is_trace_visited) { - BT_LOGE("duplicate \"trace\" block"); + _BT_LOGE_NODE(node, "Duplicate trace (`trace` block)."); ret = -EEXIST; goto error; } ret = ctx_push_scope(ctx); if (ret) { - BT_LOGE("cannot push scope"); + BT_LOGE_STR("Cannot push scope."); goto error; } bt_list_for_each_entry(iter, decl_list, siblings) { ret = visit_trace_decl_entry(ctx, iter, &set); if (ret) { + _BT_LOGE_NODE(iter, "Cannot visit trace's entry (`trace` block): " + "ret=%d", ret); ctx_pop_scope(ctx); goto error; } @@ -3996,21 +4277,22 @@ int visit_trace_decl(struct ctx *ctx, struct ctf_node *node) ctx_pop_scope(ctx); if (!_IS_SET(&set, _TRACE_MAJOR_SET)) { - BT_LOGE( - "missing \"major\" attribute in trace declaration"); + _BT_LOGE_NODE(node, + "Missing `major` attribute in trace (`trace` block)."); ret = -EPERM; goto error; } if (!_IS_SET(&set, _TRACE_MINOR_SET)) { - BT_LOGE( - "missing \"minor\" attribute in trace declaration"); + _BT_LOGE_NODE(node, + "Missing `minor` attribute in trace (`trace` block)."); ret = -EPERM; goto error; } if (!_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) { - BT_LOGE("missing \"byte_order\" attribute in trace declaration"); + _BT_LOGE_NODE(node, + "Missing `byte_order` attribute in trace (`trace` block)."); ret = -EPERM; goto error; } @@ -4043,7 +4325,9 @@ int visit_env(struct ctx *ctx, struct ctf_node *node) &entry_node->u.ctf_expression.right; if (entry_node->type != NODE_CTF_EXPRESSION) { - BT_LOGE("wrong expression in environment entry"); + _BT_LOGE_NODE(entry_node, + "Wrong expression in environment entry: " + "node-type=%d", entry_node->type); ret = -EPERM; goto error; } @@ -4051,7 +4335,8 @@ int visit_env(struct ctx *ctx, struct ctf_node *node) left = concatenate_unary_strings( &entry_node->u.ctf_expression.left); if (!left) { - BT_LOGE("cannot get environment entry name"); + _BT_LOGE_NODE(entry_node, + "Cannot get environment entry's name."); ret = -EINVAL; goto error; } @@ -4060,26 +4345,32 @@ int visit_env(struct ctx *ctx, struct ctf_node *node) char *right = concatenate_unary_strings(right_head); if (!right) { - BT_LOGE("unexpected unary expression for environment entry's value (\"%s\")", - left); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for environment entry's value: " + "name=\"%s\"", left); ret = -EINVAL; goto error; } - if (strcmp(left, "tracer_name") == 0) { - if (strncmp(right, "lttng", 5) == 0) { - ctx->is_lttng = 1; + if (!ctx->decoder_config.strict) { + if (strcmp(left, "tracer_name") == 0) { + if (strncmp(right, "lttng", 5) == 0) { + BT_LOGI("Non-strict mode: detected LTTng trace from `%s` environment value: " + "tracer-name=\"%s\"", + left, right); + ctx->is_lttng = 1; + } } } - printf_verbose("env.%s = \"%s\"\n", left, right); ret = bt_ctf_trace_set_environment_field_string( ctx->trace, left, right); g_free(right); if (ret) { - BT_LOGE("environment: cannot add entry \"%s\" to trace", - left); + _BT_LOGE_NODE(entry_node, + "Cannot add string environment entry to trace: " + "name=\"%s\", ret=%d", left, ret); goto error; } } else if (is_unary_unsigned(right_head) || @@ -4093,23 +4384,25 @@ int visit_env(struct ctx *ctx, struct ctf_node *node) ret = get_unary_signed(right_head, &v); } if (ret) { - BT_LOGE("unexpected unary expression for environment entry's value (\"%s\")", - left); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for environment entry's value: " + "name=\"%s\"", left); ret = -EINVAL; goto error; } - printf_verbose("env.%s = %" PRId64 "\n", left, v); ret = bt_ctf_trace_set_environment_field_integer( ctx->trace, left, v); if (ret) { - BT_LOGE("environment: cannot add entry \"%s\" to trace", - left); + _BT_LOGE_NODE(entry_node, + "Cannot add integer environment entry to trace: " + "name=\"%s\", ret=%d", left, ret); goto error; } } else { - printf_verbose("%s: environment entry \"%s\" has unknown type\n", - __func__, left); + _BT_LOGW_NODE(entry_node, + "Environment entry has unknown type: " + "name=\"%s\"", left); } g_free(left); @@ -4141,6 +4434,8 @@ int set_trace_byte_order(struct ctx *ctx, struct ctf_node *trace_node) left = concatenate_unary_strings( &node->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(node, + "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } @@ -4149,8 +4444,8 @@ int set_trace_byte_order(struct ctx *ctx, struct ctf_node *trace_node) enum bt_ctf_byte_order bo; if (_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) { - BT_LOGE_DUP_ATTR("byte_order", - "trace declaration"); + _BT_LOGE_DUP_ATTR(node, "byte_order", + "trace"); ret = -EPERM; goto error; } @@ -4161,11 +4456,15 @@ int set_trace_byte_order(struct ctx *ctx, struct ctf_node *trace_node) struct ctf_node, siblings); bo = byte_order_from_unary_expr(right_node); if (bo == BT_CTF_BYTE_ORDER_UNKNOWN) { - BT_LOGE("unknown \"byte_order\" attribute in trace declaration"); + _BT_LOGE_NODE(node, + "Invalid `byte_order` attribute in trace (`trace` block): " + "expecting `le`, `be`, or `network`."); ret = -EINVAL; goto error; } else if (bo == BT_CTF_BYTE_ORDER_NATIVE) { - BT_LOGE("\"byte_order\" attribute cannot be set to \"native\" in trace declaration"); + _BT_LOGE_NODE(node, + "Invalid `byte_order` attribute in trace (`trace` block): " + "cannot be set to `native` here."); ret = -EPERM; goto error; } @@ -4174,8 +4473,9 @@ int set_trace_byte_order(struct ctx *ctx, struct ctf_node *trace_node) ret = bt_ctf_trace_set_native_byte_order( ctx->trace, bo); if (ret) { - BT_LOGE("cannot set trace's byte order (%d)", - ret); + _BT_LOGE_NODE(node, + "Cannot set trace's byte order: " + "ret=%d", ret); goto error; } } @@ -4186,7 +4486,8 @@ int set_trace_byte_order(struct ctx *ctx, struct ctf_node *trace_node) } if (!_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) { - BT_LOGE("missing \"byte_order\" attribute in trace declaration"); + _BT_LOGE_NODE(trace_node, + "Missing `byte_order` attribute in trace (`trace` block)."); ret = -EINVAL; goto error; } @@ -4207,12 +4508,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, char *left = NULL; if (entry_node->type != NODE_CTF_EXPRESSION) { + _BT_LOGE_NODE(entry_node, + "Unexpected node type: node-type=%d", + entry_node->type); ret = -EPERM; goto error; } left = concatenate_unary_strings(&entry_node->u.ctf_expression.left); if (!left) { + _BT_LOGE_NODE(entry_node, "Cannot concatenate unary strings."); ret = -EINVAL; goto error; } @@ -4221,7 +4526,7 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, char *right; if (_IS_SET(set, _CLOCK_NAME_SET)) { - BT_LOGE_DUP_ATTR("name", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "name", "clock class"); ret = -EPERM; goto error; } @@ -4229,14 +4534,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, right = concatenate_unary_strings( &entry_node->u.ctf_expression.right); if (!right) { - BT_LOGE("unexpected unary expression for clock class declaration's \"name\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `name` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_name(clock, right); if (ret) { - BT_LOGE("cannot set clock class's name"); + _BT_LOGE_NODE(entry_node, + "cannot set clock class's name"); g_free(right); goto error; } @@ -4247,20 +4554,22 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, unsigned char uuid[BABELTRACE_UUID_LEN]; if (_IS_SET(set, _CLOCK_UUID_SET)) { - BT_LOGE_DUP_ATTR("uuid", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "uuid", "clock class"); ret = -EPERM; goto error; } ret = get_unary_uuid(&entry_node->u.ctf_expression.right, uuid); if (ret) { - BT_LOGE("invalid clock class UUID"); + _BT_LOGE_NODE(entry_node, + "Invalid clock class's `uuid` attribute."); goto error; } ret = bt_ctf_clock_class_set_uuid(clock, uuid); if (ret) { - BT_LOGE("cannot set clock class's UUID"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's UUID."); goto error; } @@ -4269,7 +4578,8 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, char *right; if (_IS_SET(set, _CLOCK_DESCRIPTION_SET)) { - BT_LOGE_DUP_ATTR("description", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "description", + "clock class"); ret = -EPERM; goto error; } @@ -4277,14 +4587,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, right = concatenate_unary_strings( &entry_node->u.ctf_expression.right); if (!right) { - BT_LOGE("unexpected unary expression for clock class's \"description\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `description` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_description(clock, right); if (ret) { - BT_LOGE("cannot set clock class's description"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's description."); g_free(right); goto error; } @@ -4295,7 +4607,7 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, uint64_t freq; if (_IS_SET(set, _CLOCK_FREQ_SET)) { - BT_LOGE_DUP_ATTR("freq", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "freq", "clock class"); ret = -EPERM; goto error; } @@ -4303,14 +4615,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = get_unary_unsigned( &entry_node->u.ctf_expression.right, &freq); if (ret) { - BT_LOGE("unexpected unary expression for clock class declaration's \"freq\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `freq` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_frequency(clock, freq); if (ret) { - BT_LOGE("cannot set clock class's frequency"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's frequency."); goto error; } @@ -4319,7 +4633,8 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, uint64_t precision; if (_IS_SET(set, _CLOCK_PRECISION_SET)) { - BT_LOGE_DUP_ATTR("precision", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "precision", + "clock class"); ret = -EPERM; goto error; } @@ -4327,14 +4642,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = get_unary_unsigned( &entry_node->u.ctf_expression.right, &precision); if (ret) { - BT_LOGE("unexpected unary expression for clock class declaration's \"precision\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `precision` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_precision(clock, precision); if (ret) { - BT_LOGE("cannot set clock class's precision"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's precision."); goto error; } @@ -4343,7 +4660,8 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, uint64_t offset_s; if (_IS_SET(set, _CLOCK_OFFSET_S_SET)) { - BT_LOGE_DUP_ATTR("offset_s", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "offset_s", + "clock class"); ret = -EPERM; goto error; } @@ -4351,14 +4669,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = get_unary_unsigned( &entry_node->u.ctf_expression.right, &offset_s); if (ret) { - BT_LOGE("unexpected unary expression for clock class declaration's \"offset_s\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `offset_s` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_offset_s(clock, offset_s); if (ret) { - BT_LOGE("cannot set clock class's offset in seconds"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's offset in seconds."); goto error; } @@ -4367,7 +4687,7 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, uint64_t offset; if (_IS_SET(set, _CLOCK_OFFSET_SET)) { - BT_LOGE_DUP_ATTR("offset", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "offset", "clock class"); ret = -EPERM; goto error; } @@ -4375,14 +4695,16 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, ret = get_unary_unsigned( &entry_node->u.ctf_expression.right, &offset); if (ret) { - BT_LOGE("unexpected unary expression for clock class declaration's \"offset\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `offset` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_offset_cycles(clock, offset); if (ret) { - BT_LOGE("cannot set clock class's offset in cycles"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's offset in cycles."); goto error; } @@ -4391,7 +4713,8 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, struct ctf_node *right; if (_IS_SET(set, _CLOCK_ABSOLUTE_SET)) { - BT_LOGE_DUP_ATTR("absolute", "clock class declaration"); + _BT_LOGE_DUP_ATTR(entry_node, "absolute", + "clock class"); ret = -EPERM; goto error; } @@ -4401,20 +4724,23 @@ int visit_clock_decl_entry(struct ctx *ctx, struct ctf_node *entry_node, struct ctf_node, siblings); ret = get_boolean(right); if (ret < 0) { - BT_LOGE("unexpected unary expression for clock class declaration's \"absolute\" attribute"); + _BT_LOGE_NODE(entry_node, + "Unexpected unary expression for clock class's `absolute` attribute."); ret = -EINVAL; goto error; } ret = bt_ctf_clock_class_set_is_absolute(clock, ret); if (ret) { - BT_LOGE("cannot set clock class's absolute option"); + _BT_LOGE_NODE(entry_node, + "Cannot set clock class's absolute flag."); goto error; } _SET(set, _CLOCK_ABSOLUTE_SET); } else { - BT_LOGW("unknown attribute \"%s\" in clock class declaration", + _BT_LOGW_NODE(entry_node, + "Unknown attribute in clock class: attr-name=\"%s\"", left); } @@ -4450,22 +4776,26 @@ int apply_clock_class_offset(struct ctx *ctx, struct bt_ctf_clock_class *clock) int ret; uint64_t freq; int64_t offset_cycles; + int64_t offset_to_apply; freq = bt_ctf_clock_class_get_frequency(clock); if (freq == -1ULL) { - BT_LOGE("cannot get clock class frequency"); + BT_LOGE_STR("Cannot get clock class's frequency."); ret = -1; goto end; } ret = bt_ctf_clock_class_get_offset_cycles(clock, &offset_cycles); if (ret) { - BT_LOGE("cannot get offset in cycles"); + BT_LOGE_STR("Cannot get clock class's offset in cycles."); ret = -1; goto end; } - offset_cycles += cycles_from_ns(freq, ctx->clock_class_offset_ns); + offset_to_apply = + ctx->decoder_config.clock_class_offset_s * 1000000000LL + + ctx->decoder_config.clock_class_offset_ns; + offset_cycles += cycles_from_ns(freq, offset_to_apply); ret = bt_ctf_clock_class_set_offset_cycles(clock, offset_cycles); end: @@ -4489,7 +4819,8 @@ int visit_clock_decl(struct ctx *ctx, struct ctf_node *clock_node) clock_node->visited = TRUE; clock = bt_ctf_clock_class_create(NULL); if (!clock) { - BT_LOGE("cannot create clock"); + _BT_LOGE_NODE(clock_node, + "Cannot create default clock class."); ret = -ENOMEM; goto error; } @@ -4497,13 +4828,16 @@ int visit_clock_decl(struct ctx *ctx, struct ctf_node *clock_node) bt_list_for_each_entry(entry_node, decl_list, siblings) { ret = visit_clock_decl_entry(ctx, entry_node, clock, &set); if (ret) { + _BT_LOGE_NODE(entry_node, + "Cannot visit clock class's entry: ret=%d", + ret); goto error; } } if (!_IS_SET(&set, _CLOCK_NAME_SET)) { - BT_LOGE( - "missing \"name\" attribute in clock class declaration"); + _BT_LOGE_NODE(clock_node, + "Missing `name` attribute in clock class."); ret = -EPERM; goto error; } @@ -4519,20 +4853,23 @@ int visit_clock_decl(struct ctx *ctx, struct ctf_node *clock_node) */ ret = bt_ctf_clock_class_set_is_absolute(clock, 1); if (ret) { - BT_LOGE("cannot set clock class's absolute option"); + _BT_LOGE_NODE(clock_node, + "Cannot set clock class's absolute flag."); goto error; } } ret = apply_clock_class_offset(ctx, clock); if (ret) { - BT_LOGE("cannot apply clock class offset "); + _BT_LOGE_NODE(clock_node, + "Cannot apply clock class's custom offset."); goto error; } ret = bt_ctf_trace_add_clock_class(ctx->trace, clock); if (ret) { - BT_LOGE("cannot add clock class to trace"); + _BT_LOGE_NODE(clock_node, + "Cannot add clock class to trace."); goto error; } @@ -4559,7 +4896,8 @@ int visit_root_decl(struct ctx *ctx, struct ctf_node *root_decl_node) root_decl_node->u._typedef.type_specifier_list, &root_decl_node->u._typedef.type_declarators); if (ret) { - BT_LOGE("cannot add typedef in root scope"); + _BT_LOGE_NODE(root_decl_node, + "Cannot add type definition found in root scope."); goto end; } break; @@ -4567,7 +4905,8 @@ int visit_root_decl(struct ctx *ctx, struct ctf_node *root_decl_node) ret = visit_typealias(ctx, root_decl_node->u.typealias.target, root_decl_node->u.typealias.alias); if (ret) { - BT_LOGE("cannot add typealias in root scope"); + _BT_LOGE_NODE(root_decl_node, + "Cannot add type alias found in root scope."); goto end; } break; @@ -4581,6 +4920,9 @@ int visit_root_decl(struct ctx *ctx, struct ctf_node *root_decl_node) */ ret = visit_type_specifier_list(ctx, root_decl_node, &decl); if (ret) { + _BT_LOGE_NODE(root_decl_node, + "Cannot visit root scope's field type: " + "ret=%d", ret); assert(!decl); goto end; } @@ -4589,6 +4931,9 @@ int visit_root_decl(struct ctx *ctx, struct ctf_node *root_decl_node) break; } default: + _BT_LOGE_NODE(root_decl_node, + "Unexpected node type: node-type=%d", + root_decl_node->type); ret = -EPERM; goto end; } @@ -4607,6 +4952,7 @@ int set_trace_name(struct ctx *ctx) assert(bt_ctf_trace_get_stream_class_count(ctx->trace) == 0); name = g_string_new(NULL); if (!name) { + BT_LOGE_STR("Failed to allocate a GString."); ret = -1; goto end; } @@ -4635,6 +4981,7 @@ int set_trace_name(struct ctx *ctx) ret = bt_ctf_trace_set_name(ctx->trace, name->str); if (ret) { + BT_LOGE("Cannot set trace's name: name=\"%s\"", name->str); goto error; } @@ -4670,6 +5017,7 @@ int move_ctx_stream_classes_to_trace(struct ctx *ctx) */ ret = set_trace_name(ctx); if (ret) { + BT_LOGE_STR("Cannot set trace's name."); goto end; } } @@ -4681,7 +5029,7 @@ int move_ctx_stream_classes_to_trace(struct ctx *ctx) stream_class); if (ret) { int64_t id = bt_ctf_stream_class_get_id(stream_class); - BT_LOGE("cannot add stream class %" PRId64 " to trace", + BT_LOGE("Cannot add stream class to trace: id=%" PRId64, id); goto end; } @@ -4695,7 +5043,8 @@ end: BT_HIDDEN struct ctf_visitor_generate_ir *ctf_visitor_generate_ir_create( - int64_t clock_class_offset_ns, const char *name) + const struct ctf_metadata_decoder_config *decoder_config, + const char *name) { int ret; struct ctx *ctx = NULL; @@ -4703,21 +5052,21 @@ struct ctf_visitor_generate_ir *ctf_visitor_generate_ir_create( trace = bt_ctf_trace_create(); if (!trace) { - BT_LOGE("cannot create trace"); + BT_LOGE_STR("Cannot create empty trace."); goto error; } /* Set packet header to NULL to override the default one */ ret = bt_ctf_trace_set_packet_header_type(trace, NULL); if (ret) { - BT_LOGE("cannot set initial, empty packet header structure"); + BT_LOGE_STR("Cannot reset initial trace's packet header field type."); goto error; } /* Create visitor's context */ - ctx = ctx_create(trace, clock_class_offset_ns, name); + ctx = ctx_create(trace, decoder_config, name); if (!ctx) { - BT_LOGE("cannot create visitor context"); + BT_LOGE_STR("Cannot create visitor's context."); goto error; } @@ -4757,14 +5106,13 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, int ret = 0; struct ctx *ctx = (void *) visitor; - printf_verbose("CTF visitor: AST -> CTF IR...\n"); + BT_LOGI_STR("Visiting metadata's AST to generate CTF IR objects."); switch (node->type) { case NODE_ROOT: { struct ctf_node *iter; int got_trace_decl = FALSE; - int found_callsite = FALSE; /* * The first thing we need is the native byte order of @@ -4776,15 +5124,17 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, if (ctx->trace_bo == BT_CTF_BYTE_ORDER_NATIVE) { bt_list_for_each_entry(iter, &node->u.root.trace, siblings) { if (got_trace_decl) { - BT_LOGE("duplicate trace declaration"); + _BT_LOGE_NODE(node, + "Duplicate trace (`trace` block)."); ret = -1; goto end; } ret = set_trace_byte_order(ctx, iter); if (ret) { - BT_LOGE("cannot set trace's native byte order (%d)", - ret); + _BT_LOGE_NODE(node, + "Cannot set trace's native byte order: " + "ret=%d", ret); goto end; } @@ -4792,6 +5142,7 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, } if (!got_trace_decl) { + BT_LOGD_STR("Incomplete AST: need trace (`trace` block)."); ret = -EINCOMPLETE; goto end; } @@ -4806,8 +5157,9 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, bt_list_for_each_entry(iter, &node->u.root.env, siblings) { ret = visit_env(ctx, iter); if (ret) { - BT_LOGE("error while visiting environment block (%d)", - ret); + _BT_LOGE_NODE(iter, + "Cannot visit trace's environment (`env` block) entry: " + "ret=%d", ret); goto end; } } @@ -4821,7 +5173,8 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, bt_list_for_each_entry(iter, &node->u.root.clock, siblings) { ret = visit_clock_decl(ctx, iter); if (ret) { - BT_LOGE("error while visiting clock class declaration (%d)", + _BT_LOGE_NODE(iter, + "Cannot visit clock class: ret=%d", ret); goto end; } @@ -4838,7 +5191,8 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, siblings) { ret = visit_root_decl(ctx, iter); if (ret) { - BT_LOGE("error while visiting root declaration (%d)", + _BT_LOGE_NODE(iter, + "Cannot visit root entry: ret=%d", ret); goto end; } @@ -4849,22 +5203,20 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, /* Callsite blocks are not supported */ bt_list_for_each_entry(iter, &node->u.root.callsite, siblings) { - found_callsite = TRUE; - break; + _BT_LOGW_NODE(iter, + "\"callsite\" blocks are not supported as of this version."); } assert(ctx->current_scope && ctx->current_scope->parent_scope == NULL); - if (found_callsite) { - BT_LOGW("\"callsite\" blocks are not supported as of this version"); - } - /* Trace */ bt_list_for_each_entry(iter, &node->u.root.trace, siblings) { ret = visit_trace_decl(ctx, iter); if (ret) { - BT_LOGE("error while visiting trace declaration"); + _BT_LOGE_NODE(iter, + "Cannot visit trace (`trace` block): " + "ret=%d", ret); goto end; } } @@ -4876,7 +5228,9 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, bt_list_for_each_entry(iter, &node->u.root.stream, siblings) { ret = visit_stream_decl(ctx, iter); if (ret) { - BT_LOGE("error while visiting stream declaration"); + _BT_LOGE_NODE(iter, + "Cannot visit stream class: ret=%d", + ret); goto end; } } @@ -4888,7 +5242,9 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, bt_list_for_each_entry(iter, &node->u.root.event, siblings) { ret = visit_event_decl(ctx, iter); if (ret) { - BT_LOGE("error while visiting event declaration"); + _BT_LOGE_NODE(iter, + "Cannot visit event class: ret=%d", + ret); goto end; } } @@ -4898,7 +5254,9 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, break; } default: - BT_LOGE("cannot decode node type: %d", (int) node->type); + _BT_LOGE_NODE(node, + "Unexpected node type: node-type=%d", + node->type); ret = -EINVAL; goto end; } @@ -4906,7 +5264,7 @@ int ctf_visitor_generate_ir_visit_node(struct ctf_visitor_generate_ir *visitor, /* Move decoded stream classes to trace, if any */ ret = move_ctx_stream_classes_to_trace(ctx); if (ret) { - BT_LOGE("cannot move stream classes to trace"); + BT_LOGE("Cannot move stream classes to trace: ret=%d", ret); } end: