motorhead/qemu
1
0
Fork 0
mirror of https://github.com/Motorhead1991/qemu.git synced 2025-08-02 23:33:54 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge remote-tracking branch 'stefanha/tracing' into staging

Browse source 
# By Markus Armbruster
# Via Stefan Hajnoczi
* stefanha/tracing:
  trace-events: Fix up source file comments
  trace-events: Drop unused events
  milkymist-minimac2: Fix minimac2_read/_write tracepoints
  slavio_misc: Fix slavio_led_mem_readw/_writew tracepoints
  cleanup-trace-events.pl: New

Message-id: 1374119369-26496-1-git-send-email-stefanha@redhat.com
Signed-off-by: Anthony Liguori <aliguori@us.ibm.com>
This commit is contained in:
Anthony Liguori 2013-07-22 10:13:15 -05:00
commit 90c66f587c
4 changed files with 140 additions and 91 deletions
Download patch file Download diff file Expand all files Collapse all files

51
scripts/cleanup-trace-events.pl Executable file
View file

@ -0,0 +1,51 @@
#!/usr/bin/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;
my $buf = '';
my %seen = ();
sub out {
print $buf;
$buf = '';
%seen = ();
}
while (<>) {
if (/^(disable )?([a-z_0-9]+)\(/) {
open GREP, '-|', 'git', 'grep', '-l', "trace_$2"
or die "run git grep: $!";
my $fname;
while ($fname = <GREP>) {
chomp $fname;
next if $seen{$fname} || $fname eq 'trace-events';
$seen{$fname} = 1;
$buf = "# $fname\n" . $buf;
}
unless (close GREP) {
die "close git grep: $!"
if $!;
next;
}
} elsif (/^# ([^ ]*\.[ch])$/) {
out;
next;
} elsif (!/^#|^$/) {
warn "unintelligible line";
}
$buf .= $_;
}
out;