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