lttv/lttv/print.c

   1 /* This file is part of the Linux Trace Toolkit viewer
   2  * Copyright (C) 2003-2004 Michel Dagenais
   3  *               2005 Mathieu Desnoyers
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License Version 2 as
   7  * published by the Free Software Foundation;
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  17  * MA 02111-1307, USA.
  18  */
  19
  20 /* print.c
  21  *
  22  * Event printing routines.
  23  */
  24
  25 #ifdef HAVE_CONFIG_H
  26 #include <config.h>
  27 #endif
  28
  29 #include <lttv/lttv.h>
  30 #include <lttv/option.h>
  31 #include <lttv/module.h>
  32 #include <lttv/hook.h>
  33 #include <lttv/attribute.h>
  34 #include <lttv/iattribute.h>
  35 #include <lttv/stats.h>
  36 #include <lttv/filter.h>
  37 #include <lttv/print.h>
  38 #include <ltt/ltt.h>
  39 #include <ltt/event.h>
  40 #include <ltt/trace.h>
  41 #include <stdio.h>
  42 #include <ctype.h>
  43 #include <ltt/ltt-private.h>
  44 #include <string.h>
  45 #include <inttypes.h>
  46
  47 static inline void print_enum_events(LttEvent *e, struct marker_field *f,
  48                       guint64 value, GString *s, LttvTracefileState *tfs)
  49 {
  50   LttTracefile *tf = tfs->parent.tf;
  51   struct marker_info *info = marker_get_info_from_id(tf->mdata, e->event_id);
  52   LttvTraceState *ts = (LttvTraceState*)(tfs->parent.t_context);
  53
  54   if (tf->name == LTT_CHANNEL_KERNEL) {
  55     if (info->name == LTT_EVENT_SYSCALL_ENTRY
  56         && f->name == LTT_FIELD_SYSCALL_ID) {
  57       g_string_append_printf(s, " [%s]",
  58         g_quark_to_string(ts->syscall_names[value]));
  59     } else if ((info->name == LTT_EVENT_SOFT_IRQ_ENTRY
  60                 || info->name == LTT_EVENT_SOFT_IRQ_EXIT
  61                 || info->name == LTT_EVENT_SOFT_IRQ_RAISE)
  62                && f->name == LTT_FIELD_SOFT_IRQ_ID) {
  63       g_string_append_printf(s, " [%s]",
  64         g_quark_to_string(ts->soft_irq_names[value]));
  65     } else if (info->name == LTT_EVENT_KPROBE
  66                && f->name == LTT_FIELD_IP) {
  67 #if (__SIZEOF_LONG__ == 4)
  68       GQuark symbol = (GQuark)g_hash_table_lookup(ts->kprobe_hash,
  69                                           (gconstpointer)&value);
  70 #else
  71       GQuark symbol = (GQuark)g_hash_table_lookup(ts->kprobe_hash,
  72                                           (gconstpointer)value);
  73 #endif
  74       if (symbol)
  75         g_string_append_printf(s, " [%s]", g_quark_to_string(symbol));
  76     }
  77   }
  78 }
  79
  80 void lttv_print_field(LttEvent *e, struct marker_field *f, GString *s,
  81                       gboolean field_names, LttvTracefileState *tfs)
  82 {
  83   GQuark name;
  84   guint64 value;
  85
  86   //int nb, i;
  87
  88   switch(f->type) {
  89     case LTT_TYPE_SIGNED_INT:
  90       if(field_names) {
  91         name = f->name;
  92         if(name)
  93           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
  94       }
  95       value = ltt_event_get_long_int(e,f);
  96       //g_string_append_printf(s, "%lld", value);
  97       g_string_append_printf(s, f->fmt->str, value);
  98       //g_string_append_printf(s, type->fmt, ltt_event_get_long_int(e,f));
  99       print_enum_events(e, f, value, s, tfs);
 100       break;
 101
 102     case LTT_TYPE_UNSIGNED_INT:
 103       if(field_names) {
 104         name = f->name;
 105         if(name)
 106           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 107       }
 108       value = ltt_event_get_long_unsigned(e,f);
 109       //g_string_append_printf(s, "%llu", value);
 110       g_string_append_printf(s, f->fmt->str, value);
 111       print_enum_events(e, f, value, s, tfs);
 112       //g_string_append_printf(s, type->fmt, ltt_event_get_long_unsigned(e,f));
 113       break;
 114
 115 #if 0
 116     case LTT_CHAR:
 117     case LTT_UCHAR:
 118       {
 119         unsigned car = ltt_event_get_unsigned(e,f);
 120         if(field_names) {
 121           name = ltt_field_name(f);
 122           if(name)
 123             g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 124         }
 125         if(isprint(car)) {
 126           if(field_names) {
 127             name = ltt_field_name(f);
 128             if(name)
 129               g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 130           }
 131           //g_string_append_printf(s, "%c", car);
 132           g_string_append_printf(s, type->fmt, car);
 133         } else {
 134           g_string_append_printf(s, "\\%x", car);
 135         }
 136       }
 137       break;
 138     case LTT_FLOAT:
 139      if(field_names) {
 140         name = ltt_field_name(f);
 141         if(name)
 142           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 143       }
 144      //g_string_append_printf(s, "%g", ltt_event_get_double(e,f));
 145       g_string_append_printf(s, type->fmt, ltt_event_get_double(e,f));
 146       break;
 147 #endif
 148
 149     case LTT_TYPE_POINTER:
 150       if(field_names) {
 151         name = f->name;
 152         if(name)
 153           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 154       }
 155       g_string_append_printf(s, "0x%" PRIx64, ltt_event_get_long_unsigned(e,f));
 156       //g_string_append_printf(s, type->fmt, ltt_event_get_long_unsigned(e,f));
 157       break;
 158
 159     case LTT_TYPE_STRING:
 160       if(field_names) {
 161         name = f->name;
 162         if(name)
 163           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 164       }
 165       g_string_append_printf(s, "\"%s\"", ltt_event_get_string(e,f));
 166       break;
 167
 168 #if 0
 169     case LTT_ENUM:
 170       {
 171         GQuark value = ltt_enum_string_get(type, ltt_event_get_unsigned(e,f));
 172         if(field_names) {
 173           name = ltt_field_name(f);
 174           if(name)
 175             g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 176         }
 177         if(value)
 178           g_string_append_printf(s, "%s", g_quark_to_string(value));
 179         else
 180           g_string_append_printf(s, "%lld", ltt_event_get_long_int(e,f));
 181       }
 182       break;
 183
 184     case LTT_ARRAY:
 185     case LTT_SEQUENCE:
 186       if(field_names) {
 187         name = ltt_field_name(f);
 188         if(name)
 189           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 190       }
 191       // g_string_append_printf(s, "{ ");
 192       //Insert header
 193       g_string_append_printf(s, type->header);//tested, works fine.
 194
 195
 196       nb = ltt_event_field_element_number(e,f);
 197       for(i = 0 ; i < nb ; i++) {
 198         LttField *child = ltt_event_field_element_select(e,f,i);
 199         lttv_print_field(e, child, s, field_names, i);
 200         if(i<nb-1)
 201           g_string_append_printf(s,type->separator);
 202       }
 203       //g_string_append_printf(s, " }");
 204       //Insert footer
 205       g_string_append_printf(s, type->footer);//tested, works fine.
 206       break;
 207
 208     case LTT_STRUCT:
 209       if(field_names) {
 210         name = ltt_field_name(f);
 211         if(name)
 212           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 213       }
 214       //      g_string_append_printf(s, "{ ");
 215       //Insert header
 216       g_string_append_printf(s, type->header);
 217
 218       nb = ltt_type_member_number(type);
 219       for(i = 0 ; i < nb ; i++) {
 220         LttField *element;
 221         element = ltt_field_member(f,i);
 222         lttv_print_field(e, element, s, field_names, i);
 223         if(i < nb-1)
 224           g_string_append_printf(s,type->separator);
 225       }
 226       //g_string_append_printf(s, " }");
 227       //Insert footer
 228       g_string_append_printf(s, type->footer);
 229       break;
 230
 231     case LTT_UNION:
 232       if(field_names) {
 233         name = ltt_field_name(f);
 234         if(name)
 235           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 236       }
 237       //      g_string_append_printf(s, "{ ");
 238       g_string_append_printf(s, type->header);
 239
 240       nb = ltt_type_member_number(type);
 241       for(i = 0 ; i < nb ; i++) {
 242         LttField *element;
 243         element = ltt_field_member(f,i);
 244         lttv_print_field(e, element, s, field_names, i);
 245         if(i<nb-1)
 246           g_string_append_printf(s, type->separator);
 247       }
 248       //      g_string_append_printf(s, " }");
 249       g_string_append_printf(s, type->footer);
 250       break;
 251 #endif
 252     case LTT_TYPE_COMPACT:
 253       g_error("compact type printing not implemented");
 254       break;
 255     case LTT_TYPE_NONE:
 256       break;
 257   }
 258 }
 259
 260 void lttv_event_to_string(LttEvent *e, GString *s,
 261     gboolean mandatory_fields, gboolean field_names, LttvTracefileState *tfs)
 262 {
 263   struct marker_field *field;
 264   struct marker_info *info;
 265
 266   LttTime time;
 267
 268   guint cpu = tfs->cpu;
 269   LttvTraceState *ts = (LttvTraceState*)tfs->parent.t_context;
 270   LttvProcessState *process = ts->running_process[cpu];
 271
 272   s = g_string_set_size(s,0);
 273
 274   info = marker_get_info_from_id(tfs->parent.tf->mdata, e->event_id);
 275
 276   if(mandatory_fields) {
 277     time = ltt_event_time(e);
 278     g_string_append_printf(s,"%s.%s: %ld.%09ld (%s/%s_%u)",
 279         g_quark_to_string(ltt_tracefile_name(tfs->parent.tf)),
 280         g_quark_to_string(info->name),
 281         (long)time.tv_sec, time.tv_nsec,
 282         g_quark_to_string(
 283                 ltt_trace_name(ltt_tracefile_get_trace(tfs->parent.tf))),
 284         g_quark_to_string(ltt_tracefile_name(tfs->parent.tf)),
 285         cpu);
 286     /* Print the process id and the state/interrupt type of the process */
 287     g_string_append_printf(s,", %u, %u, %s, %s, %u, 0x%" PRIx64", %s",
 288                            process->pid,
 289                            process->tgid,
 290                            g_quark_to_string(process->name),
 291                            g_quark_to_string(process->brand),
 292                            process->ppid, process->current_function,
 293                            g_quark_to_string(process->state->t));
 294   }
 295
 296   if(marker_get_num_fields(info) == 0) return;
 297   g_string_append_printf(s, " ");
 298   g_string_append_printf(s, "{ ");
 299   for (field = marker_get_field(info, 0);
 300                 field != marker_get_field(info, marker_get_num_fields(info));
 301                 field++) {
 302     if(field != marker_get_field(info, 0))
 303       g_string_append_printf(s, ", ");
 304     lttv_print_field(e, field, s, field_names, tfs);
 305   }
 306   g_string_append_printf(s, " }");
 307 }
 308
 309 static void init()
 310 {
 311 }
 312
 313 static void destroy()
 314 {
 315 }
 316
 317 LTTV_MODULE("print", "Print events", \
 318       "Produce a detailed text printout of events", \
 319       init, destroy)
 320