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
14use warnings;
15use strict;
16use File::Basename;
17
18my @files = ();
19my $events = '';
20my %seen = ();
21
22sub out {
23    print sort @files;
24    print $events;
25    @files = ();
26    $events = '';
27    %seen = ();
28}
29
30$#ARGV == 0 or die "usage: $0 FILE";
31my $in = $ARGV[0];
32my $dir = dirname($in);
33open(IN, $in) or die "open $in: $!";
34chdir($dir) or die "chdir $dir: $!";
35
36while (<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
64out;
65close(IN) or die "close $in: $!";
66