util/scripting-engines/trace-event-perl.c

565 		fprintf(stderr, "couldn't open %s\n", fname);
569 	fprintf(ofp, "# perf script event handlers, "
572 	fprintf(ofp, "# Licensed under the terms of the GNU GPL"
575 	fprintf(ofp, "# The common_* event handler fields are the most useful "
578 	fprintf(ofp, "# all events.  They don't necessarily correspond to "
581 	fprintf(ofp, "# in the format files.  Those fields not available as "
584 	fprintf(ofp, "# be retrieved using Perl functions of the form "
587 	fprintf(ofp, "# See Context.pm for the list of available "
590 	fprintf(ofp, "use lib \"$ENV{'PERF_EXEC_PATH'}/scripts/perl/"
593 	fprintf(ofp, "use lib \"./Perf-Trace-Util/lib\";\n");
594 	fprintf(ofp, "use Perf::Trace::Core;\n");
595 	fprintf(ofp, "use Perf::Trace::Context;\n");
596 	fprintf(ofp, "use Perf::Trace::Util;\n\n");
598 	fprintf(ofp, "sub trace_begin\n{\n\t# optional\n}\n\n");
599 	fprintf(ofp, "sub trace_end\n{\n\t# optional\n}\n");
602 	fprintf(ofp, "\n\
625 		fprintf(ofp, "sub %s::%s\n{\n", event->system, event->name);
626 		fprintf(ofp, "\tmy (");
628 		fprintf(ofp, "$event_name, ");
629 		fprintf(ofp, "$context, ");
630 		fprintf(ofp, "$common_cpu, ");
631 		fprintf(ofp, "$common_secs, ");
632 		fprintf(ofp, "$common_nsecs,\n");
633 		fprintf(ofp, "\t    $common_pid, ");
634 		fprintf(ofp, "$common_comm, ");
635 		fprintf(ofp, "$common_callchain,\n\t    ");
642 				fprintf(ofp, ", ");
644 				fprintf(ofp, "\n\t    ");
646 			fprintf(ofp, "$%s", f->name);
648 		fprintf(ofp, ") = @_;\n\n");
650 		fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
654 		fprintf(ofp, "\tprintf(\"");
661 				fprintf(ofp, ", ");
663 				fprintf(ofp, "\".\n\t       \"");
667 			fprintf(ofp, "%s=", f->name);
671 				fprintf(ofp, "%%s");
673 				fprintf(ofp, "%%d");
675 				fprintf(ofp, "%%u");
678 		fprintf(ofp, "\\n\",\n\t       ");
685 				fprintf(ofp, ", ");
688 				fprintf(ofp, "\n\t       ");
692 					fprintf(ofp, "\n\t       ");
695 				fprintf(ofp, "flag_str(\"");
696 				fprintf(ofp, "%s::%s\", ", event->system,
698 				fprintf(ofp, "\"%s\", $%s)", f->name,
702 					fprintf(ofp, "\n\t       ");
705 				fprintf(ofp, "symbol_str(\"");
706 				fprintf(ofp, "%s::%s\", ", event->system,
708 				fprintf(ofp, "\"%s\", $%s)", f->name,
711 				fprintf(ofp, "$%s", f->name);
714 		fprintf(ofp, ");\n\n");
716 		fprintf(ofp, "\tprint_backtrace($common_callchain);\n");
718 		fprintf(ofp, "}\n\n");
721 	fprintf(ofp, "sub trace_unhandled\n{\n\tmy ($event_name, $context, "
725 	fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
728 	fprintf(ofp, "\tprint_backtrace($common_callchain);\n");
729 	fprintf(ofp, "}\n\n");
731 	fprintf(ofp, "sub print_header\n{\n"
736 	fprintf(ofp,
759 	fprintf(stderr, "generated Perl script: %s\n", fname);