2 * Babeltrace - Trace IR data object copy
4 * Copyright (c) 2015-2019 EfficiOS Inc. and Linux Foundation
5 * Copyright (c) 2019 Francis Deslauriers <francis.deslauriers@efficios.com>
7 * Permission is hereby granted, free of charge, to any person obtaining a copy
8 * of this software and associated documentation files (the "Software"), to deal
9 * in the Software without restriction, including without limitation the rights
10 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
11 * copies of the Software, and to permit persons to whom the Software is
12 * furnished to do so, subject to the following conditions:
14 * The above copyright notice and this permission notice shall be included in
15 * all copies or substantial portions of the Software.
17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
18 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
19 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
20 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
21 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
22 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
26 #define BT_COMP_LOG_SELF_COMP self_comp
27 #define BT_LOG_OUTPUT_LEVEL log_level
28 #define BT_LOG_TAG "PLUGIN/FLT.LTTNG-UTILS.DEBUG-INFO/TRACE-IR-DATA-COPY"
29 #include "logging/comp-logging.h"
34 #include "common/assert.h"
36 #include "trace-ir-data-copy.h"
39 void copy_trace_content(const bt_trace
*in_trace
, bt_trace
*out_trace
,
40 bt_logging_level log_level
, bt_self_component
*self_comp
)
42 bt_trace_set_name_status status
;
43 const char *trace_name
;
44 uint64_t i
, env_field_count
;
46 BT_COMP_LOGD("Copying content of trace: in-t-addr=%p, out-t-addr=%p",
48 trace_name
= bt_trace_get_name(in_trace
);
49 /* Copy the trace name. */
51 status
= bt_trace_set_name(out_trace
, trace_name
);
52 if (status
!= BT_TRACE_SET_NAME_STATUS_OK
) {
53 BT_COMP_LOGE("Cannot set trace's name: trace-addr=%p, name=\"%s\"",
54 out_trace
, trace_name
);
55 bt_current_thread_clear_error();
61 * Safe to use the same value object because it's frozen at this
64 bt_trace_set_user_attributes(out_trace
,
65 bt_trace_borrow_user_attributes_const(in_trace
));
68 * Do not copy the trace UUID as it may be modified and should
69 * no longer have the same UUID.
73 * Go over all the entries in the environment section of the
74 * trace and copy the content to the new trace.
76 env_field_count
= bt_trace_get_environment_entry_count(in_trace
);
77 for (i
= 0; i
< env_field_count
; i
++) {
78 const char *value_name
;
79 const bt_value
*value
= NULL
;
80 bt_trace_set_environment_entry_status set_env_status
;
82 bt_trace_borrow_environment_entry_by_index_const(
83 in_trace
, i
, &value_name
, &value
);
85 BT_COMP_LOGD("Copying trace environnement entry: "
86 "index=%" PRId64
", value-addr=%p, value-name=%s",
87 i
, value
, value_name
);
89 BT_ASSERT(value_name
);
92 if (bt_value_is_signed_integer(value
)) {
93 set_env_status
= bt_trace_set_environment_entry_integer(
94 out_trace
, value_name
,
95 bt_value_integer_signed_get( value
));
96 } else if (bt_value_is_string(value
)) {
97 set_env_status
= bt_trace_set_environment_entry_string(
98 out_trace
, value_name
,
99 bt_value_string_get(value
));
104 if (set_env_status
!= BT_TRACE_SET_ENVIRONMENT_ENTRY_STATUS_OK
) {
105 BT_COMP_LOGE("Cannot copy trace's environment: "
106 "trace-addr=%p, name=\"%s\"",
107 out_trace
, trace_name
);
108 bt_current_thread_clear_error();
113 BT_COMP_LOGD("Copied content of trace: in-t-addr=%p, out-t-addr=%p",
114 in_trace
, out_trace
);
120 void copy_stream_content(const bt_stream
*in_stream
, bt_stream
*out_stream
,
121 bt_logging_level log_level
, bt_self_component
*self_comp
)
123 const char *stream_name
;
124 bt_stream_set_name_status status
;
126 BT_COMP_LOGD("Copying content of stream: in-s-addr=%p, out-s-addr=%p",
127 in_stream
, out_stream
);
129 stream_name
= bt_stream_get_name(in_stream
);
131 status
= bt_stream_set_name(out_stream
, stream_name
);
132 if (status
!= BT_STREAM_SET_NAME_STATUS_OK
) {
133 BT_COMP_LOGE("Cannot set stream's name: stream-addr=%p, "
134 "name=%s", out_stream
, stream_name
);
140 * Safe to use the same value object because it's frozen at this
143 bt_stream_set_user_attributes(out_stream
,
144 bt_stream_borrow_user_attributes_const(in_stream
));
145 BT_COMP_LOGD("Copied content of stream: in-s-addr=%p, out-s-addr=%p",
146 in_stream
, out_stream
);
152 void copy_packet_content(const bt_packet
*in_packet
, bt_packet
*out_packet
,
153 bt_logging_level log_level
, bt_self_component
*self_comp
)
155 const bt_field
*in_context_field
;
156 bt_field
*out_context_field
;
158 BT_COMP_LOGD("Copying content of packet: in-p-addr=%p, out-p-addr=%p",
159 in_packet
, out_packet
);
161 /* Copy context field. */
162 in_context_field
= bt_packet_borrow_context_field_const(in_packet
);
163 if (in_context_field
) {
164 out_context_field
= bt_packet_borrow_context_field(out_packet
);
165 BT_ASSERT(out_context_field
);
166 copy_field_content(in_context_field
, out_context_field
,
167 log_level
, self_comp
);
170 BT_COMP_LOGD("Copied content of packet: in-p-addr=%p, out-p-addr=%p",
171 in_packet
, out_packet
);
176 void copy_event_content(const bt_event
*in_event
, bt_event
*out_event
,
177 bt_logging_level log_level
, bt_self_component
*self_comp
)
179 const bt_field
*in_common_ctx_field
, *in_specific_ctx_field
,
181 bt_field
*out_common_ctx_field
, *out_specific_ctx_field
,
184 BT_COMP_LOGD("Copying content of event: in-e-addr=%p, out-e-addr=%p",
185 in_event
, out_event
);
186 in_common_ctx_field
=
187 bt_event_borrow_common_context_field_const(in_event
);
188 if (in_common_ctx_field
) {
189 out_common_ctx_field
=
190 bt_event_borrow_common_context_field(out_event
);
191 BT_ASSERT(out_common_ctx_field
);
192 copy_field_content(in_common_ctx_field
,
193 out_common_ctx_field
, log_level
, self_comp
);
196 in_specific_ctx_field
=
197 bt_event_borrow_specific_context_field_const(in_event
);
198 if (in_specific_ctx_field
) {
199 out_specific_ctx_field
=
200 bt_event_borrow_specific_context_field(out_event
);
201 BT_ASSERT(out_specific_ctx_field
);
202 copy_field_content(in_specific_ctx_field
,
203 out_specific_ctx_field
, log_level
, self_comp
);
206 in_payload_field
= bt_event_borrow_payload_field_const(in_event
);
207 if (in_payload_field
) {
208 out_payload_field
= bt_event_borrow_payload_field(out_event
);
209 BT_ASSERT(out_payload_field
);
210 copy_field_content(in_payload_field
,
211 out_payload_field
, log_level
, self_comp
);
214 BT_COMP_LOGD("Copied content of event: in-e-addr=%p, out-e-addr=%p",
215 in_event
, out_event
);
219 void copy_field_content(const bt_field
*in_field
, bt_field
*out_field
,
220 bt_logging_level log_level
, bt_self_component
*self_comp
)
222 bt_field_class_type in_fc_type
, out_fc_type
;
224 in_fc_type
= bt_field_get_class_type(in_field
);
225 out_fc_type
= bt_field_get_class_type(out_field
);
226 BT_ASSERT(in_fc_type
== out_fc_type
);
228 BT_COMP_LOGT("Copying content of field: in-f-addr=%p, out-f-addr=%p",
229 in_field
, out_field
);
230 switch (in_fc_type
) {
231 case BT_FIELD_CLASS_TYPE_BOOL
:
232 bt_field_bool_set_value(out_field
,
233 bt_field_bool_get_value(in_field
));
235 case BT_FIELD_CLASS_TYPE_BIT_ARRAY
:
236 bt_field_bit_array_set_value_as_integer(out_field
,
237 bt_field_bit_array_get_value_as_integer(in_field
));
239 case BT_FIELD_CLASS_TYPE_UNSIGNED_INTEGER
:
240 case BT_FIELD_CLASS_TYPE_UNSIGNED_ENUMERATION
:
241 bt_field_integer_unsigned_set_value(out_field
,
242 bt_field_integer_unsigned_get_value(in_field
));
244 case BT_FIELD_CLASS_TYPE_SIGNED_INTEGER
:
245 case BT_FIELD_CLASS_TYPE_SIGNED_ENUMERATION
:
246 bt_field_integer_signed_set_value(out_field
,
247 bt_field_integer_signed_get_value(in_field
));
249 case BT_FIELD_CLASS_TYPE_SINGLE_PRECISION_REAL
:
250 bt_field_real_single_precision_set_value(out_field
,
251 bt_field_real_single_precision_get_value(in_field
));
253 case BT_FIELD_CLASS_TYPE_DOUBLE_PRECISION_REAL
:
254 bt_field_real_double_precision_set_value(out_field
,
255 bt_field_real_double_precision_get_value(in_field
));
257 case BT_FIELD_CLASS_TYPE_STRING
:
259 const char *str
= bt_field_string_get_value(in_field
);
260 bt_field_string_set_value_status status
=
261 bt_field_string_set_value(out_field
, str
);
262 if (status
!= BT_FIELD_STRING_SET_VALUE_STATUS_OK
) {
263 BT_COMP_LOGE("Cannot set string field's value: "
264 "str-field-addr=%p, str=%s" PRId64
,
266 bt_current_thread_clear_error();
271 case BT_FIELD_CLASS_TYPE_STRUCTURE
:
273 uint64_t i
, nb_member_struct
;
274 const bt_field
*in_member_field
;
275 bt_field
*out_member_field
;
276 const bt_field_class
*in_field_class
;
277 const char *in_member_name
;
279 in_field_class
= bt_field_borrow_class_const(in_field
);
280 nb_member_struct
= bt_field_class_structure_get_member_count(
284 * Iterate over the fields by names in the input field to avoid
285 * problem if the struct fields are not in the same order after
286 * the debug-info was added.
288 for (i
= 0; i
< nb_member_struct
; i
++) {
289 const bt_field_class_structure_member
*member
=
290 bt_field_class_structure_borrow_member_by_index_const(
294 bt_field_class_structure_member_get_name(
297 bt_field_structure_borrow_member_field_by_name_const(
298 in_field
, in_member_name
);
300 bt_field_structure_borrow_member_field_by_name(
301 out_field
, in_member_name
);
303 copy_field_content(in_member_field
,
304 out_member_field
, log_level
, self_comp
);
308 case BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY_WITHOUT_LENGTH_FIELD
:
309 case BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY_WITH_LENGTH_FIELD
:
311 case BT_FIELD_CLASS_TYPE_STATIC_ARRAY
:
313 const bt_field
*in_element_field
;
314 bt_field
*out_element_field
;
315 uint64_t i
, array_len
;
316 bt_field_array_dynamic_set_length_status set_len_status
;
318 array_len
= bt_field_array_get_length(in_field
);
320 if (in_fc_type
== BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY_WITHOUT_LENGTH_FIELD
||
321 in_fc_type
== BT_FIELD_CLASS_TYPE_DYNAMIC_ARRAY_WITH_LENGTH_FIELD
) {
322 set_len_status
= bt_field_array_dynamic_set_length(
323 out_field
, array_len
);
324 if (set_len_status
!=
325 BT_FIELD_DYNAMIC_ARRAY_SET_LENGTH_STATUS_OK
) {
326 BT_COMP_LOGE("Cannot set dynamic array field's "
327 "length field: field-addr=%p, "
328 "length=%" PRIu64
, out_field
, array_len
);
329 bt_current_thread_clear_error();
333 for (i
= 0; i
< array_len
; i
++) {
335 bt_field_array_borrow_element_field_by_index_const(
338 bt_field_array_borrow_element_field_by_index(
340 copy_field_content(in_element_field
, out_element_field
,
341 log_level
, self_comp
);
345 case BT_FIELD_CLASS_TYPE_OPTION_WITHOUT_SELECTOR_FIELD
:
346 case BT_FIELD_CLASS_TYPE_OPTION_WITH_BOOL_SELECTOR_FIELD
:
347 case BT_FIELD_CLASS_TYPE_OPTION_WITH_UNSIGNED_INTEGER_SELECTOR_FIELD
:
348 case BT_FIELD_CLASS_TYPE_OPTION_WITH_SIGNED_INTEGER_SELECTOR_FIELD
:
350 const bt_field
*in_option_field
;
351 bt_field
*out_option_field
;
353 in_option_field
= bt_field_option_borrow_field_const(in_field
);
355 if (in_option_field
) {
356 bt_field_option_set_has_field(out_field
, BT_TRUE
);
357 out_option_field
= bt_field_option_borrow_field(
359 BT_ASSERT(out_option_field
);
360 copy_field_content(in_option_field
, out_option_field
,
361 log_level
, self_comp
);
363 bt_field_option_set_has_field(out_field
, BT_FALSE
);
368 case BT_FIELD_CLASS_TYPE_VARIANT_WITHOUT_SELECTOR_FIELD
:
369 case BT_FIELD_CLASS_TYPE_VARIANT_WITH_UNSIGNED_INTEGER_SELECTOR_FIELD
:
370 case BT_FIELD_CLASS_TYPE_VARIANT_WITH_SIGNED_INTEGER_SELECTOR_FIELD
:
372 bt_field_variant_select_option_field_by_index_status sel_opt_status
;
373 uint64_t in_selected_option_idx
;
374 const bt_field
*in_option_field
;
375 bt_field
*out_option_field
;
377 in_selected_option_idx
=
378 bt_field_variant_get_selected_option_field_index(
380 sel_opt_status
= bt_field_variant_select_option_field_by_index(out_field
,
381 in_selected_option_idx
);
382 if (sel_opt_status
!=
383 BT_FIELD_VARIANT_SELECT_OPTION_FIELD_STATUS_OK
) {
384 BT_COMP_LOGE("Cannot select variant field's option field: "
385 "var-field-addr=%p, opt-index=%" PRId64
,
386 out_field
, in_selected_option_idx
);
387 bt_current_thread_clear_error();
390 in_option_field
= bt_field_variant_borrow_selected_option_field_const(in_field
);
391 out_option_field
= bt_field_variant_borrow_selected_option_field(out_field
);
393 copy_field_content(in_option_field
, out_option_field
,
394 log_level
, self_comp
);
401 BT_COMP_LOGT("Copied content of field: in-f-addr=%p, out-f-addr=%p",
402 in_field
, out_field
);