1# failed system call counts
2# (c) 2010, Tom Zanussi <tzanussi@gmail.com>
3# Licensed under the terms of the GNU GPL License version 2
4#
5# Displays system-wide failed system call totals
6# If a [comm] arg is specified, only syscalls called by [comm] are displayed.
7
8use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";
9use lib "./Perf-Trace-Util/lib";
10use Perf::Trace::Core;
11use Perf::Trace::Context;
12use Perf::Trace::Util;
13
14my $for_comm = shift;
15
16my %failed_syscalls;
17
18sub raw_syscalls::sys_exit
19{
20	my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
21	    $common_pid, $common_comm,
22	    $id, $ret) = @_;
23
24	if ($ret < 0) {
25	    $failed_syscalls{$common_comm}++;
26	}
27}
28
29sub syscalls::sys_exit
30{
31	raw_syscalls::sys_exit(@_)
32}
33
34sub trace_end
35{
36    printf("\nfailed syscalls by comm:\n\n");
37
38    printf("%-20s  %10s\n", "comm", "# errors");
39    printf("%-20s  %6s  %10s\n", "--------------------", "----------");
40
41    foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
42		      keys %failed_syscalls) {
43	next if ($for_comm && $comm ne $for_comm);
44
45	printf("%-20s  %10s\n", $comm, $failed_syscalls{$comm});
46    }
47}
48