X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=src%2Fcli%2Fbabeltrace2.c;h=aa195d1ced7e70cdff08f4a0690f518e8b42f873;hb=5f2a1585bf407f3f3aa7e63d9041b75390cf8563;hp=8301fba870d676097e90a7f51427bcd97ef6c997;hpb=76b6c2f71a485f0cc9b766e1a54b9f7330ccd907;p=babeltrace.git

diff --git a/src/cli/babeltrace2.c b/src/cli/babeltrace2.c
index 8301fba8..aa195d1c 100644
--- a/src/cli/babeltrace2.c
+++ b/src/cli/babeltrace2.c
@@ -29,7 +29,6 @@
 #include "common/common.h"
 #include <unistd.h>
 #include <stdlib.h>
-#include <popt.h>
 #include <string.h>
 #include <stdio.h>
 #include <glib.h>
@@ -39,22 +38,13 @@
 #include "babeltrace2-cfg.h"
 #include "babeltrace2-cfg-cli-args.h"
 #include "babeltrace2-cfg-cli-args-default.h"
+#include "babeltrace2-log-level.h"
 #include "babeltrace2-plugins.h"
+#include "babeltrace2-query.h"
 
 #define ENV_BABELTRACE_WARN_COMMAND_NAME_DIRECTORY_CLASH "BABELTRACE_CLI_WARN_COMMAND_NAME_DIRECTORY_CLASH"
-#define ENV_BABELTRACE_CLI_LOG_LEVEL "BABELTRACE_CLI_LOG_LEVEL"
 #define NSEC_PER_SEC	1000000000LL
 
-/*
- * Known environment variable names for the log levels of the project's
- * modules.
- */
-static const char* log_level_env_var_names[] = {
-	"BABELTRACE_PLUGIN_CTF_METADATA_LOG_LEVEL",
-	"BABELTRACE_PYTHON_BT2_LOG_LEVEL",
-	NULL,
-};
-
 /* Application's interrupter (owned by this) */
 static bt_interrupter *the_interrupter;
 
@@ -115,93 +105,10 @@ int query(struct bt_config *cfg, const bt_component_class *comp_cls,
 		const char *obj, const bt_value *params,
 		const bt_value **user_result, const char **fail_reason)
 {
-	const bt_value *result = NULL;
-	bt_query_executor_query_status query_status;
-	bt_query_executor *query_exec;
-	*fail_reason = "unknown error";
-	int ret = 0;
-
-	BT_ASSERT(fail_reason);
-	BT_ASSERT(user_result);
-	query_exec = bt_query_executor_create();
-	if (!query_exec) {
-		BT_CLI_LOGE_APPEND_CAUSE("Cannot create a query executor.");
-		goto error;
-	}
-
-	bt_query_executor_add_interrupter(query_exec, the_interrupter);
-
-	while (true) {
-		query_status = bt_query_executor_query(
-			query_exec, comp_cls, obj, params,
-			cfg->log_level, &result);
-		switch (query_status) {
-		case BT_QUERY_EXECUTOR_QUERY_STATUS_OK:
-			goto ok;
-		case BT_QUERY_EXECUTOR_QUERY_STATUS_AGAIN:
-		{
-			const uint64_t sleep_time_us = 100000;
-
-			if (bt_interrupter_is_set(the_interrupter)) {
-				*fail_reason = "interrupted by user";
-				goto error;
-			}
-
-			/* Wait 100 ms and retry */
-			BT_LOGD("Got BT_QUERY_EXECUTOR_QUERY_STATUS_AGAIN: sleeping: "
-				"time-us=%" PRIu64, sleep_time_us);
-
-			if (usleep(sleep_time_us)) {
-				if (bt_interrupter_is_set(the_interrupter)) {
-					BT_CLI_LOGW_APPEND_CAUSE(
-						"Query was interrupted by user: "
-						"comp-cls-addr=%p, comp-cls-name=\"%s\", "
-						"query-obj=\"%s\"", comp_cls,
-						bt_component_class_get_name(comp_cls),
-						obj);
-					*fail_reason = "interrupted by user";
-					goto error;
-				}
-			}
-
-			continue;
-		}
-		case BT_QUERY_EXECUTOR_QUERY_STATUS_ERROR:
-			if (bt_interrupter_is_set(the_interrupter)) {
-				*fail_reason = "interrupted by user";
-				goto error;
-			}
-
-			goto error;
-		case BT_QUERY_EXECUTOR_QUERY_STATUS_UNKNOWN_OBJECT:
-			*fail_reason = "unknown query object";
-			goto error;
-		case BT_QUERY_EXECUTOR_QUERY_STATUS_MEMORY_ERROR:
-			*fail_reason = "not enough memory";
-			goto error;
-		default:
-			BT_LOGF("Unknown query status: status=%s",
-				bt_common_func_status_string(query_status));
-			abort();
-		}
-	}
-
-ok:
-	*user_result = result;
-	result = NULL;
-	goto end;
-
-error:
-	ret = -1;
-
-end:
-	bt_query_executor_put_ref(query_exec);
-	bt_value_put_ref(result);
-	return ret;
+	return cli_query(comp_cls, obj, params, cfg->log_level,
+		the_interrupter, user_result, fail_reason);
 }
 
-
-
 typedef const void *(*plugin_borrow_comp_cls_func_t)(
 		const bt_plugin *, const char *);
 
@@ -458,7 +365,7 @@ void print_value_rec(FILE *fp, const bt_value *value, size_t indent)
 			bt_common_color_reset());
 		break;
 	case BT_VALUE_TYPE_ARRAY:
-		size = bt_value_array_get_size(value);
+		size = bt_value_array_get_length(value);
 		if (size < 0) {
 			goto error;
 		}
@@ -652,8 +559,6 @@ void print_cfg(struct bt_config *cfg)
 	}
 
 	BT_LOGI_STR("CLI configuration:");
-	BT_LOGI("  Debug mode: %s\n", cfg->debug ? "yes" : "no");
-	BT_LOGI("  Verbose mode: %s\n", cfg->verbose ? "yes" : "no");
 
 	switch (cfg->command) {
 	case BT_CONFIG_COMMAND_RUN:
@@ -1049,7 +954,7 @@ int cmd_print_lttng_live_sessions(struct bt_config *cfg)
 		}
 	}
 
-	array_size = bt_value_array_get_size(results);
+	array_size = bt_value_array_get_length(results);
 	for (i = 0; i < array_size; i++) {
 		const char *url_text;
 		int64_t timer_us, streams, clients;
@@ -1076,7 +981,7 @@ int cmd_print_lttng_live_sessions(struct bt_config *cfg)
 			BT_CLI_LOGE_APPEND_CAUSE("Missing `timer-us` entry.");
 			goto error;
 		}
-		timer_us = bt_value_integer_signed_get(v);
+		timer_us = bt_value_integer_unsigned_get(v);
 		fprintf(out_stream, " (timer = %" PRIu64 ", ", timer_us);
 		v = bt_value_map_borrow_entry_value_const(map, "stream-count");
 		if (!v) {
@@ -1084,7 +989,7 @@ int cmd_print_lttng_live_sessions(struct bt_config *cfg)
 				"Missing `stream-count` entry.");
 			goto error;
 		}
-		streams = bt_value_integer_signed_get(v);
+		streams = bt_value_integer_unsigned_get(v);
 		fprintf(out_stream, "%" PRIu64 " stream(s), ", streams);
 		v = bt_value_map_borrow_entry_value_const(map, "client-count");
 		if (!v) {
@@ -1092,7 +997,7 @@ int cmd_print_lttng_live_sessions(struct bt_config *cfg)
 				"Missing `client-count` entry.");
 			goto error;
 		}
-		clients = bt_value_integer_signed_get(v);
+		clients = bt_value_integer_unsigned_get(v);
 		fprintf(out_stream, "%" PRIu64 " client(s) connected)\n", clients);
 	}
 
@@ -1793,11 +1698,138 @@ void cmd_run_ctx_destroy(struct cmd_run_ctx *ctx)
 	ctx->cfg = NULL;
 }
 
+static
+int add_descriptor_to_component_descriptor_set(
+		bt_component_descriptor_set *comp_descr_set,
+		const char *plugin_name, const char *comp_cls_name,
+		bt_component_class_type comp_cls_type,
+		const bt_value *params)
+{
+	const bt_component_class *comp_cls;
+	int status = 0;
+
+	comp_cls = find_component_class(plugin_name, comp_cls_name,
+		comp_cls_type);
+	if (!comp_cls) {
+		BT_CLI_LOGE_APPEND_CAUSE(
+			"Cannot find component class: plugin-name=\"%s\", "
+			"comp-cls-name=\"%s\", comp-cls-type=%d",
+			plugin_name, comp_cls_name, comp_cls_type);
+		status = -1;
+		goto end;
+	}
+
+	status = bt_component_descriptor_set_add_descriptor(
+		comp_descr_set, comp_cls, params);
+	if (status != BT_COMPONENT_DESCRIPTOR_SET_ADD_DESCRIPTOR_STATUS_OK) {
+		BT_CLI_LOGE_APPEND_CAUSE(
+			"Cannot append descriptor to component descriptor set: "
+			"status=%s", bt_common_func_status_string(status));
+		goto end;
+	}
+
+end:
+	bt_component_class_put_ref(comp_cls);
+	return status;
+}
+
+static
+int append_descriptors_from_bt_config_component_array(
+		bt_component_descriptor_set *comp_descr_set,
+		GPtrArray *component_configs)
+{
+	int ret = 0;
+	uint64_t i;
+
+	for (i = 0; i < component_configs->len; i++) {
+		struct bt_config_component *cfg_comp =
+			component_configs->pdata[i];
+
+		ret = add_descriptor_to_component_descriptor_set(
+			comp_descr_set,
+			cfg_comp->plugin_name->str,
+			cfg_comp->comp_cls_name->str,
+			cfg_comp->type, cfg_comp->params);
+		if (ret) {
+			goto end;
+		}
+	}
+
+end:
+	return ret;
+}
+
+static
+bt_get_greatest_operative_mip_version_status get_greatest_operative_mip_version(
+		struct bt_config *cfg, uint64_t *mip_version)
+{
+	bt_get_greatest_operative_mip_version_status status =
+		BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_OK;
+	bt_component_descriptor_set *comp_descr_set = NULL;
+	int ret;
+
+	BT_ASSERT(cfg);
+	BT_ASSERT(mip_version);
+	comp_descr_set = bt_component_descriptor_set_create();
+	if (!comp_descr_set) {
+		BT_CLI_LOGE_APPEND_CAUSE(
+			"Failed to create a component descriptor set object.");
+		status = BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_MEMORY_ERROR;
+		goto end;
+	}
+
+	ret = append_descriptors_from_bt_config_component_array(
+		comp_descr_set, cfg->cmd_data.run.sources);
+	if (ret) {
+		status = BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_ERROR;
+		goto end;
+	}
+
+	ret = append_descriptors_from_bt_config_component_array(
+		comp_descr_set, cfg->cmd_data.run.filters);
+	if (ret) {
+		status = BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_ERROR;
+		goto end;
+	}
+
+	ret = append_descriptors_from_bt_config_component_array(
+		comp_descr_set, cfg->cmd_data.run.sinks);
+	if (ret) {
+		status = BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_ERROR;
+		goto end;
+	}
+
+	if (cfg->cmd_data.run.stream_intersection_mode) {
+		/*
+		 * Stream intersection mode adds `flt.utils.trimmer`
+		 * components; we need to include this type of component
+		 * in the component descriptor set to get the real
+		 * greatest operative MIP version.
+		 */
+		ret = add_descriptor_to_component_descriptor_set(
+			comp_descr_set, "utils", "trimmer",
+			BT_COMPONENT_CLASS_TYPE_FILTER, NULL);
+		if (ret) {
+			status = BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_ERROR;
+			goto end;
+		}
+	}
+
+	status = bt_get_greatest_operative_mip_version(comp_descr_set,
+		bt_cli_log_level, mip_version);
+
+end:
+	bt_component_descriptor_set_put_ref(comp_descr_set);
+	return status;
+}
+
 static
 int cmd_run_ctx_init(struct cmd_run_ctx *ctx, struct bt_config *cfg)
 {
 	int ret = 0;
 	bt_graph_add_listener_status add_listener_status;
+	bt_get_greatest_operative_mip_version_status mip_version_status;
+	uint64_t mip_version = UINT64_C(-1);
 
 	ctx->cfg = cfg;
 	ctx->connect_ports = false;
@@ -1828,7 +1860,32 @@ int cmd_run_ctx_init(struct cmd_run_ctx *ctx, struct bt_config *cfg)
 		}
 	}
 
-	ctx->graph = bt_graph_create();
+	/*
+	 * Get the greatest operative MIP version to use to configure
+	 * the graph to create.
+	 */
+	mip_version_status = get_greatest_operative_mip_version(
+		cfg, &mip_version);
+	if (mip_version_status == BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_NO_MATCH) {
+		BT_CLI_LOGE_APPEND_CAUSE(
+			"Failed to find an operative message interchange "
+			"protocol version to use to create the `run` command's "
+			"graph (components are not interoperable).");
+		goto error;
+	} else if (mip_version_status < 0) {
+		BT_CLI_LOGE_APPEND_CAUSE(
+			"Cannot find an operative message interchange "
+			"protocol version to use to create the `run` command's "
+			"graph: status=%s",
+			bt_common_func_status_string(mip_version_status));
+		goto error;
+	}
+
+	BT_ASSERT(mip_version_status == BT_GET_GREATEST_OPERATIVE_MIP_VERSION_STATUS_OK);
+	BT_LOGI("Found operative message interchange protocol version to "
+		"configure the `run` command's graph: mip-version=%" PRIu64,
+		mip_version);
+	ctx->graph = bt_graph_create(mip_version);
 	if (!ctx->graph) {
 		goto error;
 	}
@@ -1862,6 +1919,118 @@ end:
 	return ret;
 }
 
+/*
+ * Compute the intersection of all streams in the array `streams`, write it
+ * in `range`.
+ */
+
+static
+int compute_stream_intersection(const bt_value *streams,
+		struct trace_range *range)
+{
+	unsigned int i;
+	unsigned int stream_count;
+	int ret;
+
+	BT_ASSERT(bt_value_get_type(streams) == BT_VALUE_TYPE_ARRAY);
+
+	stream_count = bt_value_array_get_length(streams);
+
+	BT_ASSERT(stream_count > 0);
+
+	range->intersection_range_begin_ns = 0;
+	range->intersection_range_end_ns = UINT64_MAX;
+
+	for (i = 0; i < stream_count; i++) {
+		int64_t begin_ns, end_ns;
+		uint64_t begin_ns_u, end_ns_u;
+		const bt_value *stream_value;
+		const bt_value *range_ns_value;
+		const bt_value *begin_value;
+		const bt_value *end_value;
+
+		stream_value = bt_value_array_borrow_element_by_index_const(streams, i);
+		if (bt_value_get_type(stream_value) != BT_VALUE_TYPE_MAP) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"expected streams array element to be a map, got %s.",
+				bt_common_value_type_string(bt_value_get_type(stream_value)));
+			goto error;
+		}
+
+		range_ns_value = bt_value_map_borrow_entry_value_const(
+			stream_value, "range-ns");
+		if (!range_ns_value) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"missing expected `range-ns` key in stream map.");
+			goto error;
+		}
+
+		if (bt_value_get_type(range_ns_value) != BT_VALUE_TYPE_MAP) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"expected `range-ns` entry value of stream map to be a map, got %s.",
+				bt_common_value_type_string(bt_value_get_type(range_ns_value)));
+			goto error;
+		}
+
+		begin_value = bt_value_map_borrow_entry_value_const(range_ns_value, "begin");
+		if (!begin_value) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"missing expected `begin` key in range-ns map.");
+			goto error;
+		}
+
+		if (bt_value_get_type(begin_value) != BT_VALUE_TYPE_SIGNED_INTEGER) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"expected `begin` entry value of range-ns map to be a signed integer, got %s.",
+				bt_common_value_type_string(bt_value_get_type(range_ns_value)));
+			goto error;
+		}
+
+		end_value = bt_value_map_borrow_entry_value_const(range_ns_value, "end");
+		if (!end_value) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"missing expected `end` key in range-ns map.");
+			goto error;
+		}
+
+		if (bt_value_get_type(end_value) != BT_VALUE_TYPE_SIGNED_INTEGER) {
+			BT_CLI_LOGE_APPEND_CAUSE("Unexpected format of `babeltrace.trace-infos` query result: "
+				"expected `end` entry value of range-ns map to be a signed integer, got %s.",
+				bt_common_value_type_string(bt_value_get_type(range_ns_value)));
+			goto error;
+		}
+
+		begin_ns = bt_value_integer_signed_get(begin_value);
+		end_ns = bt_value_integer_signed_get(end_value);
+
+		if (begin_ns < 0 || end_ns < 0 || end_ns < begin_ns) {
+			BT_CLI_LOGE_APPEND_CAUSE(
+				"Invalid stream range values: "
+				"range-ns:begin=%" PRId64 ", "
+				"range-ns:end=%" PRId64,
+				begin_ns, end_ns);
+			ret = -1;
+			goto error;
+		}
+
+		begin_ns_u = begin_ns;
+		end_ns_u = end_ns;
+
+		range->intersection_range_begin_ns =
+			MAX(range->intersection_range_begin_ns, begin_ns_u);
+		range->intersection_range_end_ns =
+			MIN(range->intersection_range_end_ns, end_ns_u);
+	}
+
+	ret = 0;
+	goto end;
+error:
+	ret = -1;
+
+end:
+	return ret;
+}
+
 static
 int set_stream_intersections(struct cmd_run_ctx *ctx,
 		struct bt_config_component *cfg_comp,
@@ -1870,109 +2039,95 @@ int set_stream_intersections(struct cmd_run_ctx *ctx,
 	int ret = 0;
 	uint64_t trace_idx;
 	int64_t trace_count;
-	const char *path = NULL;
 	const bt_value *query_result = NULL;
 	const bt_value *trace_info = NULL;
-	const bt_value *intersection_range = NULL;
-	const bt_value *intersection_begin = NULL;
-	const bt_value *intersection_end = NULL;
 	const bt_value *stream_infos = NULL;
 	const bt_value *stream_info = NULL;
 	struct port_id *port_id = NULL;
-	struct trace_range *trace_range = NULL;
+	struct trace_range *stream_intersection = NULL;
 	const char *fail_reason = NULL;
 	const bt_component_class *comp_cls =
 		bt_component_class_source_as_component_class_const(src_comp_cls);
 
-	ret = query(ctx->cfg, comp_cls, "trace-info",
+	ret = query(ctx->cfg, comp_cls, "babeltrace.trace-infos",
 		cfg_comp->params, &query_result,
 		&fail_reason);
 	if (ret) {
-		BT_LOGD("Component class does not support the `trace-info` query: %s: "
+		BT_CLI_LOGE_APPEND_CAUSE("Component class does not support the `babeltrace.trace-infos` query: %s: "
 			"comp-class-name=\"%s\"", fail_reason,
 			bt_component_class_get_name(comp_cls));
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
 	BT_ASSERT(query_result);
 
 	if (!bt_value_is_array(query_result)) {
-		BT_LOGD("Unexpected format of \'trace-info\' query result: "
-			"component-class-name=%s",
-			bt_component_class_get_name(comp_cls));
+		BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: expecting result to be an array: "
+			"component-class-name=%s, actual-type=%s",
+			bt_component_class_get_name(comp_cls),
+			bt_common_value_type_string(bt_value_get_type(query_result)));
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
-	trace_count = bt_value_array_get_size(query_result);
+	trace_count = bt_value_array_get_length(query_result);
 	if (trace_count < 0) {
+		BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: result is empty: "
+			"component-class-name=%s", bt_component_class_get_name(comp_cls));
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
 	for (trace_idx = 0; trace_idx < trace_count; trace_idx++) {
-		int64_t begin, end;
 		uint64_t stream_idx;
 		int64_t stream_count;
+		struct trace_range trace_intersection;
 
 		trace_info = bt_value_array_borrow_element_by_index_const(
 			query_result, trace_idx);
-		if (!trace_info || !bt_value_is_map(trace_info)) {
-			ret = -1;
-			BT_LOGD_STR("Cannot retrieve trace from query result.");
-			goto error;
-		}
-
-		intersection_range = bt_value_map_borrow_entry_value_const(
-			trace_info, "intersection-range-ns");
-		if (!intersection_range) {
+		BT_ASSERT(trace_info);
+		if (!bt_value_is_map(trace_info)) {
 			ret = -1;
-			BT_LOGD_STR("Cannot retrieve \'intersetion-range-ns\' field from query result.");
-			goto error;
-		}
-
-		intersection_begin = bt_value_map_borrow_entry_value_const(intersection_range,
-									   "begin");
-		if (!intersection_begin) {
-			ret = -1;
-			BT_LOGD_STR("Cannot retrieve intersection-range-ns \'begin\' field from query result.");
-			goto error;
+			BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: expecting element to be a map: "
+				"component-class-name=%s, actual-type=%s",
+				bt_component_class_get_name(comp_cls),
+				bt_common_value_type_string(bt_value_get_type(trace_info)));
+			goto end;
 		}
 
-		intersection_end = bt_value_map_borrow_entry_value_const(intersection_range,
-									 "end");
-		if (!intersection_end) {
+		stream_infos = bt_value_map_borrow_entry_value_const(
+			trace_info, "stream-infos");
+		if (!stream_infos) {
 			ret = -1;
-			BT_LOGD_STR("Cannot retrieve intersection-range-ns \'end\' field from query result.");
-			goto error;
+			BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: missing `streams` key in trace info map: "
+				"component-class-name=%s",
+				bt_component_class_get_name(comp_cls));
+			goto end;
 		}
 
-		begin = bt_value_integer_signed_get(intersection_begin);
-		end = bt_value_integer_signed_get(intersection_end);
-
-		if (begin < 0 || end < 0 || end < begin) {
-			BT_CLI_LOGE_APPEND_CAUSE(
-				"Invalid trace stream intersection values: "
-				"intersection-range-ns:begin=%" PRId64
-				", intersection-range-ns:end=%" PRId64,
-				begin, end);
+		if (!bt_value_is_array(stream_infos)) {
 			ret = -1;
-			goto error;
+			BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: expecting `streams` entry of trace info map to be an array: "
+				"component-class-name=%s, actual-type=%s",
+				bt_component_class_get_name(comp_cls),
+				bt_common_value_type_string(bt_value_get_type(stream_infos)));
+			goto end;
 		}
 
-		stream_infos = bt_value_map_borrow_entry_value_const(trace_info,
-								     "streams");
-		if (!stream_infos || !bt_value_is_array(stream_infos)) {
+		stream_count = bt_value_array_get_length(stream_infos);
+		if (stream_count < 0) {
 			ret = -1;
-			BT_LOGD_STR("Cannot retrieve stream information from trace in query result.");
-			goto error;
+			BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: list of streams is empty: "
+				"component-class-name=%s",
+				bt_component_class_get_name(comp_cls));
+			goto end;
 		}
 
-		stream_count = bt_value_array_get_size(stream_infos);
-		if (stream_count < 0) {
-			ret = -1;
-			goto error;
+		ret = compute_stream_intersection(stream_infos, &trace_intersection);
+		if (ret != 0) {
+			BT_CLI_LOGE_APPEND_CAUSE("Failed to compute trace streams intersection.");
+			goto end;
 		}
 
 		for (stream_idx = 0; stream_idx < stream_count; stream_idx++) {
@@ -1983,41 +2138,57 @@ int set_stream_intersections(struct cmd_run_ctx *ctx,
 				ret = -1;
 				BT_CLI_LOGE_APPEND_CAUSE(
 					"Cannot allocate memory for port_id structure.");
-				goto error;
+				goto end;
 			}
 			port_id->instance_name = strdup(cfg_comp->instance_name->str);
 			if (!port_id->instance_name) {
 				ret = -1;
 				BT_CLI_LOGE_APPEND_CAUSE(
 					"Cannot allocate memory for port_id component instance name.");
-				goto error;
+				goto end;
 			}
 
-			trace_range = g_new0(struct trace_range, 1);
-			if (!trace_range) {
+			stream_intersection = g_new0(struct trace_range, 1);
+			if (!stream_intersection) {
 				ret = -1;
 				BT_CLI_LOGE_APPEND_CAUSE(
 					"Cannot allocate memory for trace_range structure.");
-				goto error;
+				goto end;
 			}
-			trace_range->intersection_range_begin_ns = begin;
-			trace_range->intersection_range_end_ns = end;
+
+			*stream_intersection = trace_intersection;
 
 			stream_info = bt_value_array_borrow_element_by_index_const(
 				stream_infos, stream_idx);
-			if (!stream_info || !bt_value_is_map(stream_info)) {
+			BT_ASSERT(stream_info);
+			if (!bt_value_is_map(stream_info)) {
 				ret = -1;
-				BT_CLI_LOGE_APPEND_CAUSE(
-					"Cannot retrieve stream informations from trace in query result.");
-				goto error;
+				BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: "
+					"expecting element of stream list to be a map: "
+					"component-class-name=%s, actual-type=%s",
+					bt_component_class_get_name(comp_cls),
+					bt_common_value_type_string(bt_value_get_type(stream_info)));
+				goto end;
 			}
 
 			port_name = bt_value_map_borrow_entry_value_const(stream_info, "port-name");
-			if (!port_name || !bt_value_is_string(port_name)) {
+			if (!port_name) {
 				ret = -1;
-				BT_CLI_LOGE_APPEND_CAUSE(
-					"Cannot retrieve port name in query result.");
-				goto error;
+				BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: "
+					"missing `port-name` key in stream info map: "
+					"component-class-name=%s",
+					bt_component_class_get_name(comp_cls));
+				goto end;
+			}
+
+			if (!bt_value_is_string(port_name)) {
+				ret = -1;
+				BT_CLI_LOGE_APPEND_CAUSE("`babeltrace.trace-infos` query: "
+					"expecting `port-name` entry of stream info map to be a string: "
+					"component-class-name=%s, actual-type=%s",
+					bt_component_class_get_name(comp_cls),
+					bt_common_value_type_string(bt_value_get_type(port_name)));
+				goto end;
 			}
 
 			port_id->port_name = g_strdup(bt_value_string_get(port_name));
@@ -2025,29 +2196,24 @@ int set_stream_intersections(struct cmd_run_ctx *ctx,
 				ret = -1;
 				BT_CLI_LOGE_APPEND_CAUSE(
 					"Cannot allocate memory for port_id port_name.");
-				goto error;
+				goto end;
 			}
 
 			BT_LOGD("Inserting stream intersection ");
 
-			g_hash_table_insert(ctx->intersections, port_id, trace_range);
+			g_hash_table_insert(ctx->intersections, port_id, stream_intersection);
 
 			port_id = NULL;
-			trace_range = NULL;
+			stream_intersection = NULL;
 		}
 	}
 
-	goto end;
-
-error:
-	BT_CLI_LOGE_APPEND_CAUSE(
-		"Cannot determine stream intersection of trace: path=\"%s\"",
-		path ? path : "(unknown)");
+	ret = 0;
 
 end:
 	bt_value_put_ref(query_result);
 	g_free(port_id);
-	g_free(trace_range);
+	g_free(stream_intersection);
 	return ret;
 }
 
@@ -2135,6 +2301,8 @@ int cmd_run_ctx_create_components_from_config_components(
 				cfg_comp->type == BT_COMPONENT_CLASS_TYPE_SOURCE) {
 			ret = set_stream_intersections(ctx, cfg_comp, comp_cls);
 			if (ret) {
+				BT_CLI_LOGE_APPEND_CAUSE(
+					"Cannot determine stream intersection of trace.");
 				goto error;
 			}
 		}
@@ -2425,87 +2593,6 @@ void init_log_level(void)
 	bt_cli_log_level = bt_log_get_level_from_env(ENV_BABELTRACE_CLI_LOG_LEVEL);
 }
 
-static
-void set_auto_log_levels(struct bt_config *cfg)
-{
-	const char **env_var_name;
-
-	/*
-	 * Override the configuration's default log level if
-	 * BABELTRACE_VERBOSE or BABELTRACE_DEBUG environment variables
-	 * are found for backward compatibility with legacy Babetrace 1.
-	 */
-	if (getenv("BABELTRACE_DEBUG") &&
-			strcmp(getenv("BABELTRACE_DEBUG"), "1") == 0) {
-		cfg->log_level = BT_LOG_TRACE;
-	} else if (getenv("BABELTRACE_VERBOSE") &&
-			strcmp(getenv("BABELTRACE_VERBOSE"), "1") == 0) {
-		cfg->log_level = BT_LOG_INFO;
-	}
-
-	/*
-	 * Set log levels according to --debug or --verbose. For
-	 * backward compatibility, --debug is more verbose than
-	 * --verbose. So:
-	 *
-	 *     --verbose: INFO log level
-	 *     --debug:   TRACE log level (includes DEBUG, which is
-	 *                is less verbose than TRACE in the internal
-	 *                logging framework)
-	 */
-	if (!getenv("LIBBABELTRACE2_INIT_LOG_LEVEL")) {
-		if (cfg->verbose) {
-			bt_logging_set_global_level(BT_LOG_INFO);
-		} else if (cfg->debug) {
-			bt_logging_set_global_level(BT_LOG_TRACE);
-		} else {
-			/*
-			 * Set library's default log level if not
-			 * explicitly specified.
-			 */
-			bt_logging_set_global_level(cfg->log_level);
-		}
-	}
-
-	if (!getenv(ENV_BABELTRACE_CLI_LOG_LEVEL)) {
-		if (cfg->verbose) {
-			bt_cli_log_level = BT_LOG_INFO;
-		} else if (cfg->debug) {
-			bt_cli_log_level = BT_LOG_TRACE;
-		} else {
-			/*
-			 * Set CLI's default log level if not explicitly
-			 * specified.
-			 */
-			bt_cli_log_level = cfg->log_level;
-		}
-	}
-
-	env_var_name = log_level_env_var_names;
-
-	while (*env_var_name) {
-		if (!getenv(*env_var_name)) {
-			if (cfg->verbose) {
-				g_setenv(*env_var_name, "INFO", 1);
-			} else if (cfg->debug) {
-				g_setenv(*env_var_name, "TRACE", 1);
-			} else {
-				char val[2] = { 0 };
-
-				/*
-				 * Set module's default log level if not
-				 * explicitly specified.
-				 */
-				val[0] = bt_log_get_letter_from_level(
-					cfg->log_level);
-				g_setenv(*env_var_name, val, 1);
-			}
-		}
-
-		env_var_name++;
-	}
-}
-
 static
 void print_error_causes(void)
 {
@@ -2614,9 +2701,7 @@ void print_error_causes(void)
 	}
 
 end:
-	if (folded) {
-		g_string_free(folded, TRUE);
-	}
+	BT_ASSERT(!folded);
 
 	if (error) {
 		bt_error_release(error);
@@ -2627,12 +2712,22 @@ int main(int argc, const char **argv)
 {
 	int ret;
 	int retcode;
-	struct bt_config *cfg;
+	struct bt_config *cfg = NULL;
 
 	init_log_level();
 	set_signal_handler();
 	init_loaded_plugins();
-	cfg = bt_config_cli_args_create_with_default(argc, argv, &retcode);
+
+	BT_ASSERT(!the_interrupter);
+	the_interrupter = bt_interrupter_create();
+	if (!the_interrupter) {
+		BT_CLI_LOGE_APPEND_CAUSE("Failed to create an interrupter object.");
+		retcode = 1;
+		goto end;
+	}
+
+	cfg = bt_config_cli_args_create_with_default(argc, argv, &retcode,
+		the_interrupter);
 
 	if (retcode < 0) {
 		/* Quit without errors; typically usage/version */
@@ -2649,12 +2744,11 @@ int main(int argc, const char **argv)
 
 	if (!cfg) {
 		BT_CLI_LOGE_APPEND_CAUSE(
-			"Failed to create a valid Babeltrace configuration.");
+			"Failed to create a valid Babeltrace CLI configuration.");
 		retcode = 1;
 		goto end;
 	}
 
-	set_auto_log_levels(cfg);
 	print_cfg(cfg);
 
 	if (cfg->command_needs_plugins) {
@@ -2667,14 +2761,6 @@ int main(int argc, const char **argv)
 		}
 	}
 
-	BT_ASSERT(!the_interrupter);
-	the_interrupter = bt_interrupter_create();
-	if (!the_interrupter) {
-		BT_CLI_LOGE_APPEND_CAUSE("Failed to create an interrupter object.");
-		retcode = 1;
-		goto end;
-	}
-
 	BT_LOGI("Executing command: cmd=%d, command-name=\"%s\"",
 		cfg->command, cfg->command_name);