1#!/usr/bin/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; 16 17my $buf = ''; 18my %seen = (); 19 20sub out { 21 print $buf; 22 $buf = ''; 23 %seen = (); 24} 25 26while (<>) { 27 if (/^(disable )?([a-z_0-9]+)\(/) { 28 open GREP, '-|', 'git', 'grep', '-l', "trace_$2" 29 or die "run git grep: $!"; 30 my $fname; 31 while ($fname = <GREP>) { 32 chomp $fname; 33 next if $seen{$fname} || $fname eq 'trace-events'; 34 $seen{$fname} = 1; 35 $buf = "# $fname\n" . $buf; 36 } 37 unless (close GREP) { 38 die "close git grep: $!" 39 if $!; 40 next; 41 } 42 } elsif (/^# ([^ ]*\.[ch])$/) { 43 out; 44 next; 45 } elsif (!/^#|^$/) { 46 warn "unintelligible line"; 47 } 48 $buf .= $_; 49} 50 51out; 52