Lines Matching refs:fprintf
566 fprintf(stderr, "couldn't open %s\n", fname); in perl_generate_script()
570 fprintf(ofp, "# perf script event handlers, " in perl_generate_script()
573 fprintf(ofp, "# Licensed under the terms of the GNU GPL" in perl_generate_script()
576 fprintf(ofp, "# The common_* event handler fields are the most useful " in perl_generate_script()
579 fprintf(ofp, "# all events. They don't necessarily correspond to " in perl_generate_script()
582 fprintf(ofp, "# in the format files. Those fields not available as " in perl_generate_script()
585 fprintf(ofp, "# be retrieved using Perl functions of the form " in perl_generate_script()
588 fprintf(ofp, "# See Context.pm for the list of available " in perl_generate_script()
591 fprintf(ofp, "use lib \"$ENV{'PERF_EXEC_PATH'}/scripts/perl/" in perl_generate_script()
594 fprintf(ofp, "use lib \"./Perf-Trace-Util/lib\";\n"); in perl_generate_script()
595 fprintf(ofp, "use Perf::Trace::Core;\n"); in perl_generate_script()
596 fprintf(ofp, "use Perf::Trace::Context;\n"); in perl_generate_script()
597 fprintf(ofp, "use Perf::Trace::Util;\n\n"); in perl_generate_script()
599 fprintf(ofp, "sub trace_begin\n{\n\t# optional\n}\n\n"); in perl_generate_script()
600 fprintf(ofp, "sub trace_end\n{\n\t# optional\n}\n"); in perl_generate_script()
603 fprintf(ofp, "\n\ in perl_generate_script()
626 fprintf(ofp, "sub %s::%s\n{\n", event->system, event->name); in perl_generate_script()
627 fprintf(ofp, "\tmy ("); in perl_generate_script()
629 fprintf(ofp, "$event_name, "); in perl_generate_script()
630 fprintf(ofp, "$context, "); in perl_generate_script()
631 fprintf(ofp, "$common_cpu, "); in perl_generate_script()
632 fprintf(ofp, "$common_secs, "); in perl_generate_script()
633 fprintf(ofp, "$common_nsecs,\n"); in perl_generate_script()
634 fprintf(ofp, "\t $common_pid, "); in perl_generate_script()
635 fprintf(ofp, "$common_comm, "); in perl_generate_script()
636 fprintf(ofp, "$common_callchain,\n\t "); in perl_generate_script()
643 fprintf(ofp, ", "); in perl_generate_script()
645 fprintf(ofp, "\n\t "); in perl_generate_script()
647 fprintf(ofp, "$%s", f->name); in perl_generate_script()
649 fprintf(ofp, ") = @_;\n\n"); in perl_generate_script()
651 fprintf(ofp, "\tprint_header($event_name, $common_cpu, " in perl_generate_script()
655 fprintf(ofp, "\tprintf(\""); in perl_generate_script()
662 fprintf(ofp, ", "); in perl_generate_script()
664 fprintf(ofp, "\".\n\t \""); in perl_generate_script()
668 fprintf(ofp, "%s=", f->name); in perl_generate_script()
672 fprintf(ofp, "%%s"); in perl_generate_script()
674 fprintf(ofp, "%%d"); in perl_generate_script()
676 fprintf(ofp, "%%u"); in perl_generate_script()
679 fprintf(ofp, "\\n\",\n\t "); in perl_generate_script()
686 fprintf(ofp, ", "); in perl_generate_script()
689 fprintf(ofp, "\n\t "); in perl_generate_script()
693 fprintf(ofp, "\n\t "); in perl_generate_script()
696 fprintf(ofp, "flag_str(\""); in perl_generate_script()
697 fprintf(ofp, "%s::%s\", ", event->system, in perl_generate_script()
699 fprintf(ofp, "\"%s\", $%s)", f->name, in perl_generate_script()
703 fprintf(ofp, "\n\t "); in perl_generate_script()
706 fprintf(ofp, "symbol_str(\""); in perl_generate_script()
707 fprintf(ofp, "%s::%s\", ", event->system, in perl_generate_script()
709 fprintf(ofp, "\"%s\", $%s)", f->name, in perl_generate_script()
712 fprintf(ofp, "$%s", f->name); in perl_generate_script()
715 fprintf(ofp, ");\n\n"); in perl_generate_script()
717 fprintf(ofp, "\tprint_backtrace($common_callchain);\n"); in perl_generate_script()
719 fprintf(ofp, "}\n\n"); in perl_generate_script()
722 fprintf(ofp, "sub trace_unhandled\n{\n\tmy ($event_name, $context, " in perl_generate_script()
726 fprintf(ofp, "\tprint_header($event_name, $common_cpu, " in perl_generate_script()
729 fprintf(ofp, "\tprint_backtrace($common_callchain);\n"); in perl_generate_script()
730 fprintf(ofp, "}\n\n"); in perl_generate_script()
732 fprintf(ofp, "sub print_header\n{\n" in perl_generate_script()
737 fprintf(ofp, in perl_generate_script()
760 fprintf(stderr, "generated Perl script: %s\n", fname); in perl_generate_script()