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