projects / lttv.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
old files clean
[lttv.git] / ltt / branches / poly / lttv / main / stats.c
CommitLineData
b445142a 1
9f797243 2#include <stdio.h>
b445142a 3#include <lttv/stats.h>
4#include <ltt/facility.h>
5#include <ltt/trace.h>
6#include <ltt/event.h>
7
9f797243 8#define BUF_SIZE 256
9
b445142a 10GQuark
11 LTTV_STATS_PROCESS_UNKNOWN,
12 LTTV_STATS_PROCESSES,
13 LTTV_STATS_CPU,
14 LTTV_STATS_MODE_TYPES,
15 LTTV_STATS_MODES,
16 LTTV_STATS_SUBMODES,
17 LTTV_STATS_EVENT_TYPES,
18 LTTV_STATS_CPU_TIME,
19 LTTV_STATS_ELAPSED_TIME,
20 LTTV_STATS_EVENTS,
21 LTTV_STATS_EVENTS_COUNT;
22
23static GQuark
24 LTTV_STATS_BEFORE_HOOKS,
25 LTTV_STATS_AFTER_HOOKS;
26
27static void remove_all_processes(GHashTable *processes);
28
29static void
30find_event_tree(LttvTracefileStats *tfcs, GQuark process, GQuark cpu,
31 GQuark mode, GQuark sub_mode, LttvAttribute **events_tree,
32 LttvAttribute **event_types_tree);
33
34static void
35init(LttvTracesetStats *self, LttvTraceset *ts)
36{
37 guint i, j, nb_trace, nb_control, nb_per_cpu, nb_tracefile;
38
39 LttvTraceContext *tc;
40
41 LttvTraceStats *tcs;
42
43 LttvTracefileContext *tfc;
44
45 LttvTracefileStats *tfcs;
46
47 LttTime timestamp = {0,0};
48
49 LTTV_TRACESET_CONTEXT_CLASS(g_type_class_peek(LTTV_TRACESET_STATE_TYPE))->
50 init((LttvTracesetContext *)self, ts);
51
52 self->stats = g_object_new(LTTV_ATTRIBUTE_TYPE, NULL);
53 nb_trace = lttv_traceset_number(ts);
54
55 for(i = 0 ; i < nb_trace ; i++) {
56 tcs = (LttvTraceStats *)tc = (LTTV_TRACESET_CONTEXT(self)->traces[i]);
57 tcs->stats = g_object_new(LTTV_ATTRIBUTE_TYPE, NULL);
58
59 nb_control = ltt_trace_control_tracefile_number(tc->t);
60 nb_per_cpu = ltt_trace_per_cpu_tracefile_number(tc->t);
61 nb_tracefile = nb_control + nb_per_cpu;
62 for(j = 0 ; j < nb_tracefile ; j++) {
63 if(j < nb_control) {
64 tfcs = LTTV_TRACEFILE_STATS(tc->control_tracefiles[j]);
65 }
66 else {
67 tfcs = LTTV_TRACEFILE_STATS(tc->per_cpu_tracefiles[j - nb_control]);
68 }
69
70 tfcs->stats = g_object_new(LTTV_ATTRIBUTE_TYPE, NULL);
71 find_event_tree(tfcs, LTTV_STATS_PROCESS_UNKNOWN,
72 tfcs->parent.cpu_name, LTTV_STATE_MODE_UNKNOWN,
73 LTTV_STATE_SUBMODE_UNKNOWN, &tfcs->current_events_tree,
74 &tfcs->current_event_types_tree);
75 }
76 }
77}
78
79
80static void
81fini(LttvTracesetStats *self)
82{
83 guint i, j, nb_trace, nb_tracefile;
84
85 LttvTraceset *ts;
86
87 LttvTraceContext *tc;
88
89 LttvTraceStats *tcs;
90
91 LttvTracefileContext *tfc;
92
93 LttvTracefileStats *tfcs;
94
95 LttTime timestamp = {0,0};
96
97 lttv_attribute_recursive_free(self->stats);
98 ts = self->parent.parent.ts;
99 nb_trace = lttv_traceset_number(ts);
100
101 for(i = 0 ; i < nb_trace ; i++) {
102 tcs = (LttvTraceStats *)tc = (LTTV_TRACESET_CONTEXT(self)->traces[i]);
103 lttv_attribute_recursive_free(tcs->stats);
104
105 nb_tracefile = ltt_trace_control_tracefile_number(tc->t);
106 for(j = 0 ; j < nb_tracefile ; j++) {
107 tfcs = (LttvTracefileStats *)tfc = tc->control_tracefiles[j];
108 lttv_attribute_recursive_free(tfcs->stats);
109 tfcs->current_events_tree = NULL;
110 tfcs->current_event_types_tree = NULL;
111 }
112
113 nb_tracefile = ltt_trace_per_cpu_tracefile_number(tc->t);
114 for(j = 0 ; j < nb_tracefile ; j++) {
115 tfcs = (LttvTracefileStats *)tfc = tc->per_cpu_tracefiles[j];
116 lttv_attribute_recursive_free(tfcs->stats);
117 tfcs->current_events_tree = NULL;
118 tfcs->current_event_types_tree = NULL;
119 }
120 }
121 LTTV_TRACESET_CONTEXT_CLASS(g_type_class_peek(LTTV_TRACESET_STATE_TYPE))->
122 fini((LttvTracesetContext *)self);
123}
124
125
126static LttvTracesetContext *
127new_traceset_context(LttvTracesetContext *self)
128{
129 return LTTV_TRACESET_CONTEXT(g_object_new(LTTV_TRACESET_STATS_TYPE, NULL));
130}
131
132
133static LttvTraceContext *
134new_trace_context(LttvTracesetContext *self)
135{
136 return LTTV_TRACE_CONTEXT(g_object_new(LTTV_TRACE_STATS_TYPE, NULL));
137}
138
139
140static LttvTracefileContext *
141new_tracefile_context(LttvTracesetContext *self)
142{
143 return LTTV_TRACEFILE_CONTEXT(g_object_new(LTTV_TRACEFILE_STATS_TYPE, NULL));
144}
145
146
147static void
148traceset_stats_instance_init (GTypeInstance *instance, gpointer g_class)
149{
150}
151
152
153static void
154traceset_stats_finalize (LttvTracesetStats *self)
155{
156 G_OBJECT_CLASS(g_type_class_peek(LTTV_TRACESET_STATE_TYPE))->
157 finalize(G_OBJECT(self));
158}
159
160
161static void
162traceset_stats_class_init (LttvTracesetContextClass *klass)
163{
164 GObjectClass *gobject_class = G_OBJECT_CLASS(klass);
165
166 gobject_class->finalize = (void (*)(GObject *self)) traceset_stats_finalize;
167 klass->init = (void (*)(LttvTracesetContext *self, LttvTraceset *ts))init;
168 klass->fini = (void (*)(LttvTracesetContext *self))fini;
169 klass->new_traceset_context = new_traceset_context;
170 klass->new_trace_context = new_trace_context;
171 klass->new_tracefile_context = new_tracefile_context;
172}
173
174
175GType
176lttv_traceset_stats_get_type(void)
177{
178 static GType type = 0;
179 if (type == 0) {
180 static const GTypeInfo info = {
181 sizeof (LttvTracesetStatsClass),
182 NULL, /* base_init */
183 NULL, /* base_finalize */
184 (GClassInitFunc) traceset_stats_class_init, /* class_init */
185 NULL, /* class_finalize */
186 NULL, /* class_data */
187 sizeof (LttvTracesetContext),
188 0, /* n_preallocs */
189 (GInstanceInitFunc) traceset_stats_instance_init /* instance_init */
190 };
191
192 type = g_type_register_static (LTTV_TRACESET_STATE_TYPE, "LttvTracesetStatsType",
193 &info, 0);
194 }
195 return type;
196}
197
198
199static void
200trace_stats_instance_init (GTypeInstance *instance, gpointer g_class)
201{
202}
203
204
205static void
206trace_stats_finalize (LttvTraceStats *self)
207{
208 G_OBJECT_CLASS(g_type_class_peek(LTTV_TRACE_STATE_TYPE))->
209 finalize(G_OBJECT(self));
210}
211
212
213static void
214trace_stats_class_init (LttvTraceContextClass *klass)
215{
216 GObjectClass *gobject_class = G_OBJECT_CLASS(klass);
217
218 gobject_class->finalize = (void (*)(GObject *self)) trace_stats_finalize;
219}
220
221
222GType
223lttv_trace_stats_get_type(void)
224{
225 static GType type = 0;
226 if (type == 0) {
227 static const GTypeInfo info = {
228 sizeof (LttvTraceStatsClass),
229 NULL, /* base_init */
230 NULL, /* base_finalize */
231 (GClassInitFunc) trace_stats_class_init, /* class_init */
232 NULL, /* class_finalize */
233 NULL, /* class_data */
234 sizeof (LttvTraceStats),
235 0, /* n_preallocs */
236 (GInstanceInitFunc) trace_stats_instance_init /* instance_init */
237 };
238
239 type = g_type_register_static (LTTV_TRACE_STATE_TYPE,
240 "LttvTraceStatsType", &info, 0);
241 }
242 return type;
243}
244
245
246static void
247tracefile_stats_instance_init (GTypeInstance *instance, gpointer g_class)
248{
249}
250
251
252static void
253tracefile_stats_finalize (LttvTracefileStats *self)
254{
255 G_OBJECT_CLASS(g_type_class_peek(LTTV_TRACEFILE_STATE_TYPE))->
256 finalize(G_OBJECT(self));
257}
258
259
260static void
261tracefile_stats_class_init (LttvTracefileStatsClass *klass)
262{
263 GObjectClass *gobject_class = G_OBJECT_CLASS(klass);
264
265 gobject_class->finalize = (void (*)(GObject *self)) tracefile_stats_finalize;
266}
267
268
269GType
270lttv_tracefile_stats_get_type(void)
271{
272 static GType type = 0;
273 if (type == 0) {
274 static const GTypeInfo info = {
275 sizeof (LttvTracefileStatsClass),
276 NULL, /* base_init */
277 NULL, /* base_finalize */
278 (GClassInitFunc) tracefile_stats_class_init, /* class_init */
279 NULL, /* class_finalize */
280 NULL, /* class_data */
281 sizeof (LttvTracefileStats),
282 0, /* n_preallocs */
283 (GInstanceInitFunc) tracefile_stats_instance_init /* instance_init */
284 };
285
286 type = g_type_register_static (LTTV_TRACEFILE_STATE_TYPE,
287 "LttvTracefileStatsType", &info, 0);
288 }
289 return type;
290}
291
292
293static void
294find_event_tree(LttvTracefileStats *tfcs, GQuark process, GQuark cpu,
295 GQuark mode, GQuark sub_mode, LttvAttribute **events_tree,
296 LttvAttribute **event_types_tree)
297{
298 LttvAttribute *a;
299
300 LttvTraceStats *tcs = LTTV_TRACE_STATS(tfcs->parent.parent.t_context);
301 a = lttv_attribute_find_subdir(tcs->stats, LTTV_STATS_PROCESSES);
302 a = lttv_attribute_find_subdir(a, tfcs->parent.process->pid_time);
303 a = lttv_attribute_find_subdir(a, LTTV_STATS_CPU);
304 a = lttv_attribute_find_subdir(a, tfcs->parent.cpu_name);
305 a = lttv_attribute_find_subdir(a, LTTV_STATS_MODE_TYPES);
306 a = lttv_attribute_find_subdir(a, tfcs->parent.process->state->t);
307 a = lttv_attribute_find_subdir(a, LTTV_STATS_SUBMODES);
308 a = lttv_attribute_find_subdir(a, tfcs->parent.process->state->n);
309 *events_tree = a;
310 a = lttv_attribute_find_subdir(a, LTTV_STATS_EVENT_TYPES);
311 *event_types_tree = a;
312}
313
314
315static void update_event_tree(LttvTracefileStats *tfcs)
316{
317 LttvExecutionState *es = tfcs->parent.process->state;
318
319 find_event_tree(tfcs, tfcs->parent.process->pid_time, tfcs->parent.cpu_name,
320 es->t, es->n, &(tfcs->current_events_tree),
321 &(tfcs->current_event_types_tree));
322}
323
324
325static void mode_change(LttvTracefileStats *tfcs)
326{
327 LttvAttributeValue cpu_time;
328
329 LttTime delta;
330
331 lttv_attribute_find(tfcs->current_events_tree, LTTV_STATS_CPU_TIME,
332 LTTV_TIME, &cpu_time);
308711e5 333 delta = ltt_time_sub(tfcs->parent.parent.timestamp,
b445142a 334 tfcs->parent.process->state->change);
308711e5 335 *(cpu_time.v_time) = ltt_time_add(*(cpu_time.v_time), delta);
b445142a 336}
337
338
339static void mode_end(LttvTracefileStats *tfcs)
340{
341 LttvAttributeValue elapsed_time, cpu_time;
342
343 LttTime delta;
344
345 lttv_attribute_find(tfcs->current_events_tree, LTTV_STATS_ELAPSED_TIME,
346 LTTV_TIME, &elapsed_time);
308711e5 347 delta = ltt_time_sub(tfcs->parent.parent.timestamp,
b445142a 348 tfcs->parent.process->state->entry);
308711e5 349 *(elapsed_time.v_time) = ltt_time_add(*(elapsed_time.v_time), delta);
b445142a 350
351 lttv_attribute_find(tfcs->current_events_tree, LTTV_STATS_CPU_TIME,
352 LTTV_TIME, &cpu_time);
308711e5 353 delta = ltt_time_sub(tfcs->parent.parent.timestamp,
b445142a 354 tfcs->parent.process->state->change);
308711e5 355 *(cpu_time.v_time) = ltt_time_add(*(cpu_time.v_time), delta);
b445142a 356}
357
358
359static gboolean before_syscall_entry(void *hook_data, void *call_data)
360{
361 mode_change((LttvTracefileStats *)call_data);
362 return FALSE;
363}
364
365
366static gboolean after_syscall_entry(void *hook_data, void *call_data)
367{
368 update_event_tree((LttvTracefileStats *)call_data);
369 return FALSE;
370}
371
372
373gboolean before_syscall_exit(void *hook_data, void *call_data)
374{
375 mode_end((LttvTracefileStats *)call_data);
376 return FALSE;
377}
378
379
380static gboolean after_syscall_exit(void *hook_data, void *call_data)
381{
382 update_event_tree((LttvTracefileStats *)call_data);
383 return FALSE;
384}
385
386
387gboolean before_trap_entry(void *hook_data, void *call_data)
388{
389 mode_change((LttvTracefileStats *)call_data);
390 return FALSE;
391}
392
393
394static gboolean after_trap_entry(void *hook_data, void *call_data)
395{
396 update_event_tree((LttvTracefileStats *)call_data);
397 return FALSE;
398}
399
400
401gboolean before_trap_exit(void *hook_data, void *call_data)
402{
403 mode_end((LttvTracefileStats *)call_data);
404 return FALSE;
405}
406
407
408gboolean after_trap_exit(void *hook_data, void *call_data)
409{
410 update_event_tree((LttvTracefileStats *)call_data);
411 return FALSE;
412}
413
414
415gboolean before_irq_entry(void *hook_data, void *call_data)
416{
417 mode_change((LttvTracefileStats *)call_data);
418 return FALSE;
419}
420
421
422gboolean after_irq_entry(void *hook_data, void *call_data)
423{
424 update_event_tree((LttvTracefileStats *)call_data);
425 return FALSE;
426}
427
428
429gboolean before_irq_exit(void *hook_data, void *call_data)
430{
431 mode_end((LttvTracefileStats *)call_data);
432 return FALSE;
433}
434
435
436gboolean after_irq_exit(void *hook_data, void *call_data)
437{
438 update_event_tree((LttvTracefileStats *)call_data);
439 return FALSE;
440}
441
442
443gboolean before_schedchange(void *hook_data, void *call_data)
444{
445 LttvTraceHook *h = (LttvTraceHook *)hook_data;
446
447 LttvTracefileStats *tfcs = (LttvTracefileStats *)call_data;
448
449 guint pid_in, pid_out, state_out;
450
451 LttvProcessState *process;
452
453 pid_in = ltt_event_get_unsigned(tfcs->parent.parent.e, h->f1);
454 pid_out = ltt_event_get_unsigned(tfcs->parent.parent.e, h->f2);
455 state_out = ltt_event_get_unsigned(tfcs->parent.parent.e, h->f3);
456
457 /* compute the time for the process to schedule out */
458
459 mode_change(tfcs);
460
461 /* get the information for the process scheduled in */
462
463 process = lttv_state_find_process(&(tfcs->parent), pid_in);
464
465 find_event_tree(tfcs, process->pid_time, tfcs->parent.cpu_name,
466 process->state->t, process->state->n, &(tfcs->current_events_tree),
467 &(tfcs->current_event_types_tree));
468
469 /* compute the time waiting for the process to schedule in */
470
471 mode_change(tfcs);
472 return FALSE;
473}
474
475
476gboolean process_fork(void *hook_data, void *call_data)
477{
478 /* nothing to do for now */
479 return FALSE;
480}
481
482
483gboolean process_exit(void *hook_data, void *call_data)
484{
485 /* We should probably exit all modes here or we could do that at
486 schedule out. */
487 return FALSE;
488}
489
490
491gboolean every_event(void *hook_data, void *call_data)
492{
493 LttvTracefileStats *tfcs = (LttvTracefileStats *)call_data;
494
495 LttvAttributeValue v;
496
497 /* The current branch corresponds to the tracefile/process/interrupt state.
498 Statistics are added within it, to count the number of events of this
499 type occuring in this context. A quark has been pre-allocated for each
500 event type and is used as name. */
501
502 lttv_attribute_find(tfcs->current_event_types_tree,
503 ((LttvTraceState *)(tfcs->parent.parent.t_context))->
504 eventtype_names[ltt_event_eventtype_id(tfcs->parent.parent.e)],
505 LTTV_UINT, &v);
506 (*(v.v_uint))++;
507 return FALSE;
508}
509
510
511static gboolean
512sum_stats(void *hook_data, void *call_data)
513{
514 LttvTracesetStats *tscs = (LttvTracesetStats *)call_data;
515
516 LttvTraceStats *tcs;
517
518 LttvTraceset *traceset = tscs->parent.parent.ts;
519
520 LttvAttributeType type;
521
522 LttvAttributeValue value;
523
524 LttvAttributeName name;
525
526 unsigned sum;
527
528 int i, j, k, l, m, n, nb_trace, nb_process, nb_cpu, nb_mode_type, nb_submode,
529 nb_event_type;
530
531 LttvAttribute *main_tree, *processes_tree, *process_tree, *cpus_tree,
532 *cpu_tree, *mode_tree, *mode_types_tree, *submodes_tree,
533 *submode_tree, *event_types_tree, *mode_events_tree,
534 *cpu_events_tree, *process_modes_tree, *trace_cpu_tree,
535 *trace_modes_tree, *traceset_modes_tree;
536
537 traceset_modes_tree = lttv_attribute_find_subdir(tscs->stats,
538 LTTV_STATS_MODES);
539 nb_trace = lttv_traceset_number(traceset);
540
541 for(i = 0 ; i < nb_trace ; i++) {
542 tcs = (LttvTraceStats *)(tscs->parent.parent.traces[i]);
543 main_tree = tcs->stats;
544 processes_tree = lttv_attribute_find_subdir(main_tree,
545 LTTV_STATS_PROCESSES);
546 trace_modes_tree = lttv_attribute_find_subdir(main_tree, LTTV_STATS_MODES);
547 nb_process = lttv_attribute_get_number(processes_tree);
548
549 for(j = 0 ; j < nb_process ; j++) {
550 type = lttv_attribute_get(processes_tree, j, &name, &value);
551 process_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
552
553 cpus_tree = lttv_attribute_find_subdir(process_tree, LTTV_STATS_CPU);
554 process_modes_tree = lttv_attribute_find_subdir(process_tree,
555 LTTV_STATS_MODES);
556 nb_cpu = lttv_attribute_get_number(cpus_tree);
557
558 for(k = 0 ; k < nb_cpu ; k++) {
559 type = lttv_attribute_get(cpus_tree, k, &name, &value);
560 cpu_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
561
562 mode_types_tree = lttv_attribute_find_subdir(cpu_tree,
563 LTTV_STATS_MODE_TYPES);
564 cpu_events_tree = lttv_attribute_find_subdir(cpu_tree,
565 LTTV_STATS_EVENTS);
566 trace_cpu_tree = lttv_attribute_find_subdir(main_tree, LTTV_STATS_CPU);
567 trace_cpu_tree = lttv_attribute_find_subdir(trace_cpu_tree, name);
568 nb_mode_type = lttv_attribute_get_number(mode_types_tree);
569
570 for(l = 0 ; l < nb_mode_type ; l++) {
571 type = lttv_attribute_get(mode_types_tree, l, &name, &value);
572 mode_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
573
574 submodes_tree = lttv_attribute_find_subdir(mode_tree,
575 LTTV_STATS_SUBMODES);
576 mode_events_tree = lttv_attribute_find_subdir(mode_tree,
577 LTTV_STATS_EVENTS);
578 nb_submode = lttv_attribute_get_number(submodes_tree);
579
580 for(m = 0 ; m < nb_submode ; m++) {
581 type = lttv_attribute_get(submodes_tree, m, &name, &value);
582 submode_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
583
584 event_types_tree = lttv_attribute_find_subdir(submode_tree,
585 LTTV_STATS_EVENT_TYPES);
586 nb_event_type = lttv_attribute_get_number(event_types_tree);
587
588 sum = 0;
589 for(n = 0 ; n < nb_event_type ; n++) {
590 type = lttv_attribute_get(event_types_tree, n, &name, &value);
591 sum += *(value.v_uint);
592 }
593 lttv_attribute_find(submode_tree, LTTV_STATS_EVENTS_COUNT,
594 LTTV_UINT, &value);
595 *(value.v_uint) = sum;
596 lttv_attribute_recursive_add(mode_events_tree, submode_tree);
597 }
598 lttv_attribute_recursive_add(cpu_events_tree, mode_events_tree);
599 }
600 lttv_attribute_recursive_add(process_modes_tree, cpu_tree);
601 lttv_attribute_recursive_add(trace_cpu_tree, cpu_tree);
602 }
603 lttv_attribute_recursive_add(trace_modes_tree, process_modes_tree);
604 }
605 lttv_attribute_recursive_add(traceset_modes_tree, trace_modes_tree);
606 }
607 return FALSE;
608}
609
610
611lttv_stats_add_event_hooks(LttvTracesetStats *self)
612{
613 LttvTraceset *traceset = self->parent.parent.ts;
614
615 guint i, j, k, nb_trace, nb_control, nb_per_cpu, nb_tracefile;
616
617 LttFacility *f;
618
619 LttEventType *et;
620
621 LttvTraceStats *ts;
622
623 LttvTracefileStats *tfs;
624
625 void *hook_data;
626
627 GArray *hooks, *before_hooks, *after_hooks;
628
629 LttvTraceHook hook;
630
631 LttvAttributeValue val;
632
633 nb_trace = lttv_traceset_number(traceset);
634 for(i = 0 ; i < nb_trace ; i++) {
635 ts = (LttvTraceStats *)self->parent.parent.traces[i];
636
637 /* Find the eventtype id for the following events and register the
638 associated by id hooks. */
639
640 hooks = g_array_new(FALSE, FALSE, sizeof(LttvTraceHook));
641 g_array_set_size(hooks, 7);
642
643 lttv_trace_find_hook(ts->parent.parent.t, "core","syscall_entry",
644 "syscall_id", NULL, NULL, before_syscall_entry,
645 &g_array_index(hooks, LttvTraceHook, 0));
646
647 lttv_trace_find_hook(ts->parent.parent.t, "core", "syscall_exit", NULL,
648 NULL, NULL, before_syscall_exit,
649 &g_array_index(hooks, LttvTraceHook, 1));
650
651 lttv_trace_find_hook(ts->parent.parent.t, "core", "trap_entry", "trap_id",
652 NULL, NULL, before_trap_entry,
653 &g_array_index(hooks, LttvTraceHook, 2));
654
655 lttv_trace_find_hook(ts->parent.parent.t, "core", "trap_exit", NULL, NULL,
656 NULL, before_trap_exit, &g_array_index(hooks, LttvTraceHook, 3));
657
658 lttv_trace_find_hook(ts->parent.parent.t, "core", "irq_entry", "irq_id",
659 NULL, NULL, before_irq_entry, &g_array_index(hooks, LttvTraceHook, 4));
660
661 lttv_trace_find_hook(ts->parent.parent.t, "core", "irq_exit", NULL, NULL,
662 NULL, before_irq_exit, &g_array_index(hooks, LttvTraceHook, 5));
663
664 lttv_trace_find_hook(ts->parent.parent.t, "core", "schedchange", "in",
665 "out", "out_state", before_schedchange,
666 &g_array_index(hooks, LttvTraceHook, 6));
667
668 before_hooks = hooks;
669
670 hooks = g_array_new(FALSE, FALSE, sizeof(LttvTraceHook));
671 g_array_set_size(hooks, 8);
672
673 lttv_trace_find_hook(ts->parent.parent.t, "core","syscall_entry",
674 "syscall_id", NULL, NULL, after_syscall_entry,
675 &g_array_index(hooks, LttvTraceHook, 0));
676
677 lttv_trace_find_hook(ts->parent.parent.t, "core", "syscall_exit", NULL,
678 NULL, NULL, after_syscall_exit,
679 &g_array_index(hooks, LttvTraceHook, 1));
680
681 lttv_trace_find_hook(ts->parent.parent.t, "core", "trap_entry", "trap_id",
682 NULL, NULL, after_trap_entry, &g_array_index(hooks, LttvTraceHook, 2));
683
684 lttv_trace_find_hook(ts->parent.parent.t, "core", "trap_exit", NULL, NULL,
685 NULL, after_trap_exit, &g_array_index(hooks, LttvTraceHook, 3));
686
687 lttv_trace_find_hook(ts->parent.parent.t, "core", "irq_entry", "irq_id",
688 NULL, NULL, after_irq_entry, &g_array_index(hooks, LttvTraceHook, 4));
689
690 lttv_trace_find_hook(ts->parent.parent.t, "core", "irq_exit", NULL, NULL,
691 NULL, after_irq_exit, &g_array_index(hooks, LttvTraceHook, 5));
692
693 lttv_trace_find_hook(ts->parent.parent.t, "core", "process_fork",
694 "child_pid", NULL, NULL, process_fork,
695 &g_array_index(hooks, LttvTraceHook, 6));
696
697 lttv_trace_find_hook(ts->parent.parent.t, "core", "process_exit", NULL,
698 NULL, NULL, process_exit, &g_array_index(hooks, LttvTraceHook, 7));
699
700 after_hooks = hooks;
701
702 /* Add these hooks to each before_event_by_id hooks list */
703
704 nb_control = ltt_trace_control_tracefile_number(ts->parent.parent.t);
705 nb_per_cpu = ltt_trace_per_cpu_tracefile_number(ts->parent.parent.t);
706 nb_tracefile = nb_control + nb_per_cpu;
707 for(j = 0 ; j < nb_tracefile ; j++) {
708 if(j < nb_control) {
709 tfs = LTTV_TRACEFILE_STATS(ts->parent.parent.control_tracefiles[j]);
710 }
711 else {
712 tfs = LTTV_TRACEFILE_STATS(ts->parent.parent.per_cpu_tracefiles[
713 j-nb_control]);
714 }
715
716 lttv_hooks_add(tfs->parent.parent.after_event, every_event, NULL);
717
718 for(k = 0 ; k < before_hooks->len ; k++) {
719 hook = g_array_index(before_hooks, LttvTraceHook, k);
720 lttv_hooks_add(lttv_hooks_by_id_find(
721 tfs->parent.parent.before_event_by_id,
722 hook.id), hook.h, &g_array_index(before_hooks, LttvTraceHook, k));
723 }
724 for(k = 0 ; k < after_hooks->len ; k++) {
725 hook = g_array_index(after_hooks, LttvTraceHook, k);
726 lttv_hooks_add(lttv_hooks_by_id_find(
727 tfs->parent.parent.after_event_by_id,
728 hook.id), hook.h, &g_array_index(after_hooks, LttvTraceHook, k));
729 }
730 }
731 lttv_attribute_find(self->parent.parent.a, LTTV_STATS_BEFORE_HOOKS,
732 LTTV_POINTER, &val);
733 *(val.v_pointer) = before_hooks;
734 lttv_attribute_find(self->parent.parent.a, LTTV_STATS_AFTER_HOOKS,
735 LTTV_POINTER, &val);
736 *(val.v_pointer) = after_hooks;
737 }
738 lttv_hooks_add(self->parent.parent.after, sum_stats, NULL);
739}
740
741
742lttv_stats_remove_event_hooks(LttvTracesetStats *self)
743{
744 LttvTraceset *traceset = self->parent.parent.ts;
745
746 guint i, j, k, nb_trace, nb_control, nb_per_cpu, nb_tracefile;
747
748 LttvTraceStats *ts;
749
750 LttvTracefileStats *tfs;
751
752 void *hook_data;
753
754 GArray *before_hooks, *after_hooks;
755
756 LttvTraceHook hook;
757
758 LttvAttributeValue val;
759
760 nb_trace = lttv_traceset_number(traceset);
761 for(i = 0 ; i < nb_trace ; i++) {
762 ts = LTTV_TRACE_STATS(self->parent.parent.traces[i]);
763 lttv_attribute_find(self->parent.parent.a, LTTV_STATS_BEFORE_HOOKS,
764 LTTV_POINTER, &val);
765 before_hooks = *(val.v_pointer);
766 lttv_attribute_find(self->parent.parent.a, LTTV_STATS_AFTER_HOOKS,
767 LTTV_POINTER, &val);
768 after_hooks = *(val.v_pointer);
769
770 /* Add these hooks to each before_event_by_id hooks list */
771
772 nb_control = ltt_trace_control_tracefile_number(ts->parent.parent.t);
773 nb_per_cpu = ltt_trace_per_cpu_tracefile_number(ts->parent.parent.t);
774 nb_tracefile = nb_control + nb_per_cpu;
775 for(j = 0 ; j < nb_tracefile ; j++) {
776 if(j < nb_control) {
777 tfs = LTTV_TRACEFILE_STATS(ts->parent.parent.control_tracefiles[j]);
778 }
779 else {
780 tfs =LTTV_TRACEFILE_STATS(ts->parent.parent.per_cpu_tracefiles[
781 j-nb_control]);
782 }
783
784 lttv_hooks_remove_data(tfs->parent.parent.after_event, every_event,
785 NULL);
786
787 for(k = 0 ; k < before_hooks->len ; k++) {
788 hook = g_array_index(before_hooks, LttvTraceHook, k);
789 lttv_hooks_remove_data(
790 lttv_hooks_by_id_find(tfs->parent.parent.before_event_by_id,
791 hook.id), hook.h, &g_array_index(before_hooks, LttvTraceHook, k));
792 }
793 for(k = 0 ; k < after_hooks->len ; k++) {
794 hook = g_array_index(after_hooks, LttvTraceHook, k);
795 lttv_hooks_remove_data(
796 lttv_hooks_by_id_find(tfs->parent.parent.after_event_by_id,
797 hook.id), hook.h, &g_array_index(after_hooks, LttvTraceHook, k));
798 }
799 }
f7afe191 800 g_critical("lttv_stats_remove_event_hooks()");
b445142a 801 g_array_free(before_hooks, TRUE);
802 g_array_free(after_hooks, TRUE);
803 }
804 lttv_hooks_remove_data(self->parent.parent.after, sum_stats, NULL);
805}
806
807
808void lttv_stats_init(int argc, char **argv)
809{
810 LTTV_STATS_PROCESS_UNKNOWN = g_quark_from_string("unknown process");
811 LTTV_STATS_PROCESSES = g_quark_from_string("processes");
812 LTTV_STATS_CPU = g_quark_from_string("cpu");
813 LTTV_STATS_MODE_TYPES = g_quark_from_string("mode_types");
814 LTTV_STATS_MODES = g_quark_from_string("modes");
815 LTTV_STATS_SUBMODES = g_quark_from_string("submodes");
816 LTTV_STATS_EVENT_TYPES = g_quark_from_string("event_types");
817 LTTV_STATS_CPU_TIME = g_quark_from_string("cpu time");
818 LTTV_STATS_ELAPSED_TIME = g_quark_from_string("elapsed time");
819 LTTV_STATS_EVENTS = g_quark_from_string("events");
820 LTTV_STATS_EVENTS_COUNT = g_quark_from_string("events count");
821 LTTV_STATS_BEFORE_HOOKS = g_quark_from_string("saved stats before hooks");
822 LTTV_STATS_AFTER_HOOKS = g_quark_from_string("saved stats after hooks");
823}
824
825void lttv_stats_destroy()
826{
827}
828
9f797243 829void lttv_stats_save_attribute(LttvAttribute *attr, char *indent, FILE * fp)
830{
831 LttvAttributeType type;
832 LttvAttributeValue value;
833 LttvAttributeName name;
834 char type_value[BUF_SIZE];
835 int i, nb_attr, flag;
836
837 nb_attr = lttv_attribute_get_number(attr);
838 for(i=0;i<nb_attr;i++){
839 flag = 1;
840 type = lttv_attribute_get(attr, i, &name, &value);
841 switch(type) {
842 case LTTV_INT:
843 sprintf(type_value, "%d\0", *value.v_int);
844 break;
845 case LTTV_UINT:
846 sprintf(type_value, "%u\0", *value.v_uint);
847 break;
848 case LTTV_LONG:
849 sprintf(type_value, "%ld\0", *value.v_long);
850 break;
851 case LTTV_ULONG:
852 sprintf(type_value, "%lu\0", *value.v_ulong);
853 break;
854 case LTTV_FLOAT:
855 sprintf(type_value, "%f\0", (double)*value.v_float);
856 break;
857 case LTTV_DOUBLE:
858 sprintf(type_value, "%f\0", *value.v_double);
859 break;
860 case LTTV_TIME:
861 sprintf(type_value, "%10u.%09u\0", value.v_time->tv_sec,
862 value.v_time->tv_nsec);
863 break;
864 case LTTV_POINTER:
865 sprintf(type_value, "POINTER\0");
866 break;
867 case LTTV_STRING:
868 sprintf(type_value, "%s\0", *value.v_string);
869 break;
870 default:
871 flag = 0;
872 break;
873 }
874 if(flag == 0) continue;
875 fprintf(fp,"%s<VALUE type=\"%d\" name=\"%s\">",indent,type,g_quark_to_string(name));
876 fprintf(fp,"%s",type_value);
877 fprintf(fp,"</VALUE> \n");
878 }
879
880}
881
882void lttv_stats_save_statistics(LttvTracesetStats *self)
883{
884 LttvTracesetStats *tscs = self;
885 LttvTraceStats *tcs;
886 LttvTraceset *traceset = tscs->parent.parent.ts;
887 LttvAttributeType type;
888 LttvAttributeValue value;
889 LttvAttributeName name;
890
891 char filename[BUF_SIZE];
892 FILE * fp;
893 char indent[10][24]= {" ",
894 " ",
895 " ",
896 " ",
897 " ",
898 " ",
899 " ",
900 " ",
901 " ",
902 " "
903 };
904
905
906 int i, j, k, l, m, n, nb_trace, nb_process, nb_cpu, nb_mode_type, nb_submode;
907
908 LttvAttribute *main_tree, *processes_tree, *process_tree, *cpus_tree,
909 *cpu_tree, *mode_tree, *mode_types_tree, *submodes_tree,
910 *submode_tree, *event_types_tree;
911
912 nb_trace = lttv_traceset_number(traceset);
913
914 for(i = 0 ; i < nb_trace ; i++) {
915 tcs = (LttvTraceStats *)(tscs->parent.parent.traces[i]);
916
917 filename[0] = '\0';
918 strcat(filename,ltt_trace_name(tcs->parent.parent.t));
919 strcat(filename,"/statistics.xml");
920 fp = fopen(filename,"w");
921 if(!fp){
922 g_warning("can not open the file %s for saving statistics\n", filename);
923 exit(1);
924 }
925
926 main_tree = tcs->stats;
927 processes_tree = lttv_attribute_find_subdir(main_tree, LTTV_STATS_PROCESSES);
928 nb_process = lttv_attribute_get_number(processes_tree);
929
930 fprintf(fp, "<NODE name=\"%s\"> \n",g_quark_to_string(LTTV_STATS_PROCESSES)); //root NODE
931
932 for(j = 0 ; j < nb_process ; j++) {
933 type = lttv_attribute_get(processes_tree, j, &name, &value);
934 process_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
935
936 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[0],g_quark_to_string(name)); //process NODE
937 lttv_stats_save_attribute(process_tree,indent[1], fp);
938 fprintf(fp,"%s<NODE name=\"%s\"> \n", indent[1],g_quark_to_string(LTTV_STATS_CPU)); //cpus NODE
939
940 cpus_tree = lttv_attribute_find_subdir(process_tree, LTTV_STATS_CPU);
941 nb_cpu = lttv_attribute_get_number(cpus_tree);
942
943 for(k = 0 ; k < nb_cpu ; k++) {
944 type = lttv_attribute_get(cpus_tree, k, &name, &value);
945 cpu_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
946
947 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[2],g_quark_to_string(name)); //cpu NODE
948 lttv_stats_save_attribute(cpu_tree,indent[3], fp);
949 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[3],g_quark_to_string(LTTV_STATS_MODE_TYPES)); //mode_types NODE
950
951 mode_types_tree = lttv_attribute_find_subdir(cpu_tree,LTTV_STATS_MODE_TYPES);
952 nb_mode_type = lttv_attribute_get_number(mode_types_tree);
953
954 for(l = 0 ; l < nb_mode_type ; l++) {
955 type = lttv_attribute_get(mode_types_tree, l, &name, &value);
956 mode_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
957
958 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[4],g_quark_to_string(name)); //mode NODE
959 lttv_stats_save_attribute(mode_tree,indent[5], fp);
960 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[5],g_quark_to_string(LTTV_STATS_SUBMODES)); //sub_modes NODE
961
962 submodes_tree = lttv_attribute_find_subdir(mode_tree,LTTV_STATS_SUBMODES);
963 nb_submode = lttv_attribute_get_number(submodes_tree);
964
965 for(m = 0 ; m < nb_submode ; m++) {
966 type = lttv_attribute_get(submodes_tree, m, &name, &value);
967 submode_tree = LTTV_ATTRIBUTE(*(value.v_gobject));
968 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[6],g_quark_to_string(name)); //sub_mode NODE
969 lttv_stats_save_attribute(submode_tree,indent[7], fp);
970 fprintf(fp,"%s<NODE name=\"%s\"> \n",indent[7],g_quark_to_string(LTTV_STATS_EVENT_TYPES)); //event_types NODE
971
972 event_types_tree = lttv_attribute_find_subdir(submode_tree, LTTV_STATS_EVENT_TYPES);
973 lttv_stats_save_attribute(event_types_tree,indent[8], fp);
974
975 fprintf(fp,"%s</NODE> \n",indent[7]); //event_types NODE
976 fprintf(fp,"%s</NODE> \n",indent[6]); //sub_mode NODE
977 }
978 fprintf(fp,"%s</NODE> \n",indent[5]); //sub_modes NODE
979 fprintf(fp,"%s</NODE> \n",indent[4]); //mode NODE
980 }
981 fprintf(fp,"%s</NODE> \n",indent[3]); //mode_type NODE
982 fprintf(fp,"%s</NODE> \n",indent[2]); //cpu NODE
983 }
984 fprintf(fp,"%s</NODE> \n",indent[1]); //cpus NODE
985 fprintf(fp,"%s</NODE> \n", indent[0]); //process NODE
986 }
987 fprintf(fp, "</NODE>\n"); //root NODE
988 fclose(fp);
989 }
990}
991
992
993/* Functions to parse statistic.xml file (using glib xml parser) */
994
995typedef struct _ParserStruct{
996 GPtrArray * attribute;
997 LttvAttributeType type;
998 LttvAttributeName name;
999} ParserStruct;
1000
1001static void stats_parser_start_element (GMarkupParseContext *context,
1002 const gchar *element_name,
1003 const gchar **attribute_names,
1004 const gchar **attribute_values,
1005 gpointer user_data,
1006 GError **error)
1007{
1008 ParserStruct * parser = (ParserStruct *)user_data;
1009 int len;
1010 LttvAttributeType type;
1011 LttvAttributeName name;
1012 LttvAttribute * parent_att, *new_att;
1013
1014 len = parser->attribute->len;
1015 parent_att = (LttvAttribute *)g_ptr_array_index (parser->attribute, len-1);
1016
1017 if(strcmp("NODE", element_name) == 0){
1018 type = LTTV_GOBJECT;
1019 name = g_quark_from_string(attribute_values[0]);
1020 new_att = lttv_attribute_find_subdir(parent_att,name);
1021 g_ptr_array_add(parser->attribute, (gpointer)new_att);
1022 }else if(strcmp("VALUE", element_name) == 0){
1023 parser->type = (LttvAttributeType) atoi(attribute_values[0]);
1024 parser->name = g_quark_from_string(attribute_values[1]);
1025 }else{
1026 g_warning("This is not statistics.xml file\n");
1027 exit(1);
1028 }
1029}
1030
1031static void stats_parser_end_element (GMarkupParseContext *context,
1032 const gchar *element_name,
1033 gpointer user_data,
1034 GError **error)
1035{
1036 ParserStruct * parser = (ParserStruct *)user_data;
1037 int len;
1038 LttvAttribute * parent_att;
1039
1040 len = parser->attribute->len;
1041 parent_att = (LttvAttribute *)g_ptr_array_index (parser->attribute, len-1);
1042
1043 if(strcmp("NODE", element_name) == 0){
1044 g_ptr_array_remove_index(parser->attribute, len-1);
1045 }else if(strcmp("VALUE", element_name) == 0){
1046 }else{
1047 g_warning("This is not statistics.xml file\n");
1048 exit(1);
1049 }
1050
1051}
1052
1053static void stats_parser_characters (GMarkupParseContext *context,
1054 const gchar *text,
1055 gsize text_len,
1056 gpointer user_data,
1057 GError **error)
1058{
1059 ParserStruct * parser = (ParserStruct *)user_data;
1060 LttvAttributeValue value;
1061 int len;
1062 LttvAttribute * parent_att;
1063 char *pos;
1064
1065 pos = (char*)text;
1066 for(len=0;len<text_len;len++){
1067 if(isspace(*pos)){
1068 pos++;
1069 continue;
1070 }
1071 break;
1072 }
1073 if(strlen(pos) == 0)return;
1074
1075 len = parser->attribute->len;
1076 parent_att = (LttvAttribute *)g_ptr_array_index (parser->attribute, len-1);
1077 if(!lttv_attribute_find(parent_att,parser->name, parser->type, &value)){
1078 g_warning("can not find value\n");
1079 exit(1);
1080 }
1081
1082 switch(parser->type) {
1083 case LTTV_INT:
1084 *value.v_int = atoi(text);
1085 break;
1086 case LTTV_UINT:
1087 *value.v_uint = (unsigned)atoi(text);
1088 break;
1089 case LTTV_LONG:
1090 *value.v_long = atol(text);
1091 break;
1092 case LTTV_ULONG:
1093 *value.v_ulong = (unsigned long)atol(text);
1094 break;
1095 case LTTV_FLOAT:
1096 *value.v_float = atof(text);
1097 break;
1098 case LTTV_DOUBLE:
1099 *value.v_float = atof(text);
1100 break;
1101 case LTTV_TIME:
1102 pos = strrchr(text,'.');
1103 if(pos){
1104 *pos = '\0';
1105 pos++;
1106 value.v_time->tv_sec = atol(text);
1107 value.v_time->tv_nsec = atol(pos);
1108 }else{
1109 g_warning("The time value format is wrong\n");
1110 exit(1);
1111 }
1112 break;
1113 case LTTV_POINTER:
1114 break;
1115 case LTTV_STRING:
1116 *value.v_string = g_strdup(text);
1117 break;
1118 default:
1119 break;
1120 }
1121
1122}
1123
1124gboolean lttv_stats_load_statistics(LttvTracesetStats *self)
1125{
1126 FILE * fp;
1127 char buf[BUF_SIZE];
1128 LttvTracesetStats *tscs = self;
1129 LttvTraceStats *tcs;
1130 LttvTraceset *traceset = tscs->parent.parent.ts;
1131 char filename[BUF_SIZE];
1132
1133 GMarkupParseContext * context;
1134 GError * error;
1135 GMarkupParser markup_parser =
1136 {
1137 stats_parser_start_element,
1138 stats_parser_end_element,
1139 stats_parser_characters,
1140 NULL, /* passthrough */
1141 NULL /* error */
1142 };
1143
1144 int i, nb_trace;
1145 LttvAttribute *main_tree;
1146 ParserStruct a_parser_struct;
1147 a_parser_struct.attribute = g_ptr_array_new();
1148
1149 nb_trace = lttv_traceset_number(traceset);
1150
1151 for(i = 0 ; i < nb_trace ; i++) {
1152 tcs = (LttvTraceStats *)(tscs->parent.parent.traces[i]);
1153
1154 filename[0] = '\0';
1155 strcat(filename,ltt_trace_name(tcs->parent.parent.t));
1156 strcat(filename,"/statistics.xml");
1157 fp = fopen(filename,"r");
1158 if(!fp){
1159 g_warning("can not open the file %s for reading statistics\n", filename);
1160 return FALSE;
1161 }
1162
1163 main_tree = tcs->stats;
1164 g_ptr_array_add(a_parser_struct.attribute,(gpointer)main_tree);
1165
1166 context = g_markup_parse_context_new(&markup_parser, 0, (gpointer)&a_parser_struct, NULL);
1167
1168 while(fgets(buf,BUF_SIZE, fp) != NULL){
1169 if(!g_markup_parse_context_parse(context, buf, BUF_SIZE, &error)){
1170 g_warning("Can not parse xml file: \n%s\n", error->message);
1171 exit(1);
1172 }
1173 }
1174 fclose(fp);
1175 }
1176
1177 sum_stats(NULL, (void *)self);
1178
1179 return TRUE;
1180}
LTTng 2.x Viewer (LTTV)
This page took 0.063374 seconds and 4 git commands to generate.