[babeltrace.git] / plugins / libctfcopytrace / ctfcopytrace.c

/*
 * copytrace.c
 *
 * Babeltrace library to create a copy of a CTF trace
 *
 * Copyright 2017 Julien Desfossez <jdesfossez@efficios.com>
 *
 * Author: Julien Desfossez <jdesfossez@efficios.com>
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 */

#define BT_LOG_TAG "PLUGIN-CTFCOPYTRACE-LIB"
#include "logging.h"

#include <babeltrace/babeltrace.h>
#include <babeltrace/assert-internal.h>

#include "ctfcopytrace.h"
#include "clock-field.h"

BT_HIDDEN
const bt_clock_class *ctf_copy_clock_class(FILE *err,
		const bt_clock_class *clock_class)
{
	int64_t offset, offset_s;
	int int_ret;
	uint64_t u64_ret;
	const char *name, *description;
	const bt_clock_class *writer_clock_class = NULL;

	BT_ASSERT(err && clock_class);

	name = bt_clock_class_get_name(clock_class);
	BT_ASSERT(name);

	writer_clock_class = bt_clock_class_create(name,
		bt_clock_class_get_frequency(clock_class));
	if (!writer_clock_class) {
		BT_LOGE_STR("Failed to create clock class.");
		goto end;
	}

	description = bt_clock_class_get_description(clock_class);
	if (description) {
		int_ret = bt_clock_class_set_description(writer_clock_class,
				description);
		BT_ASSERT(!int_ret);
	}

	u64_ret = bt_clock_class_get_precision(clock_class);
	BT_ASSERT(u64_ret != -1ULL);

	int_ret = bt_clock_class_set_precision(writer_clock_class,
		u64_ret);
	BT_ASSERT(!int_ret);

	int_ret = bt_clock_class_get_offset_s(clock_class, &offset_s);
	BT_ASSERT(!int_ret);

	int_ret = bt_clock_class_set_offset_s(writer_clock_class, offset_s);
	BT_ASSERT(!int_ret);

	int_ret = bt_clock_class_get_offset_cycles(clock_class, &offset);
	BT_ASSERT(!int_ret);

	int_ret = bt_clock_class_set_offset_cycles(writer_clock_class, offset);
	BT_ASSERT(!int_ret);

	int_ret = bt_clock_class_origin_is_unix_epoch(clock_class);
	BT_ASSERT(int_ret >= 0);

	int_ret = bt_clock_class_set_origin_is_unix_epoch(writer_clock_class, int_ret);
	BT_ASSERT(!int_ret);

end:
	return writer_clock_class;
}

BT_HIDDEN
bt_component_status ctf_copy_clock_classes(FILE *err,
		const bt_trace *writer_trace,
		const bt_stream_class *writer_stream_class,
		const bt_trace *trace)
{
	bt_component_status ret;
	int int_ret, clock_class_count, i;

	clock_class_count = bt_trace_get_clock_class_count(trace);

	for (i = 0; i < clock_class_count; i++) {
		const bt_clock_class *writer_clock_class;
		const bt_clock_class *clock_class =
			bt_trace_get_clock_class_by_index(trace, i);

		BT_ASSERT(clock_class);

		writer_clock_class = ctf_copy_clock_class(err, clock_class);
		bt_clock_class_put_ref(clock_class);
		if (!writer_clock_class) {
			BT_LOGE_STR("Failed to copy clock class.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}

		int_ret = bt_trace_add_clock_class(writer_trace, writer_clock_class);
		if (int_ret != 0) {
			BT_CLOCK_CLASS_PUT_REF_AND_RESET(writer_clock_class);
			BT_LOGE_STR("Failed to add clock class.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}

		/*
		 * Ownership transferred to the trace.
		 */
		bt_clock_class_put_ref(writer_clock_class);
	}

	ret = BT_COMPONENT_STATUS_OK;

end:
	return ret;
}

static
void replace_clock_classes(const bt_trace *trace_copy,
		bt_field_type *field_type)
{
	int ret;

	BT_ASSERT(trace_copy);
	BT_ASSERT(field_type);

	switch (bt_field_type_get_type_id(field_type)) {
	case BT_FIELD_TYPE_ID_INTEGER:
	{
		const bt_clock_class *mapped_clock_class =
			bt_field_type_integer_get_mapped_clock_class(field_type);
		const bt_clock_class *clock_class_copy = NULL;
		const char *name;

		if (!mapped_clock_class) {
			break;
		}

		name = bt_clock_class_get_name(mapped_clock_class);
		BT_ASSERT(name);
		clock_class_copy = bt_trace_get_clock_class_by_name(
			trace_copy, name);
		BT_ASSERT(clock_class_copy);
		ret = bt_field_type_integer_set_mapped_clock_class(
			field_type, clock_class_copy);
		BT_ASSERT(ret == 0);
		bt_clock_class_put_ref(mapped_clock_class);
		bt_clock_class_put_ref(clock_class_copy);
		break;
	}
	case BT_FIELD_TYPE_ID_ENUM:
	case BT_FIELD_TYPE_ID_ARRAY:
	case BT_FIELD_TYPE_ID_SEQUENCE:
	{
		bt_field_type *subtype = NULL;

		switch (bt_field_type_get_type_id(field_type)) {
		case BT_FIELD_TYPE_ID_ENUM:
			subtype = bt_field_type_enumeration_get_container_type(
				field_type);
			break;
		case BT_FIELD_TYPE_ID_ARRAY:
			subtype = bt_field_type_array_get_element_type(
				field_type);
			break;
		case BT_FIELD_TYPE_ID_SEQUENCE:
			subtype = bt_field_type_sequence_get_element_type(
				field_type);
			break;
		default:
			BT_LOGF("Unexpected field type ID: id=%d",
				bt_field_type_get_type_id(field_type));
			abort();
		}

		BT_ASSERT(subtype);
		replace_clock_classes(trace_copy, subtype);
		bt_object_put_ref(subtype);
		break;
	}
	case BT_FIELD_TYPE_ID_STRUCT:
	{
		uint64_t i;
		int64_t count = bt_field_type_structure_get_field_count(
			field_type);

		for (i = 0; i < count; i++) {
			const char *name;
			bt_field_type *member_type;

			ret = bt_field_type_structure_get_field_by_index(
				field_type, &name, &member_type, i);
			BT_ASSERT(ret == 0);
			replace_clock_classes(trace_copy, member_type);
			bt_object_put_ref(member_type);
		}

		break;
	}
	case BT_FIELD_TYPE_ID_VARIANT:
	{
		uint64_t i;
		int64_t count = bt_field_type_variant_get_field_count(
			field_type);

		for (i = 0; i < count; i++) {
			const char *name;
			bt_field_type *member_type;

			ret = bt_field_type_variant_get_field_by_index(
				field_type, &name, &member_type, i);
			BT_ASSERT(ret == 0);
			replace_clock_classes(trace_copy, member_type);
			bt_object_put_ref(member_type);
		}

		break;
	}
	default:
		break;
	}
}

BT_HIDDEN
const bt_event_class *ctf_copy_event_class(FILE *err,
		const bt_trace *trace_copy,
		const bt_event_class *event_class)
{
	const bt_event_class *writer_event_class = NULL;
	bt_field_type *context = NULL, *payload_type = NULL;
	const char *name;
	int ret;
	int64_t id;
	bt_event_class_log_level log_level;
	const char *emf_uri;

	name = bt_event_class_get_name(event_class);

	writer_event_class = bt_event_class_create(name);
	BT_ASSERT(writer_event_class);

	id = bt_event_class_get_id(event_class);
	BT_ASSERT(id >= 0);

	ret = bt_event_class_set_id(writer_event_class, id);
	if (ret) {
		BT_LOGE_STR("Failed to set event_class id.");
		goto error;
	}

	log_level = bt_event_class_get_log_level(event_class);
	if (log_level < 0) {
		BT_LOGE_STR("Failed to get log_level.");
		goto error;
	}

	ret = bt_event_class_set_log_level(writer_event_class, log_level);
	if (ret) {
		BT_LOGE_STR("Failed to set log_level.");
		goto error;
	}

	emf_uri = bt_event_class_get_emf_uri(event_class);
	if (emf_uri) {
		ret = bt_event_class_set_emf_uri(writer_event_class,
			emf_uri);
		if (ret) {
			BT_LOGE_STR("Failed to set emf uri.");
			goto error;
		}
	}

	payload_type = bt_event_class_get_payload_type(event_class);
	if (payload_type) {
		bt_field_type *ft_copy =
			bt_field_type_copy(payload_type);

		if (!ft_copy) {
			BT_LOGE_STR("Cannot copy payload field type.");
		}

		replace_clock_classes(trace_copy, ft_copy);
		ret = bt_event_class_set_payload_type(writer_event_class,
				ft_copy);
		bt_object_put_ref(ft_copy);
		if (ret < 0) {
			BT_LOGE_STR("Failed to set payload type.");
			goto error;
		}
	}

	context = bt_event_class_get_context_type(event_class);
	if (context) {
		bt_field_type *ft_copy =
			bt_field_type_copy(context);

		if (!ft_copy) {
			BT_LOGE_STR("Cannot copy context field type.");
		}

		ret = bt_event_class_set_context_type(
				writer_event_class, ft_copy);
		bt_object_put_ref(ft_copy);
		if (ret < 0) {
			BT_LOGE_STR("Failed to set context type.");
			goto error;
		}
	}

	goto end;

error:
	BT_EVENT_CLASS_PUT_REF_AND_RESET(writer_event_class);
end:
	BT_OBJECT_PUT_REF_AND_RESET(context);
	BT_OBJECT_PUT_REF_AND_RESET(payload_type);
	return writer_event_class;
}

BT_HIDDEN
bt_component_status ctf_copy_event_classes(FILE *err,
		const bt_stream_class *stream_class,
		const bt_stream_class *writer_stream_class)
{
	bt_component_status ret = BT_COMPONENT_STATUS_OK;
	const bt_event_class *event_class = NULL, *writer_event_class = NULL;
	int count, i;
	const bt_trace *writer_trace =
		bt_stream_class_get_trace(writer_stream_class);

	BT_ASSERT(writer_trace);
	count = bt_stream_class_get_event_class_count(stream_class);
	BT_ASSERT(count >= 0);

	for (i = 0; i < count; i++) {
		int int_ret;

		event_class = bt_stream_class_get_event_class_by_index(
				stream_class, i);
		BT_ASSERT(event_class);

		if (i < bt_stream_class_get_event_class_count(writer_stream_class)) {
			writer_event_class = bt_stream_class_get_event_class_by_index(
					writer_stream_class, i);
			if (writer_event_class) {
				/*
				 * If the writer_event_class already exists,
				 * just skip it. It can be used to resync the
				 * event_classes after a trace has become
				 * static.
				 */
				BT_EVENT_CLASS_PUT_REF_AND_RESET(writer_event_class);
				BT_EVENT_CLASS_PUT_REF_AND_RESET(event_class);
				continue;
			}
		}

		writer_event_class = ctf_copy_event_class(err, writer_trace,
			event_class);
		if (!writer_event_class) {
			BT_LOGE_STR("Failed to copy event_class.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto error;
		}

		int_ret = bt_stream_class_add_event_class(writer_stream_class,
				writer_event_class);
		if (int_ret < 0) {
			BT_LOGE_STR("Failed to add event class.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto error;
		}
		BT_EVENT_CLASS_PUT_REF_AND_RESET(writer_event_class);
		BT_EVENT_CLASS_PUT_REF_AND_RESET(event_class);
	}

	goto end;

error:
	bt_event_class_put_ref(event_class);
	bt_event_class_put_ref(writer_event_class);
end:
	bt_trace_put_ref(writer_trace);
	return ret;
}

BT_HIDDEN
const bt_stream_class *ctf_copy_stream_class(FILE *err,
		const bt_stream_class *stream_class,
		const bt_trace *writer_trace,
		bool override_ts64)
{
	bt_field_type *type = NULL;
	bt_field_type *type_copy = NULL;
	const bt_stream_class *writer_stream_class = NULL;
	int ret_int;
	const char *name = bt_stream_class_get_name(stream_class);

	writer_stream_class = bt_stream_class_create_empty(name);
	BT_ASSERT(writer_stream_class);

	type = bt_stream_class_get_packet_context_type(stream_class);
	if (type) {
		type_copy = bt_field_type_copy(type);
		if (!type_copy) {
			BT_LOGE_STR("Cannot copy packet context field type.");
		}

		replace_clock_classes(writer_trace, type_copy);
		ret_int = bt_stream_class_set_packet_context_type(
				writer_stream_class, type_copy);
		BT_OBJECT_PUT_REF_AND_RESET(type_copy);
		if (ret_int < 0) {
			BT_LOGE_STR("Failed to set packet_context type.");
			goto error;
		}
		BT_OBJECT_PUT_REF_AND_RESET(type);
	}

	type = bt_stream_class_get_event_header_type(stream_class);
	if (type) {
		type_copy = bt_field_type_copy(type);
		if (!type_copy) {
			BT_LOGE_STR("Cannot copy event header field type.");
		}

		ret_int = bt_trace_get_clock_class_count(writer_trace);
		BT_ASSERT(ret_int >= 0);
		if (override_ts64 && ret_int > 0) {
			bt_field_type *new_event_header_type;

			new_event_header_type = override_header_type(err, type_copy,
					writer_trace);
			if (!new_event_header_type) {
				BT_LOGE_STR("Failed to override header type.");
				goto error;
			}
			replace_clock_classes(writer_trace, type_copy);
			ret_int = bt_stream_class_set_event_header_type(
					writer_stream_class, new_event_header_type);
			BT_OBJECT_PUT_REF_AND_RESET(type_copy);
			BT_OBJECT_PUT_REF_AND_RESET(new_event_header_type);
			if (ret_int < 0) {
				BT_LOGE_STR("Failed to set event_header type.");
				goto error;
			}
		} else {
			replace_clock_classes(writer_trace, type_copy);
			ret_int = bt_stream_class_set_event_header_type(
					writer_stream_class, type_copy);
			BT_OBJECT_PUT_REF_AND_RESET(type_copy);
			if (ret_int < 0) {
				BT_LOGE_STR("Failed to set event_header type.");
				goto error;
			}
		}
		BT_OBJECT_PUT_REF_AND_RESET(type);
	}

	type = bt_stream_class_get_event_context_type(stream_class);
	if (type) {
		type_copy = bt_field_type_copy(type);
		if (!type_copy) {
			BT_LOGE_STR("Cannot copy event context field type.");
		}

		replace_clock_classes(writer_trace, type_copy);
		ret_int = bt_stream_class_set_event_context_type(
				writer_stream_class, type_copy);
		BT_OBJECT_PUT_REF_AND_RESET(type_copy);
		if (ret_int < 0) {
			BT_LOGE_STR("Failed to set event_contexttype.");
			goto error;
		}
	}
	BT_OBJECT_PUT_REF_AND_RESET(type);

	goto end;

error:
	BT_STREAM_CLASS_PUT_REF_AND_RESET(writer_stream_class);
end:
	bt_object_put_ref(type);
	bt_object_put_ref(type_copy);
	return writer_stream_class;
}

BT_HIDDEN
int ctf_stream_copy_packet_header(FILE *err, const bt_packet *packet,
		const bt_stream *writer_stream)
{
	const bt_field *packet_header = NULL, *writer_packet_header = NULL;
	int ret = 0;

	packet_header = bt_packet_get_header(packet);
	if (!packet_header) {
		goto end;
	}

	writer_packet_header = bt_field_copy(packet_header);
	if (!writer_packet_header) {
		BT_LOGE_STR("Failed to copy field from stream packet header.");
		goto error;
	}

	ret = bt_stream_set_packet_header(writer_stream,
			writer_packet_header);
	if (ret) {
		BT_LOGE_STR("Failed to set stream packet header.");
		goto error;
	}

	goto end;

error:
	ret = -1;
end:
	bt_object_put_ref(writer_packet_header);
	bt_object_put_ref(packet_header);
	return ret;
}

BT_HIDDEN
int ctf_packet_copy_header(FILE *err, const bt_packet *packet,
		const bt_packet *writer_packet)
{
	const bt_field *packet_header = NULL, *writer_packet_header = NULL;
	int ret = 0;

	packet_header = bt_packet_get_header(packet);
	if (!packet_header) {
		goto end;
	}

	writer_packet_header = bt_field_copy(packet_header);
	if (!writer_packet_header) {
		BT_LOGE_STR("Failed to copy field from packet header.");
		goto error;
	}

	ret = bt_packet_set_header(writer_packet, writer_packet_header);
	if (ret) {
		BT_LOGE_STR("Failed to set packet header.");
		goto error;
	}

	goto end;

error:
	ret = -1;
end:
	bt_object_put_ref(packet_header);
	bt_object_put_ref(writer_packet_header);
	return ret;
}

BT_HIDDEN
int ctf_stream_copy_packet_context(FILE *err, const bt_packet *packet,
		const bt_stream *writer_stream)
{
	const bt_field *packet_context = NULL, *writer_packet_context = NULL;
	int ret = 0;

	packet_context = bt_packet_get_context(packet);
	if (!packet_context) {
		goto end;
	}

	writer_packet_context = bt_field_copy(packet_context);
	if (!writer_packet_context) {
		BT_LOGE_STR("Failed to copy field from stream packet context.");
		goto error;
	}

	ret = bt_stream_set_packet_context(writer_stream,
			writer_packet_context);
	if (ret) {
		BT_LOGE_STR("Failed to set stream packet context.");
		goto error;
	}

	goto end;

error:
	ret = -1;
end:
	bt_object_put_ref(packet_context);
	bt_object_put_ref(writer_packet_context);
	return ret;
}

BT_HIDDEN
int ctf_packet_copy_context(FILE *err, const bt_packet *packet,
		const bt_stream *writer_stream,
		const bt_packet *writer_packet)
{
	const bt_field *packet_context = NULL, *writer_packet_context = NULL;
	int ret = 0;

	packet_context = bt_packet_get_context(packet);
	if (!packet_context) {
		goto end;
	}

	writer_packet_context = bt_field_copy(packet_context);
	if (!writer_packet_context) {
		BT_LOGE_STR("Failed to copy field from packet context.");
		goto error;
	}

	ret = bt_packet_set_context(writer_packet, writer_packet_context);
	if (ret) {
		BT_LOGE_STR("Failed to set packet context.");
		goto error;
	}

	goto end;

error:
	ret = -1;
end:
	bt_object_put_ref(writer_packet_context);
	bt_object_put_ref(packet_context);
	return ret;
}

BT_HIDDEN
int ctf_copy_event_header(FILE *err, const bt_event *event,
		const bt_event_class *writer_event_class,
		const bt_event *writer_event,
		const bt_field *event_header)
{
	const bt_clock_class *clock_class = NULL, *writer_clock_class = NULL;
	bt_clock_snapshot *clock_snapshot = NULL, *writer_clock_snapshot = NULL;

	int ret;
	const bt_field *writer_event_header = NULL;
	uint64_t value;

	clock_class = event_get_clock_class(err, event);
	if (!clock_class) {
		BT_LOGE_STR("Failed to get event clock_class.");
		goto error;
	}

	clock_snapshot = bt_event_get_clock_snapshot(event, clock_class);
	BT_CLOCK_CLASS_PUT_REF_AND_RESET(clock_class);
	BT_ASSERT(clock_snapshot);

	ret = bt_clock_snapshot_get_value(clock_snapshot, &value);
	BT_OBJECT_PUT_REF_AND_RESET(clock_snapshot);
	if (ret) {
		BT_LOGE_STR("Failed to get clock value.");
		goto error;
	}

	writer_clock_class = event_get_clock_class(err, writer_event);
	if (!writer_clock_class) {
		BT_LOGE_STR("Failed to get event clock_class.");
		goto error;
	}

	writer_clock_snapshot = bt_clock_snapshot_create(writer_clock_class, value);
	BT_CLOCK_CLASS_PUT_REF_AND_RESET(writer_clock_class);
	if (!writer_clock_snapshot) {
		BT_LOGE_STR("Failed to create clock value.");
		goto error;
	}

	ret = bt_event_set_clock_snapshot(writer_event, writer_clock_snapshot);
	BT_OBJECT_PUT_REF_AND_RESET(writer_clock_snapshot);
	if (ret) {
		BT_LOGE_STR("Failed to set clock value.");
		goto error;
	}

	writer_event_header = bt_field_copy(event_header);
	if (!writer_event_header) {
		BT_LOGE_STR("Failed to copy event_header.");
		goto end;
	}

	ret = bt_event_set_header(writer_event, writer_event_header);
	BT_OBJECT_PUT_REF_AND_RESET(writer_event_header);
	if (ret < 0) {
		BT_LOGE_STR("Failed to set event_header.");
		goto error;
	}

	ret = 0;

	goto end;

error:
	ret = -1;
end:
	return ret;
}

static
const bt_trace *event_class_get_trace(FILE *err,
		const bt_event_class *event_class)
{
	const bt_trace *trace = NULL;
	const bt_stream_class *stream_class = NULL;

	stream_class = bt_event_class_get_stream_class(event_class);
	BT_ASSERT(stream_class);

	trace = bt_stream_class_get_trace(stream_class);
	BT_ASSERT(trace);

	bt_stream_class_put_ref(stream_class);
	return trace;
}

BT_HIDDEN
const bt_event *ctf_copy_event(FILE *err, const bt_event *event,
		const bt_event_class *writer_event_class,
		bool override_ts64)
{
	const bt_event *writer_event = NULL;
	const bt_field *field = NULL, *copy_field = NULL;
	const bt_trace *writer_trace = NULL;
	int ret;

	writer_event = bt_event_create(writer_event_class);
	if (!writer_event) {
		BT_LOGE_STR("Failed to create event.");
		goto error;
	}

	writer_trace = event_class_get_trace(err, writer_event_class);
	if (!writer_trace) {
		BT_LOGE_STR("Failed to get trace from event_class.");
		goto error;
	}

	field = bt_event_get_header(event);
	if (field) {
		/*
		 * If override_ts64, we override all integer fields mapped to a
		 * clock to a uint64_t field type, otherwise, we just copy it as
		 * is.
		 */
		ret = bt_trace_get_clock_class_count(writer_trace);
		BT_ASSERT(ret >= 0);

		if (override_ts64 && ret > 0) {
			copy_field = bt_event_get_header(writer_event);
			BT_ASSERT(copy_field);

			ret = copy_override_field(err, event, writer_event, field,
					copy_field);
			if (ret) {
				BT_LOGE_STR("Failed to copy and override field.");
				goto error;
			}
			BT_OBJECT_PUT_REF_AND_RESET(copy_field);
		} else {
			ret = ctf_copy_event_header(err, event, writer_event_class,
					writer_event, field);
			if (ret) {
				BT_LOGE_STR("Failed to copy event_header.");
				goto error;
			}
		}
		BT_OBJECT_PUT_REF_AND_RESET(field);
	}

	/* Optional field, so it can fail silently. */
	field = bt_event_get_stream_event_context(event);
	if (field) {
		copy_field = bt_field_copy(field);
		if (!copy_field) {
			BT_LOGE_STR("Failed to copy field.");
			goto error;
		}
		ret = bt_event_set_stream_event_context(writer_event,
				copy_field);
		if (ret < 0) {
			BT_LOGE_STR("Failed to set stream_event_context.");
			goto error;
		}
		BT_OBJECT_PUT_REF_AND_RESET(field);
		BT_OBJECT_PUT_REF_AND_RESET(copy_field);
	}

	/* Optional field, so it can fail silently. */
	field = bt_event_get_event_context(event);
	if (field) {
		copy_field = bt_field_copy(field);
		if (!copy_field) {
			BT_LOGE_STR("Failed to copy field.");
			goto error;
		}
		ret = bt_event_set_event_context(writer_event, copy_field);
		if (ret < 0) {
			BT_LOGE_STR("Failed to set event_context.");
			goto error;
		}
		BT_OBJECT_PUT_REF_AND_RESET(field);
		BT_OBJECT_PUT_REF_AND_RESET(copy_field);
	}

	field = bt_event_get_event_payload(event);
	if (field) {
		copy_field = bt_field_copy(field);
		if (!copy_field) {
			BT_LOGE_STR("Failed to copy field.");
			goto error;
		}
		ret = bt_event_set_event_payload(writer_event, copy_field);
		if (ret < 0) {
			BT_LOGE_STR("Failed to set event_payload.");
			goto error;
		}
		BT_OBJECT_PUT_REF_AND_RESET(field);
		BT_OBJECT_PUT_REF_AND_RESET(copy_field);
	}

	goto end;

error:
	BT_OBJECT_PUT_REF_AND_RESET(writer_event);
end:
	bt_object_put_ref(field);
	bt_object_put_ref(copy_field);
	bt_trace_put_ref(writer_trace);
	return writer_event;
}

BT_HIDDEN
bt_component_status ctf_copy_trace(FILE *err, const bt_trace *trace,
		const bt_trace *writer_trace)
{
	bt_component_status ret = BT_COMPONENT_STATUS_OK;
	int field_count, i, int_ret;
	bt_field_type *header_type = NULL;
	bt_byte_order order;
	const char *trace_name;
	const unsigned char *trace_uuid;

	field_count = bt_trace_get_environment_field_count(trace);
	for (i = 0; i < field_count; i++) {
		int ret_int;
		const char *name;
		bt_value *value = NULL;

		name = bt_trace_get_environment_field_name_by_index(
			trace, i);
		BT_ASSERT(name);

		value = bt_trace_get_environment_field_value_by_index(
			trace, i);
		BT_ASSERT(value);

		ret_int = bt_trace_set_environment_field(writer_trace,
				name, value);
		BT_VALUE_PUT_REF_AND_RESET(value);
		if (ret_int < 0) {
			BT_LOGE("Failed to set environment: field-name=\"%s\"",
					name);
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}
	}

	order = bt_trace_get_native_byte_order(trace);
	BT_ASSERT(order != BT_BYTE_ORDER_UNKNOWN);

	/*
	 * Only explicitly set the writer trace's native byte order if
	 * the original trace has a specific one. Otherwise leave what
	 * the CTF writer object chooses, which is the machine's native
	 * byte order.
	 */
	if (order != BT_BYTE_ORDER_UNSPECIFIED) {
		ret = bt_trace_set_native_byte_order(writer_trace, order);
		if (ret) {
			BT_LOGE_STR("Failed to set native byte order.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}
	}

	header_type = bt_trace_get_packet_header_type(trace);
	if (header_type) {
		int_ret = bt_trace_set_packet_header_type(writer_trace, header_type);
		BT_OBJECT_PUT_REF_AND_RESET(header_type);
		if (int_ret < 0) {
			BT_LOGE_STR("Failed to set packet header type.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}
	}

	trace_name = bt_trace_get_name(trace);
	if (trace_name) {
		int_ret = bt_trace_set_name(writer_trace, trace_name);
		if (int_ret < 0) {
			BT_LOGE_STR("Failed to set trace name.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}
	}

	trace_uuid = bt_trace_get_uuid(trace);
	if (trace_uuid) {
		int_ret = bt_trace_set_uuid(writer_trace, trace_uuid);
		if (int_ret < 0) {
			BT_LOGE_STR("Failed to set trace UUID.");
			ret = BT_COMPONENT_STATUS_ERROR;
			goto end;
		}
	}

end:
	return ret;
}