#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/utils.h>
#include <babeltrace/compiler.h>
+#include <babeltrace/objects.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);
static
int init_trace_packet_header(struct bt_ctf_trace *trace);
+static
+void bt_ctf_trace_freeze(struct bt_ctf_trace *trace);
static
const unsigned int field_type_aliases_alignments[] = {
[FIELD_TYPE_ALIAS_UINT64_T] = 64,
};
+static
+void put_stream_class(struct bt_ctf_stream_class *stream_class)
+{
+ (void) bt_ctf_stream_class_set_trace(stream_class, NULL);
+ bt_ctf_stream_class_put(stream_class);
+}
+
struct bt_ctf_trace *bt_ctf_trace_create(void)
{
struct bt_ctf_trace *trace = NULL;
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);
trace->clocks = g_ptr_array_new_with_free_func(
- (GDestroyNotify)bt_ctf_clock_put);
+ (GDestroyNotify) bt_ctf_clock_put);
trace->streams = g_ptr_array_new_with_free_func(
- (GDestroyNotify)bt_ctf_stream_put);
+ (GDestroyNotify) bt_ctf_stream_put);
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) {
+ (GDestroyNotify) put_stream_class);
+ if (!trace->clocks || !trace->stream_classes || !trace->streams) {
goto error_destroy;
}
goto error_destroy;
}
+ /* Create the environment array object */
+ trace->environment = bt_ctf_attributes_create();
+ if (!trace->environment) {
+ goto error_destroy;
+ }
+
return trace;
error_destroy:
trace = container_of(ref, struct bt_ctf_trace, ref_count);
if (trace->environment) {
- g_ptr_array_free(trace->environment, TRUE);
+ bt_ctf_attributes_destroy(trace->environment);
}
if (trace->clocks) {
return NULL;
}
-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_object *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_object_is_integer(value) || bt_object_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_object *attribute =
+ bt_ctf_attributes_get_field_value_by_name(
+ trace->environment, name);
+
+ if (attribute) {
+ BT_OBJECT_PUT(attribute);
+ ret = -1;
+ goto end;
+ }
+
+ bt_object_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_object *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_object *attribute =
+ bt_ctf_attributes_get_field_value_by_name(
+ trace->environment, name);
+
+ if (attribute) {
+ BT_OBJECT_PUT(attribute);
+ ret = -1;
+ goto end;
+ }
}
- g_ptr_array_add(trace->environment, var);
- return ret;
+ env_value_string_obj = bt_object_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_object_freeze(env_value_string_obj);
}
+ ret = bt_ctf_trace_set_environment_field(trace, name,
+ env_value_string_obj);
+
+end:
+ BT_OBJECT_PUT(env_value_string_obj);
- g_free(var);
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_object *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_object *attribute =
+ bt_ctf_attributes_get_field_value_by_name(
+ trace->environment, name);
+
+ if (attribute) {
+ BT_OBJECT_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_object_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_object_freeze(env_value_integer_obj);
}
+end:
+ BT_OBJECT_PUT(env_value_integer_obj);
- g_free(var);
return ret;
}
goto end;
}
- ret = trace->environment->len;
-end:
- return ret;
-}
-
-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;
- }
+ ret = bt_ctf_attributes_get_count(trace->environment);
- 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_object *bt_ctf_trace_get_environment_field_value(
+ struct bt_ctf_trace *trace, int index)
{
- struct environment_variable *var;
- const char *ret = NULL;
+ struct bt_object *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_object *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_object *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;
}
}
}
- if (_bt_ctf_stream_class_set_id(stream_class,
- trace->next_stream_id++)) {
+ if (bt_ctf_stream_class_set_id_no_check(stream_class, stream_id)) {
/* TODO Should retry with a different stream id */
ret = -1;
goto end;
}
}
+ /* Set weak reference to trace in stream class */
+ ret = bt_ctf_stream_class_set_trace(stream_class, trace);
+ if (ret) {
+ /* Stream class already part of another trace */
+ goto end;
+ }
+
bt_ctf_stream_class_get(stream_class);
g_ptr_array_add(trace->stream_classes, stream_class);
if (ret) {
goto end;
}
- bt_ctf_stream_class_freeze(stream_class);
- trace->frozen = 1;
+ bt_ctf_stream_class_freeze(stream_class);
+ bt_ctf_trace_freeze(trace);
end:
+ if (ret) {
+ (void) bt_ctf_stream_class_set_trace(stream_class, NULL);
+ }
return ret;
}
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_ctf_clock_get(clock);
+ goto end;
+ }
+ }
+
+end:
+ return clock;
+}
+
BT_HIDDEN
const char *get_byte_order_string(int byte_order)
{
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_object *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_object_get_type(env_field_value_obj)) {
+ case BT_OBJECT_TYPE_INTEGER:
+ {
+ int ret;
+ int64_t int_value;
+
+ ret = bt_object_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_OBJECT_TYPE_STRING:
+ {
+ int ret;
+ const char *str_value;
+ char *escaped_str = NULL;
+
+ ret = bt_object_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_OBJECT_PUT(env_field_value_obj);
+ }
+
g_string_append(context->string, "};\n\n");
}
return field_type;
}
+static
+void bt_ctf_trace_freeze(struct bt_ctf_trace *trace)
+{
+ bt_ctf_attributes_freeze(trace->environment);
+ trace->frozen = 1;
+}
+
static
int init_trace_packet_header(struct bt_ctf_trace *trace)
{
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);
-}