* all copies or substantial portions of the Software.
*/
+#define BT_COMP_LOG_SELF_COMP (ctx->self_comp)
+#define BT_LOG_OUTPUT_LEVEL (ctx->log_level)
#define BT_LOG_TAG "PLUGIN/CTF/META/RESOLVE"
-#include "logging.h"
+#include "plugins/comp-logging.h"
#include <babeltrace2/babeltrace.h>
#include "common/macros.h"
#include <glib.h>
#include "ctf-meta-visitors.h"
+#include "logging.h"
typedef GPtrArray field_class_stack;
* The current context of the resolving engine.
*/
struct resolve_context {
+ bt_logging_level log_level;
+ bt_self_component *self_comp;
struct ctf_trace_class *tc;
struct ctf_stream_class *sc;
struct ctf_event_class *ec;
* Pushes a field class onto a class stack.
*/
static
-int field_class_stack_push(field_class_stack *stack, struct ctf_field_class *fc)
+int field_class_stack_push(field_class_stack *stack, struct ctf_field_class *fc,
+ struct resolve_context *ctx)
{
int ret = 0;
struct field_class_stack_frame *frame = NULL;
if (!stack || !fc) {
- BT_LOGE("Invalid parameter: stack or field class is NULL.");
+ BT_COMP_LOGE("Invalid parameter: stack or field class is NULL.");
ret = -1;
goto end;
}
frame = g_new0(struct field_class_stack_frame, 1);
if (!frame) {
- BT_LOGE_STR("Failed to allocate one field class stack frame.");
+ BT_COMP_LOGE_STR("Failed to allocate one field class stack frame.");
ret = -1;
goto end;
}
- BT_LOGD("Pushing field class on context's stack: "
+ BT_COMP_LOGD("Pushing field class on context's stack: "
"fc-addr=%p, stack-size-before=%u", fc, stack->len);
frame->fc = fc;
g_ptr_array_add(stack, frame);
* Removes the top frame of `stack`.
*/
static
-void field_class_stack_pop(field_class_stack *stack)
+void field_class_stack_pop(field_class_stack *stack,
+ struct resolve_context *ctx)
{
if (!field_class_stack_empty(stack)) {
/*
* This will call the frame's destructor and free it, as
* well as put its contained field class.
*/
- BT_LOGD("Popping context's stack: stack-size-before=%u",
+ BT_COMP_LOGD("Popping context's stack: stack-size-before=%u",
stack->len);
g_ptr_array_set_size(stack, stack->len - 1);
}
* is found to be relative.
*/
static
-enum ctf_scope get_root_scope_from_absolute_pathstr(const char *pathstr)
+enum ctf_scope get_root_scope_from_absolute_pathstr(const char *pathstr,
+ struct resolve_context *ctx)
{
enum ctf_scope scope;
enum ctf_scope ret = -1;
if (strncmp(pathstr, absolute_path_prefixes[scope],
strlen(absolute_path_prefixes[scope]))) {
/* Prefix does not match: try the next one */
- BT_LOGD("Prefix does not match: trying the next one: "
+ BT_COMP_LOGD("Prefix does not match: trying the next one: "
"path=\"%s\", path-prefix=\"%s\", scope=%s",
pathstr, absolute_path_prefixes[scope],
ctf_scope_string(scope));
/* Found it! */
ret = scope;
- BT_LOGD("Found root scope from absolute path: "
+ BT_COMP_LOGD("Found root scope from absolute path: "
"path=\"%s\", scope=%s", pathstr,
ctf_scope_string(scope));
goto end;
* strings.
*/
static
-GList *pathstr_to_ptokens(const char *pathstr)
+GList *pathstr_to_ptokens(const char *pathstr, struct resolve_context *ctx)
{
const char *at = pathstr;
const char *last = at;
if (at == last) {
/* Error: empty token */
- BT_LOGE("Empty path token: path=\"%s\", pos=%u",
+ BT_COMP_LOGE("Empty path token: path=\"%s\", pos=%u",
pathstr, (unsigned int) (at - pathstr));
goto error;
}
*/
static
int ptokens_to_field_path(GList *ptokens, struct ctf_field_path *field_path,
- struct ctf_field_class *fc, int64_t src_index)
+ struct ctf_field_class *fc, int64_t src_index,
+ struct resolve_context *ctx)
{
int ret = 0;
GList *cur_ptoken = ptokens;
struct ctf_field_class *child_fc;
const char *ft_name = ptoken_get_string(cur_ptoken);
- BT_LOGD("Current path token: token=\"%s\"", ft_name);
+ BT_COMP_LOGD("Current path token: token=\"%s\"", ft_name);
/* Find to which index corresponds the current path token */
if (fc->type == CTF_FIELD_CLASS_TYPE_ARRAY ||
* Error: field name does not exist or
* wrong current class.
*/
- BT_LOGD("Cannot get index of field class: "
+ BT_COMP_LOGD("Cannot get index of field class: "
"field-name=\"%s\", "
"src-index=%" PRId64 ", "
"child-index=%" PRId64 ", "
goto end;
} else if (child_index > src_index &&
!first_level_done) {
- BT_LOGD("Child field class is located after source field class: "
+ BT_COMP_LOGD("Child field class is located after source field class: "
"field-name=\"%s\", "
"src-index=%" PRId64 ", "
"child-index=%" PRId64 ", "
switch (field_path->root) {
case CTF_SCOPE_PACKET_HEADER:
if (ctx->tc->is_translated) {
- BT_LOGE("Trace class is already translated: "
+ BT_COMP_LOGE("Trace class is already translated: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
case CTF_SCOPE_EVENT_HEADER:
case CTF_SCOPE_EVENT_COMMON_CONTEXT:
if (!ctx->sc) {
- BT_LOGE("No current stream class: "
+ BT_COMP_LOGE("No current stream class: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
}
if (ctx->sc->is_translated) {
- BT_LOGE("Stream class is already translated: "
+ BT_COMP_LOGE("Stream class is already translated: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
case CTF_SCOPE_EVENT_SPECIFIC_CONTEXT:
case CTF_SCOPE_EVENT_PAYLOAD:
if (!ctx->ec) {
- BT_LOGE("No current event class: "
+ BT_COMP_LOGE("No current event class: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
}
if (ctx->ec->is_translated) {
- BT_LOGE("Event class is already translated: "
+ BT_COMP_LOGE("Event class is already translated: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
fc = borrow_class_from_ctx(ctx, field_path->root);
if (!fc) {
/* Error: root class is not available */
- BT_LOGE("Root field class is not available: "
+ BT_COMP_LOGE("Root field class is not available: "
"root-scope=%s",
ctf_scope_string(field_path->root));
ret = -1;
}
/* Locate target */
- ret = ptokens_to_field_path(cur_ptoken, field_path, fc, INT64_MAX);
+ ret = ptokens_to_field_path(cur_ptoken, field_path, fc, INT64_MAX, ctx);
end:
return ret;
int64_t cur_index = field_class_stack_at(ctx->field_class_stack,
parent_pos_in_stack)->index;
- BT_LOGD("Locating target field class from current parent field class: "
+ BT_COMP_LOGD("Locating target field class from current parent field class: "
"parent-pos=%" PRId64 ", parent-fc-addr=%p, "
"cur-index=%" PRId64,
parent_pos_in_stack, parent_class, cur_index);
/* Locate target from current parent class */
ret = ptokens_to_field_path(ptokens, &tail_field_path,
- parent_class, cur_index);
+ parent_class, cur_index, ctx);
if (ret) {
/* Not found... yet */
- BT_LOGD_STR("Not found at this point.");
+ BT_COMP_LOGD_STR("Not found at this point.");
ctf_field_path_clear(&tail_field_path);
} else {
/* Found: stitch tail field path to head field path */
GList *ptokens = NULL;
/* Convert path string to path tokens */
- ptokens = pathstr_to_ptokens(pathstr);
+ ptokens = pathstr_to_ptokens(pathstr, ctx);
if (!ptokens) {
- BT_LOGE("Cannot convert path string to path tokens: "
+ BT_COMP_LOGE("Cannot convert path string to path tokens: "
"path=\"%s\"", pathstr);
ret = -1;
goto end;
}
/* Absolute or relative path? */
- root_scope = get_root_scope_from_absolute_pathstr(pathstr);
+ root_scope = get_root_scope_from_absolute_pathstr(pathstr, ctx);
if (root_scope == -1) {
/* Relative path: start with current root scope */
field_path->root = ctx->root_scope;
- BT_LOGD("Detected relative path: starting with current root scope: "
+ BT_COMP_LOGD("Detected relative path: starting with current root scope: "
"scope=%s", ctf_scope_string(field_path->root));
ret = relative_ptokens_to_field_path(ptokens, field_path, ctx);
if (ret) {
- BT_LOGE("Cannot get relative field path of path string: "
+ BT_COMP_LOGE("Cannot get relative field path of path string: "
"path=\"%s\", start-scope=%s, end-scope=%s",
pathstr, ctf_scope_string(ctx->root_scope),
ctf_scope_string(field_path->root));
} else {
/* Absolute path: use found root scope */
field_path->root = root_scope;
- BT_LOGD("Detected absolute path: using root scope: "
+ BT_COMP_LOGD("Detected absolute path: using root scope: "
"scope=%s", ctf_scope_string(field_path->root));
ret = absolute_ptokens_to_field_path(ptokens, field_path, ctx);
if (ret) {
- BT_LOGE("Cannot get absolute field path of path string: "
+ BT_COMP_LOGE("Cannot get absolute field path of path string: "
"path=\"%s\", root-scope=%s",
pathstr, ctf_scope_string(root_scope));
goto end;
}
}
- if (BT_LOG_ON_VERBOSE && ret == 0) {
+ if (BT_LOG_ON_TRACE && ret == 0) {
GString *field_path_pretty = ctf_field_path_string(field_path);
const char *field_path_pretty_str =
field_path_pretty ? field_path_pretty->str : NULL;
- BT_LOGD("Found field path: path=\"%s\", field-path=\"%s\"",
+ BT_COMP_LOGD("Found field path: path=\"%s\", field-path=\"%s\"",
pathstr, field_path_pretty_str);
if (field_path_pretty) {
fc = borrow_class_from_ctx(ctx, field_path->root);
if (!fc) {
/* Error: root class is not available */
- BT_LOGE("Root field class is not available: root-scope=%s",
+ BT_COMP_LOGE("Root field class is not available: root-scope=%s",
ctf_scope_string(field_path->root));
goto end;
}
* objects having the same root scope.
*/
int64_t get_field_paths_lca_index(struct ctf_field_path *field_path1,
- struct ctf_field_path *field_path2)
+ struct ctf_field_path *field_path2,
+ struct resolve_context *ctx)
{
int64_t lca_index = 0;
uint64_t field_path1_len, field_path2_len;
- if (BT_LOG_ON_VERBOSE) {
+ if (BT_LOG_ON_TRACE) {
GString *field_path1_pretty =
ctf_field_path_string(field_path1);
GString *field_path2_pretty =
const char *field_path2_pretty_str =
field_path2_pretty ? field_path2_pretty->str : NULL;
- BT_LOGD("Finding lowest common ancestor (LCA) between two field paths: "
+ BT_COMP_LOGD("Finding lowest common ancestor (LCA) between two field paths: "
"field-path-1=\"%s\", field-path-2=\"%s\"",
field_path1_pretty_str, field_path2_pretty_str);
* This is invalid because the target cannot be
* an ancestor of the source.
*/
- BT_LOGE("Source field class is an ancestor of target field class or vice versa: "
+ BT_COMP_LOGE("Source field class is an ancestor of target field class or vice versa: "
"lca-index=%" PRId64 ", "
"field-path-1-len=%" PRIu64 ", "
"field-path-2-len=%" PRIu64,
lca_index++;
}
- BT_LOGD("Found LCA: lca-index=%" PRId64, lca_index);
+ BT_COMP_LOGD("Found LCA: lca-index=%" PRId64, lca_index);
return lca_index;
}
* Make sure the target is not a root.
*/
if (target_field_path_len == 0) {
- BT_LOGE_STR("Target field path's length is 0 (targeting the root).");
+ BT_COMP_LOGE_STR("Target field path's length is 0 (targeting the root).");
ret = -1;
goto end;
}
* after the context field path's root.
*/
if (target_field_path->root > ctx_field_path.root) {
- BT_LOGE("Target field class is located after source field class: "
+ BT_COMP_LOGE("Target field class is located after source field class: "
"target-root=%s, source-root=%s",
ctf_scope_string(target_field_path->root),
ctf_scope_string(ctx_field_path.root));
* paths.
*/
lca_index = get_field_paths_lca_index(target_field_path,
- &ctx_field_path);
+ &ctx_field_path, ctx);
if (lca_index < 0) {
- BT_LOGE_STR("Cannot get least common ancestor.");
+ BT_COMP_LOGE_STR("Cannot get least common ancestor.");
ret = -1;
goto end;
}
&ctx_field_path, (uint64_t) lca_index);
if (target_index >= ctx_index) {
- BT_LOGE("Target field class's index is greater than or equal to source field class's index in LCA: "
+ BT_COMP_LOGE("Target field class's index is greater than or equal to source field class's index in LCA: "
"lca-index=%" PRId64 ", "
"target-index=%" PRId64 ", "
"source-index=%" PRId64,
switch (ctx->cur_fc->type) {
case CTF_FIELD_CLASS_TYPE_VARIANT:
if (target_fc->type != CTF_FIELD_CLASS_TYPE_ENUM) {
- BT_LOGE("Variant field class's tag field class is not an enumeration field class: "
+ BT_COMP_LOGE("Variant field class's tag field class is not an enumeration field class: "
"tag-fc-addr=%p, tag-fc-id=%d",
target_fc, target_fc->type);
ret = -1;
if (target_fc->type != CTF_FIELD_CLASS_TYPE_INT &&
target_fc->type != CTF_FIELD_CLASS_TYPE_ENUM) {
- BT_LOGE("Sequence field class's length field class is not an unsigned integer field class: "
+ BT_COMP_LOGE("Sequence field class's length field class is not an unsigned integer field class: "
"length-fc-addr=%p, length-fc-id=%d",
target_fc, target_fc->type);
ret = -1;
}
if (int_fc->is_signed) {
- BT_LOGE("Sequence field class's length field class is not an unsigned integer field class: "
+ BT_COMP_LOGE("Sequence field class's length field class is not an unsigned integer field class: "
"length-fc-addr=%p, length-fc-id=%d",
target_fc, target_fc->type);
ret = -1;
}
if (!pathstr) {
- BT_LOGE_STR("Cannot get path string.");
+ BT_COMP_LOGE_STR("Cannot get path string.");
ret = -1;
goto end;
}
/* Get target field path out of path string */
ret = pathstr_to_field_path(pathstr, &target_field_path, ctx);
if (ret) {
- BT_LOGE("Cannot get target field path for path string: "
+ BT_COMP_LOGE("Cannot get target field path for path string: "
"path=\"%s\"", pathstr);
goto end;
}
/* Get target field class */
target_fc = field_path_to_field_class(&target_field_path, ctx);
if (!target_fc) {
- BT_LOGE("Cannot get target field class for path string: "
+ BT_COMP_LOGE("Cannot get target field class for path string: "
"path=\"%s\", target-field-path=\"%s\"",
pathstr, target_field_path_pretty_str);
ret = -1;
ret = validate_target_field_path(&target_field_path,
target_fc, ctx);
if (ret) {
- BT_LOGE("Invalid target field path for path string: "
+ BT_COMP_LOGE("Invalid target field path for path string: "
"path=\"%s\", target-field-path=\"%s\"",
pathstr, target_field_path_pretty_str);
goto end;
case CTF_FIELD_CLASS_TYPE_VARIANT:
ret = resolve_sequence_or_variant_field_class(fc, ctx);
if (ret) {
- BT_LOGE("Cannot resolve sequence field class's length or variant field class's tag: "
+ BT_COMP_LOGE("Cannot resolve sequence field class's length or variant field class's tag: "
"ret=%d, fc-addr=%p", ret, fc);
goto end;
}
uint64_t field_count =
ctf_field_class_compound_get_field_class_count(fc);
- ret = field_class_stack_push(ctx->field_class_stack, fc);
+ ret = field_class_stack_push(ctx->field_class_stack, fc, ctx);
if (ret) {
- BT_LOGE("Cannot push field class on context's stack: "
+ BT_COMP_LOGE("Cannot push field class on context's stack: "
"fc-addr=%p", fc);
goto end;
}
(int64_t) i;
}
- BT_LOGD("Resolving field class's child field class: "
+ BT_COMP_LOGD("Resolving field class's child field class: "
"parent-fc-addr=%p, child-fc-addr=%p, "
"index=%" PRIu64 ", count=%" PRIu64,
fc, child_fc, i, field_count);
}
}
- field_class_stack_pop(ctx->field_class_stack);
+ field_class_stack_pop(ctx->field_class_stack, ctx);
break;
}
default:
ctx->scopes.event_spec_context = ec->spec_context_fc;
ret = resolve_root_class(CTF_SCOPE_EVENT_COMMON_CONTEXT, ctx);
if (ret) {
- BT_LOGE("Cannot resolve event specific context field class: "
+ BT_COMP_LOGE("Cannot resolve event specific context field class: "
"ret=%d", ret);
goto end;
}
ctx->scopes.event_payload = ec->payload_fc;
ret = resolve_root_class(CTF_SCOPE_EVENT_PAYLOAD, ctx);
if (ret) {
- BT_LOGE("Cannot resolve event payload field class: "
+ BT_COMP_LOGE("Cannot resolve event payload field class: "
"ret=%d", ret);
goto end;
}
ctx->scopes.packet_context = sc->packet_context_fc;
ret = resolve_root_class(CTF_SCOPE_PACKET_CONTEXT, ctx);
if (ret) {
- BT_LOGE("Cannot resolve packet context field class: "
+ BT_COMP_LOGE("Cannot resolve packet context field class: "
"ret=%d", ret);
goto end;
}
ctx->scopes.event_header = sc->event_header_fc;
ret = resolve_root_class(CTF_SCOPE_EVENT_HEADER, ctx);
if (ret) {
- BT_LOGE("Cannot resolve event header field class: "
+ BT_COMP_LOGE("Cannot resolve event header field class: "
"ret=%d", ret);
goto end;
}
ctx->scopes.event_common_context = sc->event_common_context_fc;
ret = resolve_root_class(CTF_SCOPE_EVENT_SPECIFIC_CONTEXT, ctx);
if (ret) {
- BT_LOGE("Cannot resolve event common context field class: "
+ BT_COMP_LOGE("Cannot resolve event common context field class: "
"ret=%d", ret);
goto end;
}
ret = resolve_event_class_field_classes(ctx, ec);
if (ret) {
- BT_LOGE("Cannot resolve event class's field classes: "
+ BT_COMP_LOGE("Cannot resolve event class's field classes: "
"ec-id=%" PRIu64 ", ec-name=\"%s\"",
ec->id, ec->name->str);
goto end;
}
BT_HIDDEN
-int ctf_trace_class_resolve_field_classes(struct ctf_trace_class *tc)
+int ctf_trace_class_resolve_field_classes(struct ctf_trace_class *tc,
+ struct meta_log_config *log_cfg)
{
int ret = 0;
uint64_t i;
- struct resolve_context ctx = {
+ struct resolve_context local_ctx = {
+ .log_level = log_cfg->log_level,
+ .self_comp = log_cfg->self_comp,
.tc = tc,
.sc = NULL,
.ec = NULL,
.root_scope = CTF_SCOPE_PACKET_HEADER,
.cur_fc = NULL,
};
+ struct resolve_context *ctx = &local_ctx;
/* Initialize class stack */
- ctx.field_class_stack = field_class_stack_create();
- if (!ctx.field_class_stack) {
- BT_LOGE_STR("Cannot create field class stack.");
+ ctx->field_class_stack = field_class_stack_create();
+ if (!ctx->field_class_stack) {
+ BT_COMP_LOGE_STR("Cannot create field class stack.");
ret = -1;
goto end;
}
if (!tc->is_translated) {
- ctx.scopes.packet_header = tc->packet_header_fc;
- ret = resolve_root_class(CTF_SCOPE_PACKET_HEADER, &ctx);
+ ctx->scopes.packet_header = tc->packet_header_fc;
+ ret = resolve_root_class(CTF_SCOPE_PACKET_HEADER, ctx);
if (ret) {
- BT_LOGE("Cannot resolve packet header field class: "
+ BT_COMP_LOGE("Cannot resolve packet header field class: "
"ret=%d", ret);
goto end;
}
}
- ctx.scopes.packet_header = tc->packet_header_fc;
+ ctx->scopes.packet_header = tc->packet_header_fc;
for (i = 0; i < tc->stream_classes->len; i++) {
struct ctf_stream_class *sc = tc->stream_classes->pdata[i];
- ret = resolve_stream_class_field_classes(&ctx, sc);
+ ret = resolve_stream_class_field_classes(ctx, sc);
if (ret) {
- BT_LOGE("Cannot resolve stream class's field classes: "
+ BT_COMP_LOGE("Cannot resolve stream class's field classes: "
"sc-id=%" PRIu64, sc->id);
goto end;
}
}
end:
- field_class_stack_destroy(ctx.field_class_stack);
+ field_class_stack_destroy(ctx->field_class_stack);
return ret;
}
projects / babeltrace.git / blobdiff