projects / libside.git / blob
? search:


d892595ecff167fd1fe7da9357c7a8d8ec77e8b7
[libside.git] / src / tracer.c
1 // SPDX-License-Identifier: MIT
2 /*
3 * Copyright 2022 Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
4 */
5
6 #include <stdint.h>
7 #include <inttypes.h>
8 #include <stdlib.h>
9 #include <stdio.h>
10 #include <stdbool.h>
11 #include <string.h>
12
13 #include <side/trace.h>
14
15 enum tracer_display_base {
16 TRACER_DISPLAY_BASE_2,
17 TRACER_DISPLAY_BASE_8,
18 TRACER_DISPLAY_BASE_10,
19 TRACER_DISPLAY_BASE_16,
20 };
21
22 static struct side_tracer_handle *tracer_handle;
23
24 static
25 void tracer_print_struct(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec);
26 static
27 void tracer_print_array(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec);
28 static
29 void tracer_print_vla(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec);
30 static
31 void tracer_print_vla_visitor(const struct side_type *type_desc, void *app_ctx);
32 static
33 void tracer_print_dynamic(const struct side_arg *dynamic_item);
34 static
35 uint32_t tracer_print_gather_bool_type(const struct side_type_gather *type_gather, const void *_ptr);
36 static
37 uint32_t tracer_print_gather_byte_type(const struct side_type_gather *type_gather, const void *_ptr);
38 static
39 uint32_t tracer_print_gather_integer_type(const struct side_type_gather *type_gather, const void *_ptr,
40 enum tracer_display_base default_base);
41 static
42 uint32_t tracer_print_gather_float_type(const struct side_type_gather *type_gather, const void *_ptr);
43 static
44 uint32_t tracer_print_gather_struct(const struct side_type_gather *type_gather, const void *_ptr);
45 static
46 uint32_t tracer_print_gather_array(const struct side_type_gather *type_gather, const void *_ptr);
47 static
48 uint32_t tracer_print_gather_vla(const struct side_type_gather *type_gather, const void *_ptr,
49 const void *_length_ptr);
50 static
51 void tracer_print_type(const struct side_type *type_desc, const struct side_arg *item);
52
53 static
54 int64_t get_attr_integer_value(const struct side_attr *attr)
55 {
56 int64_t val;
57
58 switch (attr->value.type) {
59 case SIDE_ATTR_TYPE_U8:
60 val = attr->value.u.integer_value.side_u8;
61 break;
62 case SIDE_ATTR_TYPE_U16:
63 val = attr->value.u.integer_value.side_u16;
64 break;
65 case SIDE_ATTR_TYPE_U32:
66 val = attr->value.u.integer_value.side_u32;
67 break;
68 case SIDE_ATTR_TYPE_U64:
69 val = attr->value.u.integer_value.side_u64;
70 break;
71 case SIDE_ATTR_TYPE_S8:
72 val = attr->value.u.integer_value.side_s8;
73 break;
74 case SIDE_ATTR_TYPE_S16:
75 val = attr->value.u.integer_value.side_s16;
76 break;
77 case SIDE_ATTR_TYPE_S32:
78 val = attr->value.u.integer_value.side_s32;
79 break;
80 case SIDE_ATTR_TYPE_S64:
81 val = attr->value.u.integer_value.side_s64;
82 break;
83 default:
84 fprintf(stderr, "Unexpected attribute type\n");
85 abort();
86 }
87 return val;
88 }
89
90 static
91 enum tracer_display_base get_attr_display_base(const struct side_attr *_attr, uint32_t nr_attr,
92 enum tracer_display_base default_base)
93 {
94 uint32_t i;
95
96 for (i = 0; i < nr_attr; i++) {
97 const struct side_attr *attr = &_attr[i];
98
99 if (!strcmp(attr->key, "std.integer.base")) {
100 int64_t val = get_attr_integer_value(attr);
101
102 switch (val) {
103 case 2:
104 return TRACER_DISPLAY_BASE_2;
105 case 8:
106 return TRACER_DISPLAY_BASE_8;
107 case 10:
108 return TRACER_DISPLAY_BASE_10;
109 case 16:
110 return TRACER_DISPLAY_BASE_16;
111 default:
112 fprintf(stderr, "Unexpected integer display base: %" PRId64 "\n", val);
113 abort();
114 }
115 }
116 }
117 return default_base; /* Default */
118 }
119
120 static
121 bool type_to_host_reverse_bo(const struct side_type *type_desc)
122 {
123 switch (type_desc->type) {
124 case SIDE_TYPE_U8:
125 case SIDE_TYPE_S8:
126 case SIDE_TYPE_BYTE:
127 return false;
128 case SIDE_TYPE_U16:
129 case SIDE_TYPE_U32:
130 case SIDE_TYPE_U64:
131 case SIDE_TYPE_S16:
132 case SIDE_TYPE_S32:
133 case SIDE_TYPE_S64:
134 case SIDE_TYPE_POINTER:
135 if (type_desc->u.side_integer.byte_order != SIDE_TYPE_BYTE_ORDER_HOST)
136 return true;
137 else
138 return false;
139 break;
140 case SIDE_TYPE_FLOAT_BINARY16:
141 case SIDE_TYPE_FLOAT_BINARY32:
142 case SIDE_TYPE_FLOAT_BINARY64:
143 case SIDE_TYPE_FLOAT_BINARY128:
144 if (type_desc->u.side_float.byte_order != SIDE_TYPE_FLOAT_WORD_ORDER_HOST)
145 return true;
146 else
147 return false;
148 break;
149 default:
150 fprintf(stderr, "Unexpected type\n");
151 abort();
152 }
153 }
154
155 static
156 void tracer_print_attr_type(const char *separator, const struct side_attr *attr)
157 {
158 printf("{ key%s \"%s\", value%s ", separator, attr->key, separator);
159 switch (attr->value.type) {
160 case SIDE_ATTR_TYPE_BOOL:
161 printf("%s", attr->value.u.bool_value ? "true" : "false");
162 break;
163 case SIDE_ATTR_TYPE_U8:
164 printf("%" PRIu8, attr->value.u.integer_value.side_u8);
165 break;
166 case SIDE_ATTR_TYPE_U16:
167 printf("%" PRIu16, attr->value.u.integer_value.side_u16);
168 break;
169 case SIDE_ATTR_TYPE_U32:
170 printf("%" PRIu32, attr->value.u.integer_value.side_u32);
171 break;
172 case SIDE_ATTR_TYPE_U64:
173 printf("%" PRIu64, attr->value.u.integer_value.side_u64);
174 break;
175 case SIDE_ATTR_TYPE_S8:
176 printf("%" PRId8, attr->value.u.integer_value.side_s8);
177 break;
178 case SIDE_ATTR_TYPE_S16:
179 printf("%" PRId16, attr->value.u.integer_value.side_s16);
180 break;
181 case SIDE_ATTR_TYPE_S32:
182 printf("%" PRId32, attr->value.u.integer_value.side_s32);
183 break;
184 case SIDE_ATTR_TYPE_S64:
185 printf("%" PRId64, attr->value.u.integer_value.side_s64);
186 break;
187 case SIDE_ATTR_TYPE_FLOAT_BINARY16:
188 #if __HAVE_FLOAT16
189 printf("%g", (double) attr->value.u.float_value.side_float_binary16);
190 break;
191 #else
192 fprintf(stderr, "ERROR: Unsupported binary16 float type\n");
193 abort();
194 #endif
195 case SIDE_ATTR_TYPE_FLOAT_BINARY32:
196 #if __HAVE_FLOAT32
197 printf("%g", (double) attr->value.u.float_value.side_float_binary32);
198 break;
199 #else
200 fprintf(stderr, "ERROR: Unsupported binary32 float type\n");
201 abort();
202 #endif
203 case SIDE_ATTR_TYPE_FLOAT_BINARY64:
204 #if __HAVE_FLOAT64
205 printf("%g", (double) attr->value.u.float_value.side_float_binary64);
206 break;
207 #else
208 fprintf(stderr, "ERROR: Unsupported binary64 float type\n");
209 abort();
210 #endif
211 case SIDE_ATTR_TYPE_FLOAT_BINARY128:
212 #if __HAVE_FLOAT128
213 printf("%Lg", (long double) attr->value.u.float_value.side_float_binary128);
214 break;
215 #else
216 fprintf(stderr, "ERROR: Unsupported binary128 float type\n");
217 abort();
218 #endif
219 case SIDE_ATTR_TYPE_STRING:
220 printf("\"%s\"", (const char *)(uintptr_t) attr->value.u.string_value);
221 break;
222 default:
223 fprintf(stderr, "ERROR: <UNKNOWN ATTRIBUTE TYPE>");
224 abort();
225 }
226 printf(" }");
227 }
228
229 static
230 void print_attributes(const char *prefix_str, const char *separator,
231 const struct side_attr *attr, uint32_t nr_attr)
232 {
233 uint32_t i;
234
235 if (!nr_attr)
236 return;
237 printf("%s%s [ ", prefix_str, separator);
238 for (i = 0; i < nr_attr; i++) {
239 printf("%s", i ? ", " : "");
240 tracer_print_attr_type(separator, &attr[i]);
241 }
242 printf(" ]");
243 }
244
245 static
246 void print_enum(const struct side_type *type_desc, const struct side_arg *item)
247 {
248 const struct side_enum_mappings *mappings = type_desc->u.side_enum.mappings;
249 const struct side_type *elem_type = type_desc->u.side_enum.elem_type;
250 uint32_t i, print_count = 0;
251 int64_t value;
252
253 if (elem_type->type != item->type) {
254 fprintf(stderr, "ERROR: Unexpected enum element type\n");
255 abort();
256 }
257 switch (item->type) {
258 case SIDE_TYPE_U8:
259 value = (int64_t) item->u.side_static.integer_value.side_u8;
260 break;
261 case SIDE_TYPE_U16:
262 {
263 uint16_t v;
264
265 v = item->u.side_static.integer_value.side_u16;
266 if (type_to_host_reverse_bo(elem_type))
267 v = side_bswap_16(v);
268 value = (int64_t) v;
269 break;
270 }
271 case SIDE_TYPE_U32:
272 {
273 uint32_t v;
274
275 v = item->u.side_static.integer_value.side_u32;
276 if (type_to_host_reverse_bo(elem_type))
277 v = side_bswap_32(v);
278 value = (int64_t) v;
279 break;
280 }
281 case SIDE_TYPE_U64:
282 {
283 uint64_t v;
284
285 v = item->u.side_static.integer_value.side_u64;
286 if (type_to_host_reverse_bo(elem_type))
287 v = side_bswap_64(v);
288 value = (int64_t) v;
289 break;
290 }
291 case SIDE_TYPE_S8:
292 value = (int64_t) item->u.side_static.integer_value.side_s8;
293 break;
294 case SIDE_TYPE_S16:
295 {
296 int16_t v;
297
298 v = item->u.side_static.integer_value.side_s16;
299 if (type_to_host_reverse_bo(elem_type))
300 v = side_bswap_16(v);
301 value = (int64_t) v;
302 break;
303 }
304 case SIDE_TYPE_S32:
305 {
306 int32_t v;
307
308 v = item->u.side_static.integer_value.side_s32;
309 if (type_to_host_reverse_bo(elem_type))
310 v = side_bswap_32(v);
311 value = (int64_t) v;
312 break;
313 }
314 case SIDE_TYPE_S64:
315 {
316 int64_t v;
317
318 v = item->u.side_static.integer_value.side_s64;
319 if (type_to_host_reverse_bo(elem_type))
320 v = side_bswap_64(v);
321 value = v;
322 break;
323 }
324 default:
325 fprintf(stderr, "ERROR: Unexpected enum element type\n");
326 abort();
327 }
328 print_attributes("attr", ":", mappings->attr, mappings->nr_attr);
329 printf("%s", mappings->nr_attr ? ", " : "");
330 tracer_print_type(type_desc->u.side_enum.elem_type, item);
331 printf(", labels: [ ");
332 for (i = 0; i < mappings->nr_mappings; i++) {
333 const struct side_enum_mapping *mapping = &mappings->mappings[i];
334
335 if (mapping->range_end < mapping->range_begin) {
336 fprintf(stderr, "ERROR: Unexpected enum range: %" PRIu64 "-%" PRIu64 "\n",
337 mapping->range_begin, mapping->range_end);
338 abort();
339 }
340 if (value >= mapping->range_begin && value <= mapping->range_end) {
341 printf("%s", print_count++ ? ", " : "");
342 printf("\"%s\"", mapping->label);
343 }
344 }
345 if (!print_count)
346 printf("<NO LABEL>");
347 printf(" ]");
348 }
349
350 static
351 uint32_t enum_elem_type_to_stride(const struct side_type *elem_type)
352 {
353 uint32_t stride_bit;
354
355 switch (elem_type->type) {
356 case SIDE_TYPE_U8: /* Fall-through */
357 case SIDE_TYPE_BYTE:
358 stride_bit = 8;
359 break;
360 case SIDE_TYPE_U16:
361 stride_bit = 16;
362 break;
363 case SIDE_TYPE_U32:
364 stride_bit = 32;
365 break;
366 case SIDE_TYPE_U64:
367 stride_bit = 64;
368 break;
369 default:
370 fprintf(stderr, "ERROR: Unexpected enum element type\n");
371 abort();
372 }
373 return stride_bit;
374 }
375
376 static
377 void print_enum_bitmap(const struct side_type *type_desc,
378 const struct side_arg *item)
379 {
380 const struct side_type *elem_type = type_desc->u.side_enum_bitmap.elem_type;
381 const struct side_enum_bitmap_mappings *side_enum_mappings = type_desc->u.side_enum_bitmap.mappings;
382 uint32_t i, print_count = 0, stride_bit, nr_items;
383 bool reverse_byte_order = false;
384 const struct side_arg *array_item;
385
386 switch (elem_type->type) {
387 case SIDE_TYPE_U8: /* Fall-through */
388 case SIDE_TYPE_BYTE: /* Fall-through */
389 case SIDE_TYPE_U16: /* Fall-through */
390 case SIDE_TYPE_U32: /* Fall-through */
391 case SIDE_TYPE_U64:
392 stride_bit = enum_elem_type_to_stride(elem_type);
393 reverse_byte_order = type_to_host_reverse_bo(elem_type);
394 array_item = item;
395 nr_items = 1;
396 break;
397 case SIDE_TYPE_ARRAY:
398 stride_bit = enum_elem_type_to_stride(elem_type->u.side_array.elem_type);
399 reverse_byte_order = type_to_host_reverse_bo(elem_type->u.side_array.elem_type);
400 array_item = item->u.side_static.side_array->sav;
401 nr_items = type_desc->u.side_array.length;
402 break;
403 case SIDE_TYPE_VLA:
404 stride_bit = enum_elem_type_to_stride(elem_type->u.side_vla.elem_type);
405 reverse_byte_order = type_to_host_reverse_bo(elem_type->u.side_vla.elem_type);
406 array_item = item->u.side_static.side_vla->sav;
407 nr_items = item->u.side_static.side_vla->len;
408 break;
409 default:
410 fprintf(stderr, "ERROR: Unexpected enum element type\n");
411 abort();
412 }
413
414 print_attributes("attr", ":", side_enum_mappings->attr, side_enum_mappings->nr_attr);
415 printf("%s", side_enum_mappings->nr_attr ? ", " : "");
416 printf("labels: [ ");
417 for (i = 0; i < side_enum_mappings->nr_mappings; i++) {
418 const struct side_enum_bitmap_mapping *mapping = &side_enum_mappings->mappings[i];
419 bool match = false;
420 uint64_t bit;
421
422 if (mapping->range_end < mapping->range_begin) {
423 fprintf(stderr, "ERROR: Unexpected enum bitmap range: %" PRIu64 "-%" PRIu64 "\n",
424 mapping->range_begin, mapping->range_end);
425 abort();
426 }
427 for (bit = mapping->range_begin; bit <= mapping->range_end; bit++) {
428 if (bit > (nr_items * stride_bit) - 1)
429 break;
430 switch (stride_bit) {
431 case 8:
432 {
433 uint8_t v = array_item[bit / 8].u.side_static.integer_value.side_u8;
434 if (v & (1ULL << (bit % 8))) {
435 match = true;
436 goto match;
437 }
438 break;
439 }
440 case 16:
441 {
442 uint16_t v = array_item[bit / 16].u.side_static.integer_value.side_u16;
443 if (reverse_byte_order)
444 v = side_bswap_16(v);
445 if (v & (1ULL << (bit % 16))) {
446 match = true;
447 goto match;
448 }
449 break;
450 }
451 case 32:
452 {
453 uint32_t v = array_item[bit / 32].u.side_static.integer_value.side_u32;
454 if (reverse_byte_order)
455 v = side_bswap_32(v);
456 if (v & (1ULL << (bit % 32))) {
457 match = true;
458 goto match;
459 }
460 break;
461 }
462 case 64:
463 {
464 uint64_t v = array_item[bit / 64].u.side_static.integer_value.side_u64;
465 if (reverse_byte_order)
466 v = side_bswap_64(v);
467 if (v & (1ULL << (bit % 64))) {
468 match = true;
469 goto match;
470 }
471 break;
472 }
473 default:
474 abort();
475 }
476 }
477 match:
478 if (match) {
479 printf("%s", print_count++ ? ", " : "");
480 printf("\"%s\"", mapping->label);
481 }
482 }
483 if (!print_count)
484 printf("<NO LABEL>");
485 printf(" ]");
486 }
487
488 static
489 void print_integer_binary(uint64_t v, int bits)
490 {
491 int i;
492
493 printf("0b");
494 v <<= 64 - bits;
495 for (i = 0; i < bits; i++) {
496 printf("%c", v & (1ULL << 63) ? '1' : '0');
497 v <<= 1;
498 }
499 }
500
501 static
502 void tracer_print_type_header(const char *separator,
503 const struct side_attr *attr, uint32_t nr_attr)
504 {
505 print_attributes("attr", separator, attr, nr_attr);
506 printf("%s", nr_attr ? ", " : "");
507 printf("value%s ", separator);
508 }
509
510 static
511 void tracer_print_type_bool(const char *separator,
512 const struct side_type_bool *type_bool,
513 const union side_bool_value *value,
514 uint16_t offset_bits)
515 {
516 uint32_t len_bits;
517 bool reverse_bo;
518 uint64_t v;
519
520 if (!type_bool->len_bits)
521 len_bits = type_bool->bool_size * CHAR_BIT;
522 else
523 len_bits = type_bool->len_bits;
524 if (len_bits + offset_bits > type_bool->bool_size * CHAR_BIT)
525 abort();
526 reverse_bo = type_bool->byte_order != SIDE_TYPE_BYTE_ORDER_HOST;
527 switch (type_bool->bool_size) {
528 case 1:
529 v = value->side_bool8;
530 break;
531 case 2:
532 {
533 uint16_t side_u16;
534
535 side_u16 = value->side_bool16;
536 if (reverse_bo)
537 side_u16 = side_bswap_16(side_u16);
538 v = side_u16;
539 break;
540 }
541 case 4:
542 {
543 uint32_t side_u32;
544
545 side_u32 = value->side_bool32;
546 if (reverse_bo)
547 side_u32 = side_bswap_32(side_u32);
548 v = side_u32;
549 break;
550 }
551 case 8:
552 {
553 uint64_t side_u64;
554
555 side_u64 = value->side_bool64;
556 if (reverse_bo)
557 side_u64 = side_bswap_64(side_u64);
558 v = side_u64;
559 break;
560 }
561 default:
562 abort();
563 }
564 v >>= offset_bits;
565 if (len_bits < 64)
566 v &= (1ULL << len_bits) - 1;
567 tracer_print_type_header(separator, type_bool->attr, type_bool->nr_attr);
568 printf("%s", v ? "true" : "false");
569 }
570
571 static
572 void tracer_print_type_integer(const char *separator,
573 const struct side_type_integer *type_integer,
574 const union side_integer_value *value,
575 uint16_t offset_bits,
576 enum tracer_display_base default_base)
577 {
578 enum tracer_display_base base;
579 uint32_t len_bits;
580 bool reverse_bo;
581 union {
582 uint64_t v_unsigned;
583 int64_t v_signed;
584 } v;
585
586 if (!type_integer->len_bits)
587 len_bits = type_integer->integer_size * CHAR_BIT;
588 else
589 len_bits = type_integer->len_bits;
590 if (len_bits + offset_bits > type_integer->integer_size * CHAR_BIT)
591 abort();
592 reverse_bo = type_integer->byte_order != SIDE_TYPE_BYTE_ORDER_HOST;
593 switch (type_integer->integer_size) {
594 case 1:
595 if (type_integer->signedness)
596 v.v_signed = value->side_s8;
597 else
598 v.v_unsigned = value->side_u8;
599 break;
600 case 2:
601 if (type_integer->signedness) {
602 int16_t side_s16;
603
604 side_s16 = value->side_s16;
605 if (reverse_bo)
606 side_s16 = side_bswap_16(side_s16);
607 v.v_signed = side_s16;
608 } else {
609 uint16_t side_u16;
610
611 side_u16 = value->side_u16;
612 if (reverse_bo)
613 side_u16 = side_bswap_16(side_u16);
614 v.v_unsigned = side_u16;
615 }
616 break;
617 case 4:
618 if (type_integer->signedness) {
619 int32_t side_s32;
620
621 side_s32 = value->side_s32;
622 if (reverse_bo)
623 side_s32 = side_bswap_32(side_s32);
624 v.v_signed = side_s32;
625 } else {
626 uint32_t side_u32;
627
628 side_u32 = value->side_u32;
629 if (reverse_bo)
630 side_u32 = side_bswap_32(side_u32);
631 v.v_unsigned = side_u32;
632 }
633 break;
634 case 8:
635 if (type_integer->signedness) {
636 int64_t side_s64;
637
638 side_s64 = value->side_s64;
639 if (reverse_bo)
640 side_s64 = side_bswap_64(side_s64);
641 v.v_signed = side_s64;
642 } else {
643 uint64_t side_u64;
644
645 side_u64 = value->side_u64;
646 if (reverse_bo)
647 side_u64 = side_bswap_64(side_u64);
648 v.v_unsigned = side_u64;
649 }
650 break;
651 default:
652 abort();
653 }
654 v.v_unsigned >>= offset_bits;
655 if (len_bits < 64)
656 v.v_unsigned &= (1ULL << len_bits) - 1;
657 tracer_print_type_header(separator, type_integer->attr, type_integer->nr_attr);
658 base = get_attr_display_base(type_integer->attr,
659 type_integer->nr_attr,
660 default_base);
661 switch (base) {
662 case TRACER_DISPLAY_BASE_2:
663 print_integer_binary(v.v_unsigned, len_bits);
664 break;
665 case TRACER_DISPLAY_BASE_8:
666 printf("0%" PRIo64, v.v_unsigned);
667 break;
668 case TRACER_DISPLAY_BASE_10:
669 if (type_integer->signedness) {
670 /* Sign-extend. */
671 if (len_bits < 64) {
672 if (v.v_unsigned & (1ULL << (len_bits - 1)))
673 v.v_unsigned |= ~((1ULL << len_bits) - 1);
674 }
675 printf("%" PRId64, v.v_signed);
676 } else {
677 printf("%" PRIu64, v.v_unsigned);
678 }
679 break;
680 case TRACER_DISPLAY_BASE_16:
681 printf("0x%" PRIx64, v.v_unsigned);
682 break;
683 default:
684 abort();
685 }
686 }
687
688 static
689 void tracer_print_type_float(const char *separator,
690 const struct side_type_float *type_float,
691 const union side_float_value *value)
692 {
693 bool reverse_bo;
694
695 tracer_print_type_header(separator, type_float->attr, type_float->nr_attr);
696 reverse_bo = type_float->byte_order != SIDE_TYPE_FLOAT_WORD_ORDER_HOST;
697 switch (type_float->float_size) {
698 case 2:
699 {
700 #if __HAVE_FLOAT16
701 union {
702 _Float16 f;
703 uint16_t u;
704 } float16 = {
705 .f = value->side_float_binary16,
706 };
707
708 if (reverse_bo)
709 float16.u = side_bswap_16(float16.u);
710 printf("%g", (double) float16.f);
711 break;
712 #else
713 fprintf(stderr, "ERROR: Unsupported binary16 float type\n");
714 abort();
715 #endif
716 }
717 case 4:
718 {
719 #if __HAVE_FLOAT32
720 union {
721 _Float32 f;
722 uint32_t u;
723 } float32 = {
724 .f = value->side_float_binary32,
725 };
726
727 if (reverse_bo)
728 float32.u = side_bswap_32(float32.u);
729 printf("%g", (double) float32.f);
730 break;
731 #else
732 fprintf(stderr, "ERROR: Unsupported binary32 float type\n");
733 abort();
734 #endif
735 }
736 case 8:
737 {
738 #if __HAVE_FLOAT64
739 union {
740 _Float64 f;
741 uint64_t u;
742 } float64 = {
743 .f = value->side_float_binary64,
744 };
745
746 if (reverse_bo)
747 float64.u = side_bswap_64(float64.u);
748 printf("%g", (double) float64.f);
749 break;
750 #else
751 fprintf(stderr, "ERROR: Unsupported binary64 float type\n");
752 abort();
753 #endif
754 }
755 case 16:
756 {
757 #if __HAVE_FLOAT128
758 union {
759 _Float128 f;
760 char arr[16];
761 } float128 = {
762 .f = value->side_float_binary128,
763 };
764
765 if (reverse_bo)
766 side_bswap_128p(float128.arr);
767 printf("%Lg", (long double) float128.f);
768 break;
769 #else
770 fprintf(stderr, "ERROR: Unsupported binary128 float type\n");
771 abort();
772 #endif
773 }
774 default:
775 fprintf(stderr, "ERROR: Unknown float size\n");
776 abort();
777 }
778 }
779
780 static
781 void tracer_print_type(const struct side_type *type_desc, const struct side_arg *item)
782 {
783 enum side_type_label type;
784
785 switch (type_desc->type) {
786 case SIDE_TYPE_ENUM:
787 switch (item->type) {
788 case SIDE_TYPE_U8:
789 case SIDE_TYPE_U16:
790 case SIDE_TYPE_U32:
791 case SIDE_TYPE_U64:
792 case SIDE_TYPE_S8:
793 case SIDE_TYPE_S16:
794 case SIDE_TYPE_S32:
795 case SIDE_TYPE_S64:
796 break;
797 default:
798 fprintf(stderr, "ERROR: type mismatch between description and arguments\n");
799 abort();
800 break;
801 }
802 break;
803
804 case SIDE_TYPE_ENUM_BITMAP:
805 switch (item->type) {
806 case SIDE_TYPE_U8:
807 case SIDE_TYPE_BYTE:
808 case SIDE_TYPE_U16:
809 case SIDE_TYPE_U32:
810 case SIDE_TYPE_U64:
811 case SIDE_TYPE_ARRAY:
812 case SIDE_TYPE_VLA:
813 break;
814 default:
815 fprintf(stderr, "ERROR: type mismatch between description and arguments\n");
816 abort();
817 break;
818 }
819 break;
820
821 case SIDE_TYPE_DYNAMIC:
822 switch (item->type) {
823 case SIDE_TYPE_DYNAMIC_NULL:
824 case SIDE_TYPE_DYNAMIC_BOOL:
825 case SIDE_TYPE_DYNAMIC_INTEGER:
826 case SIDE_TYPE_DYNAMIC_BYTE:
827 case SIDE_TYPE_DYNAMIC_POINTER:
828 case SIDE_TYPE_DYNAMIC_FLOAT:
829 case SIDE_TYPE_DYNAMIC_STRING:
830 case SIDE_TYPE_DYNAMIC_STRUCT:
831 case SIDE_TYPE_DYNAMIC_STRUCT_VISITOR:
832 case SIDE_TYPE_DYNAMIC_VLA:
833 case SIDE_TYPE_DYNAMIC_VLA_VISITOR:
834 break;
835 default:
836 fprintf(stderr, "ERROR: Unexpected dynamic type\n");
837 abort();
838 break;
839 }
840 break;
841
842 default:
843 if (type_desc->type != item->type) {
844 fprintf(stderr, "ERROR: type mismatch between description and arguments\n");
845 abort();
846 }
847 break;
848 }
849
850 if (type_desc->type == SIDE_TYPE_ENUM || type_desc->type == SIDE_TYPE_ENUM_BITMAP)
851 type = (enum side_type_label) type_desc->type;
852 else
853 type = (enum side_type_label) item->type;
854
855 printf("{ ");
856 switch (type) {
857 /* Stack-copy basic types */
858 case SIDE_TYPE_NULL:
859 tracer_print_type_header(":", type_desc->u.side_null.attr, type_desc->u.side_null.nr_attr);
860 printf("<NULL TYPE>");
861 break;
862
863 case SIDE_TYPE_BOOL:
864 tracer_print_type_bool(":", &type_desc->u.side_bool, &item->u.side_static.bool_value, 0);
865 break;
866
867 case SIDE_TYPE_U8:
868 case SIDE_TYPE_U16:
869 case SIDE_TYPE_U32:
870 case SIDE_TYPE_U64:
871 case SIDE_TYPE_S8:
872 case SIDE_TYPE_S16:
873 case SIDE_TYPE_S32:
874 case SIDE_TYPE_S64:
875 tracer_print_type_integer(":", &type_desc->u.side_integer, &item->u.side_static.integer_value, 0,
876 TRACER_DISPLAY_BASE_10);
877 break;
878
879 case SIDE_TYPE_BYTE:
880 tracer_print_type_header(":", type_desc->u.side_byte.attr, type_desc->u.side_byte.nr_attr);
881 printf("0x%" PRIx8, item->u.side_static.byte_value);
882 break;
883
884 case SIDE_TYPE_POINTER:
885 tracer_print_type_integer(":", &type_desc->u.side_integer, &item->u.side_static.integer_value, 0,
886 TRACER_DISPLAY_BASE_16);
887 break;
888
889 case SIDE_TYPE_FLOAT_BINARY16:
890 case SIDE_TYPE_FLOAT_BINARY32:
891 case SIDE_TYPE_FLOAT_BINARY64:
892 case SIDE_TYPE_FLOAT_BINARY128:
893 tracer_print_type_float(":", &type_desc->u.side_float, &item->u.side_static.float_value);
894 break;
895
896 case SIDE_TYPE_STRING:
897 tracer_print_type_header(":", type_desc->u.side_string.attr, type_desc->u.side_string.nr_attr);
898 printf("\"%s\"", (const char *)(uintptr_t) item->u.side_static.string_value);
899 break;
900
901 /* Stack-copy compound types */
902 case SIDE_TYPE_STRUCT:
903 tracer_print_struct(type_desc, item->u.side_static.side_struct);
904 break;
905 case SIDE_TYPE_ARRAY:
906 tracer_print_array(type_desc, item->u.side_static.side_array);
907 break;
908 case SIDE_TYPE_VLA:
909 tracer_print_vla(type_desc, item->u.side_static.side_vla);
910 break;
911 case SIDE_TYPE_VLA_VISITOR:
912 tracer_print_vla_visitor(type_desc, item->u.side_static.side_vla_app_visitor_ctx);
913 break;
914
915 /* Stack-copy enumeration types */
916 case SIDE_TYPE_ENUM:
917 print_enum(type_desc, item);
918 break;
919 case SIDE_TYPE_ENUM_BITMAP:
920 print_enum_bitmap(type_desc, item);
921 break;
922
923 /* Gather basic types */
924 case SIDE_TYPE_GATHER_BOOL:
925 (void) tracer_print_gather_bool_type(&type_desc->u.side_gather, item->u.side_static.side_bool_gather_ptr);
926 break;
927 case SIDE_TYPE_GATHER_INTEGER:
928 (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, item->u.side_static.side_integer_gather_ptr,
929 TRACER_DISPLAY_BASE_10);
930 break;
931 case SIDE_TYPE_GATHER_BYTE:
932 (void) tracer_print_gather_byte_type(&type_desc->u.side_gather, item->u.side_static.side_byte_gather_ptr);
933 break;
934 case SIDE_TYPE_GATHER_POINTER:
935 (void) tracer_print_gather_integer_type(&type_desc->u.side_gather, item->u.side_static.side_integer_gather_ptr,
936 TRACER_DISPLAY_BASE_16);
937 break;
938 case SIDE_TYPE_GATHER_FLOAT:
939 (void) tracer_print_gather_float_type(&type_desc->u.side_gather, item->u.side_static.side_float_gather_ptr);
940 break;
941
942 /* Gather compound type */
943 case SIDE_TYPE_GATHER_STRUCT:
944 (void) tracer_print_gather_struct(&type_desc->u.side_gather, item->u.side_static.side_struct_gather_ptr);
945 break;
946 case SIDE_TYPE_GATHER_ARRAY:
947 (void) tracer_print_gather_array(&type_desc->u.side_gather, item->u.side_static.side_array_gather_ptr);
948 break;
949 case SIDE_TYPE_GATHER_VLA:
950 (void) tracer_print_gather_vla(&type_desc->u.side_gather, item->u.side_static.side_vla_gather.ptr,
951 item->u.side_static.side_vla_gather.length_ptr);
952 break;
953
954 /* Dynamic basic types */
955 case SIDE_TYPE_DYNAMIC_NULL:
956 case SIDE_TYPE_DYNAMIC_BOOL:
957 case SIDE_TYPE_DYNAMIC_INTEGER:
958 case SIDE_TYPE_DYNAMIC_BYTE:
959 case SIDE_TYPE_DYNAMIC_POINTER:
960 case SIDE_TYPE_DYNAMIC_FLOAT:
961 case SIDE_TYPE_DYNAMIC_STRING:
962
963 /* Dynamic compound types */
964 case SIDE_TYPE_DYNAMIC_STRUCT:
965 case SIDE_TYPE_DYNAMIC_STRUCT_VISITOR:
966 case SIDE_TYPE_DYNAMIC_VLA:
967 case SIDE_TYPE_DYNAMIC_VLA_VISITOR:
968 tracer_print_dynamic(item);
969 break;
970 default:
971 fprintf(stderr, "<UNKNOWN TYPE>\n");
972 abort();
973 }
974 printf(" }");
975 }
976
977 static
978 void tracer_print_field(const struct side_event_field *item_desc, const struct side_arg *item)
979 {
980 printf("%s: ", item_desc->field_name);
981 tracer_print_type(&item_desc->side_type, item);
982 }
983
984 static
985 void tracer_print_struct(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec)
986 {
987 const struct side_arg *sav = side_arg_vec->sav;
988 uint32_t i, side_sav_len = side_arg_vec->len;
989
990 if (type_desc->u.side_struct->nr_fields != side_sav_len) {
991 fprintf(stderr, "ERROR: number of fields mismatch between description and arguments of structure\n");
992 abort();
993 }
994 print_attributes("attr", ":", type_desc->u.side_struct->attr, type_desc->u.side_struct->nr_attr);
995 printf("%s", type_desc->u.side_struct->nr_attr ? ", " : "");
996 printf("fields: { ");
997 for (i = 0; i < side_sav_len; i++) {
998 printf("%s", i ? ", " : "");
999 tracer_print_field(&type_desc->u.side_struct->fields[i], &sav[i]);
1000 }
1001 printf(" }");
1002 }
1003
1004 static
1005 void tracer_print_array(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec)
1006 {
1007 const struct side_arg *sav = side_arg_vec->sav;
1008 uint32_t i, side_sav_len = side_arg_vec->len;
1009
1010 if (type_desc->u.side_array.length != side_sav_len) {
1011 fprintf(stderr, "ERROR: length mismatch between description and arguments of array\n");
1012 abort();
1013 }
1014 print_attributes("attr", ":", type_desc->u.side_array.attr, type_desc->u.side_array.nr_attr);
1015 printf("%s", type_desc->u.side_array.nr_attr ? ", " : "");
1016 printf("elements: ");
1017 printf("[ ");
1018 for (i = 0; i < side_sav_len; i++) {
1019 printf("%s", i ? ", " : "");
1020 tracer_print_type(type_desc->u.side_array.elem_type, &sav[i]);
1021 }
1022 printf(" ]");
1023 }
1024
1025 static
1026 void tracer_print_vla(const struct side_type *type_desc, const struct side_arg_vec *side_arg_vec)
1027 {
1028 const struct side_arg *sav = side_arg_vec->sav;
1029 uint32_t i, side_sav_len = side_arg_vec->len;
1030
1031 print_attributes("attr", ":", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr);
1032 printf("%s", type_desc->u.side_vla.nr_attr ? ", " : "");
1033 printf("elements: ");
1034 printf("[ ");
1035 for (i = 0; i < side_sav_len; i++) {
1036 printf("%s", i ? ", " : "");
1037 tracer_print_type(type_desc->u.side_vla.elem_type, &sav[i]);
1038 }
1039 printf(" ]");
1040 }
1041
1042 static
1043 const char *tracer_gather_access(enum side_type_gather_access_mode access_mode, const char *ptr)
1044 {
1045 switch (access_mode) {
1046 case SIDE_TYPE_GATHER_ACCESS_DIRECT:
1047 return ptr;
1048 case SIDE_TYPE_GATHER_ACCESS_POINTER:
1049 /* Dereference pointer */
1050 memcpy(&ptr, ptr, sizeof(ptr));
1051 return ptr;
1052 default:
1053 abort();
1054 }
1055 }
1056
1057 static
1058 uint32_t tracer_gather_size(enum side_type_gather_access_mode access_mode, uint32_t len)
1059 {
1060 switch (access_mode) {
1061 case SIDE_TYPE_GATHER_ACCESS_DIRECT:
1062 return len;
1063 case SIDE_TYPE_GATHER_ACCESS_POINTER:
1064 return sizeof(void *);
1065 default:
1066 abort();
1067 }
1068 }
1069
1070 static
1071 uint64_t tracer_load_gather_integer_type(const struct side_type_gather *type_gather, const void *_ptr)
1072 {
1073 enum side_type_gather_access_mode access_mode =
1074 (enum side_type_gather_access_mode) type_gather->u.side_integer.access_mode;
1075 uint32_t integer_size_bytes = type_gather->u.side_integer.type.integer_size;
1076 const char *ptr = (const char *) _ptr;
1077 union side_integer_value value;
1078
1079 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_integer.offset);
1080 memcpy(&value, ptr, integer_size_bytes);
1081 switch (type_gather->u.side_integer.type.integer_size) {
1082 case 1:
1083 return (uint64_t) value.side_u8;
1084 case 2:
1085 return (uint64_t) value.side_u16;
1086 case 4:
1087 return (uint64_t) value.side_u32;
1088 case 8:
1089 return (uint64_t) value.side_u64;
1090 default:
1091 abort();
1092 }
1093 }
1094
1095 static
1096 uint32_t tracer_print_gather_bool_type(const struct side_type_gather *type_gather, const void *_ptr)
1097 {
1098 enum side_type_gather_access_mode access_mode =
1099 (enum side_type_gather_access_mode) type_gather->u.side_bool.access_mode;
1100 uint32_t bool_size_bytes = type_gather->u.side_bool.type.bool_size;
1101 const char *ptr = (const char *) _ptr;
1102 union side_bool_value value;
1103
1104 switch (bool_size_bytes) {
1105 case 1:
1106 case 2:
1107 case 4:
1108 case 8:
1109 break;
1110 default:
1111 abort();
1112 }
1113 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_bool.offset);
1114 memcpy(&value, ptr, bool_size_bytes);
1115 tracer_print_type_bool(":", &type_gather->u.side_bool.type, &value,
1116 type_gather->u.side_bool.offset_bits);
1117 return tracer_gather_size(access_mode, bool_size_bytes);
1118 }
1119
1120 static
1121 uint32_t tracer_print_gather_byte_type(const struct side_type_gather *type_gather, const void *_ptr)
1122 {
1123 enum side_type_gather_access_mode access_mode =
1124 (enum side_type_gather_access_mode) type_gather->u.side_byte.access_mode;
1125 const char *ptr = (const char *) _ptr;
1126 uint8_t value;
1127
1128 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_byte.offset);
1129 memcpy(&value, ptr, 1);
1130 tracer_print_type_header(":", type_gather->u.side_byte.type.attr,
1131 type_gather->u.side_byte.type.nr_attr);
1132 printf("0x%" PRIx8, value);
1133 return tracer_gather_size(access_mode, 1);
1134 }
1135
1136 static
1137 uint32_t tracer_print_gather_integer_type(const struct side_type_gather *type_gather, const void *_ptr,
1138 enum tracer_display_base default_base)
1139 {
1140 enum side_type_gather_access_mode access_mode =
1141 (enum side_type_gather_access_mode) type_gather->u.side_integer.access_mode;
1142 uint32_t integer_size_bytes = type_gather->u.side_integer.type.integer_size;
1143 const char *ptr = (const char *) _ptr;
1144 union side_integer_value value;
1145
1146 switch (integer_size_bytes) {
1147 case 1:
1148 case 2:
1149 case 4:
1150 case 8:
1151 break;
1152 default:
1153 abort();
1154 }
1155 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_integer.offset);
1156 memcpy(&value, ptr, integer_size_bytes);
1157 tracer_print_type_integer(":", &type_gather->u.side_integer.type, &value,
1158 type_gather->u.side_integer.offset_bits, default_base);
1159 return tracer_gather_size(access_mode, integer_size_bytes);
1160 }
1161
1162 static
1163 uint32_t tracer_print_gather_float_type(const struct side_type_gather *type_gather, const void *_ptr)
1164 {
1165 enum side_type_gather_access_mode access_mode =
1166 (enum side_type_gather_access_mode) type_gather->u.side_float.access_mode;
1167 uint32_t float_size_bytes = type_gather->u.side_float.type.float_size;
1168 const char *ptr = (const char *) _ptr;
1169 union side_float_value value;
1170
1171 switch (float_size_bytes) {
1172 case 2:
1173 case 4:
1174 case 8:
1175 case 16:
1176 break;
1177 default:
1178 abort();
1179 }
1180 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_float.offset);
1181 memcpy(&value, ptr, float_size_bytes);
1182 tracer_print_type_float(":", &type_gather->u.side_float.type, &value);
1183 return tracer_gather_size(access_mode, float_size_bytes);
1184 }
1185
1186 static
1187 uint32_t tracer_print_gather_type(const struct side_type *type_desc, const void *ptr)
1188 {
1189 uint32_t len;
1190
1191 printf("{ ");
1192 switch (type_desc->type) {
1193 /* Gather basic types */
1194 case SIDE_TYPE_GATHER_BOOL:
1195 len = tracer_print_gather_bool_type(&type_desc->u.side_gather, ptr);
1196 break;
1197 case SIDE_TYPE_GATHER_INTEGER:
1198 len = tracer_print_gather_integer_type(&type_desc->u.side_gather, ptr,
1199 TRACER_DISPLAY_BASE_10);
1200 break;
1201 case SIDE_TYPE_GATHER_BYTE:
1202 len = tracer_print_gather_byte_type(&type_desc->u.side_gather, ptr);
1203 break;
1204 case SIDE_TYPE_GATHER_POINTER:
1205 len = tracer_print_gather_integer_type(&type_desc->u.side_gather, ptr,
1206 TRACER_DISPLAY_BASE_16);
1207 break;
1208 case SIDE_TYPE_GATHER_FLOAT:
1209 len = tracer_print_gather_float_type(&type_desc->u.side_gather, ptr);
1210 break;
1211
1212 /* Gather compound types */
1213 case SIDE_TYPE_GATHER_STRUCT:
1214 len = tracer_print_gather_struct(&type_desc->u.side_gather, ptr);
1215 break;
1216 case SIDE_TYPE_GATHER_ARRAY:
1217 len = tracer_print_gather_array(&type_desc->u.side_gather, ptr);
1218 break;
1219 case SIDE_TYPE_GATHER_VLA:
1220 len = tracer_print_gather_vla(&type_desc->u.side_gather, ptr, ptr);
1221 break;
1222 default:
1223 fprintf(stderr, "<UNKNOWN GATHER TYPE>");
1224 abort();
1225 }
1226 printf(" }");
1227 return len;
1228 }
1229
1230 static
1231 void tracer_print_gather_field(const struct side_event_field *field, const void *ptr)
1232 {
1233 printf("%s: ", field->field_name);
1234 (void) tracer_print_gather_type(&field->side_type, ptr);
1235 }
1236
1237 static
1238 uint32_t tracer_print_gather_struct(const struct side_type_gather *type_gather, const void *_ptr)
1239 {
1240 enum side_type_gather_access_mode access_mode =
1241 (enum side_type_gather_access_mode) type_gather->u.side_struct.access_mode;
1242 const char *ptr = (const char *) _ptr;
1243 uint32_t i;
1244
1245 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_struct.offset);
1246 print_attributes("attr", ":", type_gather->u.side_struct.type->attr, type_gather->u.side_struct.type->nr_attr);
1247 printf("%s", type_gather->u.side_struct.type->nr_attr ? ", " : "");
1248 printf("fields: { ");
1249 for (i = 0; i < type_gather->u.side_struct.type->nr_fields; i++) {
1250 printf("%s", i ? ", " : "");
1251 tracer_print_gather_field(&type_gather->u.side_struct.type->fields[i], ptr);
1252 }
1253 printf(" }");
1254 return tracer_gather_size(access_mode, type_gather->u.side_struct.size);
1255 }
1256
1257 static
1258 uint32_t tracer_print_gather_array(const struct side_type_gather *type_gather, const void *_ptr)
1259 {
1260 enum side_type_gather_access_mode access_mode =
1261 (enum side_type_gather_access_mode) type_gather->u.side_array.access_mode;
1262 const char *ptr = (const char *) _ptr, *orig_ptr;
1263 uint32_t i;
1264
1265 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_array.offset);
1266 orig_ptr = ptr;
1267 print_attributes("attr", ":", type_gather->u.side_array.type.attr, type_gather->u.side_array.type.nr_attr);
1268 printf("%s", type_gather->u.side_array.type.nr_attr ? ", " : "");
1269 printf("elements: ");
1270 printf("[ ");
1271 for (i = 0; i < type_gather->u.side_array.type.length; i++) {
1272 switch (type_gather->u.side_array.type.elem_type->type) {
1273 case SIDE_TYPE_GATHER_VLA:
1274 fprintf(stderr, "<gather VLA only supported within gather structures>\n");
1275 abort();
1276 default:
1277 break;
1278 }
1279 printf("%s", i ? ", " : "");
1280 ptr += tracer_print_gather_type(type_gather->u.side_array.type.elem_type, ptr);
1281 }
1282 printf(" ]");
1283 return tracer_gather_size(access_mode, ptr - orig_ptr);
1284 }
1285
1286 static
1287 uint32_t tracer_print_gather_vla(const struct side_type_gather *type_gather, const void *_ptr,
1288 const void *_length_ptr)
1289 {
1290 enum side_type_gather_access_mode access_mode =
1291 (enum side_type_gather_access_mode) type_gather->u.side_vla.access_mode;
1292 const char *ptr = (const char *) _ptr, *orig_ptr;
1293 const char *length_ptr = (const char *) _length_ptr;
1294 uint32_t i, length;
1295
1296 /* Access length */
1297 switch (type_gather->u.side_vla.length_type->type) {
1298 case SIDE_TYPE_GATHER_INTEGER:
1299 break;
1300 default:
1301 fprintf(stderr, "<gather VLA expects integer gather length type>\n");
1302 abort();
1303 }
1304 length = (uint32_t) tracer_load_gather_integer_type(&type_gather->u.side_vla.length_type->u.side_gather, length_ptr);
1305 ptr = tracer_gather_access(access_mode, ptr + type_gather->u.side_vla.offset);
1306 orig_ptr = ptr;
1307 print_attributes("attr", ":", type_gather->u.side_vla.type.attr, type_gather->u.side_vla.type.nr_attr);
1308 printf("%s", type_gather->u.side_vla.type.nr_attr ? ", " : "");
1309 printf("elements: ");
1310 printf("[ ");
1311 for (i = 0; i < length; i++) {
1312 switch (type_gather->u.side_vla.type.elem_type->type) {
1313 case SIDE_TYPE_GATHER_VLA:
1314 fprintf(stderr, "<gather VLA only supported within gather structures>\n");
1315 abort();
1316 default:
1317 break;
1318 }
1319 printf("%s", i ? ", " : "");
1320 ptr += tracer_print_gather_type(type_gather->u.side_vla.type.elem_type, ptr);
1321 }
1322 printf(" ]");
1323 return tracer_gather_size(access_mode, ptr - orig_ptr);
1324 }
1325
1326 struct tracer_visitor_priv {
1327 const struct side_type *elem_type;
1328 int i;
1329 };
1330
1331 static
1332 enum side_visitor_status tracer_write_elem_cb(const struct side_tracer_visitor_ctx *tracer_ctx,
1333 const struct side_arg *elem)
1334 {
1335 struct tracer_visitor_priv *tracer_priv = (struct tracer_visitor_priv *) tracer_ctx->priv;
1336
1337 printf("%s", tracer_priv->i++ ? ", " : "");
1338 tracer_print_type(tracer_priv->elem_type, elem);
1339 return SIDE_VISITOR_STATUS_OK;
1340 }
1341
1342 static
1343 void tracer_print_vla_visitor(const struct side_type *type_desc, void *app_ctx)
1344 {
1345 enum side_visitor_status status;
1346 struct tracer_visitor_priv tracer_priv = {
1347 .elem_type = type_desc->u.side_vla_visitor.elem_type,
1348 .i = 0,
1349 };
1350 const struct side_tracer_visitor_ctx tracer_ctx = {
1351 .write_elem = tracer_write_elem_cb,
1352 .priv = &tracer_priv,
1353 };
1354
1355 print_attributes("attr", ":", type_desc->u.side_vla_visitor.attr, type_desc->u.side_vla_visitor.nr_attr);
1356 printf("%s", type_desc->u.side_vla_visitor.nr_attr ? ", " : "");
1357 printf("elements: ");
1358 printf("[ ");
1359 status = type_desc->u.side_vla_visitor.visitor(&tracer_ctx, app_ctx);
1360 switch (status) {
1361 case SIDE_VISITOR_STATUS_OK:
1362 break;
1363 case SIDE_VISITOR_STATUS_ERROR:
1364 fprintf(stderr, "ERROR: Visitor error\n");
1365 abort();
1366 }
1367 printf(" ]");
1368 }
1369
1370 static
1371 void tracer_print_dynamic_struct(const struct side_arg_dynamic_struct *dynamic_struct)
1372 {
1373 const struct side_arg_dynamic_field *fields = dynamic_struct->fields;
1374 uint32_t i, len = dynamic_struct->len;
1375
1376 print_attributes("attr", "::", dynamic_struct->attr, dynamic_struct->nr_attr);
1377 printf("%s", dynamic_struct->nr_attr ? ", " : "");
1378 printf("fields:: ");
1379 printf("[ ");
1380 for (i = 0; i < len; i++) {
1381 printf("%s", i ? ", " : "");
1382 printf("%s:: ", fields[i].field_name);
1383 tracer_print_dynamic(&fields[i].elem);
1384 }
1385 printf(" ]");
1386 }
1387
1388 struct tracer_dynamic_struct_visitor_priv {
1389 int i;
1390 };
1391
1392 static
1393 enum side_visitor_status tracer_dynamic_struct_write_elem_cb(
1394 const struct side_tracer_dynamic_struct_visitor_ctx *tracer_ctx,
1395 const struct side_arg_dynamic_field *dynamic_field)
1396 {
1397 struct tracer_dynamic_struct_visitor_priv *tracer_priv =
1398 (struct tracer_dynamic_struct_visitor_priv *) tracer_ctx->priv;
1399
1400 printf("%s", tracer_priv->i++ ? ", " : "");
1401 printf("%s:: ", dynamic_field->field_name);
1402 tracer_print_dynamic(&dynamic_field->elem);
1403 return SIDE_VISITOR_STATUS_OK;
1404 }
1405
1406 static
1407 void tracer_print_dynamic_struct_visitor(const struct side_arg *item)
1408 {
1409 enum side_visitor_status status;
1410 struct tracer_dynamic_struct_visitor_priv tracer_priv = {
1411 .i = 0,
1412 };
1413 const struct side_tracer_dynamic_struct_visitor_ctx tracer_ctx = {
1414 .write_field = tracer_dynamic_struct_write_elem_cb,
1415 .priv = &tracer_priv,
1416 };
1417 void *app_ctx = item->u.side_dynamic.side_dynamic_struct_visitor.app_ctx;
1418
1419 print_attributes("attr", "::", item->u.side_dynamic.side_dynamic_struct_visitor.attr, item->u.side_dynamic.side_dynamic_struct_visitor.nr_attr);
1420 printf("%s", item->u.side_dynamic.side_dynamic_struct_visitor.nr_attr ? ", " : "");
1421 printf("fields:: ");
1422 printf("[ ");
1423 status = item->u.side_dynamic.side_dynamic_struct_visitor.visitor(&tracer_ctx, app_ctx);
1424 switch (status) {
1425 case SIDE_VISITOR_STATUS_OK:
1426 break;
1427 case SIDE_VISITOR_STATUS_ERROR:
1428 fprintf(stderr, "ERROR: Visitor error\n");
1429 abort();
1430 }
1431 printf(" ]");
1432 }
1433
1434 static
1435 void tracer_print_dynamic_vla(const struct side_arg_dynamic_vla *vla)
1436 {
1437 const struct side_arg *sav = vla->sav;
1438 uint32_t i, side_sav_len = vla->len;
1439
1440 print_attributes("attr", "::", vla->attr, vla->nr_attr);
1441 printf("%s", vla->nr_attr ? ", " : "");
1442 printf("elements:: ");
1443 printf("[ ");
1444 for (i = 0; i < side_sav_len; i++) {
1445 printf("%s", i ? ", " : "");
1446 tracer_print_dynamic(&sav[i]);
1447 }
1448 printf(" ]");
1449 }
1450
1451 struct tracer_dynamic_vla_visitor_priv {
1452 int i;
1453 };
1454
1455 static
1456 enum side_visitor_status tracer_dynamic_vla_write_elem_cb(
1457 const struct side_tracer_visitor_ctx *tracer_ctx,
1458 const struct side_arg *elem)
1459 {
1460 struct tracer_dynamic_vla_visitor_priv *tracer_priv =
1461 (struct tracer_dynamic_vla_visitor_priv *) tracer_ctx->priv;
1462
1463 printf("%s", tracer_priv->i++ ? ", " : "");
1464 tracer_print_dynamic(elem);
1465 return SIDE_VISITOR_STATUS_OK;
1466 }
1467
1468 static
1469 void tracer_print_dynamic_vla_visitor(const struct side_arg *item)
1470 {
1471 enum side_visitor_status status;
1472 struct tracer_dynamic_vla_visitor_priv tracer_priv = {
1473 .i = 0,
1474 };
1475 const struct side_tracer_visitor_ctx tracer_ctx = {
1476 .write_elem = tracer_dynamic_vla_write_elem_cb,
1477 .priv = &tracer_priv,
1478 };
1479 void *app_ctx = item->u.side_dynamic.side_dynamic_vla_visitor.app_ctx;
1480
1481 print_attributes("attr", "::", item->u.side_dynamic.side_dynamic_vla_visitor.attr, item->u.side_dynamic.side_dynamic_vla_visitor.nr_attr);
1482 printf("%s", item->u.side_dynamic.side_dynamic_vla_visitor.nr_attr ? ", " : "");
1483 printf("elements:: ");
1484 printf("[ ");
1485 status = item->u.side_dynamic.side_dynamic_vla_visitor.visitor(&tracer_ctx, app_ctx);
1486 switch (status) {
1487 case SIDE_VISITOR_STATUS_OK:
1488 break;
1489 case SIDE_VISITOR_STATUS_ERROR:
1490 fprintf(stderr, "ERROR: Visitor error\n");
1491 abort();
1492 }
1493 printf(" ]");
1494 }
1495
1496 static
1497 void tracer_print_dynamic(const struct side_arg *item)
1498 {
1499 printf("{ ");
1500 switch (item->type) {
1501 /* Dynamic basic types */
1502 case SIDE_TYPE_DYNAMIC_NULL:
1503 tracer_print_type_header("::", item->u.side_dynamic.side_null.attr, item->u.side_dynamic.side_null.nr_attr);
1504 printf("<NULL TYPE>");
1505 break;
1506 case SIDE_TYPE_DYNAMIC_BOOL:
1507 tracer_print_type_bool("::", &item->u.side_dynamic.side_bool.type, &item->u.side_dynamic.side_bool.value, 0);
1508 break;
1509 case SIDE_TYPE_DYNAMIC_INTEGER:
1510 tracer_print_type_integer("::", &item->u.side_dynamic.side_integer.type, &item->u.side_dynamic.side_integer.value, 0,
1511 TRACER_DISPLAY_BASE_10);
1512 break;
1513 case SIDE_TYPE_DYNAMIC_BYTE:
1514 tracer_print_type_header("::", item->u.side_dynamic.side_byte.type.attr, item->u.side_dynamic.side_byte.type.nr_attr);
1515 printf("0x%" PRIx8, item->u.side_dynamic.side_byte.value);
1516 break;
1517 case SIDE_TYPE_DYNAMIC_POINTER:
1518 tracer_print_type_integer("::", &item->u.side_dynamic.side_integer.type, &item->u.side_dynamic.side_integer.value, 0,
1519 TRACER_DISPLAY_BASE_16);
1520 break;
1521 case SIDE_TYPE_DYNAMIC_FLOAT:
1522 tracer_print_type_float("::", &item->u.side_dynamic.side_float.type,
1523 &item->u.side_dynamic.side_float.value);
1524 break;
1525 case SIDE_TYPE_DYNAMIC_STRING:
1526 tracer_print_type_header("::", item->u.side_dynamic.side_string.type.attr, item->u.side_dynamic.side_string.type.nr_attr);
1527 printf("\"%s\"", (const char *)(uintptr_t) item->u.side_dynamic.side_string.value);
1528 break;
1529
1530 /* Dynamic compound types */
1531 case SIDE_TYPE_DYNAMIC_STRUCT:
1532 tracer_print_dynamic_struct(item->u.side_dynamic.side_dynamic_struct);
1533 break;
1534 case SIDE_TYPE_DYNAMIC_STRUCT_VISITOR:
1535 tracer_print_dynamic_struct_visitor(item);
1536 break;
1537 case SIDE_TYPE_DYNAMIC_VLA:
1538 tracer_print_dynamic_vla(item->u.side_dynamic.side_dynamic_vla);
1539 break;
1540 case SIDE_TYPE_DYNAMIC_VLA_VISITOR:
1541 tracer_print_dynamic_vla_visitor(item);
1542 break;
1543 default:
1544 fprintf(stderr, "<UNKNOWN TYPE>\n");
1545 abort();
1546 }
1547 printf(" }");
1548 }
1549
1550 static
1551 void tracer_print_static_fields(const struct side_event_description *desc,
1552 const struct side_arg_vec *side_arg_vec,
1553 uint32_t *nr_items)
1554 {
1555 const struct side_arg *sav = side_arg_vec->sav;
1556 uint32_t i, side_sav_len = side_arg_vec->len;
1557
1558 printf("provider: %s, event: %s", desc->provider_name, desc->event_name);
1559 if (desc->nr_fields != side_sav_len) {
1560 fprintf(stderr, "ERROR: number of fields mismatch between description and arguments\n");
1561 abort();
1562 }
1563 print_attributes(", attr", ":", desc->attr, desc->nr_attr);
1564 printf("%s", side_sav_len ? ", fields: [ " : "");
1565 for (i = 0; i < side_sav_len; i++) {
1566 printf("%s", i ? ", " : "");
1567 tracer_print_field(&desc->fields[i], &sav[i]);
1568 }
1569 if (nr_items)
1570 *nr_items = i;
1571 if (side_sav_len)
1572 printf(" ]");
1573 }
1574
1575 void tracer_call(const struct side_event_description *desc,
1576 const struct side_arg_vec *side_arg_vec,
1577 void *priv __attribute__((unused)))
1578 {
1579 uint32_t nr_fields = 0;
1580
1581 tracer_print_static_fields(desc, side_arg_vec, &nr_fields);
1582 printf("\n");
1583 }
1584
1585 void tracer_call_variadic(const struct side_event_description *desc,
1586 const struct side_arg_vec *side_arg_vec,
1587 const struct side_arg_dynamic_struct *var_struct,
1588 void *priv __attribute__((unused)))
1589 {
1590 uint32_t nr_fields = 0, i, var_struct_len = var_struct->len;
1591
1592 tracer_print_static_fields(desc, side_arg_vec, &nr_fields);
1593
1594 if (side_unlikely(!(desc->flags & SIDE_EVENT_FLAG_VARIADIC))) {
1595 fprintf(stderr, "ERROR: unexpected non-variadic event description\n");
1596 abort();
1597 }
1598 print_attributes(", attr ", "::", var_struct->attr, var_struct->nr_attr);
1599 printf("%s", var_struct_len ? ", fields:: [ " : "");
1600 for (i = 0; i < var_struct_len; i++, nr_fields++) {
1601 printf("%s", i ? ", " : "");
1602 printf("%s:: ", var_struct->fields[i].field_name);
1603 tracer_print_dynamic(&var_struct->fields[i].elem);
1604 }
1605 if (i)
1606 printf(" ]");
1607 printf("\n");
1608 }
1609
1610 void tracer_event_notification(enum side_tracer_notification notif,
1611 struct side_event_description **events, uint32_t nr_events, void *priv)
1612 {
1613 uint32_t i;
1614 int ret;
1615
1616 printf("----------------------------------------------------------\n");
1617 printf("Tracer notified of events %s\n",
1618 notif == SIDE_TRACER_NOTIFICATION_INSERT_EVENTS ? "inserted" : "removed");
1619 for (i = 0; i < nr_events; i++) {
1620 struct side_event_description *event = events[i];
1621
1622 /* Skip NULL pointers */
1623 if (!event)
1624 continue;
1625 printf("provider: %s, event: %s\n",
1626 event->provider_name, event->event_name);
1627 if (notif == SIDE_TRACER_NOTIFICATION_INSERT_EVENTS) {
1628 if (event->flags & SIDE_EVENT_FLAG_VARIADIC) {
1629 ret = side_tracer_callback_variadic_register(event, tracer_call_variadic, NULL);
1630 if (ret)
1631 abort();
1632 } else {
1633 ret = side_tracer_callback_register(event, tracer_call, NULL);
1634 if (ret)
1635 abort();
1636 }
1637 } else {
1638 if (event->flags & SIDE_EVENT_FLAG_VARIADIC) {
1639 ret = side_tracer_callback_variadic_unregister(event, tracer_call_variadic, NULL);
1640 if (ret)
1641 abort();
1642 } else {
1643 ret = side_tracer_callback_unregister(event, tracer_call, NULL);
1644 if (ret)
1645 abort();
1646 }
1647 }
1648 }
1649 printf("----------------------------------------------------------\n");
1650 }
1651
1652 static __attribute__((constructor))
1653 void tracer_init(void);
1654 static
1655 void tracer_init(void)
1656 {
1657 tracer_handle = side_tracer_event_notification_register(tracer_event_notification, NULL);
1658 if (!tracer_handle)
1659 abort();
1660 }
1661
1662 static __attribute__((destructor))
1663 void tracer_exit(void);
1664 static
1665 void tracer_exit(void)
1666 {
1667 side_tracer_event_notification_unregister(tracer_handle);
1668 }
Software Instrumentation Dynamically Enabled
This page took 0.083457 seconds and 3 git commands to generate.