ltt/branches/poly/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
  46 static inline void print_enum_events(LttEvent *e, struct marker_field *f,
  47                       guint64 value, GString *s, LttvTracefileState *tfs)
  48 {
  49   LttTrace *trace = ltt_tracefile_get_trace(e->tracefile);
  50   struct marker_info *info = marker_get_info_from_id(trace, e->event_id);
  51   LttvTraceState *ts = (LttvTraceState*)(tfs->parent.t_context);
  52
  53   //TODO optimize with old quarks.
  54   if (info->name == g_quark_from_static_string("kernel_arch_syscall_entry") &&
  55       f->name == LTT_FIELD_SYSCALL_ID) {
  56     g_string_append_printf(s, " [%s]",
  57       g_quark_to_string(ts->syscall_names[value]));
  58   } else if ((info->name == g_quark_from_static_string("kernel_softirq_entry")
  59     || info->name == g_quark_from_static_string("kernel_softirq_exit")
  60     || info->name == g_quark_from_static_string("kernel_softirq_raise")) &&
  61       f->name == g_quark_from_static_string("softirq_id")) {
  62     g_string_append_printf(s, " [%s]",
  63       g_quark_to_string(ts->soft_irq_names[value]));
  64   }
  65
  66 }
  67
  68 void lttv_print_field(LttEvent *e, struct marker_field *f, GString *s,
  69                       gboolean field_names, LttvTracefileState *tfs)
  70 {
  71   GQuark name;
  72   guint64 value;
  73
  74   //int nb, i;
  75
  76   switch(f->type) {
  77     case LTT_TYPE_SIGNED_INT:
  78       if(field_names) {
  79         name = f->name;
  80         if(name)
  81           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
  82       }
  83       value = ltt_event_get_long_int(e,f);
  84       g_string_append_printf(s, "%lld", value);
  85       //g_string_append_printf(s, type->fmt, ltt_event_get_long_int(e,f));
  86       print_enum_events(e, f, value, s, tfs);
  87       break;
  88
  89     case LTT_TYPE_UNSIGNED_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_unsigned(e,f);
  96       g_string_append_printf(s, "%llu", value);
  97       print_enum_events(e, f, value, s, tfs);
  98       //g_string_append_printf(s, type->fmt, ltt_event_get_long_unsigned(e,f));
  99       break;
 100
 101 #if 0
 102     case LTT_CHAR:
 103     case LTT_UCHAR:
 104       {
 105         unsigned car = ltt_event_get_unsigned(e,f);
 106         if(field_names) {
 107           name = ltt_field_name(f);
 108           if(name)
 109             g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 110         }
 111         if(isprint(car)) {
 112           if(field_names) {
 113             name = ltt_field_name(f);
 114             if(name)
 115               g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 116           }
 117           //g_string_append_printf(s, "%c", car);
 118           g_string_append_printf(s, type->fmt, car);
 119         } else {
 120           g_string_append_printf(s, "\\%x", car);
 121         }
 122       }
 123       break;
 124     case LTT_FLOAT:
 125      if(field_names) {
 126         name = ltt_field_name(f);
 127         if(name)
 128           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 129       }
 130      //g_string_append_printf(s, "%g", ltt_event_get_double(e,f));
 131       g_string_append_printf(s, type->fmt, ltt_event_get_double(e,f));
 132       break;
 133 #endif
 134
 135     case LTT_TYPE_POINTER:
 136       if(field_names) {
 137         name = f->name;
 138         if(name)
 139           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 140       }
 141       g_string_append_printf(s, "0x%llx", ltt_event_get_long_unsigned(e,f));
 142       //g_string_append_printf(s, type->fmt, ltt_event_get_long_unsigned(e,f));
 143       break;
 144
 145     case LTT_TYPE_STRING:
 146       if(field_names) {
 147         name = f->name;
 148         if(name)
 149           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 150       }
 151       g_string_append_printf(s, "\"%s\"", ltt_event_get_string(e,f));
 152       break;
 153
 154 #if 0
 155     case LTT_ENUM:
 156       {
 157         GQuark value = ltt_enum_string_get(type, ltt_event_get_unsigned(e,f));
 158         if(field_names) {
 159           name = ltt_field_name(f);
 160           if(name)
 161             g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 162         }
 163         if(value)
 164           g_string_append_printf(s, "%s", g_quark_to_string(value));
 165         else
 166           g_string_append_printf(s, "%lld", ltt_event_get_long_int(e,f));
 167       }
 168       break;
 169
 170     case LTT_ARRAY:
 171     case LTT_SEQUENCE:
 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       // g_string_append_printf(s, "{ ");
 178       //Insert header
 179       g_string_append_printf(s, type->header);//tested, works fine.
 180
 181
 182       nb = ltt_event_field_element_number(e,f);
 183       for(i = 0 ; i < nb ; i++) {
 184         LttField *child = ltt_event_field_element_select(e,f,i);
 185         lttv_print_field(e, child, s, field_names, i);
 186         if(i<nb-1)
 187           g_string_append_printf(s,type->separator);
 188       }
 189       //g_string_append_printf(s, " }");
 190       //Insert footer
 191       g_string_append_printf(s, type->footer);//tested, works fine.
 192       break;
 193
 194     case LTT_STRUCT:
 195       if(field_names) {
 196         name = ltt_field_name(f);
 197         if(name)
 198           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 199       }
 200       //      g_string_append_printf(s, "{ ");
 201       //Insert header
 202       g_string_append_printf(s, type->header);
 203
 204       nb = ltt_type_member_number(type);
 205       for(i = 0 ; i < nb ; i++) {
 206         LttField *element;
 207         element = ltt_field_member(f,i);
 208         lttv_print_field(e, element, s, field_names, i);
 209         if(i < nb-1)
 210           g_string_append_printf(s,type->separator);
 211       }
 212       //g_string_append_printf(s, " }");
 213       //Insert footer
 214       g_string_append_printf(s, type->footer);
 215       break;
 216
 217     case LTT_UNION:
 218       if(field_names) {
 219         name = ltt_field_name(f);
 220         if(name)
 221           g_string_append_printf(s, "%s = ", g_quark_to_string(name));
 222       }
 223       //      g_string_append_printf(s, "{ ");
 224       g_string_append_printf(s, type->header);
 225
 226       nb = ltt_type_member_number(type);
 227       for(i = 0 ; i < nb ; i++) {
 228         LttField *element;
 229         element = ltt_field_member(f,i);
 230         lttv_print_field(e, element, s, field_names, i);
 231         if(i<nb-1)
 232           g_string_append_printf(s, type->separator);
 233       }
 234       //      g_string_append_printf(s, " }");
 235       g_string_append_printf(s, type->footer);
 236       break;
 237 #endif
 238     case LTT_TYPE_COMPACT:
 239       g_error("compact type printing not implemented");
 240       break;
 241     case LTT_TYPE_NONE:
 242       break;
 243   }
 244 }
 245
 246 void lttv_event_to_string(LttEvent *e, GString *s,
 247     gboolean mandatory_fields, gboolean field_names, LttvTracefileState *tfs)
 248 {
 249   struct marker_field *field;
 250   struct marker_info *info;
 251
 252   LttTime time;
 253
 254   guint cpu = tfs->cpu;
 255   LttvTraceState *ts = (LttvTraceState*)tfs->parent.t_context;
 256   LttvProcessState *process = ts->running_process[cpu];
 257   LttTrace *trace = ts->parent.t;
 258
 259   s = g_string_set_size(s,0);
 260
 261   info = marker_get_info_from_id(trace, e->event_id);
 262
 263   if(mandatory_fields) {
 264     time = ltt_event_time(e);
 265     g_string_append_printf(s,"%s: %ld.%09ld (%s%s_%u)",
 266         g_quark_to_string(info->name),
 267         (long)time.tv_sec, time.tv_nsec,
 268         g_quark_to_string(
 269                 ltt_trace_name(ltt_tracefile_get_trace(tfs->parent.tf))),
 270         g_quark_to_string(ltt_tracefile_name(tfs->parent.tf)),
 271         cpu);
 272     /* Print the process id and the state/interrupt type of the process */
 273     g_string_append_printf(s,", %u, %u, %s, %s, %u, 0x%llX, %s", process->pid,
 274         process->tgid,
 275         g_quark_to_string(process->name),
 276         g_quark_to_string(process->brand),
 277         process->ppid, process->current_function,
 278         g_quark_to_string(process->state->t));
 279   }
 280
 281   if(marker_get_num_fields(info) == 0) return;
 282   g_string_append_printf(s, " ");
 283   g_string_append_printf(s, "{ ");
 284   for (field = marker_get_field(info, 0);
 285                 field != marker_get_field(info, marker_get_num_fields(info));
 286                 field++) {
 287     if(field != marker_get_field(info, 0))
 288       g_string_append_printf(s, ", ");
 289     lttv_print_field(e, field, s, field_names, tfs);
 290   }
 291   g_string_append_printf(s, " }");
 292 }
 293
 294 static void init()
 295 {
 296 }
 297
 298 static void destroy()
 299 {
 300 }
 301
 302 LTTV_MODULE("print", "Print events", \
 303       "Produce a detailed text printout of events", \
 304       init, destroy)
 305