| # Copyright (C) 2013 Red Hat, Inc. |
| # Markus Armbruster <armbru@redhat.com> |
| # This work is licensed under the terms of the GNU GPL, version 2 or |
| # later. See the COPYING file in the top-level directory. |
| # Usage: cleanup-trace-events.pl trace-events |
| # Print cleaned up trace-events to standard output. |
| $#ARGV == 0 or die "usage: $0 FILE"; |
| open(IN, $in) or die "open $in: $!"; |
| chdir($dir) or die "chdir $dir: $!"; |
| if (/^(disable |(tcg) |vcpu )*([a-z_0-9]+)\(/i) { |
| $pat .= '_tcg' if (defined $2); |
| open GREP, '-|', 'git', 'grep', '-lw', '--max-depth', '1', $pat |
| or die "run git grep: $!"; |
| while (my $fname = <GREP>) { |
| next if $seen{$fname} || $fname eq 'trace-events'; |
| $buf = "# $fname\n" . $buf; |
| } elsif (/^# ([^ ]*\.[ch])$/) { |
| warn "unintelligible line"; |
| close(IN) or die "close $in: $!"; |