aboutsummaryrefslogtreecommitdiffstats
path: root/tools/perf/util/scripting-engines
diff options
context:
space:
mode:
Diffstat (limited to 'tools/perf/util/scripting-engines')
-rw-r--r--tools/perf/util/scripting-engines/trace-event-perl.c565
-rw-r--r--tools/perf/util/scripting-engines/trace-event-python.c576
2 files changed, 1141 insertions, 0 deletions
diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
new file mode 100644
index 000000000000..b059dc50cc2d
--- /dev/null
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -0,0 +1,565 @@
1/*
2 * trace-event-perl. Feed perf trace events to an embedded Perl interpreter.
3 *
4 * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 *
20 */
21
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
25#include <ctype.h>
26#include <errno.h>
27
28#include "../../perf.h"
29#include "../util.h"
30#include "../trace-event.h"
31
32#include <EXTERN.h>
33#include <perl.h>
34
35void boot_Perf__Trace__Context(pTHX_ CV *cv);
36void boot_DynaLoader(pTHX_ CV *cv);
37typedef PerlInterpreter * INTERP;
38
39void xs_init(pTHX);
40
41void xs_init(pTHX)
42{
43 const char *file = __FILE__;
44 dXSUB_SYS;
45
46 newXS("Perf::Trace::Context::bootstrap", boot_Perf__Trace__Context,
47 file);
48 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
49}
50
51INTERP my_perl;
52
53#define FTRACE_MAX_EVENT \
54 ((1 << (sizeof(unsigned short) * 8)) - 1)
55
56struct event *events[FTRACE_MAX_EVENT];
57
58extern struct scripting_context *scripting_context;
59
60static char *cur_field_name;
61static int zero_flag_atom;
62
63static void define_symbolic_value(const char *ev_name,
64 const char *field_name,
65 const char *field_value,
66 const char *field_str)
67{
68 unsigned long long value;
69 dSP;
70
71 value = eval_flag(field_value);
72
73 ENTER;
74 SAVETMPS;
75 PUSHMARK(SP);
76
77 XPUSHs(sv_2mortal(newSVpv(ev_name, 0)));
78 XPUSHs(sv_2mortal(newSVpv(field_name, 0)));
79 XPUSHs(sv_2mortal(newSVuv(value)));
80 XPUSHs(sv_2mortal(newSVpv(field_str, 0)));
81
82 PUTBACK;
83 if (get_cv("main::define_symbolic_value", 0))
84 call_pv("main::define_symbolic_value", G_SCALAR);
85 SPAGAIN;
86 PUTBACK;
87 FREETMPS;
88 LEAVE;
89}
90
91static void define_symbolic_values(struct print_flag_sym *field,
92 const char *ev_name,
93 const char *field_name)
94{
95 define_symbolic_value(ev_name, field_name, field->value, field->str);
96 if (field->next)
97 define_symbolic_values(field->next, ev_name, field_name);
98}
99
100static void define_symbolic_field(const char *ev_name,
101 const char *field_name)
102{
103 dSP;
104
105 ENTER;
106 SAVETMPS;
107 PUSHMARK(SP);
108
109 XPUSHs(sv_2mortal(newSVpv(ev_name, 0)));
110 XPUSHs(sv_2mortal(newSVpv(field_name, 0)));
111
112 PUTBACK;
113 if (get_cv("main::define_symbolic_field", 0))
114 call_pv("main::define_symbolic_field", G_SCALAR);
115 SPAGAIN;
116 PUTBACK;
117 FREETMPS;
118 LEAVE;
119}
120
121static void define_flag_value(const char *ev_name,
122 const char *field_name,
123 const char *field_value,
124 const char *field_str)
125{
126 unsigned long long value;
127 dSP;
128
129 value = eval_flag(field_value);
130
131 ENTER;
132 SAVETMPS;
133 PUSHMARK(SP);
134
135 XPUSHs(sv_2mortal(newSVpv(ev_name, 0)));
136 XPUSHs(sv_2mortal(newSVpv(field_name, 0)));
137 XPUSHs(sv_2mortal(newSVuv(value)));
138 XPUSHs(sv_2mortal(newSVpv(field_str, 0)));
139
140 PUTBACK;
141 if (get_cv("main::define_flag_value", 0))
142 call_pv("main::define_flag_value", G_SCALAR);
143 SPAGAIN;
144 PUTBACK;
145 FREETMPS;
146 LEAVE;
147}
148
149static void define_flag_values(struct print_flag_sym *field,
150 const char *ev_name,
151 const char *field_name)
152{
153 define_flag_value(ev_name, field_name, field->value, field->str);
154 if (field->next)
155 define_flag_values(field->next, ev_name, field_name);
156}
157
158static void define_flag_field(const char *ev_name,
159 const char *field_name,
160 const char *delim)
161{
162 dSP;
163
164 ENTER;
165 SAVETMPS;
166 PUSHMARK(SP);
167
168 XPUSHs(sv_2mortal(newSVpv(ev_name, 0)));
169 XPUSHs(sv_2mortal(newSVpv(field_name, 0)));
170 XPUSHs(sv_2mortal(newSVpv(delim, 0)));
171
172 PUTBACK;
173 if (get_cv("main::define_flag_field", 0))
174 call_pv("main::define_flag_field", G_SCALAR);
175 SPAGAIN;
176 PUTBACK;
177 FREETMPS;
178 LEAVE;
179}
180
181static void define_event_symbols(struct event *event,
182 const char *ev_name,
183 struct print_arg *args)
184{
185 switch (args->type) {
186 case PRINT_NULL:
187 break;
188 case PRINT_ATOM:
189 define_flag_value(ev_name, cur_field_name, "0",
190 args->atom.atom);
191 zero_flag_atom = 0;
192 break;
193 case PRINT_FIELD:
194 if (cur_field_name)
195 free(cur_field_name);
196 cur_field_name = strdup(args->field.name);
197 break;
198 case PRINT_FLAGS:
199 define_event_symbols(event, ev_name, args->flags.field);
200 define_flag_field(ev_name, cur_field_name, args->flags.delim);
201 define_flag_values(args->flags.flags, ev_name, cur_field_name);
202 break;
203 case PRINT_SYMBOL:
204 define_event_symbols(event, ev_name, args->symbol.field);
205 define_symbolic_field(ev_name, cur_field_name);
206 define_symbolic_values(args->symbol.symbols, ev_name,
207 cur_field_name);
208 break;
209 case PRINT_STRING:
210 break;
211 case PRINT_TYPE:
212 define_event_symbols(event, ev_name, args->typecast.item);
213 break;
214 case PRINT_OP:
215 if (strcmp(args->op.op, ":") == 0)
216 zero_flag_atom = 1;
217 define_event_symbols(event, ev_name, args->op.left);
218 define_event_symbols(event, ev_name, args->op.right);
219 break;
220 default:
221 /* we should warn... */
222 return;
223 }
224
225 if (args->next)
226 define_event_symbols(event, ev_name, args->next);
227}
228
229static inline struct event *find_cache_event(int type)
230{
231 static char ev_name[256];
232 struct event *event;
233
234 if (events[type])
235 return events[type];
236
237 events[type] = event = trace_find_event(type);
238 if (!event)
239 return NULL;
240
241 sprintf(ev_name, "%s::%s", event->system, event->name);
242
243 define_event_symbols(event, ev_name, event->print_fmt.args);
244
245 return event;
246}
247
248static void perl_process_event(int cpu, void *data,
249 int size __unused,
250 unsigned long long nsecs, char *comm)
251{
252 struct format_field *field;
253 static char handler[256];
254 unsigned long long val;
255 unsigned long s, ns;
256 struct event *event;
257 int type;
258 int pid;
259
260 dSP;
261
262 type = trace_parse_common_type(data);
263
264 event = find_cache_event(type);
265 if (!event)
266 die("ug! no event found for type %d", type);
267
268 pid = trace_parse_common_pid(data);
269
270 sprintf(handler, "%s::%s", event->system, event->name);
271
272 s = nsecs / NSECS_PER_SEC;
273 ns = nsecs - s * NSECS_PER_SEC;
274
275 scripting_context->event_data = data;
276
277 ENTER;
278 SAVETMPS;
279 PUSHMARK(SP);
280
281 XPUSHs(sv_2mortal(newSVpv(handler, 0)));
282 XPUSHs(sv_2mortal(newSViv(PTR2IV(scripting_context))));
283 XPUSHs(sv_2mortal(newSVuv(cpu)));
284 XPUSHs(sv_2mortal(newSVuv(s)));
285 XPUSHs(sv_2mortal(newSVuv(ns)));
286 XPUSHs(sv_2mortal(newSViv(pid)));
287 XPUSHs(sv_2mortal(newSVpv(comm, 0)));
288
289 /* common fields other than pid can be accessed via xsub fns */
290
291 for (field = event->format.fields; field; field = field->next) {
292 if (field->flags & FIELD_IS_STRING) {
293 int offset;
294 if (field->flags & FIELD_IS_DYNAMIC) {
295 offset = *(int *)(data + field->offset);
296 offset &= 0xffff;
297 } else
298 offset = field->offset;
299 XPUSHs(sv_2mortal(newSVpv((char *)data + offset, 0)));
300 } else { /* FIELD_IS_NUMERIC */
301 val = read_size(data + field->offset, field->size);
302 if (field->flags & FIELD_IS_SIGNED) {
303 XPUSHs(sv_2mortal(newSViv(val)));
304 } else {
305 XPUSHs(sv_2mortal(newSVuv(val)));
306 }
307 }
308 }
309
310 PUTBACK;
311
312 if (get_cv(handler, 0))
313 call_pv(handler, G_SCALAR);
314 else if (get_cv("main::trace_unhandled", 0)) {
315 XPUSHs(sv_2mortal(newSVpv(handler, 0)));
316 XPUSHs(sv_2mortal(newSViv(PTR2IV(scripting_context))));
317 XPUSHs(sv_2mortal(newSVuv(cpu)));
318 XPUSHs(sv_2mortal(newSVuv(nsecs)));
319 XPUSHs(sv_2mortal(newSViv(pid)));
320 XPUSHs(sv_2mortal(newSVpv(comm, 0)));
321 call_pv("main::trace_unhandled", G_SCALAR);
322 }
323 SPAGAIN;
324 PUTBACK;
325 FREETMPS;
326 LEAVE;
327}
328
329static void run_start_sub(void)
330{
331 dSP; /* access to Perl stack */
332 PUSHMARK(SP);
333
334 if (get_cv("main::trace_begin", 0))
335 call_pv("main::trace_begin", G_DISCARD | G_NOARGS);
336}
337
338/*
339 * Start trace script
340 */
341static int perl_start_script(const char *script, int argc, const char **argv)
342{
343 const char **command_line;
344 int i, err = 0;
345
346 command_line = malloc((argc + 2) * sizeof(const char *));
347 command_line[0] = "";
348 command_line[1] = script;
349 for (i = 2; i < argc + 2; i++)
350 command_line[i] = argv[i - 2];
351
352 my_perl = perl_alloc();
353 perl_construct(my_perl);
354
355 if (perl_parse(my_perl, xs_init, argc + 2, (char **)command_line,
356 (char **)NULL)) {
357 err = -1;
358 goto error;
359 }
360
361 if (perl_run(my_perl)) {
362 err = -1;
363 goto error;
364 }
365
366 if (SvTRUE(ERRSV)) {
367 err = -1;
368 goto error;
369 }
370
371 run_start_sub();
372
373 free(command_line);
374 return 0;
375error:
376 perl_free(my_perl);
377 free(command_line);
378
379 return err;
380}
381
382/*
383 * Stop trace script
384 */
385static int perl_stop_script(void)
386{
387 dSP; /* access to Perl stack */
388 PUSHMARK(SP);
389
390 if (get_cv("main::trace_end", 0))
391 call_pv("main::trace_end", G_DISCARD | G_NOARGS);
392
393 perl_destruct(my_perl);
394 perl_free(my_perl);
395
396 return 0;
397}
398
399static int perl_generate_script(const char *outfile)
400{
401 struct event *event = NULL;
402 struct format_field *f;
403 char fname[PATH_MAX];
404 int not_first, count;
405 FILE *ofp;
406
407 sprintf(fname, "%s.pl", outfile);
408 ofp = fopen(fname, "w");
409 if (ofp == NULL) {
410 fprintf(stderr, "couldn't open %s\n", fname);
411 return -1;
412 }
413
414 fprintf(ofp, "# perf trace event handlers, "
415 "generated by perf trace -g perl\n");
416
417 fprintf(ofp, "# Licensed under the terms of the GNU GPL"
418 " License version 2\n\n");
419
420 fprintf(ofp, "# The common_* event handler fields are the most useful "
421 "fields common to\n");
422
423 fprintf(ofp, "# all events. They don't necessarily correspond to "
424 "the 'common_*' fields\n");
425
426 fprintf(ofp, "# in the format files. Those fields not available as "
427 "handler params can\n");
428
429 fprintf(ofp, "# be retrieved using Perl functions of the form "
430 "common_*($context).\n");
431
432 fprintf(ofp, "# See Context.pm for the list of available "
433 "functions.\n\n");
434
435 fprintf(ofp, "use lib \"$ENV{'PERF_EXEC_PATH'}/scripts/perl/"
436 "Perf-Trace-Util/lib\";\n");
437
438 fprintf(ofp, "use lib \"./Perf-Trace-Util/lib\";\n");
439 fprintf(ofp, "use Perf::Trace::Core;\n");
440 fprintf(ofp, "use Perf::Trace::Context;\n");
441 fprintf(ofp, "use Perf::Trace::Util;\n\n");
442
443 fprintf(ofp, "sub trace_begin\n{\n\t# optional\n}\n\n");
444 fprintf(ofp, "sub trace_end\n{\n\t# optional\n}\n\n");
445
446 while ((event = trace_find_next_event(event))) {
447 fprintf(ofp, "sub %s::%s\n{\n", event->system, event->name);
448 fprintf(ofp, "\tmy (");
449
450 fprintf(ofp, "$event_name, ");
451 fprintf(ofp, "$context, ");
452 fprintf(ofp, "$common_cpu, ");
453 fprintf(ofp, "$common_secs, ");
454 fprintf(ofp, "$common_nsecs,\n");
455 fprintf(ofp, "\t $common_pid, ");
456 fprintf(ofp, "$common_comm,\n\t ");
457
458 not_first = 0;
459 count = 0;
460
461 for (f = event->format.fields; f; f = f->next) {
462 if (not_first++)
463 fprintf(ofp, ", ");
464 if (++count % 5 == 0)
465 fprintf(ofp, "\n\t ");
466
467 fprintf(ofp, "$%s", f->name);
468 }
469 fprintf(ofp, ") = @_;\n\n");
470
471 fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
472 "$common_secs, $common_nsecs,\n\t "
473 "$common_pid, $common_comm);\n\n");
474
475 fprintf(ofp, "\tprintf(\"");
476
477 not_first = 0;
478 count = 0;
479
480 for (f = event->format.fields; f; f = f->next) {
481 if (not_first++)
482 fprintf(ofp, ", ");
483 if (count && count % 4 == 0) {
484 fprintf(ofp, "\".\n\t \"");
485 }
486 count++;
487
488 fprintf(ofp, "%s=", f->name);
489 if (f->flags & FIELD_IS_STRING ||
490 f->flags & FIELD_IS_FLAG ||
491 f->flags & FIELD_IS_SYMBOLIC)
492 fprintf(ofp, "%%s");
493 else if (f->flags & FIELD_IS_SIGNED)
494 fprintf(ofp, "%%d");
495 else
496 fprintf(ofp, "%%u");
497 }
498
499 fprintf(ofp, "\\n\",\n\t ");
500
501 not_first = 0;
502 count = 0;
503
504 for (f = event->format.fields; f; f = f->next) {
505 if (not_first++)
506 fprintf(ofp, ", ");
507
508 if (++count % 5 == 0)
509 fprintf(ofp, "\n\t ");
510
511 if (f->flags & FIELD_IS_FLAG) {
512 if ((count - 1) % 5 != 0) {
513 fprintf(ofp, "\n\t ");
514 count = 4;
515 }
516 fprintf(ofp, "flag_str(\"");
517 fprintf(ofp, "%s::%s\", ", event->system,
518 event->name);
519 fprintf(ofp, "\"%s\", $%s)", f->name,
520 f->name);
521 } else if (f->flags & FIELD_IS_SYMBOLIC) {
522 if ((count - 1) % 5 != 0) {
523 fprintf(ofp, "\n\t ");
524 count = 4;
525 }
526 fprintf(ofp, "symbol_str(\"");
527 fprintf(ofp, "%s::%s\", ", event->system,
528 event->name);
529 fprintf(ofp, "\"%s\", $%s)", f->name,
530 f->name);
531 } else
532 fprintf(ofp, "$%s", f->name);
533 }
534
535 fprintf(ofp, ");\n");
536 fprintf(ofp, "}\n\n");
537 }
538
539 fprintf(ofp, "sub trace_unhandled\n{\n\tmy ($event_name, $context, "
540 "$common_cpu, $common_secs, $common_nsecs,\n\t "
541 "$common_pid, $common_comm) = @_;\n\n");
542
543 fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
544 "$common_secs, $common_nsecs,\n\t $common_pid, "
545 "$common_comm);\n}\n\n");
546
547 fprintf(ofp, "sub print_header\n{\n"
548 "\tmy ($event_name, $cpu, $secs, $nsecs, $pid, $comm) = @_;\n\n"
549 "\tprintf(\"%%-20s %%5u %%05u.%%09u %%8u %%-20s \",\n\t "
550 "$event_name, $cpu, $secs, $nsecs, $pid, $comm);\n}");
551
552 fclose(ofp);
553
554 fprintf(stderr, "generated Perl script: %s\n", fname);
555
556 return 0;
557}
558
559struct scripting_ops perl_scripting_ops = {
560 .name = "Perl",
561 .start_script = perl_start_script,
562 .stop_script = perl_stop_script,
563 .process_event = perl_process_event,
564 .generate_script = perl_generate_script,
565};
diff --git a/tools/perf/util/scripting-engines/trace-event-python.c b/tools/perf/util/scripting-engines/trace-event-python.c
new file mode 100644
index 000000000000..81f39cab3aaa
--- /dev/null
+++ b/tools/perf/util/scripting-engines/trace-event-python.c
@@ -0,0 +1,576 @@
1/*
2 * trace-event-python. Feed trace events to an embedded Python interpreter.
3 *
4 * Copyright (C) 2010 Tom Zanussi <tzanussi@gmail.com>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 *
20 */
21
22#include <Python.h>
23
24#include <stdio.h>
25#include <stdlib.h>
26#include <string.h>
27#include <ctype.h>
28#include <errno.h>
29
30#include "../../perf.h"
31#include "../util.h"
32#include "../trace-event.h"
33
34PyMODINIT_FUNC initperf_trace_context(void);
35
36#define FTRACE_MAX_EVENT \
37 ((1 << (sizeof(unsigned short) * 8)) - 1)
38
39struct event *events[FTRACE_MAX_EVENT];
40
41#define MAX_FIELDS 64
42#define N_COMMON_FIELDS 7
43
44extern struct scripting_context *scripting_context;
45
46static char *cur_field_name;
47static int zero_flag_atom;
48
49static PyObject *main_module, *main_dict;
50
51static void handler_call_die(const char *handler_name)
52{
53 PyErr_Print();
54 Py_FatalError("problem in Python trace event handler");
55}
56
57static void define_value(enum print_arg_type field_type,
58 const char *ev_name,
59 const char *field_name,
60 const char *field_value,
61 const char *field_str)
62{
63 const char *handler_name = "define_flag_value";
64 PyObject *handler, *t, *retval;
65 unsigned long long value;
66 unsigned n = 0;
67
68 if (field_type == PRINT_SYMBOL)
69 handler_name = "define_symbolic_value";
70
71 t = PyTuple_New(4);
72 if (!t)
73 Py_FatalError("couldn't create Python tuple");
74
75 value = eval_flag(field_value);
76
77 PyTuple_SetItem(t, n++, PyString_FromString(ev_name));
78 PyTuple_SetItem(t, n++, PyString_FromString(field_name));
79 PyTuple_SetItem(t, n++, PyInt_FromLong(value));
80 PyTuple_SetItem(t, n++, PyString_FromString(field_str));
81
82 handler = PyDict_GetItemString(main_dict, handler_name);
83 if (handler && PyCallable_Check(handler)) {
84 retval = PyObject_CallObject(handler, t);
85 if (retval == NULL)
86 handler_call_die(handler_name);
87 }
88
89 Py_DECREF(t);
90}
91
92static void define_values(enum print_arg_type field_type,
93 struct print_flag_sym *field,
94 const char *ev_name,
95 const char *field_name)
96{
97 define_value(field_type, ev_name, field_name, field->value,
98 field->str);
99
100 if (field->next)
101 define_values(field_type, field->next, ev_name, field_name);
102}
103
104static void define_field(enum print_arg_type field_type,
105 const char *ev_name,
106 const char *field_name,
107 const char *delim)
108{
109 const char *handler_name = "define_flag_field";
110 PyObject *handler, *t, *retval;
111 unsigned n = 0;
112
113 if (field_type == PRINT_SYMBOL)
114 handler_name = "define_symbolic_field";
115
116 if (field_type == PRINT_FLAGS)
117 t = PyTuple_New(3);
118 else
119 t = PyTuple_New(2);
120 if (!t)
121 Py_FatalError("couldn't create Python tuple");
122
123 PyTuple_SetItem(t, n++, PyString_FromString(ev_name));
124 PyTuple_SetItem(t, n++, PyString_FromString(field_name));
125 if (field_type == PRINT_FLAGS)
126 PyTuple_SetItem(t, n++, PyString_FromString(delim));
127
128 handler = PyDict_GetItemString(main_dict, handler_name);
129 if (handler && PyCallable_Check(handler)) {
130 retval = PyObject_CallObject(handler, t);
131 if (retval == NULL)
132 handler_call_die(handler_name);
133 }
134
135 Py_DECREF(t);
136}
137
138static void define_event_symbols(struct event *event,
139 const char *ev_name,
140 struct print_arg *args)
141{
142 switch (args->type) {
143 case PRINT_NULL:
144 break;
145 case PRINT_ATOM:
146 define_value(PRINT_FLAGS, ev_name, cur_field_name, "0",
147 args->atom.atom);
148 zero_flag_atom = 0;
149 break;
150 case PRINT_FIELD:
151 if (cur_field_name)
152 free(cur_field_name);
153 cur_field_name = strdup(args->field.name);
154 break;
155 case PRINT_FLAGS:
156 define_event_symbols(event, ev_name, args->flags.field);
157 define_field(PRINT_FLAGS, ev_name, cur_field_name,
158 args->flags.delim);
159 define_values(PRINT_FLAGS, args->flags.flags, ev_name,
160 cur_field_name);
161 break;
162 case PRINT_SYMBOL:
163 define_event_symbols(event, ev_name, args->symbol.field);
164 define_field(PRINT_SYMBOL, ev_name, cur_field_name, NULL);
165 define_values(PRINT_SYMBOL, args->symbol.symbols, ev_name,
166 cur_field_name);
167 break;
168 case PRINT_STRING:
169 break;
170 case PRINT_TYPE:
171 define_event_symbols(event, ev_name, args->typecast.item);
172 break;
173 case PRINT_OP:
174 if (strcmp(args->op.op, ":") == 0)
175 zero_flag_atom = 1;
176 define_event_symbols(event, ev_name, args->op.left);
177 define_event_symbols(event, ev_name, args->op.right);
178 break;
179 default:
180 /* we should warn... */
181 return;
182 }
183
184 if (args->next)
185 define_event_symbols(event, ev_name, args->next);
186}
187
188static inline struct event *find_cache_event(int type)
189{
190 static char ev_name[256];
191 struct event *event;
192
193 if (events[type])
194 return events[type];
195
196 events[type] = event = trace_find_event(type);
197 if (!event)
198 return NULL;
199
200 sprintf(ev_name, "%s__%s", event->system, event->name);
201
202 define_event_symbols(event, ev_name, event->print_fmt.args);
203
204 return event;
205}
206
207static void python_process_event(int cpu, void *data,
208 int size __unused,
209 unsigned long long nsecs, char *comm)
210{
211 PyObject *handler, *retval, *context, *t, *obj;
212 static char handler_name[256];
213 struct format_field *field;
214 unsigned long long val;
215 unsigned long s, ns;
216 struct event *event;
217 unsigned n = 0;
218 int type;
219 int pid;
220
221 t = PyTuple_New(MAX_FIELDS);
222 if (!t)
223 Py_FatalError("couldn't create Python tuple");
224
225 type = trace_parse_common_type(data);
226
227 event = find_cache_event(type);
228 if (!event)
229 die("ug! no event found for type %d", type);
230
231 pid = trace_parse_common_pid(data);
232
233 sprintf(handler_name, "%s__%s", event->system, event->name);
234
235 s = nsecs / NSECS_PER_SEC;
236 ns = nsecs - s * NSECS_PER_SEC;
237
238 scripting_context->event_data = data;
239
240 context = PyCObject_FromVoidPtr(scripting_context, NULL);
241
242 PyTuple_SetItem(t, n++, PyString_FromString(handler_name));
243 PyTuple_SetItem(t, n++,
244 PyCObject_FromVoidPtr(scripting_context, NULL));
245 PyTuple_SetItem(t, n++, PyInt_FromLong(cpu));
246 PyTuple_SetItem(t, n++, PyInt_FromLong(s));
247 PyTuple_SetItem(t, n++, PyInt_FromLong(ns));
248 PyTuple_SetItem(t, n++, PyInt_FromLong(pid));
249 PyTuple_SetItem(t, n++, PyString_FromString(comm));
250
251 for (field = event->format.fields; field; field = field->next) {
252 if (field->flags & FIELD_IS_STRING) {
253 int offset;
254 if (field->flags & FIELD_IS_DYNAMIC) {
255 offset = *(int *)(data + field->offset);
256 offset &= 0xffff;
257 } else
258 offset = field->offset;
259 obj = PyString_FromString((char *)data + offset);
260 } else { /* FIELD_IS_NUMERIC */
261 val = read_size(data + field->offset, field->size);
262 if (field->flags & FIELD_IS_SIGNED) {
263 if ((long long)val >= LONG_MIN &&
264 (long long)val <= LONG_MAX)
265 obj = PyInt_FromLong(val);
266 else
267 obj = PyLong_FromLongLong(val);
268 } else {
269 if (val <= LONG_MAX)
270 obj = PyInt_FromLong(val);
271 else
272 obj = PyLong_FromUnsignedLongLong(val);
273 }
274 }
275 PyTuple_SetItem(t, n++, obj);
276 }
277
278 if (_PyTuple_Resize(&t, n) == -1)
279 Py_FatalError("error resizing Python tuple");
280
281 handler = PyDict_GetItemString(main_dict, handler_name);
282 if (handler && PyCallable_Check(handler)) {
283 retval = PyObject_CallObject(handler, t);
284 if (retval == NULL)
285 handler_call_die(handler_name);
286 } else {
287 handler = PyDict_GetItemString(main_dict, "trace_unhandled");
288 if (handler && PyCallable_Check(handler)) {
289 if (_PyTuple_Resize(&t, N_COMMON_FIELDS) == -1)
290 Py_FatalError("error resizing Python tuple");
291
292 retval = PyObject_CallObject(handler, t);
293 if (retval == NULL)
294 handler_call_die("trace_unhandled");
295 }
296 }
297
298 Py_DECREF(t);
299}
300
301static int run_start_sub(void)
302{
303 PyObject *handler, *retval;
304 int err = 0;
305
306 main_module = PyImport_AddModule("__main__");
307 if (main_module == NULL)
308 return -1;
309 Py_INCREF(main_module);
310
311 main_dict = PyModule_GetDict(main_module);
312 if (main_dict == NULL) {
313 err = -1;
314 goto error;
315 }
316 Py_INCREF(main_dict);
317
318 handler = PyDict_GetItemString(main_dict, "trace_begin");
319 if (handler == NULL || !PyCallable_Check(handler))
320 goto out;
321
322 retval = PyObject_CallObject(handler, NULL);
323 if (retval == NULL)
324 handler_call_die("trace_begin");
325
326 Py_DECREF(retval);
327 return err;
328error:
329 Py_XDECREF(main_dict);
330 Py_XDECREF(main_module);
331out:
332 return err;
333}
334
335/*
336 * Start trace script
337 */
338static int python_start_script(const char *script, int argc, const char **argv)
339{
340 const char **command_line;
341 char buf[PATH_MAX];
342 int i, err = 0;
343 FILE *fp;
344
345 command_line = malloc((argc + 1) * sizeof(const char *));
346 command_line[0] = script;
347 for (i = 1; i < argc + 1; i++)
348 command_line[i] = argv[i - 1];
349
350 Py_Initialize();
351
352 initperf_trace_context();
353
354 PySys_SetArgv(argc + 1, (char **)command_line);
355
356 fp = fopen(script, "r");
357 if (!fp) {
358 sprintf(buf, "Can't open python script \"%s\"", script);
359 perror(buf);
360 err = -1;
361 goto error;
362 }
363
364 err = PyRun_SimpleFile(fp, script);
365 if (err) {
366 fprintf(stderr, "Error running python script %s\n", script);
367 goto error;
368 }
369
370 err = run_start_sub();
371 if (err) {
372 fprintf(stderr, "Error starting python script %s\n", script);
373 goto error;
374 }
375
376 free(command_line);
377
378 return err;
379error:
380 Py_Finalize();
381 free(command_line);
382
383 return err;
384}
385
386/*
387 * Stop trace script
388 */
389static int python_stop_script(void)
390{
391 PyObject *handler, *retval;
392 int err = 0;
393
394 handler = PyDict_GetItemString(main_dict, "trace_end");
395 if (handler == NULL || !PyCallable_Check(handler))
396 goto out;
397
398 retval = PyObject_CallObject(handler, NULL);
399 if (retval == NULL)
400 handler_call_die("trace_end");
401 else
402 Py_DECREF(retval);
403out:
404 Py_XDECREF(main_dict);
405 Py_XDECREF(main_module);
406 Py_Finalize();
407
408 return err;
409}
410
411static int python_generate_script(const char *outfile)
412{
413 struct event *event = NULL;
414 struct format_field *f;
415 char fname[PATH_MAX];
416 int not_first, count;
417 FILE *ofp;
418
419 sprintf(fname, "%s.py", outfile);
420 ofp = fopen(fname, "w");
421 if (ofp == NULL) {
422 fprintf(stderr, "couldn't open %s\n", fname);
423 return -1;
424 }
425 fprintf(ofp, "# perf trace event handlers, "
426 "generated by perf trace -g python\n");
427
428 fprintf(ofp, "# Licensed under the terms of the GNU GPL"
429 " License version 2\n\n");
430
431 fprintf(ofp, "# The common_* event handler fields are the most useful "
432 "fields common to\n");
433
434 fprintf(ofp, "# all events. They don't necessarily correspond to "
435 "the 'common_*' fields\n");
436
437 fprintf(ofp, "# in the format files. Those fields not available as "
438 "handler params can\n");
439
440 fprintf(ofp, "# be retrieved using Python functions of the form "
441 "common_*(context).\n");
442
443 fprintf(ofp, "# See the perf-trace-python Documentation for the list "
444 "of available functions.\n\n");
445
446 fprintf(ofp, "import os\n");
447 fprintf(ofp, "import sys\n\n");
448
449 fprintf(ofp, "sys.path.append(os.environ['PERF_EXEC_PATH'] + \\\n");
450 fprintf(ofp, "\t'/scripts/python/Perf-Trace-Util/lib/Perf/Trace')\n");
451 fprintf(ofp, "\nfrom perf_trace_context import *\n");
452 fprintf(ofp, "from Core import *\n\n\n");
453
454 fprintf(ofp, "def trace_begin():\n");
455 fprintf(ofp, "\tprint \"in trace_begin\"\n\n");
456
457 fprintf(ofp, "def trace_end():\n");
458 fprintf(ofp, "\tprint \"in trace_end\"\n\n");
459
460 while ((event = trace_find_next_event(event))) {
461 fprintf(ofp, "def %s__%s(", event->system, event->name);
462 fprintf(ofp, "event_name, ");
463 fprintf(ofp, "context, ");
464 fprintf(ofp, "common_cpu,\n");
465 fprintf(ofp, "\tcommon_secs, ");
466 fprintf(ofp, "common_nsecs, ");
467 fprintf(ofp, "common_pid, ");
468 fprintf(ofp, "common_comm,\n\t");
469
470 not_first = 0;
471 count = 0;
472
473 for (f = event->format.fields; f; f = f->next) {
474 if (not_first++)
475 fprintf(ofp, ", ");
476 if (++count % 5 == 0)
477 fprintf(ofp, "\n\t");
478
479 fprintf(ofp, "%s", f->name);
480 }
481 fprintf(ofp, "):\n");
482
483 fprintf(ofp, "\t\tprint_header(event_name, common_cpu, "
484 "common_secs, common_nsecs,\n\t\t\t"
485 "common_pid, common_comm)\n\n");
486
487 fprintf(ofp, "\t\tprint \"");
488
489 not_first = 0;
490 count = 0;
491
492 for (f = event->format.fields; f; f = f->next) {
493 if (not_first++)
494 fprintf(ofp, ", ");
495 if (count && count % 3 == 0) {
496 fprintf(ofp, "\" \\\n\t\t\"");
497 }
498 count++;
499
500 fprintf(ofp, "%s=", f->name);
501 if (f->flags & FIELD_IS_STRING ||
502 f->flags & FIELD_IS_FLAG ||
503 f->flags & FIELD_IS_SYMBOLIC)
504 fprintf(ofp, "%%s");
505 else if (f->flags & FIELD_IS_SIGNED)
506 fprintf(ofp, "%%d");
507 else
508 fprintf(ofp, "%%u");
509 }
510
511 fprintf(ofp, "\\n\" %% \\\n\t\t(");
512
513 not_first = 0;
514 count = 0;
515
516 for (f = event->format.fields; f; f = f->next) {
517 if (not_first++)
518 fprintf(ofp, ", ");
519
520 if (++count % 5 == 0)
521 fprintf(ofp, "\n\t\t");
522
523 if (f->flags & FIELD_IS_FLAG) {
524 if ((count - 1) % 5 != 0) {
525 fprintf(ofp, "\n\t\t");
526 count = 4;
527 }
528 fprintf(ofp, "flag_str(\"");
529 fprintf(ofp, "%s__%s\", ", event->system,
530 event->name);
531 fprintf(ofp, "\"%s\", %s)", f->name,
532 f->name);
533 } else if (f->flags & FIELD_IS_SYMBOLIC) {
534 if ((count - 1) % 5 != 0) {
535 fprintf(ofp, "\n\t\t");
536 count = 4;
537 }
538 fprintf(ofp, "symbol_str(\"");
539 fprintf(ofp, "%s__%s\", ", event->system,
540 event->name);
541 fprintf(ofp, "\"%s\", %s)", f->name,
542 f->name);
543 } else
544 fprintf(ofp, "%s", f->name);
545 }
546
547 fprintf(ofp, "),\n\n");
548 }
549
550 fprintf(ofp, "def trace_unhandled(event_name, context, "
551 "common_cpu, common_secs, common_nsecs,\n\t\t"
552 "common_pid, common_comm):\n");
553
554 fprintf(ofp, "\t\tprint_header(event_name, common_cpu, "
555 "common_secs, common_nsecs,\n\t\tcommon_pid, "
556 "common_comm)\n\n");
557
558 fprintf(ofp, "def print_header("
559 "event_name, cpu, secs, nsecs, pid, comm):\n"
560 "\tprint \"%%-20s %%5u %%05u.%%09u %%8u %%-20s \" %% \\\n\t"
561 "(event_name, cpu, secs, nsecs, pid, comm),\n");
562
563 fclose(ofp);
564
565 fprintf(stderr, "generated Python script: %s\n", fname);
566
567 return 0;
568}
569
570struct scripting_ops python_scripting_ops = {
571 .name = "Python",
572 .start_script = python_start_script,
573 .stop_script = python_stop_script,
574 .process_event = python_process_event,
575 .generate_script = python_generate_script,
576};
generated by cgit v1.2.2 (git 2.25.0) at 2025-06-12 02:04:50 -0400