Lines Matching refs:fprintf
552 fprintf(stderr, "couldn't open %s\n", fname);
556 fprintf(ofp, "# perf script event handlers, "
559 fprintf(ofp, "# Licensed under the terms of the GNU GPL"
562 fprintf(ofp, "# The common_* event handler fields are the most useful "
565 fprintf(ofp, "# all events. They don't necessarily correspond to "
568 fprintf(ofp, "# in the format files. Those fields not available as "
571 fprintf(ofp, "# be retrieved using Perl functions of the form "
574 fprintf(ofp, "# See Context.pm for the list of available "
577 fprintf(ofp, "use lib \"$ENV{'PERF_EXEC_PATH'}/scripts/perl/"
580 fprintf(ofp, "use lib \"./Perf-Trace-Util/lib\";\n");
581 fprintf(ofp, "use Perf::Trace::Core;\n");
582 fprintf(ofp, "use Perf::Trace::Context;\n");
583 fprintf(ofp, "use Perf::Trace::Util;\n\n");
585 fprintf(ofp, "sub trace_begin\n{\n\t# optional\n}\n\n");
586 fprintf(ofp, "sub trace_end\n{\n\t# optional\n}\n");
589 fprintf(ofp, "\n\
612 fprintf(ofp, "sub %s::%s\n{\n", event->system, event->name);
613 fprintf(ofp, "\tmy (");
615 fprintf(ofp, "$event_name, ");
616 fprintf(ofp, "$context, ");
617 fprintf(ofp, "$common_cpu, ");
618 fprintf(ofp, "$common_secs, ");
619 fprintf(ofp, "$common_nsecs,\n");
620 fprintf(ofp, "\t $common_pid, ");
621 fprintf(ofp, "$common_comm, ");
622 fprintf(ofp, "$common_callchain,\n\t ");
629 fprintf(ofp, ", ");
631 fprintf(ofp, "\n\t ");
633 fprintf(ofp, "$%s", f->name);
635 fprintf(ofp, ") = @_;\n\n");
637 fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
641 fprintf(ofp, "\tprintf(\"");
648 fprintf(ofp, ", ");
650 fprintf(ofp, "\".\n\t \"");
654 fprintf(ofp, "%s=", f->name);
658 fprintf(ofp, "%%s");
660 fprintf(ofp, "%%d");
662 fprintf(ofp, "%%u");
665 fprintf(ofp, "\\n\",\n\t ");
672 fprintf(ofp, ", ");
675 fprintf(ofp, "\n\t ");
679 fprintf(ofp, "\n\t ");
682 fprintf(ofp, "flag_str(\"");
683 fprintf(ofp, "%s::%s\", ", event->system,
685 fprintf(ofp, "\"%s\", $%s)", f->name,
689 fprintf(ofp, "\n\t ");
692 fprintf(ofp, "symbol_str(\"");
693 fprintf(ofp, "%s::%s\", ", event->system,
695 fprintf(ofp, "\"%s\", $%s)", f->name,
698 fprintf(ofp, "$%s", f->name);
701 fprintf(ofp, ");\n\n");
703 fprintf(ofp, "\tprint_backtrace($common_callchain);\n");
705 fprintf(ofp, "}\n\n");
708 fprintf(ofp, "sub trace_unhandled\n{\n\tmy ($event_name, $context, "
712 fprintf(ofp, "\tprint_header($event_name, $common_cpu, "
715 fprintf(ofp, "\tprint_backtrace($common_callchain);\n");
716 fprintf(ofp, "}\n\n");
718 fprintf(ofp, "sub print_header\n{\n"
723 fprintf(ofp,
746 fprintf(stderr, "generated Perl script: %s\n", fname);