X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=formats%2Fctf%2Fir%2Ftrace.c;h=70ac2b45711215f558ad029026dfb591115f302a;hb=e6a8e8e4744633807083a077ff9f101eb97d9801;hp=78c2f28e87b86c83056bd5cbf91efbed5835b621;hpb=de866173e7158c4451c8b582b6856d05993836f6;p=babeltrace.git

diff --git a/formats/ctf/ir/trace.c b/formats/ctf/ir/trace.c
index 78c2f28e..70ac2b45 100644
--- a/formats/ctf/ir/trace.c
+++ b/formats/ctf/ir/trace.c
@@ -32,18 +32,23 @@
 #include <babeltrace/ctf-ir/stream-class-internal.h>
 #include <babeltrace/ctf-writer/functor-internal.h>
 #include <babeltrace/ctf-ir/event-types-internal.h>
+#include <babeltrace/ctf-ir/attributes-internal.h>
+#include <babeltrace/ctf-ir/visitor-internal.h>
 #include <babeltrace/ctf-ir/utils.h>
 #include <babeltrace/compiler.h>
+#include <babeltrace/values.h>
+#include <babeltrace/ref.h>
+#include <babeltrace/endian.h>
 
 #define DEFAULT_IDENTIFIER_SIZE 128
 #define DEFAULT_METADATA_STRING_SIZE 4096
 
 static
-void environment_variable_destroy(struct environment_variable *var);
-static
-void bt_ctf_trace_destroy(struct bt_ctf_ref *ref);
+void bt_ctf_trace_destroy(struct bt_object *obj);
 static
 int init_trace_packet_header(struct bt_ctf_trace *trace);
+static
+int bt_ctf_trace_freeze(struct bt_ctf_trace *trace);
 
 static
 const unsigned int field_type_aliases_alignments[] = {
@@ -73,46 +78,43 @@ struct bt_ctf_trace *bt_ctf_trace_create(void)
 	}
 
 	bt_ctf_trace_set_byte_order(trace, BT_CTF_BYTE_ORDER_NATIVE);
-	bt_ctf_ref_init(&trace->ref_count);
-	trace->environment = g_ptr_array_new_with_free_func(
-		(GDestroyNotify)environment_variable_destroy);
+	bt_object_init(trace, bt_ctf_trace_destroy);
 	trace->clocks = g_ptr_array_new_with_free_func(
-		(GDestroyNotify)bt_ctf_clock_put);
+		(GDestroyNotify) bt_put);
 	trace->streams = g_ptr_array_new_with_free_func(
-		(GDestroyNotify)bt_ctf_stream_put);
+		(GDestroyNotify) bt_object_release);
 	trace->stream_classes = g_ptr_array_new_with_free_func(
-		(GDestroyNotify)bt_ctf_stream_class_put);
-	if (!trace->environment || !trace->clocks ||
-		!trace->stream_classes || !trace->streams) {
-		goto error_destroy;
+		(GDestroyNotify) bt_object_release);
+	if (!trace->clocks || !trace->stream_classes || !trace->streams) {
+		goto error;
 	}
 
 	/* Generate a trace UUID */
 	uuid_generate(trace->uuid);
 	if (init_trace_packet_header(trace)) {
-		goto error_destroy;
+		goto error;
+	}
+
+	/* Create the environment array object */
+	trace->environment = bt_ctf_attributes_create();
+	if (!trace->environment) {
+		goto error;
 	}
 
 	return trace;
 
-error_destroy:
-	bt_ctf_trace_destroy(&trace->ref_count);
-	trace = NULL;
 error:
+	BT_PUT(trace);
 	return trace;
 }
 
-void bt_ctf_trace_destroy(struct bt_ctf_ref *ref)
+void bt_ctf_trace_destroy(struct bt_object *obj)
 {
 	struct bt_ctf_trace *trace;
 
-	if (!ref) {
-		return;
-	}
-
-	trace = container_of(ref, struct bt_ctf_trace, ref_count);
+	trace = container_of(obj, struct bt_ctf_trace, base);
 	if (trace->environment) {
-		g_ptr_array_free(trace->environment, TRUE);
+		bt_ctf_attributes_destroy(trace->environment);
 	}
 
 	if (trace->clocks) {
@@ -127,7 +129,7 @@ void bt_ctf_trace_destroy(struct bt_ctf_ref *ref)
 		g_ptr_array_free(trace->stream_classes, TRUE);
 	}
 
-	bt_ctf_field_type_put(trace->packet_header_type);
+	bt_put(trace->packet_header_type);
 	g_free(trace);
 }
 
@@ -143,11 +145,6 @@ struct bt_ctf_stream *bt_ctf_trace_create_stream(struct bt_ctf_trace *trace,
 		goto error;
 	}
 
-	stream = bt_ctf_stream_create(stream_class, trace);
-	if (!stream) {
-		goto error;
-	}
-
 	for (i = 0; i < trace->stream_classes->len; i++) {
 		if (trace->stream_classes->pdata[i] == stream_class) {
 			stream_class_found = 1;
@@ -161,105 +158,147 @@ struct bt_ctf_stream *bt_ctf_trace_create_stream(struct bt_ctf_trace *trace,
 		}
 	}
 
-	bt_ctf_stream_get(stream);
-	g_ptr_array_add(trace->streams, stream);
+	stream = bt_ctf_stream_create(stream_class, trace);
+	if (!stream) {
+		goto error;
+	}
 
+	g_ptr_array_add(trace->streams, stream);
 	return stream;
 error:
-	bt_ctf_stream_put(stream);
-	return NULL;
+        BT_PUT(stream);
+	return stream;
 }
 
-int bt_ctf_trace_add_environment_field(struct bt_ctf_trace *trace,
-		const char *name,
-		const char *value)
+int bt_ctf_trace_set_environment_field(struct bt_ctf_trace *trace,
+		const char *name, struct bt_value *value)
 {
-	struct environment_variable *var = NULL;
-	char *escaped_value = NULL;
 	int ret = 0;
 
-	if (!trace || !name || !value || bt_ctf_validate_identifier(name)) {
+	if (!trace || !name || !value ||
+		bt_ctf_validate_identifier(name) ||
+		!(bt_value_is_integer(value) || bt_value_is_string(value))) {
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
 	if (strchr(name, ' ')) {
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
-	var = g_new0(struct environment_variable, 1);
-	if (!var) {
-		ret = -1;
-		goto error;
+	if (trace->frozen) {
+		/*
+		 * New environment fields may be added to a frozen trace,
+		 * but existing fields may not be changed.
+		 *
+		 * The object passed is frozen like all other attributes.
+		 */
+		struct bt_value *attribute =
+			bt_ctf_attributes_get_field_value_by_name(
+				trace->environment, name);
+
+		if (attribute) {
+			BT_PUT(attribute);
+			ret = -1;
+			goto end;
+		}
+
+		bt_value_freeze(value);
 	}
 
-	var->type = BT_ENVIRONMENT_FIELD_TYPE_STRING;
-	escaped_value = g_strescape(value, NULL);
-	if (!escaped_value) {
+	ret = bt_ctf_attributes_set_field_value(trace->environment, name,
+		value);
+
+end:
+	return ret;
+}
+
+int bt_ctf_trace_set_environment_field_string(struct bt_ctf_trace *trace,
+		const char *name, const char *value)
+{
+	int ret = 0;
+	struct bt_value *env_value_string_obj = NULL;
+
+	if (!trace || !name || !value) {
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
-	var->name = g_string_new(name);
-	var->value.string = g_string_new(escaped_value);
-	g_free(escaped_value);
-	if (!var->name || !var->value.string) {
-		ret = -1;
-		goto error;
+	if (trace->frozen) {
+		/*
+		 * New environment fields may be added to a frozen trace,
+		 * but existing fields may not be changed.
+		 */
+		struct bt_value *attribute =
+			bt_ctf_attributes_get_field_value_by_name(
+				trace->environment, name);
+
+		if (attribute) {
+			BT_PUT(attribute);
+			ret = -1;
+			goto end;
+		}
 	}
 
-	g_ptr_array_add(trace->environment, var);
-	return ret;
+	env_value_string_obj = bt_value_string_create_init(value);
 
-error:
-	if (var && var->name) {
-		g_string_free(var->name, TRUE);
+	if (!env_value_string_obj) {
+		ret = -1;
+		goto end;
 	}
 
-	if (var && var->value.string) {
-		g_string_free(var->value.string, TRUE);
+	if (trace->frozen) {
+		bt_value_freeze(env_value_string_obj);
 	}
+	ret = bt_ctf_trace_set_environment_field(trace, name,
+		env_value_string_obj);
 
-	g_free(var);
+end:
+	BT_PUT(env_value_string_obj);
 	return ret;
 }
 
-int bt_ctf_trace_add_environment_field_integer(struct bt_ctf_trace *trace,
-		const char *name,
-		int64_t value)
+int bt_ctf_trace_set_environment_field_integer(struct bt_ctf_trace *trace,
+		const char *name, int64_t value)
 {
-	struct environment_variable *var = NULL;
 	int ret = 0;
+	struct bt_value *env_value_integer_obj = NULL;
 
 	if (!trace || !name) {
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
-	var = g_new0(struct environment_variable, 1);
-	if (!var) {
-		ret = -1;
-		goto error;
+	if (trace->frozen) {
+		/*
+		 * New environment fields may be added to a frozen trace,
+		 * but existing fields may not be changed.
+		 */
+		struct bt_value *attribute =
+			bt_ctf_attributes_get_field_value_by_name(
+				trace->environment, name);
+
+		if (attribute) {
+			BT_PUT(attribute);
+			ret = -1;
+			goto end;
+		}
 	}
 
-	var->type = BT_ENVIRONMENT_FIELD_TYPE_INTEGER;
-	var->name = g_string_new(name);
-	var->value.integer = value;
-	if (!var->name) {
+	env_value_integer_obj = bt_value_integer_create_init(value);
+	if (!env_value_integer_obj) {
 		ret = -1;
-		goto error;
+		goto end;
 	}
 
-	g_ptr_array_add(trace->environment, var);
-	return ret;
-
-error:
-	if (var && var->name) {
-		g_string_free(var->name, TRUE);
+	ret = bt_ctf_trace_set_environment_field(trace, name,
+		env_value_integer_obj);
+	if (trace->frozen) {
+		bt_value_freeze(env_value_integer_obj);
 	}
-
-	g_free(var);
+end:
+	BT_PUT(env_value_integer_obj);
 	return ret;
 }
 
@@ -272,82 +311,55 @@ int bt_ctf_trace_get_environment_field_count(struct bt_ctf_trace *trace)
 		goto end;
 	}
 
-	ret = trace->environment->len;
-end:
-	return ret;
-}
+	ret = bt_ctf_attributes_get_count(trace->environment);
 
-enum bt_environment_field_type
-bt_ctf_trace_get_environment_field_type(struct bt_ctf_trace *trace, int index)
-{
-	struct environment_variable *var;
-	enum bt_environment_field_type type = BT_ENVIRONMENT_FIELD_TYPE_UNKNOWN;
-
-	if (!trace || index < 0 || index >= trace->environment->len) {
-		goto end;
-	}
-
-	var = g_ptr_array_index(trace->environment, index);
-	type = var->type;
 end:
-	return type;
+	return ret;
 }
 
 const char *
 bt_ctf_trace_get_environment_field_name(struct bt_ctf_trace *trace,
 		int index)
 {
-	struct environment_variable *var;
 	const char *ret = NULL;
 
-	if (!trace || index < 0 || index >= trace->environment->len) {
+	if (!trace) {
 		goto end;
 	}
 
-	var = g_ptr_array_index(trace->environment, index);
-	ret = var->name->str;
+	ret = bt_ctf_attributes_get_field_name(trace->environment, index);
+
 end:
 	return ret;
 }
 
-const char *
-bt_ctf_trace_get_environment_field_value_string(struct bt_ctf_trace *trace,
-		int index)
+struct bt_value *bt_ctf_trace_get_environment_field_value(
+		struct bt_ctf_trace *trace, int index)
 {
-	struct environment_variable *var;
-	const char *ret = NULL;
+	struct bt_value *ret = NULL;
 
-	if (!trace || index < 0 || index >= trace->environment->len) {
+	if (!trace) {
 		goto end;
 	}
 
-	var = g_ptr_array_index(trace->environment, index);
-	if (var->type != BT_ENVIRONMENT_FIELD_TYPE_STRING) {
-		goto end;
-	}
-	ret = var->value.string->str;
+	ret = bt_ctf_attributes_get_field_value(trace->environment, index);
+
 end:
 	return ret;
 }
 
-int
-bt_ctf_trace_get_environment_field_value_integer(struct bt_ctf_trace *trace,
-		int index, int64_t *value)
+struct bt_value *bt_ctf_trace_get_environment_field_value_by_name(
+		struct bt_ctf_trace *trace, const char *name)
 {
-	struct environment_variable *var;
-	int ret = 0;
+	struct bt_value *ret = NULL;
 
-	if (!trace || !value || index < 0 || index >= trace->environment->len) {
-		ret = -1;
+	if (!trace || !name) {
 		goto end;
 	}
 
-	var = g_ptr_array_index(trace->environment, index);
-	if (var->type != BT_ENVIRONMENT_FIELD_TYPE_INTEGER) {
-		ret = -1;
-		goto end;
-	}
-	*value = var->value.integer;
+	ret = bt_ctf_attributes_get_field_value_by_name(trace->environment,
+		name);
+
 end:
 	return ret;
 }
@@ -370,7 +382,7 @@ int bt_ctf_trace_add_clock(struct bt_ctf_trace *trace,
 		goto end;
 	}
 
-	bt_ctf_clock_get(clock);
+	bt_get(clock);
 	g_ptr_array_add(trace->clocks, clock);
 end:
 	return ret;
@@ -399,7 +411,7 @@ struct bt_ctf_clock *bt_ctf_trace_get_clock(struct bt_ctf_trace *trace,
 	}
 
 	clock = g_ptr_array_index(trace->clocks, index);
-	bt_ctf_clock_get(clock);
+	bt_get(clock);
 end:
 	return clock;
 }
@@ -417,11 +429,17 @@ int bt_ctf_trace_add_stream_class(struct bt_ctf_trace *trace,
 
 	for (i = 0; i < trace->stream_classes->len; i++) {
 		if (trace->stream_classes->pdata[i] == stream_class) {
+			/* Stream already registered to the trace */
 			ret = -1;
 			goto end;
 		}
 	}
 
+	ret = bt_ctf_stream_class_resolve_types(stream_class, trace);
+	if (ret) {
+		goto end;
+	}
+
 	stream_id = bt_ctf_stream_class_get_id(stream_class);
 	if (stream_id < 0) {
 		stream_id = trace->next_stream_id++;
@@ -436,7 +454,7 @@ int bt_ctf_trace_add_stream_class(struct bt_ctf_trace *trace,
 			}
 		}
 
-		if (_bt_ctf_stream_class_set_id(stream_class,
+		if (bt_ctf_stream_class_set_id_no_check(stream_class,
 			stream_id)) {
 			/* TODO Should retry with a different stream id */
 			ret = -1;
@@ -444,7 +462,7 @@ int bt_ctf_trace_add_stream_class(struct bt_ctf_trace *trace,
 		}
 	}
 
-	bt_ctf_stream_class_get(stream_class);
+	bt_object_set_parent(stream_class, trace);
 	g_ptr_array_add(trace->stream_classes, stream_class);
 
 	/*
@@ -461,10 +479,15 @@ int bt_ctf_trace_add_stream_class(struct bt_ctf_trace *trace,
 	if (ret) {
 		goto end;
 	}
-	bt_ctf_stream_class_freeze(stream_class);
-	trace->frozen = 1;
 
+	bt_ctf_stream_class_freeze(stream_class);
+	if (!trace->frozen) {
+		ret = bt_ctf_trace_freeze(trace);
+	}
 end:
+	if (ret) {
+		bt_object_set_parent(stream_class, NULL);
+	}
 	return ret;
 }
 
@@ -492,11 +515,69 @@ struct bt_ctf_stream_class *bt_ctf_trace_get_stream_class(
 	}
 
 	stream_class = g_ptr_array_index(trace->stream_classes, index);
-	bt_ctf_stream_class_get(stream_class);
+	bt_get(stream_class);
 end:
 	return stream_class;
 }
 
+struct bt_ctf_stream_class *bt_ctf_trace_get_stream_class_by_id(
+		struct bt_ctf_trace *trace, uint32_t id)
+{
+	int i;
+	struct bt_ctf_stream_class *stream_class = NULL;
+
+	if (!trace) {
+		goto end;
+	}
+
+	for (i = 0; i < trace->stream_classes->len; ++i) {
+		struct bt_ctf_stream_class *stream_class_candidate;
+
+		stream_class_candidate =
+			g_ptr_array_index(trace->stream_classes, i);
+
+		if (bt_ctf_stream_class_get_id(stream_class_candidate) ==
+				(int64_t) id) {
+			stream_class = stream_class_candidate;
+			bt_get(stream_class);
+			goto end;
+		}
+	}
+
+end:
+	return stream_class;
+}
+
+struct bt_ctf_clock *bt_ctf_trace_get_clock_by_name(
+		struct bt_ctf_trace *trace, const char *name)
+{
+	size_t i;
+	struct bt_ctf_clock *clock = NULL;
+
+	if (!trace || !name) {
+		goto end;
+	}
+
+	for (i = 0; i < trace->clocks->len; ++i) {
+		struct bt_ctf_clock *cur_clk =
+			g_ptr_array_index(trace->clocks, i);
+		const char *cur_clk_name = bt_ctf_clock_get_name(cur_clk);
+
+		if (!cur_clk_name) {
+			goto end;
+		}
+
+		if (!strcmp(cur_clk_name, name)) {
+			clock = cur_clk;
+			bt_get(clock);
+			goto end;
+		}
+	}
+
+end:
+	return clock;
+}
+
 BT_HIDDEN
 const char *get_byte_order_string(int byte_order)
 {
@@ -553,35 +634,85 @@ end:
 	return ret;
 }
 
-static
-void append_env_field_metadata(struct environment_variable *var,
-		struct metadata_context *context)
-{
-	switch (var->type) {
-	case BT_ENVIRONMENT_FIELD_TYPE_STRING:
-		g_string_append_printf(context->string, "\t%s = \"%s\";\n",
-			var->name->str, var->value.string->str);
-		break;
-	case BT_ENVIRONMENT_FIELD_TYPE_INTEGER:
-		g_string_append_printf(context->string, "\t%s = %" PRId64 ";\n",
-			var->name->str, var->value.integer);
-		break;
-	default:
-		assert(0);
-	}
-}
-
 static
 void append_env_metadata(struct bt_ctf_trace *trace,
 		struct metadata_context *context)
 {
-	if (trace->environment->len == 0) {
+	int i;
+	int env_size;
+
+	env_size = bt_ctf_attributes_get_count(trace->environment);
+
+	if (env_size <= 0) {
 		return;
 	}
 
 	g_string_append(context->string, "env {\n");
-	g_ptr_array_foreach(trace->environment,
-		(GFunc)append_env_field_metadata, context);
+
+	for (i = 0; i < env_size; ++i) {
+		struct bt_value *env_field_value_obj = NULL;
+		const char *entry_name;
+
+		entry_name = bt_ctf_attributes_get_field_name(
+			trace->environment, i);
+		env_field_value_obj = bt_ctf_attributes_get_field_value(
+			trace->environment, i);
+
+		if (!entry_name || !env_field_value_obj) {
+			goto loop_next;
+		}
+
+		switch (bt_value_get_type(env_field_value_obj)) {
+		case BT_VALUE_TYPE_INTEGER:
+		{
+			int ret;
+			int64_t int_value;
+
+			ret = bt_value_integer_get(env_field_value_obj,
+				&int_value);
+
+			if (ret) {
+				goto loop_next;
+			}
+
+			g_string_append_printf(context->string,
+				"\t%s = %" PRId64 ";\n", entry_name,
+				int_value);
+			break;
+		}
+		case BT_VALUE_TYPE_STRING:
+		{
+			int ret;
+			const char *str_value;
+			char *escaped_str = NULL;
+
+			ret = bt_value_string_get(env_field_value_obj,
+				&str_value);
+
+			if (ret) {
+				goto loop_next;
+			}
+
+			escaped_str = g_strescape(str_value, NULL);
+
+			if (!escaped_str) {
+				goto loop_next;
+			}
+
+			g_string_append_printf(context->string,
+				"\t%s = \"%s\";\n", entry_name, escaped_str);
+			free(escaped_str);
+			break;
+		}
+
+		default:
+			goto loop_next;
+		}
+
+loop_next:
+		BT_PUT(env_field_value_obj);
+	}
+
 	g_string_append(context->string, "};\n\n");
 }
 
@@ -701,7 +832,7 @@ struct bt_ctf_field_type *bt_ctf_trace_get_packet_header_type(
 		goto end;
 	}
 
-	bt_ctf_field_type_get(trace->packet_header_type);
+	bt_get(trace->packet_header_type);
 	field_type = trace->packet_header_type;
 end:
 	return field_type;
@@ -724,8 +855,8 @@ int bt_ctf_trace_set_packet_header_type(struct bt_ctf_trace *trace,
 		goto end;
 	}
 
-	bt_ctf_field_type_get(packet_header_type);
-	bt_ctf_field_type_put(trace->packet_header_type);
+	bt_get(packet_header_type);
+	bt_put(trace->packet_header_type);
 	trace->packet_header_type = packet_header_type;
 end:
 	return ret;
@@ -733,39 +864,49 @@ end:
 
 void bt_ctf_trace_get(struct bt_ctf_trace *trace)
 {
-	if (!trace) {
-		return;
-	}
-
-	bt_ctf_ref_get(&trace->ref_count);
+	bt_get(trace);
 }
 
 void bt_ctf_trace_put(struct bt_ctf_trace *trace)
 {
-	if (!trace) {
-		return;
-	}
+	bt_put(trace);
 
-	bt_ctf_ref_put(&trace->ref_count, bt_ctf_trace_destroy);
 }
 
 BT_HIDDEN
 struct bt_ctf_field_type *get_field_type(enum field_type_alias alias)
 {
 	unsigned int alignment, size;
-	struct bt_ctf_field_type *field_type;
+	struct bt_ctf_field_type *field_type = NULL;
 
 	if (alias >= NR_FIELD_TYPE_ALIAS) {
-		return NULL;
+		goto end;
 	}
 
 	alignment = field_type_aliases_alignments[alias];
 	size = field_type_aliases_sizes[alias];
 	field_type = bt_ctf_field_type_integer_create(size);
 	bt_ctf_field_type_set_alignment(field_type, alignment);
+end:
 	return field_type;
 }
 
+static
+int bt_ctf_trace_freeze(struct bt_ctf_trace *trace)
+{
+	int ret = 0;
+
+	ret = bt_ctf_trace_resolve_types(trace);
+	if (ret) {
+		goto end;
+	}
+
+	bt_ctf_attributes_freeze(trace->environment);
+	trace->frozen = 1;
+end:
+	return ret;
+}
+
 static
 int init_trace_packet_header(struct bt_ctf_trace *trace)
 {
@@ -809,22 +950,11 @@ int init_trace_packet_header(struct bt_ctf_trace *trace)
 		goto end;
 	}
 end:
-	bt_ctf_field_type_put(uuid_array_type);
-	bt_ctf_field_type_put(_uint32_t);
-	bt_ctf_field_type_put(_uint8_t);
-	bt_ctf_field_put(magic);
-	bt_ctf_field_put(uuid_array);
-	bt_ctf_field_type_put(trace_packet_header_type);
-
+	bt_put(uuid_array_type);
+	bt_put(_uint32_t);
+	bt_put(_uint8_t);
+	bt_put(magic);
+	bt_put(uuid_array);
+	bt_put(trace_packet_header_type);
 	return ret;
 }
-
-static
-void environment_variable_destroy(struct environment_variable *var)
-{
-	g_string_free(var->name, TRUE);
-	if (var->type == BT_ENVIRONMENT_FIELD_TYPE_STRING) {
-		g_string_free(var->value.string, TRUE);
-	}
-	g_free(var);
-}