decode: add support for Google Trace Event output (JSON)

[sigrok-cli.git] / decode.c

/*
 * This file is part of the sigrok-cli project.
 *
 * Copyright (C) 2013 Bert Vermeulen <bert@biot.com>
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include <config.h>
#include <stdlib.h>
#include <string.h>
#include <glib.h>
#include "sigrok-cli.h"

#ifdef HAVE_SRD
static GHashTable *pd_ann_visible = NULL;
static GHashTable *pd_meta_visible = NULL;
static GHashTable *pd_binary_visible = NULL;
static GHashTable *pd_channel_maps = NULL;

uint64_t pd_samplerate = 0;

extern struct srd_session *srd_sess;

static int opts_to_gvar(struct srd_decoder *dec, GHashTable *hash,
                GHashTable **options)
{
        struct srd_decoder_option *o;
        GSList *optl;
        GVariant *gvar;
        gint64 val_int;
        double val_dbl;
        int ret;
        char *val_str, *conv;

        ret = TRUE;
        *options = g_hash_table_new_full(g_str_hash, g_str_equal, g_free,
                        (GDestroyNotify)g_variant_unref);

        for (optl = dec->options; optl; optl = optl->next) {
                o = optl->data;
                if (!(val_str = g_hash_table_lookup(hash, o->id)))
                        /* Not specified. */
                        continue;
                if (g_variant_is_of_type(o->def, G_VARIANT_TYPE_STRING)) {
                        gvar = g_variant_new_string(val_str);
                } else if (g_variant_is_of_type(o->def, G_VARIANT_TYPE_INT64)) {
                        conv = NULL;
                        val_int = strtoll(val_str, &conv, 0);
                        if (!conv || conv == val_str || *conv) {
                                g_critical("Protocol decoder '%s' option '%s' "
                                                "requires a number.", dec->name, o->id);
                                ret = FALSE;
                                break;
                        }
                        gvar = g_variant_new_int64(val_int);
                } else if (g_variant_is_of_type(o->def, G_VARIANT_TYPE_DOUBLE)) {
                        conv = NULL;
                        val_dbl = strtod(val_str, &conv);
                        if (!conv || conv == val_str || *conv) {
                                g_critical("Protocol decoder '%s' option '%s' requires a float number.",
                                        dec->name, o->id);
                                ret = FALSE;
                                break;
                        }
                        gvar = g_variant_new_double(val_dbl);
                } else {
                        g_critical("Unsupported type for option '%s' (%s)",
                                        o->id, g_variant_get_type_string(o->def));
                        ret = FALSE;
                        break;
                }
                g_variant_ref_sink(gvar);
                g_hash_table_insert(*options, g_strdup(o->id), gvar);
                g_hash_table_remove(hash, o->id);
        }

        return ret;
}

static int move_hash_element(GHashTable *src, GHashTable *dest, void *key)
{
        void *orig_key, *value;

        if (!g_hash_table_lookup_extended(src, key, &orig_key, &value))
                /* Not specified. */
                return FALSE;
        g_hash_table_steal(src, orig_key);
        g_hash_table_insert(dest, orig_key, value);

        return TRUE;
}

static GHashTable *extract_channel_map(struct srd_decoder *dec, GHashTable *hash)
{
        GHashTable *channel_map;
        struct srd_channel *pdch;
        GSList *l;

        channel_map = g_hash_table_new_full(g_str_hash, g_str_equal,
                                          g_free, g_free);

        for (l = dec->channels; l; l = l->next) {
                pdch = l->data;
                move_hash_element(hash, channel_map, pdch->id);
        }
        for (l = dec->opt_channels; l; l = l->next) {
                pdch = l->data;
                move_hash_element(hash, channel_map, pdch->id);
        }

        return channel_map;
}

static int register_pd(char *opt_pds, char *opt_pd_annotations)
{
        int ret;
        struct srd_decoder *dec;
        struct srd_decoder_inst *di, *di_prior;
        char **pdtokens, **pdtok, *pd_name;
        GHashTable *pd_opthash, *options, *channels;
        GList *leftover, *l;

        ret = 0;
        pd_name = NULL;
        di_prior = NULL;
        pd_opthash = options = channels = NULL;

        pdtokens = g_strsplit(opt_pds, ",", 0);
        for (pdtok = pdtokens; *pdtok; pdtok++) {
                if (!(pd_opthash = parse_generic_arg(*pdtok, TRUE))) {
                        g_critical("Invalid protocol decoder option '%s'.", *pdtok);
                        break;
                }

                pd_name = g_strdup(g_hash_table_lookup(pd_opthash, "sigrok_key"));
                g_hash_table_remove(pd_opthash, "sigrok_key");
                if (srd_decoder_load(pd_name) != SRD_OK) {
                        g_critical("Failed to load protocol decoder %s.", pd_name);
                        ret = 1;
                        break;
                }
                if (!(dec = srd_decoder_get_by_id(pd_name))) {
                        g_critical("Failed to get decoder %s by id.", pd_name);
                        ret = 1;
                        break;
                }

                /* Convert decoder option and channel values to GVariant. */
                if (!opts_to_gvar(dec, pd_opthash, &options)) {
                        ret = 1;
                        break;
                }
                channels = extract_channel_map(dec, pd_opthash);

                if (g_hash_table_size(pd_opthash) > 0) {
                        leftover = g_hash_table_get_keys(pd_opthash);
                        for (l = leftover; l; l = l->next)
                                g_critical("Unknown option or channel '%s'", (char *)l->data);
                        g_list_free(leftover);
                        break;
                }

                if (!(di = srd_inst_new(srd_sess, pd_name, options))) {
                        g_critical("Failed to instantiate protocol decoder %s.", pd_name);
                        ret = 1;
                        break;
                }

                if (pdtok == pdtokens) {
                        /*
                         * Save the channel setup for later, but only on the
                         * first decoder (stacked decoders don't get channels).
                         */
                        g_hash_table_insert(pd_channel_maps, g_strdup(di->inst_id), channels);
                        channels = NULL;
                }

                /*
                 * If no annotation list was specified, add them all in now.
                 * This will be pared down later to leave only the last PD
                 * in the stack.
                 */
                if (!opt_pd_annotations) {
                        g_hash_table_insert(pd_ann_visible, g_strdup(di->decoder->id),
                                        g_slist_append(NULL, GINT_TO_POINTER(-1)));
                }
                if (di_prior) {
                        if (srd_inst_stack(srd_sess, di_prior, di) != SRD_OK) {
                                g_critical("Failed to stack %s -> %s.",
                                        di_prior->inst_id, di->inst_id);
                                ret = 1;
                                break;
                        }
                        /* Remove annotations from prior levels. */
                        if (!opt_pd_annotations)
                                g_hash_table_remove(pd_ann_visible, di_prior->inst_id);
                }
                di_prior = di;
                g_free(pd_name);
                g_hash_table_destroy(pd_opthash);
                g_hash_table_destroy(options);
                pd_opthash = options = NULL;
        }

        if (pd_opthash)
                g_hash_table_destroy(pd_opthash);
        if (options)
                g_hash_table_destroy(options);
        if (channels)
                g_hash_table_destroy(channels);

        g_strfreev(pdtokens);

        return ret;
}

/*
 * Register all the PDs from all stacks.
 *
 * Each PD string is a single stack such as "uart:baudrate=19200,modbus".
 */
int register_pds(gchar **all_pds, char *opt_pd_annotations)
{
        int ret;

        ret = 0;
        pd_ann_visible = g_hash_table_new_full(g_str_hash, g_str_equal,
                                               g_free, NULL);
        pd_channel_maps = g_hash_table_new_full(g_str_hash,
                g_str_equal, g_free, (GDestroyNotify)g_hash_table_destroy);

        for (int i = 0; all_pds[i]; i++)
                ret += register_pd(all_pds[i], opt_pd_annotations);

        return ret;
}

static void map_pd_inst_channels(void *key, void *value, void *user_data)
{
        GHashTable *channel_map;
        GHashTable *channel_indices;
        GSList *channel_list;
        struct srd_decoder_inst *di;
        GVariant *var;
        void *channel_id;
        void *channel_target;
        struct sr_channel *ch;
        GHashTableIter iter;

        channel_map = value;
        channel_list = user_data;

        di = srd_inst_find_by_id(srd_sess, key);
        if (!di) {
                g_critical("Protocol decoder instance \"%s\" not found.",
                           (char *)key);
                return;
        }
        channel_indices = g_hash_table_new_full(g_str_hash, g_str_equal, g_free,
                                              (GDestroyNotify)g_variant_unref);

        g_hash_table_iter_init(&iter, channel_map);
        while (g_hash_table_iter_next(&iter, &channel_id, &channel_target)) {
                if (!channel_target) {
                        g_printerr("cli: Channel name for \"%s\" missing.\n",
                                   (char *)channel_id);
                        continue;
                }
                ch = find_channel(channel_list, channel_target);
                if (!ch) {
                        g_printerr("cli: No channel with name \"%s\" found.\n",
                                   (char *)channel_target);
                        continue;
                }
                if (!ch->enabled)
                        g_printerr("cli: Target channel \"%s\" not enabled.\n",
                                   (char *)channel_target);

                var = g_variant_new_int32(ch->index);
                g_variant_ref_sink(var);
                g_hash_table_insert(channel_indices, g_strdup(channel_id), var);
        }

        srd_inst_channel_set_all(di, channel_indices);
        g_hash_table_destroy(channel_indices);
}

void map_pd_channels(struct sr_dev_inst *sdi)
{
        GSList *channels;

        channels = sr_dev_inst_channels_get(sdi);

        if (pd_channel_maps) {
                g_hash_table_foreach(pd_channel_maps, &map_pd_inst_channels,
                                     channels);
                g_hash_table_destroy(pd_channel_maps);
                pd_channel_maps = NULL;
        }
}

int setup_pd_annotations(char *opt_pd_annotations)
{
        GSList *l, *l_ann;
        struct srd_decoder *dec;
        int ann_class;
        char **pds, **pdtok, **keyval, **annlist, **ann, **ann_descr;
        const char *dec_id;
        const char *ann_txt;
        const char *ann_id;
        const struct srd_decoder_annotation_row *row_desc;
        char **ann_diag;

        /* Set up custom list of PDs and annotations to show. */
        pds = g_strsplit(opt_pd_annotations, ",", 0);
        for (pdtok = pds; *pdtok && **pdtok; pdtok++) {
                keyval = g_strsplit(*pdtok, "=", 0);
                dec_id = keyval[0];
                if (!(dec = srd_decoder_get_by_id(dec_id))) {
                        g_critical("Protocol decoder '%s' not found.", dec_id);
                        g_strfreev(keyval);
                        g_strfreev(pds);
                        return 1;
                }
                if (!dec->annotations) {
                        g_critical("Protocol decoder '%s' has no annotations.", dec_id);
                        g_strfreev(keyval);
                        g_strfreev(pds);
                        return 1;
                }
                ann_txt = (g_strv_length(keyval) == 2) ? keyval[1] : NULL;
                if (ann_txt && *ann_txt) {
                        annlist = g_strsplit(ann_txt, ":", 0);
                        for (ann = annlist; *ann && **ann; ann++) {
                                ann_id = *ann;
                                g_debug("cli: Lookup decoder %s annotation %s.", dec_id, ann_id);
                                /* Lookup annotation class. */
                                ann_class = 0;
                                for (l = dec->annotations; l; l = l->next, ann_class++) {
                                        ann_descr = l->data;
                                        if (!canon_cmp(ann_descr[0], ann_id))
                                                /* Found it. */
                                                break;
                                }
                                if (l) {
                                        l_ann = g_hash_table_lookup(pd_ann_visible, dec_id);
                                        l_ann = g_slist_append(l_ann, GINT_TO_POINTER(ann_class));
                                        g_hash_table_replace(pd_ann_visible, g_strdup(dec_id), l_ann);
                                        g_debug("cli: Showing protocol decoder %s annotation "
                                                        "class %d (%s).", dec_id, ann_class, ann_descr[0]);
                                        continue;
                                }
                                /* Lookup annotation row. */
                                for (l = dec->annotation_rows; l; l = l->next) {
                                        row_desc = l->data;
                                        if (!canon_cmp(row_desc->id, ann_id))
                                                break;
                                }
                                if (l) {
                                        g_debug("cli: Showing decoder %s annotation row %s (%s).",
                                                dec_id, row_desc->id, row_desc->desc);
                                        l_ann = g_hash_table_lookup(pd_ann_visible, dec_id);
                                        for (l = row_desc->ann_classes; l; l = l->next) {
                                                /*
                                                 * This could just be:
                                                 *   l_ann = g_slist_append(l_ann, l->data);
                                                 * But we are explicit for readability
                                                 * and to access details for diagnostics.
                                                 */
                                                ann_class = GPOINTER_TO_INT(l->data);
                                                l_ann = g_slist_append(l_ann, GINT_TO_POINTER(ann_class));
                                                ann_diag = g_slist_nth_data(dec->annotations, ann_class);
                                                g_debug("cli: Adding class %d/%s from row %s.",
                                                        ann_class, ann_diag[0], row_desc->id);
                                        }
                                        g_hash_table_replace(pd_ann_visible, g_strdup(dec_id), l_ann);
                                        continue;
                                }
                                /* No match found. */
                                g_critical("Annotation '%s' not found "
                                                "for protocol decoder '%s'.", ann_id, dec_id);
                                g_strfreev(keyval);
                                g_strfreev(pds);
                                return 1;
                        }
                } else {
                        /* No class specified: show all of them. */
                        ann_class = -1;
                        l_ann = g_slist_append(NULL, GINT_TO_POINTER(ann_class));
                        g_hash_table_insert(pd_ann_visible, g_strdup(dec_id), l_ann);
                        g_debug("cli: Showing all annotation classes for protocol "
                                        "decoder %s.", dec_id);
                }
                g_strfreev(keyval);
        }
        g_strfreev(pds);

        return 0;
}

int setup_pd_meta(char *opt_pd_meta)
{
        struct srd_decoder *dec;
        char **pds, **pdtok;

        pd_meta_visible = g_hash_table_new_full(g_str_hash, g_int_equal,
                        g_free, NULL);
        pds = g_strsplit(opt_pd_meta, ",", 0);
        for (pdtok = pds; *pdtok && **pdtok; pdtok++) {
                if (!(dec = srd_decoder_get_by_id(*pdtok))) {
                        g_critical("Protocol decoder '%s' not found.", *pdtok);
                        return 1;
                }
                g_debug("cli: Showing protocol decoder meta output from '%s'.", *pdtok);
                g_hash_table_insert(pd_meta_visible, g_strdup(*pdtok), NULL);
        }
        g_strfreev(pds);

        return 0;
}

int setup_pd_binary(char *opt_pd_binary)
{
        GSList *l;
        struct srd_decoder *dec;
        int bin_class;
        char **pds, **pdtok, **keyval, **bin_name;

        pd_binary_visible = g_hash_table_new_full(g_str_hash, g_int_equal,
                        g_free, NULL);
        pds = g_strsplit(opt_pd_binary, ",", 0);
        for (pdtok = pds; *pdtok && **pdtok; pdtok++) {
                keyval = g_strsplit(*pdtok, "=", 0);
                if (!(dec = srd_decoder_get_by_id(keyval[0]))) {
                        g_critical("Protocol decoder '%s' not found.", keyval[0]);
                        return 1;
                }
                if (!dec->binary) {
                        g_critical("Protocol decoder '%s' has no binary output.", keyval[0]);
                        return 1;
                }
                bin_class = 0;
                if (g_strv_length(keyval) == 2) {
                        for (l = dec->binary; l; l = l->next, bin_class++) {
                                bin_name = l->data;
                                if (!strcmp(bin_name[0], keyval[1]))
                                        /* Found it. */
                                        break;
                        }
                        if (!l) {
                                g_critical("binary output '%s' not found "
                                                "for protocol decoder '%s'.", keyval[1], keyval[0]);
                                return 1;
                        }
                        g_debug("cli: Showing protocol decoder %s binary class "
                                        "%d (%s).", keyval[0], bin_class, bin_name[0]);
                } else {
                        /* No class specified: output all of them. */
                        bin_class = -1;
                        g_debug("cli: Showing all binary classes for protocol "
                                        "decoder %s.", keyval[0]);
                }
                g_hash_table_insert(pd_binary_visible, g_strdup(keyval[0]), GINT_TO_POINTER(bin_class));
                g_strfreev(keyval);
        }
        g_strfreev(pds);

        return 0;
}

/*
 * Balance JSON object and array parentheses, and separate array items.
 * Somewhat convoluted API to re-use the routine for individual items as
 * well as the surrounding array and object, including deferred start of
 * the output and late flush (and to keep the state strictly local to the
 * routine). Some additional complexity due to JSON's inability to handle
 * a trailing comma at the last item. Code phrased such that text literals
 * are kept in their order of appearance in the output text.
 */
static void jsontrace_open_close(gboolean is_close_req)
{
        static gboolean is_opened;

        if (!is_close_req) {
                if (!is_opened) {
                        printf("{\"traceEvents\": [\n");
                        is_opened = TRUE;
                } else {
                        printf(",\n");
                }
        } else {
                if (is_opened) {
                        printf("\n");
                        printf("]}\n");
                        fflush(stdout);
                }
                is_opened = FALSE;
        }
}

/* Convert uint64 sample number to double timestamp in microseconds. */
static double jsontrace_ts_usec(uint64_t snum)
{
        double ts_usec;

        ts_usec = snum;
        ts_usec *= 1e6;
        ts_usec /= pd_samplerate;
        return ts_usec;
}

/* Emit two Google Trace Events (JSON) for one PD annotation (ss, es). */
static void jsontrace_annotation(struct srd_decoder *dec,
        struct srd_proto_data_annotation *pda, struct srd_proto_data *pdata)
{
        char *row_text;
        GSList *lrow, *lcls;
        struct srd_decoder_annotation_row *row;
        int cls;
        char **ann_descr;

        /*
         * Search for an annotation row for this index, or use the
         * annotation's descriptor.
         */
        row_text = NULL;
        if (dec->annotation_rows) {
                for (lrow = dec->annotation_rows; lrow; lrow = lrow->next) {
                        row = lrow->data;
                        for (lcls = row->ann_classes; lcls; lcls = lcls->next) {
                                cls = GPOINTER_TO_INT(lcls->data);
                                if (cls == pda->ann_class) {
                                        row_text = row->desc;
                                        break;
                                }
                        }
                        if (row_text)
                                break;
                }
        }
        if (!row_text) {
                ann_descr = g_slist_nth_data(dec->annotations, pda->ann_class);
                row_text = ann_descr[0];
        }

        /*
         * Emit two Google Trace Events for the start and end times.
         * Set the 'pid' (process ID) to the decoder name to group a
         * decoder's annotations. Set the 'tid' (thread ID) to the
         * annotation row's description. The 'ts' (timestamp) is in
         * microseconds. Set 'name' to the longest annotation text.
         *
         * BEWARE of the unfortunate JSON format comma limitation. And
         * some of the output formatting is motivated by the desire to
         * further reduce text size, by eliminating some of the spaces.
         *
         * This implementation is strictly compatible to the initial
         * implementation. Which might change in the future to increase
         * readability of the output to humans, by generating a layout
         * which is closer to other output modes.
         */
        jsontrace_open_close(FALSE);
        printf("{");
        printf("\"%s\": \"%s\"", "name", pda->ann_text[0]);
        printf(", \"%s\": \"%s\"", "ph", "B");
        printf(", \"%s\": \"%s\"", "pid", pdata->pdo->proto_id);
        printf(", \"%s\": \"%s\"", "tid", row_text);
        printf(", \"%s\": %lf", "ts", jsontrace_ts_usec(pdata->start_sample));
        printf("}");

        jsontrace_open_close(FALSE);
        printf("{");
        printf("\"%s\": \"%s\"", "name", pda->ann_text[0]);
        printf(", \"%s\": \"%s\"", "ph", "E");
        printf(", \"%s\": \"%s\"", "pid", pdata->pdo->proto_id);
        printf(", \"%s\": \"%s\"", "tid", row_text);
        printf(", \"%s\": %lf", "ts", jsontrace_ts_usec(pdata->end_sample));
        printf("}");
}

void show_pd_annotations(struct srd_proto_data *pdata, void *cb_data)
{
        struct srd_decoder *dec;
        struct srd_proto_data_annotation *pda;
        GSList *ann_list, *l;
        int i;
        char **ann_descr;
        gboolean show_ann, show_snum, show_class, show_quotes, show_abbrev;
        const char *quote;

        (void)cb_data;

        if (!pd_ann_visible)
                return;

        if (!g_hash_table_lookup_extended(pd_ann_visible, pdata->pdo->di->decoder->id,
                        NULL, (void **)&ann_list)) {
                /* Not in the list of PDs whose annotations we're showing. */
                return;
        }

        dec = pdata->pdo->di->decoder;
        pda = pdata->data;
        show_ann = FALSE;
        for (l = ann_list; l; l = l->next) {
                if (GPOINTER_TO_INT(l->data) == -1
                                || GPOINTER_TO_INT(l->data) == pda->ann_class) {
                        show_ann = TRUE;
                        break;
                }
        }
        if (!show_ann)
                return;

        /* Google Trace Events are rather special. Use a separate code path. */
        if (opt_pd_jsontrace) {
                jsontrace_annotation(dec, pda, pdata);
                return;
        }

        /*
         * Determine which fields of the annotation to display. Inspect
         * user specified options as well as the verbosity of the log level:
         * - Optionally show the sample numbers for the annotation's span.
         * - Always show the protocol decoder ID.
         * - Optionally show the annotation's class description.
         * - Always show the longest annotation text.
         * - Optionally show alternative annotation text (abbreviations
         *   for different zoom levels).
         * - Optionally put quote marks around annotation text, when
         *   recipients might have to deal with a set of text variants.
         */
        show_snum = show_class = show_quotes = show_abbrev = FALSE;
        if (opt_pd_samplenum || opt_loglevel > SR_LOG_WARN) {
                show_snum = TRUE;
        }
        if (opt_loglevel > SR_LOG_WARN) {
                show_quotes = TRUE;
        }
        if (opt_loglevel > SR_LOG_INFO) {
                show_class = TRUE;
                show_abbrev = TRUE;
        }

        /*
         * Display the annotation's fields after the layout was
         * determined above.
         */
        if (show_snum) {
                printf("%" PRIu64 "-%" PRIu64 " ",
                        pdata->start_sample, pdata->end_sample);
        }
        printf("%s: ", pdata->pdo->proto_id);
        if (show_class) {
                ann_descr = g_slist_nth_data(dec->annotations, pda->ann_class);
                printf("%s: ", ann_descr[0]);
        }
        quote = show_quotes ? "\"" : "";
        printf("%s%s%s", quote, pda->ann_text[0], quote);
        if (show_abbrev) {
                for (i = 1; pda->ann_text[i]; i++)
                        printf(" %s%s%s", quote, pda->ann_text[i], quote);
        }
        printf("\n");
        fflush(stdout);
}

void show_pd_meta(struct srd_proto_data *pdata, void *cb_data)
{
        (void)cb_data;

        if (!g_hash_table_lookup_extended(pd_meta_visible,
                        pdata->pdo->di->decoder->id, NULL, NULL))
                /* Not in the list of PDs whose meta output we're showing. */
                return;

        if (opt_pd_samplenum || opt_loglevel > SR_LOG_WARN)
                printf("%"PRIu64"-%"PRIu64" ", pdata->start_sample, pdata->end_sample);
        printf("%s: ", pdata->pdo->proto_id);
        printf("%s: %s", pdata->pdo->meta_name, g_variant_print(pdata->data, FALSE));
        printf("\n");
        fflush(stdout);
}

void show_pd_binary(struct srd_proto_data *pdata, void *cb_data)
{
        struct srd_proto_data_binary *pdb;
        gpointer classp;
        int classi;

        (void)cb_data;

        if (!g_hash_table_lookup_extended(pd_binary_visible,
                        pdata->pdo->di->decoder->id, NULL, (void **)&classp))
                /* Not in the list of PDs whose meta output we're showing. */
                return;

        classi = GPOINTER_TO_INT(classp);
        pdb = pdata->data;
        if (classi != -1 && classi != pdb->bin_class)
                /* Not showing this binary class. */
                return;

        /* Just send the binary output to stdout, no embellishments. */
        fwrite(pdb->data, pdb->size, 1, stdout);
        fflush(stdout);
}

void show_pd_prepare(void)
{
        if (opt_pd_jsontrace)
                jsontrace_open_close(TRUE);
}

void show_pd_close(void)
{
        if (opt_pd_jsontrace)
                jsontrace_open_close(TRUE);
}
#endif