Commit a44cf524 authored by Markus Armbruster's avatar Markus Armbruster Committed by Stefan Hajnoczi
Browse files

scripts/cleanup-trace-events: Update for current practice 



Emit comments with shortened file names (previous commit).

Limit search to the input file's directory.

Cope with properties tcg (commit b2b36c22) and vcpu (commit
3d211d9f).

Cope with capital letters in function names.

Signed-off-by: default avatarMarkus Armbruster <armbru@redhat.com>
Message-id: 20190314180929.27722-4-armbru@redhat.com
Message-Id: <20190314180929.27722-4-armbru@redhat.com>
Signed-off-by: default avatarStefan Hajnoczi <stefanha@redhat.com>
parent 500016e5

scripts/cleanup-trace-events.pl

+14 −5
Original line number Diff line number Diff line
@@ -13,6 +13,7 @@ 


use warnings;

use strict;

use File::Basename;



my $buf = '';

my %seen = ();
@@ -23,12 +24,19 @@ sub out { 
    %seen = ();

}



while (<>) {

    if (/^(disable )?([a-z_0-9]+)\(/) {

        open GREP, '-|', 'git', 'grep', '-lw', "trace_$2"

$#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: $!";

        my $fname;

        while ($fname = <GREP>) {

        while (my $fname = <GREP>) {

            chomp $fname;

            next if $seen{$fname} || $fname eq 'trace-events';

            $seen{$fname} = 1;
@@ -49,3 +57,4 @@ while (<>) { 
}



out;

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