| # 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. |
| if (/^(disable )?([a-z_0-9]+)\(/) { |
| open GREP, '-|', 'git', 'grep', '-lw', "trace_$2" |
| or die "run git grep: $!"; |
| while ($fname = <GREP>) { |
| next if $seen{$fname} || $fname eq 'trace-events'; |
| $buf = "# $fname\n" . $buf; |
| } elsif (/^# ([^ ]*\.[ch])$/) { |
| warn "unintelligible line"; |