summaryrefslogblamecommitdiffstats
path: root/scripts/cleanup-trace-events.pl
blob: c40d2fcc5016d6acd2caa7f7a8677220fac2ca65 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
                   













                                                                    
                   
 

                


              



                      


               






                                    





                                                       
                                      
                                    


                                                              
                                      











                                    
                  


    
                                 
#!/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 @files = ();
my $events = '';
my %seen = ();

sub out {
    print sort @files;
    print $events;
    @files = ();
    $events = '';
    %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_$4";
        $pat .= '_tcg' if defined $2;
        open GREP, '-|', 'git', 'grep', '-lw',
	    defined $3 ? () : ('--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;
            push @files, "# $fname\n";
        }
        unless (close GREP) {
            die "close git grep: $!"
                if $!;
            next;
        }
    } elsif (/^# ([^ ]*\.[ch])$/) {
        out;
        next;
    } elsif (!/^#|^$/) {
        warn "unintelligible line";
    }
    $events .= $_;
}

out;
close(IN) or die "close $in: $!";