* SOFTWARE.
*/
+#define BT_COMP_LOG_SELF_COMP (ctx->log_cfg.self_comp)
+#define BT_LOG_OUTPUT_LEVEL (ctx->log_cfg.log_level)
#define BT_LOG_TAG "PLUGIN/CTF/META/IR-VISITOR"
-#include "logging.h"
+#include "plugins/comp-logging.h"
#include <stdio.h>
#include <unistd.h>
#include "compat/endian.h"
#include <babeltrace2/babeltrace.h>
+#include "logging.h"
#include "scanner.h"
#include "parser.h"
#include "ast.h"
do { \
ret = ctx_push_scope(ctx); \
if (ret) { \
- BT_LOGE_STR("Cannot push scope."); \
+ BT_COMP_LOGE_STR("Cannot push scope."); \
goto error; \
} \
} while (0)
#define _BT_LIST_FIRST_ENTRY(_ptr, _class, _member) \
bt_list_entry((_ptr)->next, _class, _member)
-#define _BT_LOGE_DUP_ATTR(_node, _attr, _entity) \
- _BT_LOGE_LINENO((_node)->lineno, \
+#define _BT_COMP_LOGE_DUP_ATTR(_node, _attr, _entity) \
+ _BT_COMP_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_COMP_LOGE_NODE(_node, _msg, args...) \
+ _BT_COMP_LOGE_LINENO((_node)->lineno, _msg, ## args)
-#define _BT_LOGW_NODE(_node, _msg, args...) \
- _BT_LOGW_LINENO((_node)->lineno, _msg, ## args)
+#define _BT_COMP_LOGW_NODE(_node, _msg, args...) \
+ _BT_COMP_LOGW_LINENO((_node)->lineno, _msg, ## args)
-#define _BT_LOGV_NODE(_node, _msg, args...) \
- _BT_LOGV_LINENO((_node)->lineno, _msg, ## args)
+#define _BT_COMP_LOGT_NODE(_node, _msg, args...) \
+ _BT_COMP_LOGT_LINENO((_node)->lineno, _msg, ## args)
/*
* Declaration scope of a visitor context. This represents a TSDL
* Visitor context (private).
*/
struct ctx {
- bt_self_component_source *self_comp;
+ struct meta_log_config log_cfg;
+
/* Trace IR trace class being filled (owned by this) */
bt_trace_class *trace_class;
* @returns New declaration scope, or NULL on error
*/
static
-struct ctx_decl_scope *ctx_decl_scope_create(struct ctx_decl_scope *par_scope)
+struct ctx_decl_scope *ctx_decl_scope_create(struct ctx *ctx,
+ struct ctx_decl_scope *par_scope)
{
struct ctx_decl_scope *scope;
scope = g_new(struct ctx_decl_scope, 1);
if (!scope) {
- BT_LOGE_STR("Failed to allocate one declaration scope.");
+ BT_COMP_LOGE_STR("Failed to allocate one declaration scope.");
goto end;
}
* @returns Associated GQuark, or 0 on error
*/
static
-GQuark get_prefixed_named_quark(char prefix, const char *name)
+GQuark get_prefixed_named_quark(struct ctx *ctx, char prefix, const char *name)
{
GQuark qname = 0;
/* Prefix character + original string + '\0' */
char *prname = g_new(char, strlen(name) + 2);
if (!prname) {
- BT_LOGE_STR("Failed to allocate a string.");
+ BT_COMP_LOGE_STR("Failed to allocate a string.");
goto end;
}
*/
static
struct ctf_field_class *ctx_decl_scope_lookup_prefix_alias(
- struct ctx_decl_scope *scope, char prefix, const char *name,
- int levels, bool copy)
+ struct ctx *ctx, struct ctx_decl_scope *scope, char prefix,
+ const char *name, int levels, bool copy)
{
GQuark qname = 0;
int cur_levels = 0;
BT_ASSERT(scope);
BT_ASSERT(name);
- qname = get_prefixed_named_quark(prefix, name);
+ qname = get_prefixed_named_quark(ctx, prefix, name);
if (!qname) {
goto end;
}
* or NULL if not found
*/
static
-struct ctf_field_class *ctx_decl_scope_lookup_alias(
+struct ctf_field_class *ctx_decl_scope_lookup_alias(struct ctx *ctx,
struct ctx_decl_scope *scope, const char *name, int levels,
bool copy)
{
- return ctx_decl_scope_lookup_prefix_alias(scope, _PREFIX_ALIAS,
+ return ctx_decl_scope_lookup_prefix_alias(ctx, scope, _PREFIX_ALIAS,
name, levels, copy);
}
* or NULL if not found
*/
static
-struct ctf_field_class_enum *ctx_decl_scope_lookup_enum(
+struct ctf_field_class_enum *ctx_decl_scope_lookup_enum(struct ctx *ctx,
struct ctx_decl_scope *scope, const char *name, int levels,
bool copy)
{
- return (void *) ctx_decl_scope_lookup_prefix_alias(scope, _PREFIX_ENUM,
- name, levels, copy);
+ return (void *) ctx_decl_scope_lookup_prefix_alias(ctx, scope,
+ _PREFIX_ENUM, name, levels, copy);
}
/**
* or NULL if not found
*/
static
-struct ctf_field_class_struct *ctx_decl_scope_lookup_struct(
+struct ctf_field_class_struct *ctx_decl_scope_lookup_struct(struct ctx *ctx,
struct ctx_decl_scope *scope, const char *name, int levels,
bool copy)
{
- return (void *) ctx_decl_scope_lookup_prefix_alias(scope,
+ return (void *) ctx_decl_scope_lookup_prefix_alias(ctx, scope,
_PREFIX_STRUCT, name, levels, copy);
}
* or NULL if not found
*/
static
-struct ctf_field_class_variant *ctx_decl_scope_lookup_variant(
+struct ctf_field_class_variant *ctx_decl_scope_lookup_variant(struct ctx *ctx,
struct ctx_decl_scope *scope, const char *name, int levels,
bool copy)
{
- return (void *) ctx_decl_scope_lookup_prefix_alias(scope,
+ return (void *) ctx_decl_scope_lookup_prefix_alias(ctx, scope,
_PREFIX_VARIANT, name, levels, copy);
}
* @returns 0 if registration went okay, negative value otherwise
*/
static
-int ctx_decl_scope_register_prefix_alias(struct ctx_decl_scope *scope,
- char prefix, const char *name, struct ctf_field_class *decl)
+int ctx_decl_scope_register_prefix_alias(struct ctx *ctx,
+ struct ctx_decl_scope *scope, char prefix, const char *name,
+ struct ctf_field_class *decl)
{
int ret = 0;
GQuark qname = 0;
BT_ASSERT(scope);
BT_ASSERT(name);
BT_ASSERT(decl);
- qname = get_prefixed_named_quark(prefix, name);
+ qname = get_prefixed_named_quark(ctx, prefix, name);
if (!qname) {
ret = -ENOMEM;
goto end;
}
/* Make sure alias does not exist in local scope */
- if (ctx_decl_scope_lookup_prefix_alias(scope, prefix, name, 1,
+ if (ctx_decl_scope_lookup_prefix_alias(ctx, scope, prefix, name, 1,
false)) {
ret = -EEXIST;
goto end;
* @returns 0 if registration went okay, negative value otherwise
*/
static
-int ctx_decl_scope_register_alias(struct ctx_decl_scope *scope,
+int ctx_decl_scope_register_alias(struct ctx *ctx, struct ctx_decl_scope *scope,
const char *name, struct ctf_field_class *decl)
{
- return ctx_decl_scope_register_prefix_alias(scope, _PREFIX_ALIAS,
+ return ctx_decl_scope_register_prefix_alias(ctx, scope, _PREFIX_ALIAS,
name, (void *) decl);
}
* @returns 0 if registration went okay, negative value otherwise
*/
static
-int ctx_decl_scope_register_enum(struct ctx_decl_scope *scope,
+int ctx_decl_scope_register_enum(struct ctx *ctx, struct ctx_decl_scope *scope,
const char *name, struct ctf_field_class_enum *decl)
{
- return ctx_decl_scope_register_prefix_alias(scope, _PREFIX_ENUM,
+ return ctx_decl_scope_register_prefix_alias(ctx, scope, _PREFIX_ENUM,
name, (void *) decl);
}
* @returns 0 if registration went okay, negative value otherwise
*/
static
-int ctx_decl_scope_register_struct(struct ctx_decl_scope *scope,
- const char *name, struct ctf_field_class_struct *decl)
+int ctx_decl_scope_register_struct(struct ctx *ctx,
+ struct ctx_decl_scope *scope, const char *name,
+ struct ctf_field_class_struct *decl)
{
- return ctx_decl_scope_register_prefix_alias(scope, _PREFIX_STRUCT,
+ return ctx_decl_scope_register_prefix_alias(ctx, scope, _PREFIX_STRUCT,
name, (void *) decl);
}
* @returns 0 if registration went okay, negative value otherwise
*/
static
-int ctx_decl_scope_register_variant(struct ctx_decl_scope *scope,
- const char *name, struct ctf_field_class_variant *decl)
+int ctx_decl_scope_register_variant(struct ctx *ctx,
+ struct ctx_decl_scope *scope, const char *name,
+ struct ctf_field_class_variant *decl)
{
- return ctx_decl_scope_register_prefix_alias(scope, _PREFIX_VARIANT,
+ return ctx_decl_scope_register_prefix_alias(ctx, scope, _PREFIX_VARIANT,
name, (void *) decl);
}
* @returns New visitor context, or NULL on error
*/
static
-struct ctx *ctx_create(bt_self_component_source *self_comp,
- const struct ctf_metadata_decoder_config *decoder_config)
+struct ctx *ctx_create(const struct ctf_metadata_decoder_config *decoder_config)
{
struct ctx *ctx = NULL;
ctx = g_new0(struct ctx, 1);
if (!ctx) {
- BT_LOGE_STR("Failed to allocate one visitor context.");
+ BT_COMP_LOG_CUR_LVL(BT_LOG_ERROR, decoder_config->log_level,
+ decoder_config->self_comp,
+ "Failed to allocate one visitor context.");
goto error;
}
- if (self_comp) {
+ ctx->log_cfg.log_level = decoder_config->log_level;
+ ctx->log_cfg.self_comp = decoder_config->self_comp;
+
+ if (decoder_config->self_comp) {
ctx->trace_class = bt_trace_class_create(
- bt_self_component_source_as_self_component(self_comp));
+ decoder_config->self_comp);
if (!ctx->trace_class) {
- BT_LOGE_STR("Cannot create empty trace class.");
+ BT_COMP_LOGE_STR("Cannot create empty trace class.");
goto error;
}
- ctx->self_comp = self_comp;
}
ctx->ctf_tc = ctf_trace_class_create();
if (!ctx->ctf_tc) {
- BT_LOGE_STR("Cannot create CTF trace class.");
+ BT_COMP_LOGE_STR("Cannot create CTF trace class.");
goto error;
}
/* Root declaration scope */
- ctx->current_scope = ctx_decl_scope_create(NULL);
+ ctx->current_scope = ctx_decl_scope_create(ctx, NULL);
if (!ctx->current_scope) {
- BT_LOGE_STR("Cannot create declaration scope.");
+ BT_COMP_LOGE_STR("Cannot create declaration scope.");
goto error;
}
struct ctx_decl_scope *new_scope;
BT_ASSERT(ctx);
- new_scope = ctx_decl_scope_create(ctx->current_scope);
+ new_scope = ctx_decl_scope_create(ctx, ctx->current_scope);
if (!new_scope) {
- BT_LOGE_STR("Cannot create declaration scope.");
+ BT_COMP_LOGE_STR("Cannot create declaration scope.");
ret = -ENOMEM;
goto end;
}
struct ctf_field_class **decl);
static
-char *remove_underscores_from_field_ref(const char *field_ref)
+char *remove_underscores_from_field_ref(struct ctx *ctx, const char *field_ref)
{
const char *in_ch;
char *out_ch;
BT_ASSERT(field_ref);
ret = calloc(strlen(field_ref) + 1, 1);
if (!ret) {
- BT_LOGE("Failed to allocate a string: size=%zu",
+ BT_COMP_LOGE("Failed to allocate a string: size=%zu",
strlen(field_ref) + 1);
goto end;
}
}
static
-int get_unary_unsigned(struct bt_list_head *head, uint64_t *value)
+int get_unary_unsigned(struct ctx *ctx, struct bt_list_head *head,
+ uint64_t *value)
{
int i = 0;
int ret = 0;
uexpr_type != UNARY_UNSIGNED_CONSTANT ||
uexpr_link != UNARY_LINK_UNKNOWN || i != 0;
if (cond) {
- _BT_LOGE_NODE(node, "Invalid constant unsigned integer.");
+ _BT_COMP_LOGE_NODE(node, "Invalid constant unsigned integer.");
ret = -EINVAL;
goto end;
}
}
static
-int get_unary_uuid(struct bt_list_head *head, unsigned char *uuid)
+int get_unary_uuid(struct ctx *ctx, struct bt_list_head *head,
+ unsigned char *uuid)
{
int i = 0;
int ret = 0;
src_string = node->u.unary_expression.u.string;
ret = bt_uuid_parse(src_string, uuid);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot parse UUID: uuid=\"%s\"", src_string);
goto end;
}
}
static
-int get_boolean(struct ctf_node *unary_expr)
+int get_boolean(struct ctx *ctx, struct ctf_node *unary_expr)
{
int ret = 0;
if (unary_expr->type != NODE_UNARY_EXPRESSION) {
- _BT_LOGE_NODE(unary_expr,
+ _BT_COMP_LOGE_NODE(unary_expr,
"Expecting unary expression: node-type=%d",
unary_expr->type);
ret = -EINVAL;
} else if (!strcmp(str, "false") || !strcmp(str, "FALSE")) {
ret = FALSE;
} else {
- _BT_LOGE_NODE(unary_expr,
+ _BT_COMP_LOGE_NODE(unary_expr,
"Unexpected boolean value: value=\"%s\"", str);
ret = -EINVAL;
goto end;
break;
}
default:
- _BT_LOGE_NODE(unary_expr,
+ _BT_COMP_LOGE_NODE(unary_expr,
"Unexpected unary expression type: node-type=%d",
unary_expr->u.unary_expression.type);
ret = -EINVAL;
}
static
-enum ctf_byte_order byte_order_from_unary_expr(struct ctf_node *unary_expr)
+enum ctf_byte_order byte_order_from_unary_expr(struct ctx *ctx,
+ struct ctf_node *unary_expr)
{
const char *str;
enum ctf_byte_order bo = -1;
if (unary_expr->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(unary_expr,
+ _BT_COMP_LOGE_NODE(unary_expr,
"\"byte_order\" attribute: expecting `be`, `le`, `network`, or `native`.");
goto end;
}
} else if (!strcmp(str, "native")) {
bo = CTF_BYTE_ORDER_DEFAULT;
} else {
- _BT_LOGE_NODE(unary_expr,
+ _BT_COMP_LOGE_NODE(unary_expr,
"Unexpected \"byte_order\" attribute value: "
"expecting `be`, `le`, `network`, or `native`: value=\"%s\"",
str);
enum ctf_byte_order get_real_byte_order(struct ctx *ctx,
struct ctf_node *uexpr)
{
- enum ctf_byte_order bo = byte_order_from_unary_expr(uexpr);
+ enum ctf_byte_order bo = byte_order_from_unary_expr(ctx, uexpr);
if (bo == CTF_BYTE_ORDER_DEFAULT) {
bo = ctx->ctf_tc->default_byte_order;
int ret = 0;
if (cls_specifier->type != NODE_TYPE_SPECIFIER) {
- _BT_LOGE_NODE(cls_specifier,
+ _BT_COMP_LOGE_NODE(cls_specifier,
"Unexpected node type: node-type=%d",
cls_specifier->type);
ret = -EINVAL;
struct ctf_node *node = cls_specifier->u.field_class_specifier.node;
if (!node->u._struct.name) {
- _BT_LOGE_NODE(node, "Unexpected empty structure field class name.");
+ _BT_COMP_LOGE_NODE(node, "Unexpected empty structure field class name.");
ret = -EINVAL;
goto end;
}
struct ctf_node *node = cls_specifier->u.field_class_specifier.node;
if (!node->u.variant.name) {
- _BT_LOGE_NODE(node, "Unexpected empty variant field class name.");
+ _BT_COMP_LOGE_NODE(node, "Unexpected empty variant field class name.");
ret = -EINVAL;
goto end;
}
struct ctf_node *node = cls_specifier->u.field_class_specifier.node;
if (!node->u._enum.enum_id) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected empty enumeration field class (`enum`) name.");
ret = -EINVAL;
goto end;
case TYPESPEC_INTEGER:
case TYPESPEC_STRING:
default:
- _BT_LOGE_NODE(cls_specifier->u.field_class_specifier.node,
+ _BT_COMP_LOGE_NODE(cls_specifier->u.field_class_specifier.node,
"Unexpected field class specifier type: %d",
cls_specifier->u.field_class_specifier.type);
ret = -EINVAL;
if (node_field_class_declarator) {
if (node_field_class_declarator->u.field_class_declarator.type ==
TYPEDEC_UNKNOWN) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Unexpected field class declarator type: type=%d",
node_field_class_declarator->u.field_class_declarator.type);
ret = -EINVAL;
/* TODO: GCC bitfields not supported yet */
if (node_field_class_declarator->u.field_class_declarator.bitfield_len !=
NULL) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"GCC bitfields are not supported as of this version.");
ret = -EPERM;
goto error;
qalias = create_class_alias_identifier(ctx,
cls_specifier_list, node_field_class_declarator);
nested_decl =
- ctx_decl_scope_lookup_alias(ctx->current_scope,
+ ctx_decl_scope_lookup_alias(ctx,
+ ctx->current_scope,
g_quark_to_string(qalias), -1, true);
if (!nested_decl) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Cannot find class alias: name=\"%s\"",
g_quark_to_string(qalias));
ret = -EINVAL;
/* Create array/sequence, pass nested_decl as child */
if (bt_list_empty(length)) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_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,
+ _BT_COMP_LOGE_NODE(first,
"Unexpected node type: node-type=%d",
first->type);
ret = -EINVAL;
char *length_name = concatenate_unary_strings(length);
if (!length_name) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Cannot concatenate unary strings.");
ret = -EINVAL;
goto error;
struct ctf_field_class_array *array_decl;
if (!env_entry) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Cannot find environment entry: "
"name=\"%s\"", env_entry_name);
ret = -EINVAL;
}
if (env_entry->type != CTF_TRACE_CLASS_ENV_ENTRY_TYPE_INT) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Wrong environment entry type "
"(expecting integer): "
"name=\"%s\"", env_entry_name);
}
if (env_entry->value.i < 0) {
- _BT_LOGE_NODE(node_field_class_declarator,
+ _BT_COMP_LOGE_NODE(node_field_class_declarator,
"Invalid, negative array length: "
"env-entry-name=\"%s\", "
"value=%" PRId64,
decl = (void *) array_decl;
} else {
char *length_name_no_underscore =
- remove_underscores_from_field_ref(
+ remove_underscores_from_field_ref(ctx,
length_name);
if (!length_name_no_underscore) {
/*
&qfield_name, iter, &field_decl, NULL);
if (ret) {
BT_ASSERT(!field_decl);
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Cannot visit field class declarator: ret=%d", ret);
goto error;
}
/* Check if field with same name already exists */
if (ctf_field_class_struct_borrow_member_by_name(
struct_decl, field_name)) {
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Duplicate field in structure field class: "
"field-name=\"%s\"", field_name);
ret = -EINVAL;
&qfield_name, iter, &field_decl, NULL);
if (ret) {
BT_ASSERT(!field_decl);
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Cannot visit field class declarator: ret=%d", ret);
goto error;
}
/* Check if field with same name already exists */
if (ctf_field_class_variant_borrow_option_by_name(
variant_decl, field_name)) {
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Duplicate field in variant field class: "
"field-name=\"%s\"", field_name);
ret = -EINVAL;
ret = visit_field_class_declarator(ctx, cls_specifier_list,
&qidentifier, iter, &class_decl, NULL);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit field class declarator: ret=%d", ret);
ret = -EINVAL;
goto end;
(void *) class_decl;
if (var_fc->tag_path.path->len == 0) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Type definition of untagged variant field class is not allowed.");
ret = -EPERM;
goto end;
}
}
- ret = ctx_decl_scope_register_alias(ctx->current_scope,
+ ret = ctx_decl_scope_register_alias(ctx, ctx->current_scope,
g_quark_to_string(qidentifier), class_decl);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot register field class alias: name=\"%s\"",
g_quark_to_string(qidentifier));
goto end;
&qdummy_field_name, node, &class_decl, NULL);
if (ret) {
BT_ASSERT(!class_decl);
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot visit field class declarator: ret=%d", ret);
goto end;
}
struct ctf_field_class_variant *var_fc = (void *) class_decl;
if (var_fc->tag_path.path->len == 0) {
- _BT_LOGE_NODE(target,
+ _BT_COMP_LOGE_NODE(target,
"Type definition of untagged variant field class is not allowed.");
ret = -EPERM;
goto end;
* abstract or not (if it has an identifier). Check it here.
*/
if (qdummy_field_name != 0) {
- _BT_LOGE_NODE(target,
+ _BT_COMP_LOGE_NODE(target,
"Expecting empty identifier: id=\"%s\"",
g_quark_to_string(qdummy_field_name));
ret = -EINVAL;
struct ctf_node, siblings);
qalias = create_class_alias_identifier(ctx,
alias->u.field_class_alias_name.field_class_specifier_list, node);
- ret = ctx_decl_scope_register_alias(ctx->current_scope,
+ ret = ctx_decl_scope_register_alias(ctx, ctx->current_scope,
g_quark_to_string(qalias), class_decl);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot register class alias: name=\"%s\"",
g_quark_to_string(qalias));
goto end;
entry_node->u.field_class_def.field_class_specifier_list,
&entry_node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot add field class found in structure field class: ret=%d",
ret);
goto end;
ret = visit_field_class_alias(ctx, entry_node->u.field_class_alias.target,
entry_node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot add field class alias found in structure field class: ret=%d",
ret);
goto end;
}
break;
default:
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected node type: node-type=%d", entry_node->type);
ret = -EINVAL;
goto end;
entry_node->u.field_class_def.field_class_specifier_list,
&entry_node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot add field class found in variant field class: ret=%d",
ret);
goto end;
ret = visit_field_class_alias(ctx, entry_node->u.field_class_alias.target,
entry_node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot add field class alias found in variant field class: ret=%d",
ret);
goto end;
}
break;
default:
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected node type: node-type=%d",
entry_node->type);
ret = -EINVAL;
/* For named struct (without body), lookup in declaration scope */
if (!has_body) {
if (!name) {
- BT_LOGE_STR("Bodyless structure field class: missing name.");
+ BT_COMP_LOGE_STR("Bodyless structure field class: missing name.");
ret = -EPERM;
goto error;
}
- *struct_decl = ctx_decl_scope_lookup_struct(ctx->current_scope,
+ *struct_decl = ctx_decl_scope_lookup_struct(ctx, ctx->current_scope,
name, -1, true);
if (!*struct_decl) {
- BT_LOGE("Cannot find structure field class: name=\"struct %s\"",
+ BT_COMP_LOGE("Cannot find structure field class: name=\"struct %s\"",
name);
ret = -EINVAL;
goto error;
uint64_t min_align_value = 0;
if (name) {
- if (ctx_decl_scope_lookup_struct(
+ if (ctx_decl_scope_lookup_struct(ctx,
ctx->current_scope, name, 1, false)) {
- BT_LOGE("Structure field class already declared in local scope: "
+ BT_COMP_LOGE("Structure field class already declared in local scope: "
"name=\"struct %s\"", name);
ret = -EINVAL;
goto error;
}
if (!bt_list_empty(min_align)) {
- ret = get_unary_unsigned(min_align, &min_align_value);
+ ret = get_unary_unsigned(ctx, min_align,
+ &min_align_value);
if (ret) {
- BT_LOGE("Unexpected unary expression for structure field class's `align` attribute: "
+ BT_COMP_LOGE("Unexpected unary expression for structure field class's `align` attribute: "
"ret=%d", ret);
goto error;
}
ret = visit_struct_decl_entry(ctx, entry_node,
*struct_decl);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot visit structure field class entry: "
"ret=%d", ret);
ctx_pop_scope(ctx);
ctx_pop_scope(ctx);
if (name) {
- ret = ctx_decl_scope_register_struct(ctx->current_scope,
- name, *struct_decl);
+ ret = ctx_decl_scope_register_struct(ctx,
+ ctx->current_scope, name, *struct_decl);
if (ret) {
- BT_LOGE("Cannot register structure field class in declaration scope: "
+ BT_COMP_LOGE("Cannot register structure field class in declaration scope: "
"name=\"struct %s\", ret=%d", name, ret);
goto error;
}
/* For named variant (without body), lookup in declaration scope */
if (!has_body) {
if (!name) {
- BT_LOGE_STR("Bodyless variant field class: missing name.");
+ BT_COMP_LOGE_STR("Bodyless variant field class: missing name.");
ret = -EPERM;
goto error;
}
untagged_variant_decl =
- ctx_decl_scope_lookup_variant(ctx->current_scope,
+ ctx_decl_scope_lookup_variant(ctx, ctx->current_scope,
name, -1, true);
if (!untagged_variant_decl) {
- BT_LOGE("Cannot find variant field class: name=\"variant %s\"",
+ BT_COMP_LOGE("Cannot find variant field class: name=\"variant %s\"",
name);
ret = -EINVAL;
goto error;
struct ctf_node *entry_node;
if (name) {
- if (ctx_decl_scope_lookup_variant(ctx->current_scope,
- name, 1, false)) {
- BT_LOGE("Variant field class already declared in local scope: "
+ if (ctx_decl_scope_lookup_variant(ctx,
+ ctx->current_scope, name, 1, false)) {
+ BT_COMP_LOGE("Variant field class already declared in local scope: "
"name=\"variant %s\"", name);
ret = -EINVAL;
goto error;
ret = visit_variant_decl_entry(ctx, entry_node,
untagged_variant_decl);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot visit variant field class entry: "
"ret=%d", ret);
ctx_pop_scope(ctx);
ctx_pop_scope(ctx);
if (name) {
- ret = ctx_decl_scope_register_variant(
+ ret = ctx_decl_scope_register_variant(ctx,
ctx->current_scope, name,
untagged_variant_decl);
if (ret) {
- BT_LOGE("Cannot register variant field class in declaration scope: "
+ BT_COMP_LOGE("Cannot register variant field class in declaration scope: "
"name=\"variant %s\", ret=%d", name, ret);
goto error;
}
* else owns it. Set its tag now.
*/
char *tag_no_underscore =
- remove_underscores_from_field_ref(tag);
+ remove_underscores_from_field_ref(ctx, tag);
if (!tag_no_underscore) {
/* remove_underscores_from_field_ref() logs errors */
struct uori *target;
if (iter->type != NODE_UNARY_EXPRESSION) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Wrong expression for enumeration field class label: "
"node-type=%d, label=\"%s\"", iter->type,
label);
iter->u.unary_expression.u.unsigned_constant;
break;
default:
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Invalid enumeration field class entry: "
"expecting constant signed or unsigned integer: "
"node-type=%d, label=\"%s\"",
}
if (nr_vals > 1) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Invalid enumeration field class entry: label=\"%s\"",
label);
ret = -EINVAL;
/* For named enum (without body), lookup in declaration scope */
if (!has_body) {
if (!name) {
- BT_LOGE_STR("Bodyless enumeration field class: missing name.");
+ BT_COMP_LOGE_STR("Bodyless enumeration field class: missing name.");
ret = -EPERM;
goto error;
}
- *enum_decl = ctx_decl_scope_lookup_enum(ctx->current_scope,
+ *enum_decl = ctx_decl_scope_lookup_enum(ctx, ctx->current_scope,
name, -1, true);
if (!*enum_decl) {
- BT_LOGE("Cannot find enumeration field class: "
+ BT_COMP_LOGE("Cannot find enumeration field class: "
"name=\"enum %s\"", name);
ret = -EINVAL;
goto error;
};
if (name) {
- if (ctx_decl_scope_lookup_enum(ctx->current_scope,
+ if (ctx_decl_scope_lookup_enum(ctx, ctx->current_scope,
name, 1, false)) {
- BT_LOGE("Enumeration field class already declared in local scope: "
+ BT_COMP_LOGE("Enumeration field class already declared in local scope: "
"name=\"enum %s\"", name);
ret = -EINVAL;
goto error;
}
if (!container_cls) {
- integer_decl = (void *) ctx_decl_scope_lookup_alias(
+ integer_decl = (void *) ctx_decl_scope_lookup_alias(ctx,
ctx->current_scope, "int", -1, true);
if (!integer_decl) {
- BT_LOGE_STR("Cannot find implicit `int` field class alias for enumeration field class.");
+ BT_COMP_LOGE_STR("Cannot find implicit `int` field class alias for enumeration field class.");
ret = -EINVAL;
goto error;
}
BT_ASSERT(integer_decl);
if (integer_decl->base.base.type != CTF_FIELD_CLASS_TYPE_INT) {
- BT_LOGE("Container field class for enumeration field class is not an integer field class: "
+ BT_COMP_LOGE("Container field class for enumeration field class is not an integer field class: "
"fc-type=%d", integer_decl->base.base.type);
ret = -EINVAL;
goto error;
ret = visit_enum_decl_entry(ctx, iter, *enum_decl,
&last_value);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit enumeration field class entry: "
"ret=%d", ret);
goto error;
}
if (name) {
- ret = ctx_decl_scope_register_enum(ctx->current_scope,
- name, *enum_decl);
+ ret = ctx_decl_scope_register_enum(ctx,
+ ctx->current_scope, name, *enum_decl);
if (ret) {
- BT_LOGE("Cannot register enumeration field class in declaration scope: "
+ BT_COMP_LOGE("Cannot register enumeration field class in declaration scope: "
"ret=%d", ret);
goto error;
}
str = g_string_new("");
ret = get_class_specifier_list_name(ctx, cls_specifier_list, str);
if (ret) {
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Cannot get field class specifier list's name: ret=%d", ret);
goto error;
}
- *decl = ctx_decl_scope_lookup_alias(ctx->current_scope, str->str, -1,
- true);
+ *decl = ctx_decl_scope_lookup_alias(ctx, ctx->current_scope, str->str,
+ -1, true);
if (!*decl) {
- _BT_LOGE_NODE(cls_specifier_list,
+ _BT_COMP_LOGE_NODE(cls_specifier_list,
"Cannot find field class alias: name=\"%s\"", str->str);
ret = -EINVAL;
goto error;
siblings);
if (left->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(left,
+ _BT_COMP_LOGE_NODE(left,
"Unexpected unary expression type: type=%d",
left->u.unary_expression.type);
ret = -EINVAL;
if (!strcmp(left->u.unary_expression.u.string, "signed")) {
if (_IS_SET(&set, _INTEGER_SIGNED_SET)) {
- _BT_LOGE_DUP_ATTR(left, "signed",
+ _BT_COMP_LOGE_DUP_ATTR(left, "signed",
"integer field class");
ret = -EPERM;
goto error;
}
- signedness = get_boolean(right);
+ signedness = get_boolean(ctx, right);
if (signedness < 0) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid boolean value for integer field class's `signed` attribute: "
"ret=%d", ret);
ret = -EINVAL;
} else if (!strcmp(left->u.unary_expression.u.string,
"byte_order")) {
if (_IS_SET(&set, _INTEGER_BYTE_ORDER_SET)) {
- _BT_LOGE_DUP_ATTR(left, "byte_order",
+ _BT_COMP_LOGE_DUP_ATTR(left, "byte_order",
"integer field class");
ret = -EPERM;
goto error;
byte_order = get_real_byte_order(ctx, right);
if (byte_order == -1) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `byte_order` attribute in integer field class: "
"ret=%d", ret);
ret = -EINVAL;
_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(left, "size",
+ _BT_COMP_LOGE_DUP_ATTR(left, "size",
"integer field class");
ret = -EPERM;
goto error;
if (right->u.unary_expression.type !=
UNARY_UNSIGNED_CONSTANT) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `size` attribute in integer field class: "
"expecting unsigned constant integer: "
"node-type=%d",
size = right->u.unary_expression.u.unsigned_constant;
if (size == 0) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `size` attribute in integer field class: "
"expecting positive constant integer: "
"size=%" PRIu64, size);
ret = -EINVAL;
goto error;
} else if (size > 64) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `size` attribute in integer field class: "
"integer fields over 64 bits are not supported as of this version: "
"size=%" PRIu64, size);
} else if (!strcmp(left->u.unary_expression.u.string,
"align")) {
if (_IS_SET(&set, _INTEGER_ALIGN_SET)) {
- _BT_LOGE_DUP_ATTR(left, "align",
+ _BT_COMP_LOGE_DUP_ATTR(left, "align",
"integer field class");
ret = -EPERM;
goto error;
if (right->u.unary_expression.type !=
UNARY_UNSIGNED_CONSTANT) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `align` attribute in integer field class: "
"expecting unsigned constant integer: "
"node-type=%d",
alignment =
right->u.unary_expression.u.unsigned_constant;
if (!is_align_valid(alignment)) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `align` attribute in integer field class: "
"expecting power of two: "
"align=%" PRIu64, alignment);
_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(left, "base",
+ _BT_COMP_LOGE_DUP_ATTR(left, "base",
"integer field class");
ret = -EPERM;
goto error;
base = BT_FIELD_CLASS_INTEGER_PREFERRED_DISPLAY_BASE_HEXADECIMAL;
break;
default:
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `base` attribute in integer field class: "
"base=%" PRIu64,
right->u.unary_expression.u.unsigned_constant);
char *s_right = concatenate_unary_strings(
&expression->u.ctf_expression.right);
if (!s_right) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Unexpected unary expression for integer field class's `base` attribute.");
ret = -EINVAL;
goto error;
!strcmp(s_right, "b")) {
base = BT_FIELD_CLASS_INTEGER_PREFERRED_DISPLAY_BASE_BINARY;
} else {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Unexpected unary expression for integer field class's `base` attribute: "
"base=\"%s\"", s_right);
g_free(s_right);
break;
}
default:
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `base` attribute in integer field class: "
"expecting unsigned constant integer or unary string.");
ret = -EINVAL;
char *s_right;
if (_IS_SET(&set, _INTEGER_ENCODING_SET)) {
- _BT_LOGE_DUP_ATTR(left, "encoding",
+ _BT_COMP_LOGE_DUP_ATTR(left, "encoding",
"integer field class");
ret = -EPERM;
goto error;
}
if (right->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `encoding` attribute in integer field class: "
"expecting unary string.");
ret = -EINVAL;
s_right = concatenate_unary_strings(
&expression->u.ctf_expression.right);
if (!s_right) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Unexpected unary expression for integer field class's `encoding` attribute.");
ret = -EINVAL;
goto error;
} else if (!strcmp(s_right, "none")) {
encoding = CTF_ENCODING_NONE;
} else {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `encoding` attribute in integer field class: "
"unknown encoding: encoding=\"%s\"",
s_right);
const char *clock_name;
if (_IS_SET(&set, _INTEGER_MAP_SET)) {
- _BT_LOGE_DUP_ATTR(left, "map",
+ _BT_COMP_LOGE_DUP_ATTR(left, "map",
"integer field class");
ret = -EPERM;
goto error;
}
if (right->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `map` attribute in integer field class: "
"expecting unary string.");
ret = -EINVAL;
&expression->u.ctf_expression.right);
if (!s_right) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Unexpected unary expression for integer field class's `map` attribute.");
ret = -EINVAL;
goto error;
}
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `map` attribute in integer field class: "
"cannot find clock class at this point: name=\"%s\"",
s_right);
ctf_trace_class_borrow_clock_class_by_name(
ctx->ctf_tc, clock_name);
if (!mapped_clock_class) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `map` attribute in integer field class: "
"cannot find clock class at this point: name=\"%s\"",
clock_name);
_SET(&set, _INTEGER_MAP_SET);
} else {
- _BT_LOGW_NODE(left,
+ _BT_COMP_LOGW_NODE(left,
"Unknown attribute in integer field class: "
"attr-name=\"%s\"",
left->u.unary_expression.u.string);
}
if (!_IS_SET(&set, _INTEGER_SIZE_SET)) {
- BT_LOGE_STR("Missing `size` attribute in integer field class.");
+ BT_COMP_LOGE_STR("Missing `size` attribute in integer field class.");
ret = -EPERM;
goto error;
}
siblings);
if (left->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(left,
+ _BT_COMP_LOGE_NODE(left,
"Unexpected unary expression type: type=%d",
left->u.unary_expression.type);
ret = -EINVAL;
if (!strcmp(left->u.unary_expression.u.string, "byte_order")) {
if (_IS_SET(&set, _FLOAT_BYTE_ORDER_SET)) {
- _BT_LOGE_DUP_ATTR(left, "byte_order",
+ _BT_COMP_LOGE_DUP_ATTR(left, "byte_order",
"floating point number field class");
ret = -EPERM;
goto error;
byte_order = get_real_byte_order(ctx, right);
if (byte_order == -1) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `byte_order` attribute in floating point number field class: "
"ret=%d", ret);
ret = -EINVAL;
} else if (!strcmp(left->u.unary_expression.u.string,
"exp_dig")) {
if (_IS_SET(&set, _FLOAT_EXP_DIG_SET)) {
- _BT_LOGE_DUP_ATTR(left, "exp_dig",
+ _BT_COMP_LOGE_DUP_ATTR(left, "exp_dig",
"floating point number field class");
ret = -EPERM;
goto error;
if (right->u.unary_expression.type !=
UNARY_UNSIGNED_CONSTANT) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `exp_dig` attribute in floating point number field class: "
"expecting unsigned constant integer: "
"node-type=%d",
} else if (!strcmp(left->u.unary_expression.u.string,
"mant_dig")) {
if (_IS_SET(&set, _FLOAT_MANT_DIG_SET)) {
- _BT_LOGE_DUP_ATTR(left, "mant_dig",
+ _BT_COMP_LOGE_DUP_ATTR(left, "mant_dig",
"floating point number field class");
ret = -EPERM;
goto error;
if (right->u.unary_expression.type !=
UNARY_UNSIGNED_CONSTANT) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `mant_dig` attribute in floating point number field class: "
"expecting unsigned constant integer: "
"node-type=%d",
} else if (!strcmp(left->u.unary_expression.u.string,
"align")) {
if (_IS_SET(&set, _FLOAT_ALIGN_SET)) {
- _BT_LOGE_DUP_ATTR(left, "align",
+ _BT_COMP_LOGE_DUP_ATTR(left, "align",
"floating point number field class");
ret = -EPERM;
goto error;
if (right->u.unary_expression.type !=
UNARY_UNSIGNED_CONSTANT) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `align` attribute in floating point number field class: "
"expecting unsigned constant integer: "
"node-type=%d",
unsigned_constant;
if (!is_align_valid(alignment)) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `align` attribute in floating point number field class: "
"expecting power of two: "
"align=%" PRIu64, alignment);
_SET(&set, _FLOAT_ALIGN_SET);
} else {
- _BT_LOGW_NODE(left,
+ _BT_COMP_LOGW_NODE(left,
"Unknown attribute in floating point number field class: "
"attr-name=\"%s\"",
left->u.unary_expression.u.string);
}
if (!_IS_SET(&set, _FLOAT_MANT_DIG_SET)) {
- BT_LOGE_STR("Missing `mant_dig` attribute in floating point number field class.");
+ BT_COMP_LOGE_STR("Missing `mant_dig` attribute in floating point number field class.");
ret = -EPERM;
goto error;
}
if (!_IS_SET(&set, _FLOAT_EXP_DIG_SET)) {
- BT_LOGE_STR("Missing `exp_dig` attribute in floating point number field class.");
+ BT_COMP_LOGE_STR("Missing `exp_dig` attribute in floating point number field class.");
ret = -EPERM;
goto error;
}
if (mant_dig != 24 && mant_dig != 53) {
- BT_LOGE_STR("`mant_dig` attribute: expecting 24 or 53.");
+ BT_COMP_LOGE_STR("`mant_dig` attribute: expecting 24 or 53.");
ret = -EPERM;
goto error;
}
if (mant_dig == 24 && exp_dig != 8) {
- BT_LOGE_STR("`exp_dig` attribute: expecting 8 because `mant_dig` is 24.");
+ BT_COMP_LOGE_STR("`exp_dig` attribute: expecting 8 because `mant_dig` is 24.");
ret = -EPERM;
goto error;
}
if (mant_dig == 53 && exp_dig != 11) {
- BT_LOGE_STR("`exp_dig` attribute: expecting 11 because `mant_dig` is 53.");
+ BT_COMP_LOGE_STR("`exp_dig` attribute: expecting 11 because `mant_dig` is 53.");
ret = -EPERM;
goto error;
}
siblings);
if (left->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(left,
+ _BT_COMP_LOGE_NODE(left,
"Unexpected unary expression type: type=%d",
left->u.unary_expression.type);
ret = -EINVAL;
char *s_right;
if (_IS_SET(&set, _STRING_ENCODING_SET)) {
- _BT_LOGE_DUP_ATTR(left, "encoding",
+ _BT_COMP_LOGE_DUP_ATTR(left, "encoding",
"string field class");
ret = -EPERM;
goto error;
}
if (right->u.unary_expression.type != UNARY_STRING) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `encoding` attribute in string field class: "
"expecting unary string.");
ret = -EINVAL;
s_right = concatenate_unary_strings(
&expression->u.ctf_expression.right);
if (!s_right) {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Unexpected unary expression for string field class's `encoding` attribute.");
ret = -EINVAL;
goto error;
} else if (!strcmp(s_right, "none")) {
encoding = CTF_ENCODING_NONE;
} else {
- _BT_LOGE_NODE(right,
+ _BT_COMP_LOGE_NODE(right,
"Invalid `encoding` attribute in string field class: "
"unknown encoding: encoding=\"%s\"",
s_right);
g_free(s_right);
_SET(&set, _STRING_ENCODING_SET);
} else {
- _BT_LOGW_NODE(left,
+ _BT_COMP_LOGW_NODE(left,
"Unknown attribute in string field class: "
"attr-name=\"%s\"",
left->u.unary_expression.u.string);
*decl = NULL;
if (ts_list->type != NODE_TYPE_SPECIFIER_LIST) {
- _BT_LOGE_NODE(ts_list,
+ _BT_COMP_LOGE_NODE(ts_list,
"Unexpected node type: node-type=%d", ts_list->type);
ret = -EINVAL;
goto error;
first = _BT_LIST_FIRST_ENTRY(&ts_list->u.field_class_specifier_list.head,
struct ctf_node, siblings);
if (first->type != NODE_TYPE_SPECIFIER) {
- _BT_LOGE_NODE(first,
+ _BT_COMP_LOGE_NODE(first,
"Unexpected node type: node-type=%d", first->type);
ret = -EINVAL;
goto error;
case TYPESPEC_ID_TYPE:
ret = visit_field_class_specifier(ctx, ts_list, decl);
if (ret) {
- _BT_LOGE_NODE(first,
+ _BT_COMP_LOGE_NODE(first,
"Cannot visit field class specifier: ret=%d",
ret);
BT_ASSERT(!*decl);
}
break;
default:
- _BT_LOGE_NODE(first,
+ _BT_COMP_LOGE_NODE(first,
"Unexpected field class specifier type: node-type=%d",
first->u.field_class_specifier.type);
ret = -EINVAL;
ret = visit_field_class_def(ctx, node->u.field_class_def.field_class_specifier_list,
&node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class found in event class.");
goto error;
}
ret = visit_field_class_alias(ctx, node->u.field_class_alias.target,
node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class alias found in event class.");
goto error;
}
{
left = concatenate_unary_strings(&node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(node, "Cannot concatenate unary strings.");
+ _BT_COMP_LOGE_NODE(node, "Cannot concatenate unary strings.");
ret = -EINVAL;
goto error;
}
if (!strcmp(left, "name")) {
/* This is already known at this stage */
if (_IS_SET(set, _EVENT_NAME_SET)) {
- _BT_LOGE_DUP_ATTR(node, "name", "event class");
+ _BT_COMP_LOGE_DUP_ATTR(node, "name", "event class");
ret = -EPERM;
goto error;
}
int64_t id = -1;
if (_IS_SET(set, _EVENT_ID_SET)) {
- _BT_LOGE_DUP_ATTR(node, "id", "event class");
+ _BT_COMP_LOGE_DUP_ATTR(node, "id", "event class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right,
(uint64_t *) &id);
/* Only read "id" if get_unary_unsigned() succeeded. */
if (ret || (!ret && id < 0)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for event class's `id` attribute.");
ret = -EINVAL;
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(node, "stream_id",
+ _BT_COMP_LOGE_DUP_ATTR(node, "stream_id",
"event class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
- stream_id);
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right, stream_id);
/*
* Only read "stream_id" if get_unary_unsigned()
* succeeded.
*/
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for event class's `stream_id` attribute.");
ret = -EINVAL;
goto error;
_SET(set, _EVENT_STREAM_ID_SET);
} else if (!strcmp(left, "context")) {
if (_IS_SET(set, _EVENT_CONTEXT_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `context` entry in event class.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&event_class->spec_context_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create event class's context field class.");
goto error;
}
_SET(set, _EVENT_CONTEXT_SET);
} else if (!strcmp(left, "fields")) {
if (_IS_SET(set, _EVENT_FIELDS_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `fields` entry in event class.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&event_class->payload_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create event class's payload field class.");
goto error;
}
bt_event_class_log_level log_level = -1;
if (_IS_SET(set, _EVENT_LOG_LEVEL_SET)) {
- _BT_LOGE_DUP_ATTR(node, "loglevel",
+ _BT_COMP_LOGE_DUP_ATTR(node, "loglevel",
"event class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
- &loglevel_value);
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right, &loglevel_value);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for event class's `loglevel` attribute.");
ret = -EINVAL;
goto error;
log_level = BT_EVENT_CLASS_LOG_LEVEL_DEBUG;
break;
default:
- _BT_LOGW_NODE(node, "Not setting event class's log level because its value is unknown: "
+ _BT_COMP_LOGW_NODE(node, "Not setting event class's log level because its value is unknown: "
"log-level=%" PRIu64, loglevel_value);
}
char *right;
if (_IS_SET(set, _EVENT_MODEL_EMF_URI_SET)) {
- _BT_LOGE_DUP_ATTR(node, "model.emf.uri",
+ _BT_COMP_LOGE_DUP_ATTR(node, "model.emf.uri",
"event class");
ret = -EPERM;
goto error;
right = concatenate_unary_strings(
&node->u.ctf_expression.right);
if (!right) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for event class's `model.emf.uri` attribute.");
ret = -EINVAL;
goto error;
}
if (strlen(right) == 0) {
- _BT_LOGW_NODE(node,
+ _BT_COMP_LOGW_NODE(node,
"Not setting event class's EMF URI because it's empty.");
} else {
g_string_assign(event_class->emf_uri,
g_free(right);
_SET(set, _EVENT_MODEL_EMF_URI_SET);
} else {
- _BT_LOGW_NODE(node,
+ _BT_COMP_LOGW_NODE(node,
"Unknown attribute in event class: "
"attr-name=\"%s\"", left);
}
left = concatenate_unary_strings(&iter->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot concatenate unary strings.");
goto error;
}
name = concatenate_unary_strings(
&iter->u.ctf_expression.right);
if (!name) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Unexpected unary expression for event class's `name` attribute.");
goto error;
}
node->visited = TRUE;
event_name = get_event_decl_name(ctx, node);
if (!event_name) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `name` attribute in event class.");
ret = -EPERM;
goto error;
ret = visit_event_decl_entry(ctx, iter, event_class,
&stream_id, &set);
if (ret) {
- _BT_LOGE_NODE(iter, "Cannot visit event class's entry: "
+ _BT_COMP_LOGE_NODE(iter, "Cannot visit event class's entry: "
"ret=%d", ret);
goto error;
}
stream_id = stream_class->id;
break;
default:
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `stream_id` attribute in event class.");
ret = -EPERM;
goto error;
stream_class = ctf_trace_class_borrow_stream_class_by_id(
ctx->ctf_tc, stream_id);
if (!stream_class) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot find stream class at this point: "
"id=%" PRId64, stream_id);
ret = -EINVAL;
if (!_IS_SET(&set, _EVENT_ID_SET)) {
/* Allow only one event without ID per stream */
if (stream_class->event_classes->len != 0) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `id` attribute in event class.");
ret = -EPERM;
goto error;
if (ctf_stream_class_borrow_event_class_by_id(stream_class,
event_class->id)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate event class (same ID) in the same stream class: "
"id=%" PRId64, event_class->id);
ret = -EEXIST;
* Timestamp field not mapped to a clock class and there's more
* than one clock class in the trace: this is an error.
*/
- BT_LOGE_STR("Timestamp field found with no mapped clock class, "
+ BT_COMP_LOGE_STR("Timestamp field found with no mapped clock class, "
"but there's more than one clock class in the trace at this point.");
ret = -1;
goto end;
ret = auto_map_field_to_trace_clock_class(ctx,
named_fc->fc);
if (ret) {
- BT_LOGE("Cannot automatically map field to trace's clock class: "
+ BT_COMP_LOGE("Cannot automatically map field to trace's clock class: "
"field-name=\"%s\"", field_name);
goto end;
}
ret = auto_map_fields_to_trace_clock_class(ctx, named_fc->fc,
field_name);
if (ret) {
- BT_LOGE("Cannot automatically map structure or variant field class's fields to trace's clock class: "
+ BT_COMP_LOGE("Cannot automatically map structure or variant field class's fields to trace's clock class: "
"field-name=\"%s\", root-field-name=\"%s\"",
field_name, named_fc->name->str);
goto end;
ret = visit_field_class_def(ctx, node->u.field_class_def.field_class_specifier_list,
&node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class found in stream class.");
goto error;
}
ret = visit_field_class_alias(ctx, node->u.field_class_alias.target,
node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class alias found in stream class.");
goto error;
}
{
left = concatenate_unary_strings(&node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(node, "Cannot concatenate unary strings.");
+ _BT_COMP_LOGE_NODE(node, "Cannot concatenate unary strings.");
ret = -EINVAL;
goto error;
}
int64_t id;
if (_IS_SET(set, _STREAM_ID_SET)) {
- _BT_LOGE_DUP_ATTR(node, "id",
+ _BT_COMP_LOGE_DUP_ATTR(node, "id",
"stream declaration");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right,
(uint64_t *) &id);
/* Only read "id" if get_unary_unsigned() succeeded. */
if (ret || (!ret && id < 0)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for stream class's `id` attribute.");
ret = -EINVAL;
goto error;
if (ctf_trace_class_borrow_stream_class_by_id(
ctx->ctf_tc, id)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate stream class (same ID): id=%" PRId64,
id);
ret = -EEXIST;
_SET(set, _STREAM_ID_SET);
} else if (!strcmp(left, "event.header")) {
if (_IS_SET(set, _STREAM_EVENT_HEADER_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `event.header` entry in stream class.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&stream_class->event_header_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create stream class's event header field class.");
goto error;
}
ret = auto_map_fields_to_trace_clock_class(ctx,
stream_class->event_header_fc, "timestamp");
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot automatically map specific event header field class fields named `timestamp` to trace's clock class.");
goto error;
}
_SET(set, _STREAM_EVENT_HEADER_SET);
} else if (!strcmp(left, "event.context")) {
if (_IS_SET(set, _STREAM_EVENT_CONTEXT_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `event.context` entry in stream class.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&stream_class->event_common_context_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create stream class's event context field class.");
goto error;
}
_SET(set, _STREAM_EVENT_CONTEXT_SET);
} else if (!strcmp(left, "packet.context")) {
if (_IS_SET(set, _STREAM_PACKET_CONTEXT_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `packet.context` entry in stream class.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&stream_class->packet_context_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create stream class's packet context field class.");
goto error;
}
stream_class->packet_context_fc,
"timestamp_begin");
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot automatically map specific packet context field class fields named `timestamp_begin` to trace's clock class.");
goto error;
}
stream_class->packet_context_fc,
"timestamp_end");
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot automatically map specific packet context field class fields named `timestamp_end` to trace's clock class.");
goto error;
}
_SET(set, _STREAM_PACKET_CONTEXT_SET);
} else {
- _BT_LOGW_NODE(node,
+ _BT_COMP_LOGW_NODE(node,
"Unknown attribute in stream class: "
"attr-name=\"%s\"", left);
}
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,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit stream class's entry: "
"ret=%d", ret);
ctx_pop_scope(ctx);
struct ctf_named_field_class *named_fc = NULL;
if (!ctx->ctf_tc->packet_header_fc) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Stream class has a `id` attribute, "
"but trace has no packet header field class.");
goto error;
named_fc = ctf_field_class_struct_borrow_member_by_name(
(void *) ctx->ctf_tc->packet_header_fc, "stream_id");
if (!named_fc) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Stream class has a `id` attribute, "
"but trace's packet header field class has no `stream_id` field.");
goto error;
if (named_fc->fc->type != CTF_FIELD_CLASS_TYPE_INT &&
named_fc->fc->type != CTF_FIELD_CLASS_TYPE_ENUM) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Stream class has a `id` attribute, "
"but trace's packet header field class's `stream_id` field is not an integer field class.");
goto error;
} else {
/* Allow only _one_ ID-less stream */
if (ctx->ctf_tc->stream_classes->len != 0) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `id` attribute in stream class as there's more than one stream class in the trace.");
ret = -EPERM;
goto error;
*/
if (ctf_trace_class_borrow_stream_class_by_id(ctx->ctf_tc,
stream_class->id)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate stream class (same ID): id=%" PRId64,
stream_class->id);
ret = -EINVAL;
ret = visit_field_class_def(ctx, node->u.field_class_def.field_class_specifier_list,
&node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class found in trace (`trace` block).");
goto error;
}
ret = visit_field_class_alias(ctx, node->u.field_class_alias.target,
node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot add field class alias found in trace (`trace` block).");
goto error;
}
{
left = concatenate_unary_strings(&node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(node, "Cannot concatenate unary strings.");
+ _BT_COMP_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(node, "major", "trace");
+ _BT_COMP_LOGE_DUP_ATTR(node, "major", "trace");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
- &val);
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right, &val);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for trace's `major` attribute.");
ret = -EINVAL;
goto error;
}
if (val != 1) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Invalid trace's `minor` attribute: expecting 1.");
goto error;
}
_SET(set, _TRACE_MAJOR_SET);
} else if (!strcmp(left, "minor")) {
if (_IS_SET(set, _TRACE_MINOR_SET)) {
- _BT_LOGE_DUP_ATTR(node, "minor", "trace");
+ _BT_COMP_LOGE_DUP_ATTR(node, "minor", "trace");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(&node->u.ctf_expression.right,
- &val);
+ ret = get_unary_unsigned(ctx,
+ &node->u.ctf_expression.right, &val);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected unary expression for trace's `minor` attribute.");
ret = -EINVAL;
goto error;
}
if (val != 8) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Invalid trace's `minor` attribute: expecting 8.");
goto error;
}
_SET(set, _TRACE_MINOR_SET);
} else if (!strcmp(left, "uuid")) {
if (_IS_SET(set, _TRACE_UUID_SET)) {
- _BT_LOGE_DUP_ATTR(node, "uuid", "trace");
+ _BT_COMP_LOGE_DUP_ATTR(node, "uuid", "trace");
ret = -EPERM;
goto error;
}
- ret = get_unary_uuid(&node->u.ctf_expression.right,
+ ret = get_unary_uuid(ctx,
+ &node->u.ctf_expression.right,
ctx->ctf_tc->uuid);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Invalid trace's `uuid` attribute.");
goto error;
}
} else if (!strcmp(left, "byte_order")) {
/* Default byte order is already known at this stage */
if (_IS_SET(set, _TRACE_BYTE_ORDER_SET)) {
- _BT_LOGE_DUP_ATTR(node, "byte_order",
+ _BT_COMP_LOGE_DUP_ATTR(node, "byte_order",
"trace");
ret = -EPERM;
goto error;
_SET(set, _TRACE_BYTE_ORDER_SET);
} else if (!strcmp(left, "packet.header")) {
if (_IS_SET(set, _TRACE_PACKET_HEADER_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate `packet.header` entry in trace.");
ret = -EPERM;
goto error;
struct ctf_node, siblings),
&ctx->ctf_tc->packet_header_fc);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot create trace's packet header field class.");
goto error;
}
BT_ASSERT(ctx->ctf_tc->packet_header_fc);
_SET(set, _TRACE_PACKET_HEADER_SET);
} else {
- _BT_LOGW_NODE(node,
+ _BT_COMP_LOGW_NODE(node,
"Unknown attribute in stream class: "
"attr-name=\"%s\"", left);
}
break;
}
default:
- _BT_LOGE_NODE(node, "Unknown expression in trace.");
+ _BT_COMP_LOGE_NODE(node, "Unknown expression in trace.");
ret = -EINVAL;
goto error;
}
node->visited = TRUE;
if (ctx->is_trace_visited) {
- _BT_LOGE_NODE(node, "Duplicate trace (`trace` block).");
+ _BT_COMP_LOGE_NODE(node, "Duplicate trace (`trace` block).");
ret = -EEXIST;
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): "
+ _BT_COMP_LOGE_NODE(iter, "Cannot visit trace's entry (`trace` block): "
"ret=%d", ret);
ctx_pop_scope(ctx);
goto error;
ctx_pop_scope(ctx);
if (!_IS_SET(&set, _TRACE_MAJOR_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `major` attribute in trace (`trace` block).");
ret = -EPERM;
goto error;
}
if (!_IS_SET(&set, _TRACE_MINOR_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `minor` attribute in trace (`trace` block).");
ret = -EPERM;
goto error;
}
if (!_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Missing `byte_order` attribute in trace (`trace` block).");
ret = -EPERM;
goto error;
&entry_node->u.ctf_expression.right;
if (entry_node->type != NODE_CTF_EXPRESSION) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Wrong expression in environment entry: "
"node-type=%d", entry_node->type);
ret = -EPERM;
left = concatenate_unary_strings(
&entry_node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot get environment entry's name.");
ret = -EINVAL;
goto error;
char *right = concatenate_unary_strings(right_head);
if (!right) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for environment entry's value: "
"name=\"%s\"", left);
ret = -EINVAL;
if (strcmp(left, "tracer_name") == 0) {
if (strncmp(right, "lttng", 5) == 0) {
- BT_LOGI("Detected LTTng trace from `%s` environment value: "
+ BT_COMP_LOGI("Detected LTTng trace from `%s` environment value: "
"tracer-name=\"%s\"",
left, right);
ctx->is_lttng = true;
int64_t v;
if (is_unary_unsigned(right_head)) {
- ret = get_unary_unsigned(right_head,
+ ret = get_unary_unsigned(ctx, right_head,
(uint64_t *) &v);
} else {
ret = get_unary_signed(right_head, &v);
}
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for environment entry's value: "
"name=\"%s\"", left);
ret = -EINVAL;
left, CTF_TRACE_CLASS_ENV_ENTRY_TYPE_INT,
NULL, v);
} else {
- _BT_LOGW_NODE(entry_node,
+ _BT_COMP_LOGW_NODE(entry_node,
"Environment entry has unknown type: "
"name=\"%s\"", left);
}
left = concatenate_unary_strings(
&node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot concatenate unary strings.");
ret = -EINVAL;
goto error;
enum ctf_byte_order bo;
if (_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) {
- _BT_LOGE_DUP_ATTR(node, "byte_order",
+ _BT_COMP_LOGE_DUP_ATTR(node, "byte_order",
"trace");
ret = -EPERM;
goto error;
right_node = _BT_LIST_FIRST_ENTRY(
&node->u.ctf_expression.right,
struct ctf_node, siblings);
- bo = byte_order_from_unary_expr(right_node);
+ bo = byte_order_from_unary_expr(ctx,
+ right_node);
if (bo == -1) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Invalid `byte_order` attribute in trace (`trace` block): "
"expecting `le`, `be`, or `network`.");
ret = -EINVAL;
goto error;
} else if (bo == CTF_BYTE_ORDER_DEFAULT) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Invalid `byte_order` attribute in trace (`trace` block): "
"cannot be set to `native` here.");
ret = -EPERM;
}
if (!_IS_SET(&set, _TRACE_BYTE_ORDER_SET)) {
- _BT_LOGE_NODE(trace_node,
+ _BT_COMP_LOGE_NODE(trace_node,
"Missing `byte_order` attribute in trace (`trace` block).");
ret = -EINVAL;
goto error;
char *left = NULL;
if (entry_node->type != NODE_CTF_EXPRESSION) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected node type: node-type=%d",
entry_node->type);
ret = -EPERM;
left = concatenate_unary_strings(&entry_node->u.ctf_expression.left);
if (!left) {
- _BT_LOGE_NODE(entry_node, "Cannot concatenate unary strings.");
+ _BT_COMP_LOGE_NODE(entry_node, "Cannot concatenate unary strings.");
ret = -EINVAL;
goto error;
}
char *right;
if (_IS_SET(set, _CLOCK_NAME_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "name", "clock class");
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "name", "clock class");
ret = -EPERM;
goto error;
}
right = concatenate_unary_strings(
&entry_node->u.ctf_expression.right);
if (!right) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `name` attribute.");
ret = -EINVAL;
goto error;
uint8_t uuid[BABELTRACE_UUID_LEN];
if (_IS_SET(set, _CLOCK_UUID_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "uuid", "clock class");
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "uuid", "clock class");
ret = -EPERM;
goto error;
}
- ret = get_unary_uuid(&entry_node->u.ctf_expression.right, uuid);
+ ret = get_unary_uuid(ctx, &entry_node->u.ctf_expression.right,
+ uuid);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Invalid clock class's `uuid` attribute.");
goto error;
}
char *right;
if (_IS_SET(set, _CLOCK_DESCRIPTION_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "description",
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "description",
"clock class");
ret = -EPERM;
goto error;
right = concatenate_unary_strings(
&entry_node->u.ctf_expression.right);
if (!right) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `description` attribute.");
ret = -EINVAL;
goto error;
uint64_t freq = UINT64_C(-1);
if (_IS_SET(set, _CLOCK_FREQ_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "freq", "clock class");
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "freq", "clock class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(
+ ret = get_unary_unsigned(ctx,
&entry_node->u.ctf_expression.right, &freq);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `freq` attribute.");
ret = -EINVAL;
goto error;
}
if (freq == UINT64_C(-1) || freq == 0) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Invalid clock class frequency: freq=%" PRIu64,
freq);
ret = -EINVAL;
uint64_t precision;
if (_IS_SET(set, _CLOCK_PRECISION_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "precision",
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "precision",
"clock class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(
+ ret = get_unary_unsigned(ctx,
&entry_node->u.ctf_expression.right, &precision);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `precision` attribute.");
ret = -EINVAL;
goto error;
_SET(set, _CLOCK_PRECISION_SET);
} else if (!strcmp(left, "offset_s")) {
if (_IS_SET(set, _CLOCK_OFFSET_S_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "offset_s",
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "offset_s",
"clock class");
ret = -EPERM;
goto error;
ret = get_unary_signed(
&entry_node->u.ctf_expression.right, offset_seconds);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `offset_s` attribute.");
ret = -EINVAL;
goto error;
_SET(set, _CLOCK_OFFSET_S_SET);
} else if (!strcmp(left, "offset")) {
if (_IS_SET(set, _CLOCK_OFFSET_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "offset", "clock class");
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "offset", "clock class");
ret = -EPERM;
goto error;
}
- ret = get_unary_unsigned(
+ ret = get_unary_unsigned(ctx,
&entry_node->u.ctf_expression.right, offset_cycles);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `offset` attribute.");
ret = -EINVAL;
goto error;
struct ctf_node *right;
if (_IS_SET(set, _CLOCK_ABSOLUTE_SET)) {
- _BT_LOGE_DUP_ATTR(entry_node, "absolute",
+ _BT_COMP_LOGE_DUP_ATTR(entry_node, "absolute",
"clock class");
ret = -EPERM;
goto error;
right = _BT_LIST_FIRST_ENTRY(
&entry_node->u.ctf_expression.right,
struct ctf_node, siblings);
- ret = get_boolean(right);
+ ret = get_boolean(ctx, right);
if (ret < 0) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Unexpected unary expression for clock class's `absolute` attribute.");
ret = -EINVAL;
goto error;
clock->is_absolute = ret;
_SET(set, _CLOCK_ABSOLUTE_SET);
} else {
- _BT_LOGW_NODE(entry_node,
+ _BT_COMP_LOGW_NODE(entry_node,
"Unknown attribute in clock class: attr-name=\"%s\"",
left);
}
/* CTF 1.8's default frequency for a clock class is 1 GHz */
clock = ctf_clock_class_create();
if (!clock) {
- _BT_LOGE_NODE(clock_node,
+ _BT_COMP_LOGE_NODE(clock_node,
"Cannot create default clock class.");
ret = -ENOMEM;
goto end;
ret = visit_clock_decl_entry(ctx, entry_node, clock, &set,
&offset_seconds, &offset_cycles);
if (ret) {
- _BT_LOGE_NODE(entry_node,
+ _BT_COMP_LOGE_NODE(entry_node,
"Cannot visit clock class's entry: ret=%d",
ret);
goto end;
}
if (!_IS_SET(&set, _CLOCK_NAME_SET)) {
- _BT_LOGE_NODE(clock_node,
+ _BT_COMP_LOGE_NODE(clock_node,
"Missing `name` attribute in clock class.");
ret = -EPERM;
goto end;
root_decl_node->u.field_class_def.field_class_specifier_list,
&root_decl_node->u.field_class_def.field_class_declarators);
if (ret) {
- _BT_LOGE_NODE(root_decl_node,
+ _BT_COMP_LOGE_NODE(root_decl_node,
"Cannot add field class found in root scope.");
goto end;
}
ret = visit_field_class_alias(ctx, root_decl_node->u.field_class_alias.target,
root_decl_node->u.field_class_alias.alias);
if (ret) {
- _BT_LOGE_NODE(root_decl_node,
+ _BT_COMP_LOGE_NODE(root_decl_node,
"Cannot add field class alias found in root scope.");
goto end;
}
*/
ret = visit_field_class_specifier_list(ctx, root_decl_node, &decl);
if (ret) {
- _BT_LOGE_NODE(root_decl_node,
+ _BT_COMP_LOGE_NODE(root_decl_node,
"Cannot visit root scope's field class: "
"ret=%d", ret);
BT_ASSERT(!decl);
break;
}
default:
- _BT_LOGE_NODE(root_decl_node,
+ _BT_COMP_LOGE_NODE(root_decl_node,
"Unexpected node type: node-type=%d",
root_decl_node->type);
ret = -EPERM;
BT_HIDDEN
struct ctf_visitor_generate_ir *ctf_visitor_generate_ir_create(
- bt_self_component_source *self_comp,
const struct ctf_metadata_decoder_config *decoder_config)
{
struct ctx *ctx = NULL;
/* Create visitor's context */
- ctx = ctx_create(self_comp, decoder_config);
+ ctx = ctx_create(decoder_config);
if (!ctx) {
- BT_LOGE_STR("Cannot create visitor's context.");
+ BT_COMP_LOGE_STR("Cannot create visitor's context.");
goto error;
}
int ret = 0;
struct ctx *ctx = (void *) visitor;
- BT_LOGI_STR("Visiting metadata's AST to generate CTF IR objects.");
+ BT_COMP_LOGI_STR("Visiting metadata's AST to generate CTF IR objects.");
switch (node->type) {
case NODE_ROOT:
if (ctx->ctf_tc->default_byte_order == -1) {
bt_list_for_each_entry(iter, &node->u.root.trace, siblings) {
if (got_trace_decl) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Duplicate trace (`trace` block).");
ret = -1;
goto end;
ret = set_trace_byte_order(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Cannot set trace's native byte order: "
"ret=%d", ret);
goto end;
}
if (!got_trace_decl) {
- BT_LOGD_STR("Incomplete AST: need trace (`trace` block).");
+ BT_COMP_LOGD_STR("Incomplete AST: need trace (`trace` block).");
ret = -EINCOMPLETE;
goto end;
}
bt_list_for_each_entry(iter, &node->u.root.env, siblings) {
ret = visit_env(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit trace's environment (`env` block) entry: "
"ret=%d", ret);
goto end;
bt_list_for_each_entry(iter, &node->u.root.clock, siblings) {
ret = visit_clock_decl(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit clock class: ret=%d",
ret);
goto end;
siblings) {
ret = visit_root_decl(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit root entry: ret=%d",
ret);
goto end;
/* Callsite blocks are not supported */
bt_list_for_each_entry(iter, &node->u.root.callsite, siblings) {
- _BT_LOGW_NODE(iter,
+ _BT_COMP_LOGW_NODE(iter,
"\"callsite\" blocks are not supported as of this version.");
}
bt_list_for_each_entry(iter, &node->u.root.trace, siblings) {
ret = visit_trace_decl(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit trace (`trace` block): "
"ret=%d", ret);
goto end;
bt_list_for_each_entry(iter, &node->u.root.stream, siblings) {
ret = visit_stream_decl(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit stream class: ret=%d",
ret);
goto end;
bt_list_for_each_entry(iter, &node->u.root.event, siblings) {
ret = visit_event_decl(ctx, iter);
if (ret) {
- _BT_LOGE_NODE(iter,
+ _BT_COMP_LOGE_NODE(iter,
"Cannot visit event class: ret=%d",
ret);
goto end;
break;
}
default:
- _BT_LOGE_NODE(node,
+ _BT_COMP_LOGE_NODE(node,
"Unexpected node type: node-type=%d",
node->type);
ret = -EINVAL;
}
/* Update default clock classes */
- ret = ctf_trace_class_update_default_clock_classes(ctx->ctf_tc);
+ ret = ctf_trace_class_update_default_clock_classes(ctx->ctf_tc,
+ &ctx->log_cfg);
if (ret) {
ret = -EINVAL;
goto end;
}
/* Resolve sequence lengths and variant tags */
- ret = ctf_trace_class_resolve_field_classes(ctx->ctf_tc);
+ ret = ctf_trace_class_resolve_field_classes(ctx->ctf_tc, &ctx->log_cfg);
if (ret) {
ret = -EINVAL;
goto end;
}
/* Validate what we have so far */
- ret = ctf_trace_class_validate(ctx->ctf_tc);
+ ret = ctf_trace_class_validate(ctx->ctf_tc, &ctx->log_cfg);
if (ret) {
ret = -EINVAL;
goto end;
* itself in the packet header and in event header field
* classes, warn about it because they are never translated.
*/
- ctf_trace_class_warn_meaningless_header_fields(ctx->ctf_tc);
+ ctf_trace_class_warn_meaningless_header_fields(ctx->ctf_tc,
+ &ctx->log_cfg);
if (ctx->trace_class) {
/* Copy new CTF metadata -> new IR metadata */
- ret = ctf_trace_class_translate(ctx->self_comp,
+ ret = ctf_trace_class_translate(ctx->log_cfg.self_comp,
ctx->trace_class, ctx->ctf_tc);
if (ret) {
ret = -EINVAL;
projects / babeltrace.git / blobdiff