blob: d4f0e4cab53019e56f86b92c97e0e081ddb8a216 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#!/usr/bin/env perl
# Copyright (C) 2013 Red Hat, Inc.
#
# Authors:
# 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.
use warnings;
use strict;
use File::Basename;
my $buf = '';
my %seen = ();
sub out {
print $buf;
$buf = '';
%seen = ();
}
$#ARGV == 0 or die "usage: $0 FILE";
my $in = $ARGV[0];
my $dir = dirname($in);
open(IN, $in) or die "open $in: $!";
chdir($dir) or die "chdir $dir: $!";
while (<IN>) {
if (/^(disable |(tcg) |vcpu )*([a-z_0-9]+)\(/i) {
my $pat = "trace_$3";
$pat .= '_tcg' if (defined $2);
open GREP, '-|', 'git', 'grep', '-lw', '--max-depth', '1', $pat
or die "run git grep: $!";
while (my $fname = <GREP>) {
chomp $fname;
next if $seen{$fname} || $fname eq 'trace-events';
$seen{$fname} = 1;
$buf = "# $fname\n" . $buf;
}
unless (close GREP) {
die "close git grep: $!"
if $!;
next;
}
} elsif (/^# ([^ ]*\.[ch])$/) {
out;
next;
} elsif (!/^#|^$/) {
warn "unintelligible line";
}
$buf .= $_;
}
out;
close(IN) or die "close $in: $!";
|
