]>
Commit | Line | Data |
---|---|---|
b7d5a9c2 | 1 | #!/usr/bin/env perl |
f0c03c8c MA |
2 | # Copyright (C) 2013 Red Hat, Inc. |
3 | # | |
4 | # Authors: | |
5 | # Markus Armbruster <armbru@redhat.com> | |
6 | # | |
7 | # This work is licensed under the terms of the GNU GPL, version 2 or | |
8 | # later. See the COPYING file in the top-level directory. | |
9 | ||
10 | # Usage: cleanup-trace-events.pl trace-events | |
11 | # | |
12 | # Print cleaned up trace-events to standard output. | |
13 | ||
14 | use warnings; | |
15 | use strict; | |
a44cf524 | 16 | use File::Basename; |
f0c03c8c | 17 | |
f7dc89c3 MA |
18 | my @files = (); |
19 | my $events = ''; | |
f0c03c8c MA |
20 | my %seen = (); |
21 | ||
22 | sub out { | |
f7dc89c3 MA |
23 | print sort @files; |
24 | print $events; | |
25 | @files = (); | |
26 | $events = ''; | |
f0c03c8c MA |
27 | %seen = (); |
28 | } | |
29 | ||
a44cf524 MA |
30 | $#ARGV == 0 or die "usage: $0 FILE"; |
31 | my $in = $ARGV[0]; | |
32 | my $dir = dirname($in); | |
33 | open(IN, $in) or die "open $in: $!"; | |
34 | chdir($dir) or die "chdir $dir: $!"; | |
35 | ||
36 | while (<IN>) { | |
164e7dd7 MA |
37 | if (/^(disable |(tcg) |(vcpu) )*([a-z_0-9]+)\(/i) { |
38 | my $pat = "trace_$4"; | |
39 | $pat .= '_tcg' if defined $2; | |
40 | open GREP, '-|', 'git', 'grep', '-lw', | |
41 | defined $3 ? () : ('--max-depth', '1'), | |
42 | $pat | |
f0c03c8c | 43 | or die "run git grep: $!"; |
a44cf524 | 44 | while (my $fname = <GREP>) { |
f0c03c8c MA |
45 | chomp $fname; |
46 | next if $seen{$fname} || $fname eq 'trace-events'; | |
47 | $seen{$fname} = 1; | |
f7dc89c3 | 48 | push @files, "# $fname\n"; |
f0c03c8c MA |
49 | } |
50 | unless (close GREP) { | |
51 | die "close git grep: $!" | |
52 | if $!; | |
53 | next; | |
54 | } | |
55 | } elsif (/^# ([^ ]*\.[ch])$/) { | |
56 | out; | |
57 | next; | |
58 | } elsif (!/^#|^$/) { | |
59 | warn "unintelligible line"; | |
60 | } | |
f7dc89c3 | 61 | $events .= $_; |
f0c03c8c MA |
62 | } |
63 | ||
64 | out; | |
a44cf524 | 65 | close(IN) or die "close $in: $!"; |