X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=src%2Ftracer.c;h=f86d4c84fcd68e5ecd8ae02c5fd61cf7b6b1f259;hb=87d0765b0d5de538e49093057c03dd5334a268a4;hp=3d73620d79e8c99b0f57dece83d5efbc8b0d9cf0;hpb=d4328528cef0247e5d5bbc8c3c95b13604297b9d;p=libside.git diff --git a/src/tracer.c b/src/tracer.c index 3d73620..f86d4c8 100644 --- a/src/tracer.c +++ b/src/tracer.c @@ -8,132 +8,457 @@ #include #include #include +#include +#include -#include +#include +enum tracer_display_base { + TRACER_DISPLAY_BASE_2, + TRACER_DISPLAY_BASE_8, + TRACER_DISPLAY_BASE_10, + TRACER_DISPLAY_BASE_16, +}; + +union int64_value { + uint64_t u; + int64_t s; +}; + +static struct tgif_tracer_handle *tracer_handle; + +static +void tracer_print_struct(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec); +static +void tracer_print_array(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec); +static +void tracer_print_vla(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec); static -void tracer_print_struct(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); +void tracer_print_vla_visitor(const struct tgif_type *type_desc, void *app_ctx); static -void tracer_print_array(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); +void tracer_print_dynamic(const struct tgif_arg *dynamic_item); static -void tracer_print_vla(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc); +uint32_t tracer_print_gather_bool_type(const struct tgif_type_gather *type_gather, const void *_ptr); static -void tracer_print_vla_visitor(const struct side_type_description *type_desc, void *app_ctx); +uint32_t tracer_print_gather_byte_type(const struct tgif_type_gather *type_gather, const void *_ptr); static -void tracer_print_array_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item); +uint32_t tracer_print_gather_integer_type(const struct tgif_type_gather *type_gather, const void *_ptr, + enum tracer_display_base default_base); static -void tracer_print_vla_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item); +uint32_t tracer_print_gather_float_type(const struct tgif_type_gather *type_gather, const void *_ptr); static -void tracer_print_dynamic(const struct side_arg_dynamic_vec *dynamic_item); +uint32_t tracer_print_gather_string_type(const struct tgif_type_gather *type_gather, const void *_ptr); +static +uint32_t tracer_print_gather_enum_type(const struct tgif_type_gather *type_gather, const void *_ptr); +static +uint32_t tracer_print_gather_struct(const struct tgif_type_gather *type_gather, const void *_ptr); +static +uint32_t tracer_print_gather_array(const struct tgif_type_gather *type_gather, const void *_ptr); +static +uint32_t tracer_print_gather_vla(const struct tgif_type_gather *type_gather, const void *_ptr, + const void *_length_ptr); +static +void tracer_print_type(const struct tgif_type *type_desc, const struct tgif_arg *item); static -void tracer_print_attr_type(const struct side_attr *attr) +void tracer_convert_string_to_utf8(const void *p, uint8_t unit_size, enum tgif_type_label_byte_order byte_order, + size_t *strlen_with_null, + char **output_str) { - printf("{ key: \"%s\", value: ", attr->key); + size_t ret, inbytesleft = 0, outbytesleft, bufsize; + const char *str = p, *fromcode; + char *inbuf = (char *) p, *outbuf, *buf; + iconv_t cd; + + switch (unit_size) { + case 1: + if (strlen_with_null) + *strlen_with_null = strlen(str) + 1; + *output_str = (char *) str; + return; + case 2: + { + const uint16_t *p16 = p; + + switch (byte_order) { + case TGIF_TYPE_BYTE_ORDER_LE: + { + fromcode = "UTF-16LE"; + break; + } + case TGIF_TYPE_BYTE_ORDER_BE: + { + fromcode = "UTF-16BE"; + break; + } + default: + fprintf(stderr, "Unknown byte order\n"); + abort(); + } + for (; *p16; p16++) + inbytesleft += 2; + /* + * Worse case is U+FFFF UTF-16 (2 bytes) converting to + * { ef, bf, bf } UTF-8 (3 bytes). + */ + bufsize = inbytesleft / 2 * 3 + 1; + break; + } + case 4: + { + const uint32_t *p32 = p; + + switch (byte_order) { + case TGIF_TYPE_BYTE_ORDER_LE: + { + fromcode = "UTF-32LE"; + break; + } + case TGIF_TYPE_BYTE_ORDER_BE: + { + fromcode = "UTF-32BE"; + break; + } + default: + fprintf(stderr, "Unknown byte order\n"); + abort(); + } + for (; *p32; p32++) + inbytesleft += 4; + /* + * Each 4-byte UTF-32 character converts to at most a + * 4-byte UTF-8 character. + */ + bufsize = inbytesleft + 1; + break; + } + default: + fprintf(stderr, "Unknown string unit size %" PRIu8 "\n", unit_size); + abort(); + } + + cd = iconv_open("UTF8", fromcode); + if (cd == (iconv_t) -1) { + perror("iconv_open"); + abort(); + } + buf = malloc(bufsize); + if (!buf) { + abort(); + } + outbuf = (char *) buf; + outbytesleft = bufsize; + ret = iconv(cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft); + if (ret == (size_t) -1) { + perror("iconv"); + abort(); + } + if (inbytesleft) { + fprintf(stderr, "Buffer too small to convert string input\n"); + abort(); + } + (*outbuf++) = '\0'; + if (iconv_close(cd) == -1) { + perror("iconv_close"); + abort(); + } + if (strlen_with_null) + *strlen_with_null = outbuf - buf; + *output_str = buf; +} + +static +void tracer_print_string(const void *p, uint8_t unit_size, enum tgif_type_label_byte_order byte_order, + size_t *strlen_with_null) +{ + char *output_str = NULL; + + tracer_convert_string_to_utf8(p, unit_size, byte_order, strlen_with_null, &output_str); + printf("\"%s\"", output_str); + if (output_str != p) + free(output_str); +} + +static +int64_t get_attr_integer_value(const struct tgif_attr *attr) +{ + int64_t val; + switch (attr->value.type) { - case SIDE_ATTR_TYPE_BOOL: - printf("%s", attr->value.u.side_bool ? "true" : "false"); + case TGIF_ATTR_TYPE_U8: + val = attr->value.u.integer_value.tgif_u8; break; - case SIDE_ATTR_TYPE_U8: - printf("%" PRIu8, attr->value.u.side_u8); + case TGIF_ATTR_TYPE_U16: + val = attr->value.u.integer_value.tgif_u16; break; - case SIDE_ATTR_TYPE_U16: - printf("%" PRIu16, attr->value.u.side_u16); + case TGIF_ATTR_TYPE_U32: + val = attr->value.u.integer_value.tgif_u32; break; - case SIDE_ATTR_TYPE_U32: - printf("%" PRIu32, attr->value.u.side_u32); + case TGIF_ATTR_TYPE_U64: + val = attr->value.u.integer_value.tgif_u64; break; - case SIDE_ATTR_TYPE_U64: - printf("%" PRIu64, attr->value.u.side_u64); + case TGIF_ATTR_TYPE_S8: + val = attr->value.u.integer_value.tgif_s8; break; - case SIDE_ATTR_TYPE_S8: - printf("%" PRId8, attr->value.u.side_s8); + case TGIF_ATTR_TYPE_S16: + val = attr->value.u.integer_value.tgif_s16; break; - case SIDE_ATTR_TYPE_S16: - printf("%" PRId16, attr->value.u.side_s16); + case TGIF_ATTR_TYPE_S32: + val = attr->value.u.integer_value.tgif_s32; break; - case SIDE_ATTR_TYPE_S32: - printf("%" PRId32, attr->value.u.side_s32); + case TGIF_ATTR_TYPE_S64: + val = attr->value.u.integer_value.tgif_s64; break; - case SIDE_ATTR_TYPE_S64: - printf("%" PRId64, attr->value.u.side_s64); + default: + fprintf(stderr, "Unexpected attribute type\n"); + abort(); + } + return val; +} + +static +enum tracer_display_base get_attr_display_base(const struct tgif_attr *_attr, uint32_t nr_attr, + enum tracer_display_base default_base) +{ + uint32_t i; + + for (i = 0; i < nr_attr; i++) { + const struct tgif_attr *attr = &_attr[i]; + char *utf8_str = NULL; + bool cmp; + + tracer_convert_string_to_utf8(attr->key.p, attr->key.unit_size, + attr->key.byte_order, NULL, &utf8_str); + cmp = strcmp(utf8_str, "std.integer.base"); + if (utf8_str != attr->key.p) + free(utf8_str); + if (!cmp) { + int64_t val = get_attr_integer_value(attr); + + switch (val) { + case 2: + return TRACER_DISPLAY_BASE_2; + case 8: + return TRACER_DISPLAY_BASE_8; + case 10: + return TRACER_DISPLAY_BASE_10; + case 16: + return TRACER_DISPLAY_BASE_16; + default: + fprintf(stderr, "Unexpected integer display base: %" PRId64 "\n", val); + abort(); + } + } + } + return default_base; /* Default */ +} + +static +void tracer_print_attr_type(const char *separator, const struct tgif_attr *attr) +{ + char *utf8_str = NULL; + + tracer_convert_string_to_utf8(attr->key.p, attr->key.unit_size, + attr->key.byte_order, NULL, &utf8_str); + printf("{ key%s \"%s\", value%s ", separator, utf8_str, separator); + if (utf8_str != attr->key.p) + free(utf8_str); + switch (attr->value.type) { + case TGIF_ATTR_TYPE_BOOL: + printf("%s", attr->value.u.bool_value ? "true" : "false"); break; - case SIDE_ATTR_TYPE_FLOAT_BINARY16: + case TGIF_ATTR_TYPE_U8: + printf("%" PRIu8, attr->value.u.integer_value.tgif_u8); + break; + case TGIF_ATTR_TYPE_U16: + printf("%" PRIu16, attr->value.u.integer_value.tgif_u16); + break; + case TGIF_ATTR_TYPE_U32: + printf("%" PRIu32, attr->value.u.integer_value.tgif_u32); + break; + case TGIF_ATTR_TYPE_U64: + printf("%" PRIu64, attr->value.u.integer_value.tgif_u64); + break; + case TGIF_ATTR_TYPE_S8: + printf("%" PRId8, attr->value.u.integer_value.tgif_s8); + break; + case TGIF_ATTR_TYPE_S16: + printf("%" PRId16, attr->value.u.integer_value.tgif_s16); + break; + case TGIF_ATTR_TYPE_S32: + printf("%" PRId32, attr->value.u.integer_value.tgif_s32); + break; + case TGIF_ATTR_TYPE_S64: + printf("%" PRId64, attr->value.u.integer_value.tgif_s64); + break; + case TGIF_ATTR_TYPE_FLOAT_BINARY16: #if __HAVE_FLOAT16 - printf("%g", (double) attr->value.u.side_float_binary16); + printf("%g", (double) attr->value.u.float_value.tgif_float_binary16); break; #else - printf("ERROR: Unsupported binary16 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary16 float type\n"); abort(); #endif - case SIDE_ATTR_TYPE_FLOAT_BINARY32: + case TGIF_ATTR_TYPE_FLOAT_BINARY32: #if __HAVE_FLOAT32 - printf("%g", (double) attr->value.u.side_float_binary32); + printf("%g", (double) attr->value.u.float_value.tgif_float_binary32); break; #else - printf("ERROR: Unsupported binary32 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary32 float type\n"); abort(); #endif - case SIDE_ATTR_TYPE_FLOAT_BINARY64: + case TGIF_ATTR_TYPE_FLOAT_BINARY64: #if __HAVE_FLOAT64 - printf("%g", (double) attr->value.u.side_float_binary64); + printf("%g", (double) attr->value.u.float_value.tgif_float_binary64); break; #else - printf("ERROR: Unsupported binary64 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary64 float type\n"); abort(); #endif - case SIDE_ATTR_TYPE_FLOAT_BINARY128: + case TGIF_ATTR_TYPE_FLOAT_BINARY128: #if __HAVE_FLOAT128 - printf("%Lg", (long double) attr->value.u.side_float_binary128); + printf("%Lg", (long double) attr->value.u.float_value.tgif_float_binary128); break; #else - printf("ERROR: Unsupported binary128 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary128 float type\n"); abort(); #endif - case SIDE_ATTR_TYPE_STRING: - printf("\"%s\"", attr->value.u.string); + case TGIF_ATTR_TYPE_STRING: + tracer_print_string(attr->value.u.string_value.p, + attr->value.u.string_value.unit_size, + attr->value.u.string_value.byte_order, NULL); break; default: - printf(""); + fprintf(stderr, "ERROR: "); abort(); } printf(" }"); } static -void print_attributes(const char *prefix_str, const struct side_attr *attr, uint32_t nr_attr) +void print_attributes(const char *prefix_str, const char *separator, + const struct tgif_attr *attr, uint32_t nr_attr) { - int i; + uint32_t i; if (!nr_attr) return; - printf("%s[ ", prefix_str); + printf("%s%s [ ", prefix_str, separator); for (i = 0; i < nr_attr; i++) { printf("%s", i ? ", " : ""); - tracer_print_attr_type(&attr[i]); + tracer_print_attr_type(separator, &attr[i]); } printf(" ]"); } static -void print_enum(const struct side_enum_mappings *side_enum_mappings, int64_t value) +union int64_value tracer_load_integer_value(const struct tgif_type_integer *type_integer, + const union tgif_integer_value *value, + uint16_t offset_bits, uint16_t *_len_bits) +{ + union int64_value v64; + uint16_t len_bits; + bool reverse_bo; + + if (!type_integer->len_bits) + len_bits = type_integer->integer_size * CHAR_BIT; + else + len_bits = type_integer->len_bits; + if (len_bits + offset_bits > type_integer->integer_size * CHAR_BIT) + abort(); + reverse_bo = type_integer->byte_order != TGIF_TYPE_BYTE_ORDER_HOST; + switch (type_integer->integer_size) { + case 1: + if (type_integer->signedness) + v64.s = value->tgif_s8; + else + v64.u = value->tgif_u8; + break; + case 2: + if (type_integer->signedness) { + int16_t tgif_s16; + + tgif_s16 = value->tgif_s16; + if (reverse_bo) + tgif_s16 = tgif_bswap_16(tgif_s16); + v64.s = tgif_s16; + } else { + uint16_t tgif_u16; + + tgif_u16 = value->tgif_u16; + if (reverse_bo) + tgif_u16 = tgif_bswap_16(tgif_u16); + v64.u = tgif_u16; + } + break; + case 4: + if (type_integer->signedness) { + int32_t tgif_s32; + + tgif_s32 = value->tgif_s32; + if (reverse_bo) + tgif_s32 = tgif_bswap_32(tgif_s32); + v64.s = tgif_s32; + } else { + uint32_t tgif_u32; + + tgif_u32 = value->tgif_u32; + if (reverse_bo) + tgif_u32 = tgif_bswap_32(tgif_u32); + v64.u = tgif_u32; + } + break; + case 8: + if (type_integer->signedness) { + int64_t tgif_s64; + + tgif_s64 = value->tgif_s64; + if (reverse_bo) + tgif_s64 = tgif_bswap_64(tgif_s64); + v64.s = tgif_s64; + } else { + uint64_t tgif_u64; + + tgif_u64 = value->tgif_u64; + if (reverse_bo) + tgif_u64 = tgif_bswap_64(tgif_u64); + v64.u = tgif_u64; + } + break; + default: + abort(); + } + v64.u >>= offset_bits; + if (len_bits < 64) { + v64.u &= (1ULL << len_bits) - 1; + if (type_integer->signedness) { + /* Sign-extend. */ + if (v64.u & (1ULL << (len_bits - 1))) + v64.u |= ~((1ULL << len_bits) - 1); + } + } + if (_len_bits) + *_len_bits = len_bits; + return v64; +} + +static +void print_enum_labels(const struct tgif_enum_mappings *mappings, union int64_value v64) { - int i, print_count = 0; + uint32_t i, print_count = 0; - print_attributes("attr: ", side_enum_mappings->attr, side_enum_mappings->nr_attr); - printf("%s", side_enum_mappings->nr_attr ? ", " : ""); - printf("value: %" PRId64 ", labels: [ ", value); - for (i = 0; i < side_enum_mappings->nr_mappings; i++) { - const struct side_enum_mapping *mapping = &side_enum_mappings->mappings[i]; + printf(", labels: [ "); + for (i = 0; i < mappings->nr_mappings; i++) { + const struct tgif_enum_mapping *mapping = &mappings->mappings[i]; if (mapping->range_end < mapping->range_begin) { - printf("ERROR: Unexpected enum range: %" PRIu64 "-%" PRIu64 "\n", + fprintf(stderr, "ERROR: Unexpected enum range: %" PRIu64 "-%" PRIu64 "\n", mapping->range_begin, mapping->range_end); abort(); } - if (value >= mapping->range_begin && value <= mapping->range_end) { + if (v64.s >= mapping->range_begin && v64.s <= mapping->range_end) { printf("%s", print_count++ ? ", " : ""); - printf("\"%s\"", mapping->label); + tracer_print_string(mapping->label.p, mapping->label.unit_size, mapping->label.byte_order, NULL); } } if (!print_count) @@ -142,33 +467,127 @@ void print_enum(const struct side_enum_mappings *side_enum_mappings, int64_t val } static -void print_enum_bitmap(const struct side_enum_bitmap_mappings *side_enum_mappings, uint64_t value) +void tracer_print_enum(const struct tgif_type *type_desc, const struct tgif_arg *item) { - int i, print_count = 0; + const struct tgif_enum_mappings *mappings = type_desc->u.tgif_enum.mappings; + const struct tgif_type *elem_type = type_desc->u.tgif_enum.elem_type; + union int64_value v64; + + if (elem_type->type != item->type) { + fprintf(stderr, "ERROR: Unexpected enum element type\n"); + abort(); + } + v64 = tracer_load_integer_value(&elem_type->u.tgif_integer, + &item->u.tgif_static.integer_value, 0, NULL); + print_attributes("attr", ":", mappings->attr, mappings->nr_attr); + printf("%s", mappings->nr_attr ? ", " : ""); + tracer_print_type(elem_type, item); + print_enum_labels(mappings, v64); +} + +static +uint32_t elem_type_to_stride(const struct tgif_type *elem_type) +{ + uint32_t stride_bit; + + switch (elem_type->type) { + case TGIF_TYPE_BYTE: + stride_bit = 8; + break; + + case TGIF_TYPE_U8: + case TGIF_TYPE_U16: + case TGIF_TYPE_U32: + case TGIF_TYPE_U64: + case TGIF_TYPE_S8: + case TGIF_TYPE_S16: + case TGIF_TYPE_S32: + case TGIF_TYPE_S64: + return elem_type->u.tgif_integer.integer_size * CHAR_BIT; + default: + fprintf(stderr, "ERROR: Unexpected enum bitmap element type\n"); + abort(); + } + return stride_bit; +} + +static +void tracer_print_enum_bitmap(const struct tgif_type *type_desc, + const struct tgif_arg *item) +{ + const struct tgif_enum_bitmap_mappings *tgif_enum_mappings = type_desc->u.tgif_enum_bitmap.mappings; + const struct tgif_type *enum_elem_type = type_desc->u.tgif_enum_bitmap.elem_type, *elem_type; + uint32_t i, print_count = 0, stride_bit, nr_items; + const struct tgif_arg *array_item; + + switch (enum_elem_type->type) { + case TGIF_TYPE_U8: /* Fall-through */ + case TGIF_TYPE_BYTE: /* Fall-through */ + case TGIF_TYPE_U16: /* Fall-through */ + case TGIF_TYPE_U32: /* Fall-through */ + case TGIF_TYPE_U64: /* Fall-through */ + case TGIF_TYPE_S8: /* Fall-through */ + case TGIF_TYPE_S16: /* Fall-through */ + case TGIF_TYPE_S32: /* Fall-through */ + case TGIF_TYPE_S64: + elem_type = enum_elem_type; + array_item = item; + nr_items = 1; + break; + case TGIF_TYPE_ARRAY: + elem_type = enum_elem_type->u.tgif_array.elem_type; + array_item = item->u.tgif_static.tgif_array->sav; + nr_items = type_desc->u.tgif_array.length; + break; + case TGIF_TYPE_VLA: + elem_type = enum_elem_type->u.tgif_vla.elem_type; + array_item = item->u.tgif_static.tgif_vla->sav; + nr_items = item->u.tgif_static.tgif_vla->len; + break; + default: + fprintf(stderr, "ERROR: Unexpected enum element type\n"); + abort(); + } + stride_bit = elem_type_to_stride(elem_type); - print_attributes("attr: ", side_enum_mappings->attr, side_enum_mappings->nr_attr); - printf("%s", side_enum_mappings->nr_attr ? ", " : ""); - printf("value: 0x%" PRIx64 ", labels: [ ", value); - for (i = 0; i < side_enum_mappings->nr_mappings; i++) { - const struct side_enum_bitmap_mapping *mapping = &side_enum_mappings->mappings[i]; + print_attributes("attr", ":", tgif_enum_mappings->attr, tgif_enum_mappings->nr_attr); + printf("%s", tgif_enum_mappings->nr_attr ? ", " : ""); + printf("labels: [ "); + for (i = 0; i < tgif_enum_mappings->nr_mappings; i++) { + const struct tgif_enum_bitmap_mapping *mapping = &tgif_enum_mappings->mappings[i]; bool match = false; - int64_t bit; + uint64_t bit; - if (mapping->range_begin < 0 || mapping->range_end > 63 - || mapping->range_end < mapping->range_begin) { - printf("ERROR: Unexpected enum bitmap range: %" PRIu64 "-%" PRIu64 "\n", + if (mapping->range_end < mapping->range_begin) { + fprintf(stderr, "ERROR: Unexpected enum bitmap range: %" PRIu64 "-%" PRIu64 "\n", mapping->range_begin, mapping->range_end); abort(); } for (bit = mapping->range_begin; bit <= mapping->range_end; bit++) { - if (value & (1ULL << bit)) { - match = true; + if (bit > (nr_items * stride_bit) - 1) break; + if (elem_type->type == TGIF_TYPE_BYTE) { + uint8_t v = array_item[bit / 8].u.tgif_static.byte_value; + if (v & (1ULL << (bit % 8))) { + match = true; + goto match; + } + } else { + union int64_value v64; + + v64 = tracer_load_integer_value(&elem_type->u.tgif_integer, + &array_item[bit / stride_bit].u.tgif_static.integer_value, + 0, NULL); + if (v64.u & (1ULL << (bit % stride_bit))) { + match = true; + goto match; + } } } +match: if (match) { printf("%s", print_count++ ? ", " : ""); - printf("\"%s\"", mapping->label); + tracer_print_string(mapping->label.p, mapping->label.unit_size, mapping->label.byte_order, NULL); } } if (!print_count) @@ -177,582 +596,897 @@ void print_enum_bitmap(const struct side_enum_bitmap_mappings *side_enum_mapping } static -void tracer_print_type(const struct side_type_description *type_desc, const struct side_arg_vec *item) +void print_integer_binary(uint64_t v, int bits) { - switch (item->type) { - case SIDE_TYPE_ARRAY_U8: - case SIDE_TYPE_ARRAY_U16: - case SIDE_TYPE_ARRAY_U32: - case SIDE_TYPE_ARRAY_U64: - case SIDE_TYPE_ARRAY_S8: - case SIDE_TYPE_ARRAY_S16: - case SIDE_TYPE_ARRAY_S32: - case SIDE_TYPE_ARRAY_S64: - case SIDE_TYPE_ARRAY_BLOB: - if (type_desc->type != SIDE_TYPE_ARRAY) { - printf("ERROR: type mismatch between description and arguments\n"); - abort(); - } + int i; + + printf("0b"); + v <<= 64 - bits; + for (i = 0; i < bits; i++) { + printf("%c", v & (1ULL << 63) ? '1' : '0'); + v <<= 1; + } +} + +static +void tracer_print_type_header(const char *separator, + const struct tgif_attr *attr, uint32_t nr_attr) +{ + print_attributes("attr", separator, attr, nr_attr); + printf("%s", nr_attr ? ", " : ""); + printf("value%s ", separator); +} + +static +void tracer_print_type_bool(const char *separator, + const struct tgif_type_bool *type_bool, + const union tgif_bool_value *value, + uint16_t offset_bits) +{ + uint32_t len_bits; + bool reverse_bo; + uint64_t v; + + if (!type_bool->len_bits) + len_bits = type_bool->bool_size * CHAR_BIT; + else + len_bits = type_bool->len_bits; + if (len_bits + offset_bits > type_bool->bool_size * CHAR_BIT) + abort(); + reverse_bo = type_bool->byte_order != TGIF_TYPE_BYTE_ORDER_HOST; + switch (type_bool->bool_size) { + case 1: + v = value->tgif_bool8; break; - case SIDE_TYPE_VLA_U8: - case SIDE_TYPE_VLA_U16: - case SIDE_TYPE_VLA_U32: - case SIDE_TYPE_VLA_U64: - case SIDE_TYPE_VLA_S8: - case SIDE_TYPE_VLA_S16: - case SIDE_TYPE_VLA_S32: - case SIDE_TYPE_VLA_S64: - case SIDE_TYPE_VLA_BLOB: - if (type_desc->type != SIDE_TYPE_VLA) { - printf("ERROR: type mismatch between description and arguments\n"); - abort(); - } + case 2: + { + uint16_t tgif_u16; + + tgif_u16 = value->tgif_bool16; + if (reverse_bo) + tgif_u16 = tgif_bswap_16(tgif_u16); + v = tgif_u16; break; + } + case 4: + { + uint32_t tgif_u32; + + tgif_u32 = value->tgif_bool32; + if (reverse_bo) + tgif_u32 = tgif_bswap_32(tgif_u32); + v = tgif_u32; + break; + } + case 8: + { + uint64_t tgif_u64; + tgif_u64 = value->tgif_bool64; + if (reverse_bo) + tgif_u64 = tgif_bswap_64(tgif_u64); + v = tgif_u64; + break; + } default: - if (type_desc->type != item->type) { - printf("ERROR: type mismatch between description and arguments\n"); - abort(); - } + abort(); + } + v >>= offset_bits; + if (len_bits < 64) + v &= (1ULL << len_bits) - 1; + tracer_print_type_header(separator, type_bool->attr, type_bool->nr_attr); + printf("%s", v ? "true" : "false"); +} + +static +void tracer_print_type_integer(const char *separator, + const struct tgif_type_integer *type_integer, + const union tgif_integer_value *value, + uint16_t offset_bits, + enum tracer_display_base default_base) +{ + enum tracer_display_base base; + union int64_value v64; + uint16_t len_bits; + + v64 = tracer_load_integer_value(type_integer, value, offset_bits, &len_bits); + tracer_print_type_header(separator, type_integer->attr, type_integer->nr_attr); + base = get_attr_display_base(type_integer->attr, type_integer->nr_attr, default_base); + switch (base) { + case TRACER_DISPLAY_BASE_2: + print_integer_binary(v64.u, len_bits); + break; + case TRACER_DISPLAY_BASE_8: + /* Clear sign bits beyond len_bits */ + if (len_bits < 64) + v64.u &= (1ULL << len_bits) - 1; + printf("0%" PRIo64, v64.u); + break; + case TRACER_DISPLAY_BASE_10: + if (type_integer->signedness) + printf("%" PRId64, v64.s); + else + printf("%" PRIu64, v64.u); + break; + case TRACER_DISPLAY_BASE_16: + /* Clear sign bits beyond len_bits */ + if (len_bits < 64) + v64.u &= (1ULL << len_bits) - 1; + printf("0x%" PRIx64, v64.u); break; + default: + abort(); } - printf("{ "); - switch (item->type) { - case SIDE_TYPE_BOOL: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%s", item->u.side_bool ? "true" : "false"); - break; - case SIDE_TYPE_U8: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRIu8, item->u.side_u8); - break; - case SIDE_TYPE_U16: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRIu16, item->u.side_u16); - break; - case SIDE_TYPE_U32: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRIu32, item->u.side_u32); - break; - case SIDE_TYPE_U64: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRIu64, item->u.side_u64); - break; - case SIDE_TYPE_S8: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRId8, item->u.side_s8); - break; - case SIDE_TYPE_S16: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRId16, item->u.side_s16); - break; - case SIDE_TYPE_S32: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRId32, item->u.side_s32); - break; - case SIDE_TYPE_S64: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("%" PRId64, item->u.side_s64); - break; - case SIDE_TYPE_BLOB: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("0x%" PRIx8, item->u.side_blob); - break; - - case SIDE_TYPE_ENUM_U8: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_u8); - break; - case SIDE_TYPE_ENUM_U16: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_u16); - break; - case SIDE_TYPE_ENUM_U32: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_u32); - break; - case SIDE_TYPE_ENUM_U64: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_u64); - break; - case SIDE_TYPE_ENUM_S8: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_s8); - break; - case SIDE_TYPE_ENUM_S16: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_s16); - break; - case SIDE_TYPE_ENUM_S32: - print_enum(type_desc->u.side_enum_mappings, - (int64_t) item->u.side_s32); - break; - case SIDE_TYPE_ENUM_S64: - print_enum(type_desc->u.side_enum_mappings, - item->u.side_s64); - break; - - case SIDE_TYPE_ENUM_BITMAP8: - print_enum_bitmap(type_desc->u.side_enum_bitmap_mappings, - (uint64_t) item->u.side_u8); - break; - case SIDE_TYPE_ENUM_BITMAP16: - print_enum_bitmap(type_desc->u.side_enum_bitmap_mappings, - (uint64_t) item->u.side_u16); - break; - case SIDE_TYPE_ENUM_BITMAP32: - print_enum_bitmap(type_desc->u.side_enum_bitmap_mappings, - (uint64_t) item->u.side_u32); - break; - case SIDE_TYPE_ENUM_BITMAP64: - print_enum_bitmap(type_desc->u.side_enum_bitmap_mappings, - item->u.side_u64); - break; - - case SIDE_TYPE_FLOAT_BINARY16: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); +} + +static +void tracer_print_type_float(const char *separator, + const struct tgif_type_float *type_float, + const union tgif_float_value *value) +{ + bool reverse_bo; + + tracer_print_type_header(separator, type_float->attr, type_float->nr_attr); + reverse_bo = type_float->byte_order != TGIF_TYPE_FLOAT_WORD_ORDER_HOST; + switch (type_float->float_size) { + case 2: + { #if __HAVE_FLOAT16 - printf("%g", (double) item->u.side_float_binary16); + union { + _Float16 f; + uint16_t u; + } float16 = { + .f = value->tgif_float_binary16, + }; + + if (reverse_bo) + float16.u = tgif_bswap_16(float16.u); + printf("%g", (double) float16.f); break; #else - printf("ERROR: Unsupported binary16 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary16 float type\n"); abort(); #endif - case SIDE_TYPE_FLOAT_BINARY32: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); + } + case 4: + { #if __HAVE_FLOAT32 - printf("%g", (double) item->u.side_float_binary32); + union { + _Float32 f; + uint32_t u; + } float32 = { + .f = value->tgif_float_binary32, + }; + + if (reverse_bo) + float32.u = tgif_bswap_32(float32.u); + printf("%g", (double) float32.f); break; #else - printf("ERROR: Unsupported binary32 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary32 float type\n"); abort(); #endif - case SIDE_TYPE_FLOAT_BINARY64: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); + } + case 8: + { #if __HAVE_FLOAT64 - printf("%g", (double) item->u.side_float_binary64); + union { + _Float64 f; + uint64_t u; + } float64 = { + .f = value->tgif_float_binary64, + }; + + if (reverse_bo) + float64.u = tgif_bswap_64(float64.u); + printf("%g", (double) float64.f); break; #else - printf("ERROR: Unsupported binary64 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary64 float type\n"); abort(); #endif - case SIDE_TYPE_FLOAT_BINARY128: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); + } + case 16: + { #if __HAVE_FLOAT128 - printf("%Lg", (long double) item->u.side_float_binary128); + union { + _Float128 f; + char arr[16]; + } float128 = { + .f = value->tgif_float_binary128, + }; + + if (reverse_bo) + tgif_bswap_128p(float128.arr); + printf("%Lg", (long double) float128.f); break; #else - printf("ERROR: Unsupported binary128 float type\n"); + fprintf(stderr, "ERROR: Unsupported binary128 float type\n"); abort(); #endif - case SIDE_TYPE_STRING: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("value: "); - printf("\"%s\"", item->u.string); - break; - case SIDE_TYPE_STRUCT: - tracer_print_struct(type_desc, item->u.side_struct); - break; - case SIDE_TYPE_ARRAY: - tracer_print_array(type_desc, item->u.side_array); - break; - case SIDE_TYPE_VLA: - tracer_print_vla(type_desc, item->u.side_vla); - break; - case SIDE_TYPE_VLA_VISITOR: - tracer_print_vla_visitor(type_desc, item->u.side_vla_app_visitor_ctx); - break; - case SIDE_TYPE_ARRAY_U8: - case SIDE_TYPE_ARRAY_U16: - case SIDE_TYPE_ARRAY_U32: - case SIDE_TYPE_ARRAY_U64: - case SIDE_TYPE_ARRAY_S8: - case SIDE_TYPE_ARRAY_S16: - case SIDE_TYPE_ARRAY_S32: - case SIDE_TYPE_ARRAY_S64: - case SIDE_TYPE_ARRAY_BLOB: - tracer_print_array_fixint(type_desc, item); - break; - case SIDE_TYPE_VLA_U8: - case SIDE_TYPE_VLA_U16: - case SIDE_TYPE_VLA_U32: - case SIDE_TYPE_VLA_U64: - case SIDE_TYPE_VLA_S8: - case SIDE_TYPE_VLA_S16: - case SIDE_TYPE_VLA_S32: - case SIDE_TYPE_VLA_S64: - case SIDE_TYPE_VLA_BLOB: - tracer_print_vla_fixint(type_desc, item); - break; - case SIDE_TYPE_DYNAMIC: - print_attributes("attr: ", type_desc->u.side_basic.attr, type_desc->u.side_basic.nr_attr); - printf("%s", type_desc->u.side_basic.nr_attr ? ", " : ""); - printf("element: "); - tracer_print_dynamic(&item->u.dynamic); + } + default: + fprintf(stderr, "ERROR: Unknown float size\n"); + abort(); + } +} + +static +void tracer_print_type(const struct tgif_type *type_desc, const struct tgif_arg *item) +{ + enum tgif_type_label type; + + switch (type_desc->type) { + case TGIF_TYPE_ENUM: + switch (item->type) { + case TGIF_TYPE_U8: + case TGIF_TYPE_U16: + case TGIF_TYPE_U32: + case TGIF_TYPE_U64: + case TGIF_TYPE_S8: + case TGIF_TYPE_S16: + case TGIF_TYPE_S32: + case TGIF_TYPE_S64: + break; + default: + fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); + abort(); + break; + } + break; + + case TGIF_TYPE_ENUM_BITMAP: + switch (item->type) { + case TGIF_TYPE_U8: + case TGIF_TYPE_BYTE: + case TGIF_TYPE_U16: + case TGIF_TYPE_U32: + case TGIF_TYPE_U64: + case TGIF_TYPE_ARRAY: + case TGIF_TYPE_VLA: + break; + default: + fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); + abort(); + break; + } + break; + + case TGIF_TYPE_GATHER_ENUM: + switch (item->type) { + case TGIF_TYPE_GATHER_INTEGER: + break; + default: + fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); + abort(); + break; + } + break; + + case TGIF_TYPE_DYNAMIC: + switch (item->type) { + case TGIF_TYPE_DYNAMIC_NULL: + case TGIF_TYPE_DYNAMIC_BOOL: + case TGIF_TYPE_DYNAMIC_INTEGER: + case TGIF_TYPE_DYNAMIC_BYTE: + case TGIF_TYPE_DYNAMIC_POINTER: + case TGIF_TYPE_DYNAMIC_FLOAT: + case TGIF_TYPE_DYNAMIC_STRING: + case TGIF_TYPE_DYNAMIC_STRUCT: + case TGIF_TYPE_DYNAMIC_STRUCT_VISITOR: + case TGIF_TYPE_DYNAMIC_VLA: + case TGIF_TYPE_DYNAMIC_VLA_VISITOR: + break; + default: + fprintf(stderr, "ERROR: Unexpected dynamic type\n"); + abort(); + break; + } + break; + + default: + if (type_desc->type != item->type) { + fprintf(stderr, "ERROR: type mismatch between description and arguments\n"); + abort(); + } + break; + } + + if (type_desc->type == TGIF_TYPE_ENUM || type_desc->type == TGIF_TYPE_ENUM_BITMAP || + type_desc->type == TGIF_TYPE_GATHER_ENUM) + type = (enum tgif_type_label) type_desc->type; + else + type = (enum tgif_type_label) item->type; + + printf("{ "); + switch (type) { + /* Stack-copy basic types */ + case TGIF_TYPE_NULL: + tracer_print_type_header(":", type_desc->u.tgif_null.attr, type_desc->u.tgif_null.nr_attr); + printf(""); + break; + + case TGIF_TYPE_BOOL: + tracer_print_type_bool(":", &type_desc->u.tgif_bool, &item->u.tgif_static.bool_value, 0); + break; + + case TGIF_TYPE_U8: + case TGIF_TYPE_U16: + case TGIF_TYPE_U32: + case TGIF_TYPE_U64: + case TGIF_TYPE_S8: + case TGIF_TYPE_S16: + case TGIF_TYPE_S32: + case TGIF_TYPE_S64: + tracer_print_type_integer(":", &type_desc->u.tgif_integer, &item->u.tgif_static.integer_value, 0, + TRACER_DISPLAY_BASE_10); + break; + + case TGIF_TYPE_BYTE: + tracer_print_type_header(":", type_desc->u.tgif_byte.attr, type_desc->u.tgif_byte.nr_attr); + printf("0x%" PRIx8, item->u.tgif_static.byte_value); + break; + + case TGIF_TYPE_POINTER: + tracer_print_type_integer(":", &type_desc->u.tgif_integer, &item->u.tgif_static.integer_value, 0, + TRACER_DISPLAY_BASE_16); + break; + + case TGIF_TYPE_FLOAT_BINARY16: + case TGIF_TYPE_FLOAT_BINARY32: + case TGIF_TYPE_FLOAT_BINARY64: + case TGIF_TYPE_FLOAT_BINARY128: + tracer_print_type_float(":", &type_desc->u.tgif_float, &item->u.tgif_static.float_value); + break; + + case TGIF_TYPE_STRING_UTF8: + case TGIF_TYPE_STRING_UTF16: + case TGIF_TYPE_STRING_UTF32: + tracer_print_type_header(":", type_desc->u.tgif_string.attr, type_desc->u.tgif_string.nr_attr); + tracer_print_string((const void *)(uintptr_t) item->u.tgif_static.string_value, + type_desc->u.tgif_string.unit_size, type_desc->u.tgif_string.byte_order, NULL); + break; + + /* Stack-copy compound types */ + case TGIF_TYPE_STRUCT: + tracer_print_struct(type_desc, item->u.tgif_static.tgif_struct); + break; + case TGIF_TYPE_ARRAY: + tracer_print_array(type_desc, item->u.tgif_static.tgif_array); + break; + case TGIF_TYPE_VLA: + tracer_print_vla(type_desc, item->u.tgif_static.tgif_vla); + break; + case TGIF_TYPE_VLA_VISITOR: + tracer_print_vla_visitor(type_desc, item->u.tgif_static.tgif_vla_app_visitor_ctx); + break; + + /* Stack-copy enumeration types */ + case TGIF_TYPE_ENUM: + tracer_print_enum(type_desc, item); + break; + case TGIF_TYPE_ENUM_BITMAP: + tracer_print_enum_bitmap(type_desc, item); + break; + + /* Gather basic types */ + case TGIF_TYPE_GATHER_BOOL: + (void) tracer_print_gather_bool_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_bool_gather_ptr); + break; + case TGIF_TYPE_GATHER_INTEGER: + (void) tracer_print_gather_integer_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_integer_gather_ptr, + TRACER_DISPLAY_BASE_10); + break; + case TGIF_TYPE_GATHER_BYTE: + (void) tracer_print_gather_byte_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_byte_gather_ptr); + break; + case TGIF_TYPE_GATHER_POINTER: + (void) tracer_print_gather_integer_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_integer_gather_ptr, + TRACER_DISPLAY_BASE_16); + break; + case TGIF_TYPE_GATHER_FLOAT: + (void) tracer_print_gather_float_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_float_gather_ptr); + break; + case TGIF_TYPE_GATHER_STRING: + (void) tracer_print_gather_string_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_string_gather_ptr); + break; + + /* Gather compound type */ + case TGIF_TYPE_GATHER_STRUCT: + (void) tracer_print_gather_struct(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_struct_gather_ptr); + break; + case TGIF_TYPE_GATHER_ARRAY: + (void) tracer_print_gather_array(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_array_gather_ptr); + break; + case TGIF_TYPE_GATHER_VLA: + (void) tracer_print_gather_vla(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_vla_gather.ptr, + item->u.tgif_static.tgif_vla_gather.length_ptr); + break; + + /* Gather enumeration types */ + case TGIF_TYPE_GATHER_ENUM: + (void) tracer_print_gather_enum_type(&type_desc->u.tgif_gather, item->u.tgif_static.tgif_integer_gather_ptr); + break; + + /* Dynamic basic types */ + case TGIF_TYPE_DYNAMIC_NULL: + case TGIF_TYPE_DYNAMIC_BOOL: + case TGIF_TYPE_DYNAMIC_INTEGER: + case TGIF_TYPE_DYNAMIC_BYTE: + case TGIF_TYPE_DYNAMIC_POINTER: + case TGIF_TYPE_DYNAMIC_FLOAT: + case TGIF_TYPE_DYNAMIC_STRING: + + /* Dynamic compound types */ + case TGIF_TYPE_DYNAMIC_STRUCT: + case TGIF_TYPE_DYNAMIC_STRUCT_VISITOR: + case TGIF_TYPE_DYNAMIC_VLA: + case TGIF_TYPE_DYNAMIC_VLA_VISITOR: + tracer_print_dynamic(item); break; default: - printf(""); + fprintf(stderr, "\n"); abort(); } printf(" }"); } static -void tracer_print_field(const struct side_event_field *item_desc, const struct side_arg_vec *item) +void tracer_print_field(const struct tgif_event_field *item_desc, const struct tgif_arg *item) { printf("%s: ", item_desc->field_name); - tracer_print_type(&item_desc->side_type, item); + tracer_print_type(&item_desc->tgif_type, item); } static -void tracer_print_struct(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_struct(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + const struct tgif_arg *sav = tgif_arg_vec->sav; + uint32_t i, tgif_sav_len = tgif_arg_vec->len; - if (type_desc->u.side_struct->nr_fields != side_sav_len) { - printf("ERROR: number of fields mismatch between description and arguments of structure\n"); + if (type_desc->u.tgif_struct->nr_fields != tgif_sav_len) { + fprintf(stderr, "ERROR: number of fields mismatch between description and arguments of structure\n"); abort(); } - print_attributes("attr: ", type_desc->u.side_struct->attr, type_desc->u.side_struct->nr_attr); - printf("%s", type_desc->u.side_struct->nr_attr ? ", " : ""); + print_attributes("attr", ":", type_desc->u.tgif_struct->attr, type_desc->u.tgif_struct->nr_attr); + printf("%s", type_desc->u.tgif_struct->nr_attr ? ", " : ""); printf("fields: { "); - for (i = 0; i < side_sav_len; i++) { + for (i = 0; i < tgif_sav_len; i++) { printf("%s", i ? ", " : ""); - tracer_print_field(&type_desc->u.side_struct->fields[i], &sav[i]); + tracer_print_field(&type_desc->u.tgif_struct->fields[i], &sav[i]); } printf(" }"); } static -void tracer_print_array(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_array(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + const struct tgif_arg *sav = tgif_arg_vec->sav; + uint32_t i, tgif_sav_len = tgif_arg_vec->len; - if (type_desc->u.side_array.length != side_sav_len) { - printf("ERROR: length mismatch between description and arguments of array\n"); + if (type_desc->u.tgif_array.length != tgif_sav_len) { + fprintf(stderr, "ERROR: length mismatch between description and arguments of array\n"); abort(); } - print_attributes("attr: ", type_desc->u.side_array.attr, type_desc->u.side_array.nr_attr); - printf("%s", type_desc->u.side_array.nr_attr ? ", " : ""); + print_attributes("attr", ":", type_desc->u.tgif_array.attr, type_desc->u.tgif_array.nr_attr); + printf("%s", type_desc->u.tgif_array.nr_attr ? ", " : ""); printf("elements: "); printf("[ "); - for (i = 0; i < side_sav_len; i++) { + for (i = 0; i < tgif_sav_len; i++) { printf("%s", i ? ", " : ""); - tracer_print_type(type_desc->u.side_array.elem_type, &sav[i]); + tracer_print_type(type_desc->u.tgif_array.elem_type, &sav[i]); } printf(" ]"); } static -void tracer_print_vla(const struct side_type_description *type_desc, const struct side_arg_vec_description *sav_desc) +void tracer_print_vla(const struct tgif_type *type_desc, const struct tgif_arg_vec *tgif_arg_vec) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + const struct tgif_arg *sav = tgif_arg_vec->sav; + uint32_t i, tgif_sav_len = tgif_arg_vec->len; - print_attributes("attr: ", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr); - printf("%s", type_desc->u.side_vla.nr_attr ? ", " : ""); + print_attributes("attr", ":", type_desc->u.tgif_vla.attr, type_desc->u.tgif_vla.nr_attr); + printf("%s", type_desc->u.tgif_vla.nr_attr ? ", " : ""); printf("elements: "); printf("[ "); - for (i = 0; i < side_sav_len; i++) { + for (i = 0; i < tgif_sav_len; i++) { printf("%s", i ? ", " : ""); - tracer_print_type(type_desc->u.side_vla.elem_type, &sav[i]); + tracer_print_type(type_desc->u.tgif_vla.elem_type, &sav[i]); } printf(" ]"); } -struct tracer_visitor_priv { - const struct side_type_description *elem_type; - int i; -}; +static +const char *tracer_gather_access(enum tgif_type_gather_access_mode access_mode, const char *ptr) +{ + switch (access_mode) { + case TGIF_TYPE_GATHER_ACCESS_DIRECT: + return ptr; + case TGIF_TYPE_GATHER_ACCESS_POINTER: + /* Dereference pointer */ + memcpy(&ptr, ptr, sizeof(ptr)); + return ptr; + default: + abort(); + } +} static -enum side_visitor_status tracer_write_elem_cb(const struct side_tracer_visitor_ctx *tracer_ctx, - const struct side_arg_vec *elem) +uint32_t tracer_gather_size(enum tgif_type_gather_access_mode access_mode, uint32_t len) { - struct tracer_visitor_priv *tracer_priv = tracer_ctx->priv; + switch (access_mode) { + case TGIF_TYPE_GATHER_ACCESS_DIRECT: + return len; + case TGIF_TYPE_GATHER_ACCESS_POINTER: + return sizeof(void *); + default: + abort(); + } +} - printf("%s", tracer_priv->i++ ? ", " : ""); - tracer_print_type(tracer_priv->elem_type, elem); - return SIDE_VISITOR_STATUS_OK; +static +union int64_value tracer_load_gather_integer_value(const struct tgif_type_gather_integer *tgif_integer, + const void *_ptr) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) tgif_integer->access_mode; + uint32_t integer_size_bytes = tgif_integer->type.integer_size; + const char *ptr = (const char *) _ptr; + union tgif_integer_value value; + + ptr = tracer_gather_access(access_mode, ptr + tgif_integer->offset); + memcpy(&value, ptr, integer_size_bytes); + return tracer_load_integer_value(&tgif_integer->type, &value, + tgif_integer->offset_bits, NULL); } static -void tracer_print_vla_visitor(const struct side_type_description *type_desc, void *app_ctx) +uint32_t tracer_print_gather_bool_type(const struct tgif_type_gather *type_gather, const void *_ptr) { - enum side_visitor_status status; - struct tracer_visitor_priv tracer_priv = { - .elem_type = type_desc->u.side_vla_visitor.elem_type, - .i = 0, - }; - const struct side_tracer_visitor_ctx tracer_ctx = { - .write_elem = tracer_write_elem_cb, - .priv = &tracer_priv, - }; + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_bool.access_mode; + uint32_t bool_size_bytes = type_gather->u.tgif_bool.type.bool_size; + const char *ptr = (const char *) _ptr; + union tgif_bool_value value; + + switch (bool_size_bytes) { + case 1: + case 2: + case 4: + case 8: + break; + default: + abort(); + } + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_bool.offset); + memcpy(&value, ptr, bool_size_bytes); + tracer_print_type_bool(":", &type_gather->u.tgif_bool.type, &value, + type_gather->u.tgif_bool.offset_bits); + return tracer_gather_size(access_mode, bool_size_bytes); +} - print_attributes("attr: ", type_desc->u.side_vla_visitor.attr, type_desc->u.side_vla_visitor.nr_attr); - printf("%s", type_desc->u.side_vla_visitor.nr_attr ? ", " : ""); - printf("elements: "); - printf("[ "); - status = type_desc->u.side_vla_visitor.visitor(&tracer_ctx, app_ctx); - switch (status) { - case SIDE_VISITOR_STATUS_OK: +static +uint32_t tracer_print_gather_byte_type(const struct tgif_type_gather *type_gather, const void *_ptr) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_byte.access_mode; + const char *ptr = (const char *) _ptr; + uint8_t value; + + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_byte.offset); + memcpy(&value, ptr, 1); + tracer_print_type_header(":", type_gather->u.tgif_byte.type.attr, + type_gather->u.tgif_byte.type.nr_attr); + printf("0x%" PRIx8, value); + return tracer_gather_size(access_mode, 1); +} + +static +uint32_t tracer_print_gather_integer_type(const struct tgif_type_gather *type_gather, const void *_ptr, + enum tracer_display_base default_base) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_integer.access_mode; + uint32_t integer_size_bytes = type_gather->u.tgif_integer.type.integer_size; + const char *ptr = (const char *) _ptr; + union tgif_integer_value value; + + switch (integer_size_bytes) { + case 1: + case 2: + case 4: + case 8: break; - case SIDE_VISITOR_STATUS_ERROR: - printf("ERROR: Visitor error\n"); + default: abort(); } - printf(" ]"); + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_integer.offset); + memcpy(&value, ptr, integer_size_bytes); + tracer_print_type_integer(":", &type_gather->u.tgif_integer.type, &value, + type_gather->u.tgif_integer.offset_bits, default_base); + return tracer_gather_size(access_mode, integer_size_bytes); } -void tracer_print_array_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item) +static +uint32_t tracer_print_gather_float_type(const struct tgif_type_gather *type_gather, const void *_ptr) { - const struct side_type_description *elem_type = type_desc->u.side_array.elem_type; - uint32_t side_sav_len = type_desc->u.side_array.length; - void *p = item->u.side_array_fixint; - enum side_type side_type; - int i; + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_float.access_mode; + uint32_t float_size_bytes = type_gather->u.tgif_float.type.float_size; + const char *ptr = (const char *) _ptr; + union tgif_float_value value; + + switch (float_size_bytes) { + case 2: + case 4: + case 8: + case 16: + break; + default: + abort(); + } + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_float.offset); + memcpy(&value, ptr, float_size_bytes); + tracer_print_type_float(":", &type_gather->u.tgif_float.type, &value); + return tracer_gather_size(access_mode, float_size_bytes); +} - print_attributes("attr: ", type_desc->u.side_array.attr, type_desc->u.side_array.nr_attr); - printf("%s", type_desc->u.side_array.nr_attr ? ", " : ""); - printf("elements: "); - switch (item->type) { - case SIDE_TYPE_ARRAY_U8: - if (elem_type->type != SIDE_TYPE_U8) - goto type_error; +static +uint32_t tracer_print_gather_string_type(const struct tgif_type_gather *type_gather, const void *_ptr) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_string.access_mode; + const char *ptr = (const char *) _ptr; + size_t string_len; + + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_string.offset); + tracer_print_type_header(":", type_gather->u.tgif_string.type.attr, + type_gather->u.tgif_string.type.nr_attr); + if (ptr) { + tracer_print_string(ptr, type_gather->u.tgif_string.type.unit_size, + type_gather->u.tgif_string.type.byte_order, &string_len); + } else { + printf(""); + string_len = type_gather->u.tgif_string.type.unit_size; + } + return tracer_gather_size(access_mode, string_len); +} + +static +uint32_t tracer_print_gather_type(const struct tgif_type *type_desc, const void *ptr) +{ + uint32_t len; + + printf("{ "); + switch (type_desc->type) { + /* Gather basic types */ + case TGIF_TYPE_GATHER_BOOL: + len = tracer_print_gather_bool_type(&type_desc->u.tgif_gather, ptr); + break; + case TGIF_TYPE_GATHER_INTEGER: + len = tracer_print_gather_integer_type(&type_desc->u.tgif_gather, ptr, + TRACER_DISPLAY_BASE_10); break; - case SIDE_TYPE_ARRAY_U16: - if (elem_type->type != SIDE_TYPE_U16) - goto type_error; + case TGIF_TYPE_GATHER_BYTE: + len = tracer_print_gather_byte_type(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_U32: - if (elem_type->type != SIDE_TYPE_U32) - goto type_error; + case TGIF_TYPE_GATHER_POINTER: + len = tracer_print_gather_integer_type(&type_desc->u.tgif_gather, ptr, + TRACER_DISPLAY_BASE_16); break; - case SIDE_TYPE_ARRAY_U64: - if (elem_type->type != SIDE_TYPE_U64) - goto type_error; + case TGIF_TYPE_GATHER_FLOAT: + len = tracer_print_gather_float_type(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_S8: - if (elem_type->type != SIDE_TYPE_S8) - goto type_error; + case TGIF_TYPE_GATHER_STRING: + len = tracer_print_gather_string_type(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_S16: - if (elem_type->type != SIDE_TYPE_S16) - goto type_error; + + /* Gather enum types */ + case TGIF_TYPE_GATHER_ENUM: + len = tracer_print_gather_enum_type(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_S32: - if (elem_type->type != SIDE_TYPE_S32) - goto type_error; + + /* Gather compound types */ + case TGIF_TYPE_GATHER_STRUCT: + len = tracer_print_gather_struct(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_S64: - if (elem_type->type != SIDE_TYPE_S64) - goto type_error; + case TGIF_TYPE_GATHER_ARRAY: + len = tracer_print_gather_array(&type_desc->u.tgif_gather, ptr); break; - case SIDE_TYPE_ARRAY_BLOB: - if (elem_type->type != SIDE_TYPE_BLOB) - goto type_error; + case TGIF_TYPE_GATHER_VLA: + len = tracer_print_gather_vla(&type_desc->u.tgif_gather, ptr, ptr); break; default: - goto type_error; + fprintf(stderr, ""); + abort(); } - side_type = elem_type->type; + printf(" }"); + return len; +} - printf("[ "); - for (i = 0; i < side_sav_len; i++) { - struct side_arg_vec sav_elem = { - .type = side_type, - }; +static +uint32_t tracer_print_gather_enum_type(const struct tgif_type_gather *type_gather, const void *_ptr) +{ + const struct tgif_enum_mappings *mappings = type_gather->u.tgif_enum.mappings; + const struct tgif_type *enum_elem_type = type_gather->u.tgif_enum.elem_type; + const struct tgif_type_gather_integer *tgif_integer = &enum_elem_type->u.tgif_gather.u.tgif_integer; + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) tgif_integer->access_mode; + uint32_t integer_size_bytes = tgif_integer->type.integer_size; + const char *ptr = (const char *) _ptr; + union tgif_integer_value value; + union int64_value v64; + + switch (integer_size_bytes) { + case 1: + case 2: + case 4: + case 8: + break; + default: + abort(); + } + ptr = tracer_gather_access(access_mode, ptr + tgif_integer->offset); + memcpy(&value, ptr, integer_size_bytes); + v64 = tracer_load_gather_integer_value(tgif_integer, &value); + print_attributes("attr", ":", mappings->attr, mappings->nr_attr); + printf("%s", mappings->nr_attr ? ", " : ""); + tracer_print_gather_type(enum_elem_type, ptr); + print_enum_labels(mappings, v64); + return tracer_gather_size(access_mode, integer_size_bytes); +} - switch (side_type) { - case SIDE_TYPE_U8: - sav_elem.u.side_u8 = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_S8: - sav_elem.u.side_s8 = ((const int8_t *) p)[i]; - break; - case SIDE_TYPE_U16: - sav_elem.u.side_u16 = ((const uint16_t *) p)[i]; - break; - case SIDE_TYPE_S16: - sav_elem.u.side_s16 = ((const int16_t *) p)[i]; - break; - case SIDE_TYPE_U32: - sav_elem.u.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_S32: - sav_elem.u.side_s32 = ((const int32_t *) p)[i]; - break; - case SIDE_TYPE_U64: - sav_elem.u.side_u64 = ((const uint64_t *) p)[i]; - break; - case SIDE_TYPE_S64: - sav_elem.u.side_s64 = ((const int64_t *) p)[i]; - break; - case SIDE_TYPE_BLOB: - sav_elem.u.side_blob = ((const uint8_t *) p)[i]; - break; +static +void tracer_print_gather_field(const struct tgif_event_field *field, const void *ptr) +{ + printf("%s: ", field->field_name); + (void) tracer_print_gather_type(&field->tgif_type, ptr); +} - default: - printf("ERROR: Unexpected type\n"); +static +uint32_t tracer_print_gather_struct(const struct tgif_type_gather *type_gather, const void *_ptr) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_struct.access_mode; + const char *ptr = (const char *) _ptr; + uint32_t i; + + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_struct.offset); + print_attributes("attr", ":", type_gather->u.tgif_struct.type->attr, type_gather->u.tgif_struct.type->nr_attr); + printf("%s", type_gather->u.tgif_struct.type->nr_attr ? ", " : ""); + printf("fields: { "); + for (i = 0; i < type_gather->u.tgif_struct.type->nr_fields; i++) { + printf("%s", i ? ", " : ""); + tracer_print_gather_field(&type_gather->u.tgif_struct.type->fields[i], ptr); + } + printf(" }"); + return tracer_gather_size(access_mode, type_gather->u.tgif_struct.size); +} + +static +uint32_t tracer_print_gather_array(const struct tgif_type_gather *type_gather, const void *_ptr) +{ + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_array.access_mode; + const char *ptr = (const char *) _ptr, *orig_ptr; + uint32_t i; + + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_array.offset); + orig_ptr = ptr; + print_attributes("attr", ":", type_gather->u.tgif_array.type.attr, type_gather->u.tgif_array.type.nr_attr); + printf("%s", type_gather->u.tgif_array.type.nr_attr ? ", " : ""); + printf("elements: "); + printf("[ "); + for (i = 0; i < type_gather->u.tgif_array.type.length; i++) { + switch (type_gather->u.tgif_array.type.elem_type->type) { + case TGIF_TYPE_GATHER_VLA: + fprintf(stderr, "\n"); abort(); + default: + break; } - printf("%s", i ? ", " : ""); - tracer_print_type(elem_type, &sav_elem); + ptr += tracer_print_gather_type(type_gather->u.tgif_array.type.elem_type, ptr); } printf(" ]"); - return; - -type_error: - printf("ERROR: type mismatch\n"); - abort(); + return tracer_gather_size(access_mode, ptr - orig_ptr); } -void tracer_print_vla_fixint(const struct side_type_description *type_desc, const struct side_arg_vec *item) +static +uint32_t tracer_print_gather_vla(const struct tgif_type_gather *type_gather, const void *_ptr, + const void *_length_ptr) { - const struct side_type_description *elem_type = type_desc->u.side_vla.elem_type; - uint32_t side_sav_len = item->u.side_vla_fixint.length; - void *p = item->u.side_vla_fixint.p; - enum side_type side_type; - int i; + enum tgif_type_gather_access_mode access_mode = + (enum tgif_type_gather_access_mode) type_gather->u.tgif_vla.access_mode; + const char *ptr = (const char *) _ptr, *orig_ptr; + const char *length_ptr = (const char *) _length_ptr; + union int64_value v64; + uint32_t i, length; - print_attributes("attr: ", type_desc->u.side_vla.attr, type_desc->u.side_vla.nr_attr); - printf("%s", type_desc->u.side_vla.nr_attr ? ", " : ""); - printf("elements: "); - switch (item->type) { - case SIDE_TYPE_VLA_U8: - if (elem_type->type != SIDE_TYPE_U8) - goto type_error; - break; - case SIDE_TYPE_VLA_U16: - if (elem_type->type != SIDE_TYPE_U16) - goto type_error; - break; - case SIDE_TYPE_VLA_U32: - if (elem_type->type != SIDE_TYPE_U32) - goto type_error; - break; - case SIDE_TYPE_VLA_U64: - if (elem_type->type != SIDE_TYPE_U64) - goto type_error; - break; - case SIDE_TYPE_VLA_S8: - if (elem_type->type != SIDE_TYPE_S8) - goto type_error; - break; - case SIDE_TYPE_VLA_S16: - if (elem_type->type != SIDE_TYPE_S16) - goto type_error; - break; - case SIDE_TYPE_VLA_S32: - if (elem_type->type != SIDE_TYPE_S32) - goto type_error; - break; - case SIDE_TYPE_VLA_S64: - if (elem_type->type != SIDE_TYPE_S64) - goto type_error; - break; - case SIDE_TYPE_VLA_BLOB: - if (elem_type->type != SIDE_TYPE_BLOB) - goto type_error; + /* Access length */ + switch (type_gather->u.tgif_vla.length_type->type) { + case TGIF_TYPE_GATHER_INTEGER: break; default: - goto type_error; + fprintf(stderr, "\n"); + abort(); } - side_type = elem_type->type; - + v64 = tracer_load_gather_integer_value(&type_gather->u.tgif_vla.length_type->u.tgif_gather.u.tgif_integer, + length_ptr); + length = (uint32_t) v64.u; + ptr = tracer_gather_access(access_mode, ptr + type_gather->u.tgif_vla.offset); + orig_ptr = ptr; + print_attributes("attr", ":", type_gather->u.tgif_vla.type.attr, type_gather->u.tgif_vla.type.nr_attr); + printf("%s", type_gather->u.tgif_vla.type.nr_attr ? ", " : ""); + printf("elements: "); printf("[ "); - for (i = 0; i < side_sav_len; i++) { - struct side_arg_vec sav_elem = { - .type = side_type, - }; - - switch (side_type) { - case SIDE_TYPE_U8: - sav_elem.u.side_u8 = ((const uint8_t *) p)[i]; - break; - case SIDE_TYPE_S8: - sav_elem.u.side_s8 = ((const int8_t *) p)[i]; - break; - case SIDE_TYPE_U16: - sav_elem.u.side_u16 = ((const uint16_t *) p)[i]; - break; - case SIDE_TYPE_S16: - sav_elem.u.side_s16 = ((const int16_t *) p)[i]; - break; - case SIDE_TYPE_U32: - sav_elem.u.side_u32 = ((const uint32_t *) p)[i]; - break; - case SIDE_TYPE_S32: - sav_elem.u.side_s32 = ((const int32_t *) p)[i]; - break; - case SIDE_TYPE_U64: - sav_elem.u.side_u64 = ((const uint64_t *) p)[i]; - break; - case SIDE_TYPE_S64: - sav_elem.u.side_s64 = ((const int64_t *) p)[i]; - break; - case SIDE_TYPE_BLOB: - sav_elem.u.side_blob = ((const uint8_t *) p)[i]; - break; - - default: - printf("ERROR: Unexpected type\n"); + for (i = 0; i < length; i++) { + switch (type_gather->u.tgif_vla.type.elem_type->type) { + case TGIF_TYPE_GATHER_VLA: + fprintf(stderr, "\n"); abort(); + default: + break; } - printf("%s", i ? ", " : ""); - tracer_print_type(elem_type, &sav_elem); + ptr += tracer_print_gather_type(type_gather->u.tgif_vla.type.elem_type, ptr); } printf(" ]"); - return; + return tracer_gather_size(access_mode, ptr - orig_ptr); +} + +struct tracer_visitor_priv { + const struct tgif_type *elem_type; + int i; +}; + +static +enum tgif_visitor_status tracer_write_elem_cb(const struct tgif_tracer_visitor_ctx *tracer_ctx, + const struct tgif_arg *elem) +{ + struct tracer_visitor_priv *tracer_priv = (struct tracer_visitor_priv *) tracer_ctx->priv; -type_error: - printf("ERROR: type mismatch\n"); - abort(); + printf("%s", tracer_priv->i++ ? ", " : ""); + tracer_print_type(tracer_priv->elem_type, elem); + return TGIF_VISITOR_STATUS_OK; } static -void tracer_print_dynamic_struct(const struct side_arg_dynamic_event_struct *dynamic_struct) +void tracer_print_vla_visitor(const struct tgif_type *type_desc, void *app_ctx) { - const struct side_arg_dynamic_event_field *fields = dynamic_struct->fields; - uint32_t len = dynamic_struct->len; - int i; + enum tgif_visitor_status status; + struct tracer_visitor_priv tracer_priv = { + .elem_type = type_desc->u.tgif_vla_visitor.elem_type, + .i = 0, + }; + const struct tgif_tracer_visitor_ctx tracer_ctx = { + .write_elem = tracer_write_elem_cb, + .priv = &tracer_priv, + }; + print_attributes("attr", ":", type_desc->u.tgif_vla_visitor.attr, type_desc->u.tgif_vla_visitor.nr_attr); + printf("%s", type_desc->u.tgif_vla_visitor.nr_attr ? ", " : ""); + printf("elements: "); + printf("[ "); + status = type_desc->u.tgif_vla_visitor.visitor(&tracer_ctx, app_ctx); + switch (status) { + case TGIF_VISITOR_STATUS_OK: + break; + case TGIF_VISITOR_STATUS_ERROR: + fprintf(stderr, "ERROR: Visitor error\n"); + abort(); + } + printf(" ]"); +} + +static +void tracer_print_dynamic_struct(const struct tgif_arg_dynamic_struct *dynamic_struct) +{ + const struct tgif_arg_dynamic_field *fields = dynamic_struct->fields; + uint32_t i, len = dynamic_struct->len; + + print_attributes("attr", "::", dynamic_struct->attr, dynamic_struct->nr_attr); + printf("%s", dynamic_struct->nr_attr ? ", " : ""); printf("fields:: "); printf("[ "); for (i = 0; i < len; i++) { @@ -768,54 +1502,58 @@ struct tracer_dynamic_struct_visitor_priv { }; static -enum side_visitor_status tracer_dynamic_struct_write_elem_cb( - const struct side_tracer_dynamic_struct_visitor_ctx *tracer_ctx, - const struct side_arg_dynamic_event_field *dynamic_field) +enum tgif_visitor_status tracer_dynamic_struct_write_elem_cb( + const struct tgif_tracer_dynamic_struct_visitor_ctx *tracer_ctx, + const struct tgif_arg_dynamic_field *dynamic_field) { - struct tracer_dynamic_struct_visitor_priv *tracer_priv = tracer_ctx->priv; + struct tracer_dynamic_struct_visitor_priv *tracer_priv = + (struct tracer_dynamic_struct_visitor_priv *) tracer_ctx->priv; printf("%s", tracer_priv->i++ ? ", " : ""); printf("%s:: ", dynamic_field->field_name); tracer_print_dynamic(&dynamic_field->elem); - return SIDE_VISITOR_STATUS_OK; + return TGIF_VISITOR_STATUS_OK; } static -void tracer_print_dynamic_struct_visitor(const struct side_arg_dynamic_vec *item) +void tracer_print_dynamic_struct_visitor(const struct tgif_arg *item) { - enum side_visitor_status status; + enum tgif_visitor_status status; struct tracer_dynamic_struct_visitor_priv tracer_priv = { .i = 0, }; - const struct side_tracer_dynamic_struct_visitor_ctx tracer_ctx = { + const struct tgif_tracer_dynamic_struct_visitor_ctx tracer_ctx = { .write_field = tracer_dynamic_struct_write_elem_cb, .priv = &tracer_priv, }; - void *app_ctx = item->u.side_dynamic_struct_visitor.app_ctx; + void *app_ctx = item->u.tgif_dynamic.tgif_dynamic_struct_visitor.app_ctx; + print_attributes("attr", "::", item->u.tgif_dynamic.tgif_dynamic_struct_visitor.attr, item->u.tgif_dynamic.tgif_dynamic_struct_visitor.nr_attr); + printf("%s", item->u.tgif_dynamic.tgif_dynamic_struct_visitor.nr_attr ? ", " : ""); printf("fields:: "); printf("[ "); - status = item->u.side_dynamic_struct_visitor.visitor(&tracer_ctx, app_ctx); + status = item->u.tgif_dynamic.tgif_dynamic_struct_visitor.visitor(&tracer_ctx, app_ctx); switch (status) { - case SIDE_VISITOR_STATUS_OK: + case TGIF_VISITOR_STATUS_OK: break; - case SIDE_VISITOR_STATUS_ERROR: - printf("ERROR: Visitor error\n"); + case TGIF_VISITOR_STATUS_ERROR: + fprintf(stderr, "ERROR: Visitor error\n"); abort(); } printf(" ]"); } static -void tracer_print_dynamic_vla(const struct side_arg_dynamic_vec_vla *vla) +void tracer_print_dynamic_vla(const struct tgif_arg_dynamic_vla *vla) { - const struct side_arg_dynamic_vec *sav = vla->sav; - uint32_t side_sav_len = vla->len; - int i; + const struct tgif_arg *sav = vla->sav; + uint32_t i, tgif_sav_len = vla->len; + print_attributes("attr", "::", vla->attr, vla->nr_attr); + printf("%s", vla->nr_attr ? ", " : ""); printf("elements:: "); printf("[ "); - for (i = 0; i < side_sav_len; i++) { + for (i = 0; i < tgif_sav_len; i++) { printf("%s", i ? ", " : ""); tracer_print_dynamic(&sav[i]); } @@ -827,207 +1565,156 @@ struct tracer_dynamic_vla_visitor_priv { }; static -enum side_visitor_status tracer_dynamic_vla_write_elem_cb( - const struct side_tracer_dynamic_vla_visitor_ctx *tracer_ctx, - const struct side_arg_dynamic_vec *elem) +enum tgif_visitor_status tracer_dynamic_vla_write_elem_cb( + const struct tgif_tracer_visitor_ctx *tracer_ctx, + const struct tgif_arg *elem) { - struct tracer_dynamic_vla_visitor_priv *tracer_priv = tracer_ctx->priv; + struct tracer_dynamic_vla_visitor_priv *tracer_priv = + (struct tracer_dynamic_vla_visitor_priv *) tracer_ctx->priv; printf("%s", tracer_priv->i++ ? ", " : ""); tracer_print_dynamic(elem); - return SIDE_VISITOR_STATUS_OK; + return TGIF_VISITOR_STATUS_OK; } static -void tracer_print_dynamic_vla_visitor(const struct side_arg_dynamic_vec *item) +void tracer_print_dynamic_vla_visitor(const struct tgif_arg *item) { - enum side_visitor_status status; + enum tgif_visitor_status status; struct tracer_dynamic_vla_visitor_priv tracer_priv = { .i = 0, }; - const struct side_tracer_dynamic_vla_visitor_ctx tracer_ctx = { + const struct tgif_tracer_visitor_ctx tracer_ctx = { .write_elem = tracer_dynamic_vla_write_elem_cb, .priv = &tracer_priv, }; - void *app_ctx = item->u.side_dynamic_vla_visitor.app_ctx; + void *app_ctx = item->u.tgif_dynamic.tgif_dynamic_vla_visitor.app_ctx; + print_attributes("attr", "::", item->u.tgif_dynamic.tgif_dynamic_vla_visitor.attr, item->u.tgif_dynamic.tgif_dynamic_vla_visitor.nr_attr); + printf("%s", item->u.tgif_dynamic.tgif_dynamic_vla_visitor.nr_attr ? ", " : ""); printf("elements:: "); printf("[ "); - status = item->u.side_dynamic_vla_visitor.visitor(&tracer_ctx, app_ctx); + status = item->u.tgif_dynamic.tgif_dynamic_vla_visitor.visitor(&tracer_ctx, app_ctx); switch (status) { - case SIDE_VISITOR_STATUS_OK: + case TGIF_VISITOR_STATUS_OK: break; - case SIDE_VISITOR_STATUS_ERROR: - printf("ERROR: Visitor error\n"); + case TGIF_VISITOR_STATUS_ERROR: + fprintf(stderr, "ERROR: Visitor error\n"); abort(); } printf(" ]"); } static -void tracer_print_dynamic(const struct side_arg_dynamic_vec *item) +void tracer_print_dynamic(const struct tgif_arg *item) { printf("{ "); - print_attributes("attr:: ", item->attr, item->nr_attr); - printf("%s", item->nr_attr ? ", " : ""); - switch (item->dynamic_type) { - case SIDE_DYNAMIC_TYPE_NULL: - printf("value:: "); + switch (item->type) { + /* Dynamic basic types */ + case TGIF_TYPE_DYNAMIC_NULL: + tracer_print_type_header("::", item->u.tgif_dynamic.tgif_null.attr, item->u.tgif_dynamic.tgif_null.nr_attr); printf(""); break; - case SIDE_DYNAMIC_TYPE_BOOL: - printf("value:: "); - printf("%s", item->u.side_bool ? "true" : "false"); - break; - case SIDE_DYNAMIC_TYPE_U8: - printf("value:: "); - printf("%" PRIu8, item->u.side_u8); - break; - case SIDE_DYNAMIC_TYPE_U16: - printf("value:: "); - printf("%" PRIu16, item->u.side_u16); - break; - case SIDE_DYNAMIC_TYPE_U32: - printf("value:: "); - printf("%" PRIu32, item->u.side_u32); + case TGIF_TYPE_DYNAMIC_BOOL: + tracer_print_type_bool("::", &item->u.tgif_dynamic.tgif_bool.type, &item->u.tgif_dynamic.tgif_bool.value, 0); break; - case SIDE_DYNAMIC_TYPE_U64: - printf("value:: "); - printf("%" PRIu64, item->u.side_u64); + case TGIF_TYPE_DYNAMIC_INTEGER: + tracer_print_type_integer("::", &item->u.tgif_dynamic.tgif_integer.type, &item->u.tgif_dynamic.tgif_integer.value, 0, + TRACER_DISPLAY_BASE_10); break; - case SIDE_DYNAMIC_TYPE_S8: - printf("value:: "); - printf("%" PRId8, item->u.side_s8); + case TGIF_TYPE_DYNAMIC_BYTE: + tracer_print_type_header("::", item->u.tgif_dynamic.tgif_byte.type.attr, item->u.tgif_dynamic.tgif_byte.type.nr_attr); + printf("0x%" PRIx8, item->u.tgif_dynamic.tgif_byte.value); break; - case SIDE_DYNAMIC_TYPE_S16: - printf("value:: "); - printf("%" PRId16, item->u.side_s16); + case TGIF_TYPE_DYNAMIC_POINTER: + tracer_print_type_integer("::", &item->u.tgif_dynamic.tgif_integer.type, &item->u.tgif_dynamic.tgif_integer.value, 0, + TRACER_DISPLAY_BASE_16); break; - case SIDE_DYNAMIC_TYPE_S32: - printf("value:: "); - printf("%" PRId32, item->u.side_s32); + case TGIF_TYPE_DYNAMIC_FLOAT: + tracer_print_type_float("::", &item->u.tgif_dynamic.tgif_float.type, + &item->u.tgif_dynamic.tgif_float.value); break; - case SIDE_DYNAMIC_TYPE_S64: - printf("value:: "); - printf("%" PRId64, item->u.side_s64); - break; - case SIDE_DYNAMIC_TYPE_BLOB: - printf("value:: "); - printf("0x%" PRIx8, item->u.side_blob); + case TGIF_TYPE_DYNAMIC_STRING: + tracer_print_type_header("::", item->u.tgif_dynamic.tgif_string.type.attr, item->u.tgif_dynamic.tgif_string.type.nr_attr); + tracer_print_string((const char *)(uintptr_t) item->u.tgif_dynamic.tgif_string.value, + item->u.tgif_dynamic.tgif_string.type.unit_size, + item->u.tgif_dynamic.tgif_string.type.byte_order, NULL); break; - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY16: - printf("value:: "); -#if __HAVE_FLOAT16 - printf("%g", (double) item->u.side_float_binary16); - break; -#else - printf("ERROR: Unsupported binary16 float type\n"); - abort(); -#endif - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY32: - printf("value:: "); -#if __HAVE_FLOAT32 - printf("%g", (double) item->u.side_float_binary32); - break; -#else - printf("ERROR: Unsupported binary32 float type\n"); - abort(); -#endif - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY64: - printf("value:: "); -#if __HAVE_FLOAT64 - printf("%g", (double) item->u.side_float_binary64); - break; -#else - printf("ERROR: Unsupported binary64 float type\n"); - abort(); -#endif - case SIDE_DYNAMIC_TYPE_FLOAT_BINARY128: - printf("value:: "); -#if __HAVE_FLOAT128 - printf("%Lg", (long double) item->u.side_float_binary128); + /* Dynamic compound types */ + case TGIF_TYPE_DYNAMIC_STRUCT: + tracer_print_dynamic_struct(item->u.tgif_dynamic.tgif_dynamic_struct); break; -#else - printf("ERROR: Unsupported binary128 float type\n"); - abort(); -#endif - case SIDE_DYNAMIC_TYPE_STRING: - printf("value:: "); - printf("\"%s\"", item->u.string); - break; - case SIDE_DYNAMIC_TYPE_STRUCT: - tracer_print_dynamic_struct(item->u.side_dynamic_struct); - break; - case SIDE_DYNAMIC_TYPE_STRUCT_VISITOR: + case TGIF_TYPE_DYNAMIC_STRUCT_VISITOR: tracer_print_dynamic_struct_visitor(item); break; - case SIDE_DYNAMIC_TYPE_VLA: - tracer_print_dynamic_vla(item->u.side_dynamic_vla); + case TGIF_TYPE_DYNAMIC_VLA: + tracer_print_dynamic_vla(item->u.tgif_dynamic.tgif_dynamic_vla); break; - case SIDE_DYNAMIC_TYPE_VLA_VISITOR: + case TGIF_TYPE_DYNAMIC_VLA_VISITOR: tracer_print_dynamic_vla_visitor(item); break; default: - printf(""); + fprintf(stderr, "\n"); abort(); } printf(" }"); } static -void tracer_print_static_fields(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, - int *nr_items) +void tracer_print_static_fields(const struct tgif_event_description *desc, + const struct tgif_arg_vec *tgif_arg_vec, + uint32_t *nr_items) { - const struct side_arg_vec *sav = sav_desc->sav; - uint32_t side_sav_len = sav_desc->len; - int i; + const struct tgif_arg *sav = tgif_arg_vec->sav; + uint32_t i, tgif_sav_len = tgif_arg_vec->len; printf("provider: %s, event: %s", desc->provider_name, desc->event_name); - if (desc->nr_fields != side_sav_len) { - printf("ERROR: number of fields mismatch between description and arguments\n"); + if (desc->nr_fields != tgif_sav_len) { + fprintf(stderr, "ERROR: number of fields mismatch between description and arguments\n"); abort(); } - print_attributes(", attributes: ", desc->attr, desc->nr_attr); - printf("%s", side_sav_len ? ", fields: [ " : ""); - for (i = 0; i < side_sav_len; i++) { + print_attributes(", attr", ":", desc->attr, desc->nr_attr); + printf("%s", tgif_sav_len ? ", fields: [ " : ""); + for (i = 0; i < tgif_sav_len; i++) { printf("%s", i ? ", " : ""); tracer_print_field(&desc->fields[i], &sav[i]); } if (nr_items) *nr_items = i; + if (tgif_sav_len) + printf(" ]"); } -void tracer_call(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, +static +void tracer_call(const struct tgif_event_description *desc, + const struct tgif_arg_vec *tgif_arg_vec, void *priv __attribute__((unused))) { - int nr_fields = 0; + uint32_t nr_fields = 0; - tracer_print_static_fields(desc, sav_desc, &nr_fields); - if (nr_fields) - printf(" ]"); + tracer_print_static_fields(desc, tgif_arg_vec, &nr_fields); printf("\n"); } -void tracer_call_variadic(const struct side_event_description *desc, - const struct side_arg_vec_description *sav_desc, - const struct side_arg_dynamic_event_struct *var_struct, +static +void tracer_call_variadic(const struct tgif_event_description *desc, + const struct tgif_arg_vec *tgif_arg_vec, + const struct tgif_arg_dynamic_struct *var_struct, void *priv __attribute__((unused))) { - uint32_t var_struct_len = var_struct->len; - int nr_fields = 0, i; + uint32_t nr_fields = 0, i, var_struct_len = var_struct->len; - tracer_print_static_fields(desc, sav_desc, &nr_fields); + tracer_print_static_fields(desc, tgif_arg_vec, &nr_fields); - if (side_unlikely(!(desc->flags & SIDE_EVENT_FLAG_VARIADIC))) { - printf("ERROR: unexpected non-variadic event description\n"); + if (tgif_unlikely(!(desc->flags & TGIF_EVENT_FLAG_VARIADIC))) { + fprintf(stderr, "ERROR: unexpected non-variadic event description\n"); abort(); } - printf("%s", var_struct_len && !nr_fields ? ", fields: [ " : ""); + print_attributes(", attr ", "::", var_struct->attr, var_struct->nr_attr); + printf("%s", var_struct_len ? ", fields:: [ " : ""); for (i = 0; i < var_struct_len; i++, nr_fields++) { - printf("%s", nr_fields ? ", " : ""); + printf("%s", i ? ", " : ""); printf("%s:: ", var_struct->fields[i].field_name); tracer_print_dynamic(&var_struct->fields[i].elem); } @@ -1035,3 +1722,65 @@ void tracer_call_variadic(const struct side_event_description *desc, printf(" ]"); printf("\n"); } + +static +void tracer_event_notification(enum tgif_tracer_notification notif, + struct tgif_event_description **events, uint32_t nr_events, + void *priv __attribute__((unused))) +{ + uint32_t i; + int ret; + + printf("----------------------------------------------------------\n"); + printf("Tracer notified of events %s\n", + notif == TGIF_TRACER_NOTIFICATION_INSERT_EVENTS ? "inserted" : "removed"); + for (i = 0; i < nr_events; i++) { + struct tgif_event_description *event = events[i]; + + /* Skip NULL pointers */ + if (!event) + continue; + printf("provider: %s, event: %s\n", + event->provider_name, event->event_name); + if (notif == TGIF_TRACER_NOTIFICATION_INSERT_EVENTS) { + if (event->flags & TGIF_EVENT_FLAG_VARIADIC) { + ret = tgif_tracer_callback_variadic_register(event, tracer_call_variadic, NULL); + if (ret) + abort(); + } else { + ret = tgif_tracer_callback_register(event, tracer_call, NULL); + if (ret) + abort(); + } + } else { + if (event->flags & TGIF_EVENT_FLAG_VARIADIC) { + ret = tgif_tracer_callback_variadic_unregister(event, tracer_call_variadic, NULL); + if (ret) + abort(); + } else { + ret = tgif_tracer_callback_unregister(event, tracer_call, NULL); + if (ret) + abort(); + } + } + } + printf("----------------------------------------------------------\n"); +} + +static __attribute__((constructor)) +void tracer_init(void); +static +void tracer_init(void) +{ + tracer_handle = tgif_tracer_event_notification_register(tracer_event_notification, NULL); + if (!tracer_handle) + abort(); +} + +static __attribute__((destructor)) +void tracer_exit(void); +static +void tracer_exit(void) +{ + tgif_tracer_event_notification_unregister(tracer_handle); +}