fuzz: use qemu_get_exec_dir
[qemu.git] / scripts / cleanup-trace-events.pl
1 #!/usr/bin/env perl
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;
16 use File::Basename;
17
18 my @files = ();
19 my $events = '';
20 my %seen = ();
21
22 sub out {
23 print sort @files;
24 print $events;
25 @files = ();
26 $events = '';
27 %seen = ();
28 }
29
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>) {
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
43 or die "run git grep: $!";
44 while (my $fname = <GREP>) {
45 chomp $fname;
46 next if $seen{$fname} || $fname eq 'trace-events';
47 $seen{$fname} = 1;
48 push @files, "# $fname\n";
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 }
61 $events .= $_;
62 }
63
64 out;
65 close(IN) or die "close $in: $!";