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. */
27 #include <lttv/lttv.h>
28 #include <lttv/attribute.h>
29 #include <lttv/hook.h>
30 #include <lttv/option.h>
31 #include <lttv/module.h>
32 #include <lttv/tracecontext.h>
33 #include <lttv/state.h>
34 #include <lttv/stats.h>
35 #include <lttv/filter.h>
36 #include <ltt/trace.h>
37 #include <lttv/sync/sync_chain_lttv.h>
39 static LttvTraceset
*traceset
;
53 static gboolean a_stats
;
55 void lttv_trace_option(void *hook_data
)
59 trace
= ltt_trace_open(a_trace
);
60 if(trace
== NULL
) g_critical("cannot open trace %s", a_trace
);
61 lttv_traceset_add(traceset
, lttv_trace_new(trace
));
65 static gboolean
process_traceset(void *hook_data
, void *call_data
)
67 LttvAttributeValue value_expression
, value_filter
;
69 LttvIAttribute
*attributes
= LTTV_IATTRIBUTE(lttv_global_attributes());
71 LttvTracesetStats
*tscs
;
73 LttvTracesetState
*tss
;
75 LttvTracesetContext
*tc
;
80 g_info("BatchAnalysis begin process traceset");
83 tscs
= g_object_new(LTTV_TRACESET_STATS_TYPE
, NULL
);
86 tss
= g_object_new(LTTV_TRACESET_STATE_TYPE
, NULL
);
90 g_info("BatchAnalysis initialize context");
92 lttv_context_init(tc
, traceset
);
94 /* Disabled by Mathieu, does not build on x86_64 */
95 /* syncTraceset(tc); */
97 lttv_state_add_event_hooks(tc
);
98 if(a_stats
) lttv_stats_add_event_hooks(tscs
);
100 retval
= lttv_iattribute_find_by_path(attributes
, "filter/expression",
101 LTTV_POINTER
, &value_expression
);
104 retval
= lttv_iattribute_find_by_path(attributes
, "filter/lttv_filter",
105 LTTV_POINTER
, &value_filter
);
108 /* Repeat the search for the first element, the second search might have
109 * moved the first element (by creating the second element)
111 retval
= lttv_iattribute_find_by_path(attributes
, "filter/expression",
112 LTTV_POINTER
, &value_expression
);
115 *(value_filter
.v_pointer
) = lttv_filter_new();
116 //g_debug("Filter string: %s",((GString*)*(value_expression.v_pointer))->str);
118 lttv_filter_append_expression(*(value_filter
.v_pointer
),((GString
*)*(value_expression
.v_pointer
))->str
);
120 //lttv_traceset_context_add_hooks(tc,
121 //before_traceset, after_traceset, NULL, before_trace, after_trace,
122 //NULL, before_tracefile, after_tracefile, NULL, before_event, after_event);
123 lttv_process_traceset_begin(tc
,
132 end
.tv_sec
= G_MAXULONG
;
133 end
.tv_nsec
= G_MAXULONG
;
135 g_info("BatchAnalysis process traceset");
137 lttv_process_traceset_seek_time(tc
, start
);
138 lttv_process_traceset_middle(tc
,
144 //lttv_traceset_context_remove_hooks(tc,
145 //before_traceset, after_traceset, NULL, before_trace, after_trace,
146 //NULL, before_tracefile, after_tracefile, NULL, before_event, after_event);
147 lttv_process_traceset_end(tc
,
154 g_info("BatchAnalysis destroy context");
156 lttv_filter_destroy(*(value_filter
.v_pointer
));
157 lttv_state_remove_event_hooks(tss
);
158 if(a_stats
) lttv_stats_remove_event_hooks(tscs
);
159 lttv_context_fini(tc
);
161 g_object_unref(tscs
);
165 g_info("BatchAnalysis end process traceset");
172 LttvAttributeValue value
;
174 LttvIAttribute
*attributes
= LTTV_IATTRIBUTE(lttv_global_attributes());
177 g_info("Init batchAnalysis.c");
179 lttv_option_add("trace", 't',
180 "add a trace to the trace set to analyse",
181 "pathname of the directory containing the trace",
182 LTTV_OPT_STRING
, &a_trace
, lttv_trace_option
, NULL
);
185 lttv_option_add("stats", 's',
186 "write the traceset and trace statistics",
188 LTTV_OPT_NONE
, &a_stats
, NULL
, NULL
);
191 traceset
= lttv_traceset_new();
193 before_traceset
= lttv_hooks_new();
194 after_traceset
= lttv_hooks_new();
195 before_trace
= lttv_hooks_new();
196 after_trace
= lttv_hooks_new();
197 before_tracefile
= lttv_hooks_new();
198 after_tracefile
= lttv_hooks_new();
199 //before_event = lttv_hooks_new();
200 //after_event = lttv_hooks_new();
201 event_hook
= lttv_hooks_new();
203 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/traceset/before",
204 LTTV_POINTER
, &value
);
206 *(value
.v_pointer
) = before_traceset
;
207 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/traceset/after",
208 LTTV_POINTER
, &value
);
210 *(value
.v_pointer
) = after_traceset
;
211 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/trace/before",
212 LTTV_POINTER
, &value
);
214 *(value
.v_pointer
) = before_trace
;
215 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/trace/after",
216 LTTV_POINTER
, &value
);
218 *(value
.v_pointer
) = after_trace
;
219 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/tracefile/before",
220 LTTV_POINTER
, &value
);
222 *(value
.v_pointer
) = before_tracefile
;
223 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/tracefile/after",
224 LTTV_POINTER
, &value
);
226 *(value
.v_pointer
) = after_tracefile
;
227 //g_assert(lttv_iattribute_find_by_path(attributes, "hooks/event/before",
228 // LTTV_POINTER, &value));
229 //*(value.v_pointer) = before_event;
230 //g_assert(lttv_iattribute_find_by_path(attributes, "hooks/event/after",
231 // LTTV_POINTER, &value));
232 //*(value.v_pointer) = after_event;
233 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/event",
234 LTTV_POINTER
, &value
);
236 *(value
.v_pointer
) = event_hook
;
238 retval
= lttv_iattribute_find_by_path(attributes
, "hooks/main/before",
239 LTTV_POINTER
, &value
);
241 g_assert((main_hooks
= *(value
.v_pointer
)) != NULL
);
242 lttv_hooks_add(main_hooks
, process_traceset
, NULL
, LTTV_PRIO_DEFAULT
);
245 static void destroy()
251 g_info("Destroy batchAnalysis.c");
253 lttv_option_remove("trace");
254 lttv_option_remove("stats");
256 lttv_hooks_destroy(before_traceset
);
257 lttv_hooks_destroy(after_traceset
);
258 lttv_hooks_destroy(before_trace
);
259 lttv_hooks_destroy(after_trace
);
260 lttv_hooks_destroy(before_tracefile
);
261 lttv_hooks_destroy(after_tracefile
);
262 //lttv_hooks_destroy(before_event);
263 //lttv_hooks_destroy(after_event);
264 lttv_hooks_destroy(event_hook
);
265 lttv_hooks_remove_data(main_hooks
, process_traceset
, NULL
);
267 nb
= lttv_traceset_number(traceset
);
268 for(i
= 0 ; i
< nb
; i
++) {
269 trace
= lttv_traceset_get(traceset
, i
);
270 ltt_trace_close(lttv_trace(trace
));
271 /* This will be done by lttv_traceset_destroy */
272 //lttv_trace_destroy(trace);
275 lttv_traceset_destroy(traceset
);
278 LTTV_MODULE("batchAnalysis", "Batch processing of a trace", \
279 "Run through a trace calling all the registered hooks", \
280 /* init, destroy, "state", "stats", "option","textFilter", "sync") */
281 init
, destroy
, "state", "stats", "option","textFilter")