1 /* This file is part of the Linux Trace Toolkit viewer
2 * Copyright (C) 2003-2004 Michel Dagenais
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License Version 2 as
6 * published by the Free Software Foundation;
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program; if not, write to the Free Software
15 * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
19 /* This module inserts a hook in the program main loop. This hook processes
20 all the events in the main tracefile while testing the speed and
21 functionality of the state and stats computations. */
24 #include <lttv/lttv.h>
25 #include <lttv/attribute.h>
26 #include <lttv/hook.h>
27 #include <lttv/option.h>
28 #include <lttv/module.h>
29 #include <lttv/tracecontext.h>
30 #include <lttv/state.h>
31 #include <lttv/stats.h>
32 #include <ltt/trace.h>
33 #include <ltt/event.h>
36 static LttvTraceset
*traceset
;
51 static char *a_dump_tracefiles
;
53 static char *a_save_sample
;
73 LttEventPosition
*a_event_position
;
75 typedef struct _save_state
{
86 static void lttv_trace_option(void *hook_data
)
90 trace
= ltt_trace_open(a_trace
);
91 if(trace
== NULL
) g_critical("cannot open trace %s", a_trace
);
92 lttv_traceset_add(traceset
, lttv_trace_new(trace
));
95 static double get_time()
99 g_get_current_time(>
);
100 return gt
.tv_sec
+ (double)gt
.tv_usec
/ (double)1000000.0;
103 static double run_one_test(LttvTracesetState
*ts
, LttTime start
, LttTime end
)
109 lttv_traceset_context_add_hooks(&ts
->parent
,
110 before_traceset
, after_traceset
, NULL
, before_trace
, after_trace
,
111 NULL
, before_tracefile
, after_tracefile
, NULL
, before_event
, after_event
);
113 for(i
= 0 ; i
< lttv_traceset_number(traceset
) ; i
++) {
114 ((LttvTraceState
*)(ts
->parent
.traces
[i
]))->save_interval
=a_save_interval
;
118 lttv_state_traceset_seek_time_closest(ts
, start
);
119 lttv_process_traceset(&ts
->parent
, end
, G_MAXULONG
);
122 lttv_traceset_context_remove_hooks(&ts
->parent
,
123 before_traceset
, after_traceset
, NULL
, before_trace
, after_trace
,
124 NULL
, before_tracefile
, after_tracefile
, NULL
, before_event
, after_event
);
130 gboolean
trace_event(void *hook_data
, void *call_data
)
132 LttvTracefileState
*tfs
= (LttvTracefileState
*)call_data
;
134 guint nb_block
, nb_event
;
138 ltt_event_position(tfs
->parent
.e
, a_event_position
);
139 ltt_event_position_get(a_event_position
, &nb_block
, &nb_event
, &tf
);
140 fprintf(stderr
,"Event %s %lu.%09lu [%lu %lu]\n",
141 ltt_eventtype_name(ltt_event_eventtype(tfs
->parent
.e
)),
142 tfs
->parent
.timestamp
.tv_sec
, tfs
->parent
.timestamp
.tv_nsec
,
148 gboolean
count_event(void *hook_data
, void *call_data
)
150 guint
*pcount
= (guint
*)hook_data
;
157 gboolean
save_state_copy_event(void *hook_data
, void *call_data
)
159 SaveState
*save_state
= (SaveState
*)hook_data
;
161 LttvTracefileState
*tfs
= (LttvTracefileState
*)call_data
;
163 LttvTraceState
*ts
= (LttvTraceState
*)tfs
->parent
.t_context
;
169 if(ts
->nb_event
== 0 && strcmp(ltt_eventtype_name(
170 ltt_event_eventtype(tfs
->parent
.e
)), "block_start") == 0) {
171 if(a_save_sample
!= NULL
) {
172 filename
= g_string_new("");
173 g_string_printf(filename
, "%s.copy.%lu.%09lu.xml", a_save_sample
,
174 tfs
->parent
.timestamp
.tv_sec
, tfs
->parent
.timestamp
.tv_nsec
);
175 fp
= fopen(filename
->str
, "w");
176 if(fp
== NULL
) g_error("Cannot open %s", filename
->str
);
177 g_string_free(filename
, TRUE
);
178 lttv_state_write(ts
, tfs
->parent
.timestamp
, fp
);
180 } //else lttv_state_write(ts, tfs->parent.timestamp, save_state->fp);
186 gboolean
save_state_event(void *hook_data
, void *call_data
)
188 SaveState
*save_state
= (SaveState
*)hook_data
;
190 LttvTracefileState
*tfs
= (LttvTracefileState
*)call_data
;
192 LttvTraceState
*ts
= (LttvTraceState
*)tfs
->parent
.t_context
;
198 (save_state
->count
)++;
199 if(save_state
->count
% save_state
->interval
== 0 &&
200 save_state
->position
< save_state
->size
) {
201 if(a_save_sample
!= NULL
) {
202 filename
= g_string_new("");
203 g_string_printf(filename
, "%s.%u.xml.%u", a_save_sample
,
204 save_state
->position
, save_state
->version
);
205 fp
= fopen(filename
->str
, "w");
206 if(fp
== NULL
) g_error("Cannot open %s", filename
->str
);
207 g_string_free(filename
, TRUE
);
208 lttv_state_write(ts
, tfs
->parent
.timestamp
, fp
);
210 } //else lttv_state_write(ts, tfs->parent.timestamp, save_state->fp);
212 save_state
->write_time
[save_state
->position
] = tfs
->parent
.timestamp
;
213 save_state
->position
++;
219 static gboolean
process_traceset(void *hook_data
, void *call_data
)
221 LttvTracesetStats
*tscs
;
223 LttvTracesetState
*ts
;
225 LttvTracesetContext
*tc
;
233 guint i
, j
, count
, nb_control
, nb_tracefile
, nb_block
, nb_event
, nb_equal
;
237 LttTracefile
*tracefile
, *tf
;
241 LttFacility
*facility
;
245 LttEventType
*event_type
;
247 LttTime time
, previous_time
;
249 long long unsigned cycle_count
, start_count
, delta_cycle
;
251 long long unsigned start_nsec
, end_nsec
, delta_nsec
, added_nsec
, added_nsec2
;
253 double cycle_per_nsec
, nsec_per_cycle
;
255 long long interpolated_nsec
, interpolated_nsec2
, end_nsec_sec
, end_nsec_nsec
;
259 LttTime zero_time
= ltt_time_zero
;
261 LttTime max_time
= { G_MAXULONG
, G_MAXULONG
};
263 a_event_position
= ltt_event_position_new();
265 if(a_dump_tracefiles
!= NULL
) {
266 for(i
= 0 ; i
< lttv_traceset_number(traceset
) ; i
++) {
267 trace
= lttv_trace(lttv_traceset_get(traceset
, i
));
268 nb_control
= ltt_trace_control_tracefile_number(trace
);
269 nb_tracefile
= nb_control
+ ltt_trace_per_cpu_tracefile_number(trace
);
270 for(j
= 0 ; j
< nb_tracefile
; j
++) {
272 tracefile
= ltt_trace_control_tracefile_get(trace
,j
);
275 tracefile
= ltt_trace_per_cpu_tracefile_get(trace
,j
- nb_control
);
278 filename
= g_string_new("");
279 g_string_printf(filename
, "%s.%u.%u.trace", a_dump_tracefiles
, i
, j
);
280 fp
= fopen(filename
->str
, "w");
281 if(fp
== NULL
) g_error("Cannot open %s", filename
->str
);
282 g_string_free(filename
, TRUE
);
283 ltt_tracefile_seek_time(tracefile
, zero_time
);
284 previous_time
= zero_time
;
286 while((event
= ltt_tracefile_read(tracefile
)) != NULL
) {
287 facility
= ltt_event_facility(event
);
288 event_type
= ltt_event_eventtype(event
);
289 time
= ltt_event_time(event
);
290 cycle_count
= ltt_event_cycle_count(event
);
291 ltt_event_position(event
, a_event_position
);
292 ltt_event_position_get(a_event_position
, &nb_block
, &nb_event
, &tf
);
293 fprintf(fp
,"%s.%s: %llu %lu.%09lu position %u/%u\n",
294 ltt_facility_name(facility
), ltt_eventtype_name(event_type
),
295 cycle_count
, (unsigned long)time
.tv_sec
,
296 (unsigned long)time
.tv_nsec
,
299 if(ltt_time_compare(time
, previous_time
) < 0) {
300 g_warning("Time decreasing trace %d tracefile %d position %u/%u",
301 i
, j
, nb_block
, nb_event
);
304 if(strcmp(ltt_eventtype_name(event_type
),"block_start") == 0) {
305 start_count
= cycle_count
;
308 else if(strcmp(ltt_eventtype_name(event_type
),"block_end") == 0) {
309 delta_cycle
= cycle_count
- start_count
;
310 end_nsec_sec
= (long long unsigned)time
.tv_sec
* (long long unsigned)1000000000;
311 end_nsec_nsec
= time
.tv_nsec
;
312 end_nsec
= end_nsec_sec
+ end_nsec_nsec
;
313 start_nsec
= (long long unsigned)start_time
.tv_sec
* (long long unsigned)1000000000 + (long long unsigned)start_time
.tv_nsec
;
314 delta_nsec
= end_nsec
- start_nsec
;
315 cycle_per_nsec
= (double)delta_cycle
/ (double)delta_nsec
;
316 nsec_per_cycle
= (double)delta_nsec
/ (double)delta_cycle
;
317 added_nsec
= (double)delta_cycle
* nsec_per_cycle
;
318 interpolated_nsec
= start_nsec
+ added_nsec
;
319 added_nsec2
= (double)delta_cycle
/ cycle_per_nsec
;
320 interpolated_nsec2
= start_nsec
+ added_nsec2
;
322 fprintf(fp
,"Time: start_count %llu, end_count %llu, delta_cycle %llu, start_nsec %llu, end_nsec_sec %llu, end_nsec_nsec %llu, end_nsec %llu, delta_nsec %llu, cycle_per_nsec %.25f, nsec_per_cycle %.25f, added_nsec %llu, added_nsec2 %llu, interpolated_nsec %llu, interpolated_nsec2 %llu\n", start_count
, cycle_count
, delta_cycle
, start_nsec
, end_nsec_sec
, end_nsec_nsec
, end_nsec
, delta_nsec
, cycle_per_nsec
, nsec_per_cycle
, added_nsec
, added_nsec2
, interpolated_nsec
, interpolated_nsec2
);
325 if(ltt_time_compare(time
, previous_time
) == 0) nb_equal
++;
326 else if(nb_equal
> 0) {
327 g_warning("Consecutive %d events with time %lu.%09lu",
328 nb_equal
+ 1, previous_time
.tv_sec
, previous_time
.tv_nsec
);
331 previous_time
= time
;
339 tscs
= g_object_new(LTTV_TRACESET_STATS_TYPE
, NULL
);
341 tc
= &tscs
->parent
.parent
;
343 lttv_context_init(tc
, traceset
);
345 /* For each case compute and print the elapsed time.
346 The first case is simply to run through all events with a
349 if(a_test1
|| a_test_all
) {
351 lttv_hooks_add(after_event
, count_event
, &count
);
352 t
= run_one_test(ts
, zero_time
, max_time
);
353 lttv_hooks_remove_data(after_event
, count_event
, &count
);
355 "Processing trace while counting events (%u events in %g seconds)",
359 /* Run through all events computing the state. */
361 if(a_test2
|| a_test_all
) {
362 lttv_state_add_event_hooks(ts
);
363 t
= run_one_test(ts
, zero_time
, max_time
);
364 lttv_state_remove_event_hooks(ts
);
365 g_warning("Processing trace while updating state (%g seconds)", t
);
368 /* Run through all events computing the state and writing it out
371 SaveState save_state
;
373 save_state
.interval
= a_sample_interval
;
374 save_state
.size
= a_sample_number
;
375 save_state
.fp
= stderr
;
376 save_state
.write_time
= g_new(LttTime
, a_sample_number
);
379 if(a_test3
|| a_test_all
) {
380 for(i
= 0 ; i
< 2 ; i
++) {
381 save_state
.count
= 0;
382 save_state
.position
= 0;
383 save_state
.version
= i
;
384 lttv_state_add_event_hooks(ts
);
385 lttv_hooks_add(after_event
, save_state_event
, &save_state
);
386 t
= run_one_test(ts
, zero_time
, max_time
);
387 lttv_state_remove_event_hooks(ts
);
388 lttv_hooks_remove_data(after_event
, save_state_event
, &save_state
);
389 g_warning("Processing while updating/writing state (%g seconds)", t
);
393 /* Run through all events computing the stats. */
395 if(a_test4
|| a_test_all
) {
396 if(lttv_profile_memory
) {
397 g_message("Memory summary before computing stats");
401 lttv_stats_add_event_hooks(tscs
);
402 t
= run_one_test(ts
, zero_time
, max_time
);
403 lttv_stats_remove_event_hooks(tscs
);
404 g_warning("Processing trace while counting stats (%g seconds)", t
);
406 if(lttv_profile_memory
) {
407 g_message("Memory summary after computing stats");
411 lttv_stats_sum_traceset(tscs
);
413 if(lttv_profile_memory
) {
414 g_message("Memory summary after summing stats");
418 lttv_context_fini(tc
);
419 lttv_context_init(tc
, traceset
);
421 if(lttv_profile_memory
) {
422 g_message("Memory summary after cleaning up the stats");
427 /* Run through all events computing the state and stats. */
429 if(a_test5
|| a_test_all
) {
430 if(lttv_profile_memory
) {
431 g_message("Memory summary before computing state and stats");
435 lttv_state_add_event_hooks(ts
);
436 lttv_stats_add_event_hooks(tscs
);
437 t
= run_one_test(ts
, zero_time
, max_time
);
438 lttv_state_remove_event_hooks(ts
);
439 lttv_stats_remove_event_hooks(tscs
);
441 "Processing trace while counting state and stats (%g seconds)", t
);
443 if(lttv_profile_memory
) {
444 g_message("Memory summary after computing and state and stats");
448 lttv_context_fini(tc
);
449 lttv_context_init(tc
, traceset
);
451 if(lttv_profile_memory
) {
452 g_message("Memory summary after cleaning up the stats");
457 /* Run through all events computing and saving the state. */
459 if(a_trace_event
) lttv_hooks_add(after_event
, trace_event
, NULL
);
461 if(a_test6
|| a_test_all
) {
462 if(lttv_profile_memory
) {
463 g_message("Memory summary before computing and saving state");
467 lttv_state_add_event_hooks(ts
);
468 lttv_state_save_add_event_hooks(ts
);
469 if(a_save_state_copy
)
470 lttv_hooks_add(after_event
, save_state_copy_event
, &save_state
);
471 t
= run_one_test(ts
, zero_time
, max_time
);
472 lttv_state_remove_event_hooks(ts
);
473 lttv_state_save_remove_event_hooks(ts
);
474 if(a_save_state_copy
)
475 lttv_hooks_remove_data(after_event
,save_state_copy_event
, &save_state
);
477 g_warning("Processing trace while updating/saving state (%g seconds)", t
);
479 if(lttv_profile_memory
) {
480 g_message("Memory summary after computing/saving state");
485 /* Seek a few times to each saved position */
487 if((a_test7
&& a_test3
) || a_test_all
) {
490 for(i
= 0 ; i
< a_seek_number
; i
++) {
491 for(j
= save_state
.position
- 1 ; j
>= 0 ; j
--) {
492 lttv_state_add_event_hooks(ts
);
493 t
= run_one_test(ts
, save_state
.write_time
[j
],
494 save_state
.write_time
[j
]);
495 lttv_state_remove_event_hooks(ts
);
496 g_warning("Seeking to %lu.%lu (%g seconds)",
497 save_state
.write_time
[j
].tv_sec
, save_state
.write_time
[j
].tv_nsec
,
500 if(a_save_sample
!= NULL
) {
501 filename
= g_string_new("");
502 g_string_printf(filename
, "%s.%d.xml.bak%d", a_save_sample
, j
, i
);
503 fp
= fopen(filename
->str
, "w");
504 if(fp
== NULL
) g_error("Cannot open %s", filename
->str
);
505 g_string_free(filename
, TRUE
);
506 lttv_state_write((LttvTraceState
*)tc
->traces
[0],
507 save_state
.write_time
[j
], fp
);
510 //else lttv_state_write((LttvTraceState *)tc->traces[0],
511 // save_state.write_time[j], save_state.fp);
516 if(a_trace_event
) lttv_hooks_remove_data(after_event
, trace_event
, NULL
);
518 g_free(save_state
.write_time
);
519 g_free(a_event_position
);
520 lttv_context_fini(tc
);
521 g_object_unref(tscs
);
523 if(lttv_profile_memory
) {
524 g_message("Memory summary at the end of batchtest");
528 g_info("BatchTest end process traceset");
534 LttvAttributeValue value
;
536 LttvIAttribute
*attributes
= LTTV_IATTRIBUTE(lttv_global_attributes());
538 g_info("Init batchtest.c");
540 lttv_option_add("trace", 't',
541 "add a trace to the trace set to analyse",
542 "pathname of the directory containing the trace",
543 LTTV_OPT_STRING
, &a_trace
, lttv_trace_option
, NULL
);
545 a_trace_event
= FALSE
;
547 a_dump_tracefiles
= NULL
;
548 lttv_option_add("dump-tracefiles", 'D',
549 "Write event by event the content of tracefiles",
550 "basename for the files where to dump events",
551 LTTV_OPT_STRING
, &a_dump_tracefiles
, NULL
, NULL
);
553 a_save_sample
= NULL
;
554 lttv_option_add("save-sample", 's',
555 "Save state samples to multiple files",
556 "basename for the files containing the state samples",
557 LTTV_OPT_STRING
, &a_save_sample
, NULL
, NULL
);
559 a_save_state_copy
= FALSE
;
560 lttv_option_add("save-state-copy", 'S', "Write the state saved for seeking",
561 "", LTTV_OPT_NONE
, &a_save_state_copy
, NULL
, NULL
);
563 a_save_interval
= 100000;
564 lttv_option_add("save-interval", 'i',
565 "Interval between saving state",
566 "number of events before a block start triggers saving state",
567 LTTV_OPT_INT
, &a_save_interval
, NULL
, NULL
);
569 a_sample_interval
= 100000;
570 lttv_option_add("sample-interval", 'S',
571 "Interval between sampling state",
572 "number of events before sampling and writing state",
573 LTTV_OPT_INT
, &a_sample_interval
, NULL
, NULL
);
575 a_sample_number
= 20;
576 lttv_option_add("sample-number", 'N',
577 "Number of state samples",
579 LTTV_OPT_INT
, &a_sample_number
, NULL
, NULL
);
582 lttv_option_add("seek-number", 'K',
585 LTTV_OPT_INT
, &a_seek_number
, NULL
, NULL
);
588 lttv_option_add("test1", '1', "Test just counting events", "",
589 LTTV_OPT_NONE
, &a_test1
, NULL
, NULL
);
592 lttv_option_add("test2", '2', "Test computing the state", "",
593 LTTV_OPT_NONE
, &a_test2
, NULL
, NULL
);
596 lttv_option_add("test3", '3', "Test computing the state, writing out a few",
597 "", LTTV_OPT_NONE
, &a_test3
, NULL
, NULL
);
600 lttv_option_add("test4", '4', "Test computing the stats", "",
601 LTTV_OPT_NONE
, &a_test4
, NULL
, NULL
);
604 lttv_option_add("test5", '5', "Test computing the state and stats", "",
605 LTTV_OPT_NONE
, &a_test5
, NULL
, NULL
);
608 lttv_option_add("test6", '6', "Test computing and saving the state", "",
609 LTTV_OPT_NONE
, &a_test6
, NULL
, NULL
);
612 lttv_option_add("test7", '7', "Test seeking to positions written out in 3",
613 "", LTTV_OPT_NONE
, &a_test7
, NULL
, NULL
);
616 lttv_option_add("testall", 'a', "Run all tests ", "",
617 LTTV_OPT_NONE
, &a_test_all
, NULL
, NULL
);
619 traceset
= lttv_traceset_new();
621 before_traceset
= lttv_hooks_new();
622 after_traceset
= lttv_hooks_new();
623 before_trace
= lttv_hooks_new();
624 after_trace
= lttv_hooks_new();
625 before_tracefile
= lttv_hooks_new();
626 after_tracefile
= lttv_hooks_new();
627 before_event
= lttv_hooks_new();
628 after_event
= lttv_hooks_new();
630 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/traceset/before",
631 LTTV_POINTER
, &value
));
632 *(value
.v_pointer
) = before_traceset
;
633 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/traceset/after",
634 LTTV_POINTER
, &value
));
635 *(value
.v_pointer
) = after_traceset
;
636 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/trace/before",
637 LTTV_POINTER
, &value
));
638 *(value
.v_pointer
) = before_trace
;
639 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/trace/after",
640 LTTV_POINTER
, &value
));
641 *(value
.v_pointer
) = after_trace
;
642 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/tracefile/before",
643 LTTV_POINTER
, &value
));
644 *(value
.v_pointer
) = before_tracefile
;
645 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/tracefile/after",
646 LTTV_POINTER
, &value
));
647 *(value
.v_pointer
) = after_tracefile
;
648 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/event/before",
649 LTTV_POINTER
, &value
));
650 *(value
.v_pointer
) = before_event
;
651 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/event/after",
652 LTTV_POINTER
, &value
));
653 *(value
.v_pointer
) = after_event
;
655 g_assert(lttv_iattribute_find_by_path(attributes
, "hooks/main/before",
656 LTTV_POINTER
, &value
));
657 g_assert((main_hooks
= *(value
.v_pointer
)) != NULL
);
658 lttv_hooks_add(main_hooks
, process_traceset
, NULL
);
662 static void destroy()
668 g_info("Destroy batchAnalysis.c");
670 lttv_option_remove("trace");
671 lttv_option_remove("dump-tracefiles");
672 lttv_option_remove("save-sample");
673 lttv_option_remove("save-state-copy");
674 lttv_option_remove("sample-interval");
675 lttv_option_remove("sample-number");
676 lttv_option_remove("seek-number");
677 lttv_option_remove("save-interval");
678 lttv_option_remove("test1");
679 lttv_option_remove("test2");
680 lttv_option_remove("test3");
681 lttv_option_remove("test4");
682 lttv_option_remove("test5");
683 lttv_option_remove("test6");
684 lttv_option_remove("test7");
685 lttv_option_remove("testall");
687 lttv_hooks_destroy(before_traceset
);
688 lttv_hooks_destroy(after_traceset
);
689 lttv_hooks_destroy(before_trace
);
690 lttv_hooks_destroy(after_trace
);
691 lttv_hooks_destroy(before_tracefile
);
692 lttv_hooks_destroy(after_tracefile
);
693 lttv_hooks_destroy(before_event
);
694 lttv_hooks_destroy(after_event
);
695 lttv_hooks_remove_data(main_hooks
, process_traceset
, NULL
);
697 nb
= lttv_traceset_number(traceset
);
698 for(i
= 0 ; i
< nb
; i
++) {
699 trace
= lttv_traceset_get(traceset
, i
);
700 ltt_trace_close(lttv_trace(trace
));
701 lttv_trace_destroy(trace
);
704 lttv_traceset_destroy(traceset
);
708 LTTV_MODULE("batchtest", "Batch processing of a trace for tests", \
709 "Run through a trace calling all the registered hooks for tests", \
710 init
, destroy
, "state", "stats", "option" )
This page took 0.052339 seconds and 4 git commands to generate.