OpenE2K/qemu-e2k
13
4
Fork 0
Code Issues 4 Pull Requests Projects 2 Releases Activity

scripts/cleanup-trace-events: Emit files in alphabetical order

Browse Source 
Signed-off-by: Markus Armbruster <armbru@redhat.com>
Message-id: 20200806141334.3646302-3-armbru@redhat.com
Signed-off-by: Stefan Hajnoczi <stefanha@redhat.com>
This commit is contained in:
Markus Armbruster 2020-08-06 16:13:32 +02:00 committed by Stefan Hajnoczi
parent 164e7dd73c
commit f7dc89c35d
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/cleanup-trace-events.pl
View File

@ -15,12 +15,15 @@ use warnings;
use strict; use strict;
use File::Basename; use File::Basename;
my $buf = ''; my @files = ();
my $events = '';
my %seen = (); my %seen = ();
sub out { sub out {
print $buf; print sort @files;
$buf = ''; print $events;
@files = ();
$events = '';
%seen = (); %seen = ();
} }
@ -42,7 +45,7 @@ while (<IN>) {
chomp $fname; chomp $fname;
next if $seen{$fname} || $fname eq 'trace-events'; next if $seen{$fname} || $fname eq 'trace-events';
$seen{$fname} = 1; $seen{$fname} = 1;
$buf = "# $fname\n" . $buf; push @files, "# $fname\n";
} }
unless (close GREP) { unless (close GREP) {
die "close git grep: $!" die "close git grep: $!"
@ -55,7 +58,7 @@ while (<IN>) {
} elsif (!/^#|^$/) { } elsif (!/^#|^$/) {
warn "unintelligible line"; warn "unintelligible line";
} }
$buf .= $_; $events .= $_;
} }
out; out;