summaryrefslogtreecommitdiffstats
path: root/qemu/scripts/cleanup-trace-events.pl
diff options
context:
space:
mode:
authorRajithaY <rajithax.yerrumsetty@intel.com>2017-04-25 03:31:15 -0700
committerRajitha Yerrumchetty <rajithax.yerrumsetty@intel.com>2017-05-22 06:48:08 +0000
commitbb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch)
treeca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/scripts/cleanup-trace-events.pl
parenta14b48d18a9ed03ec191cf16b162206998a895ce (diff)
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to kvmfornfv repo and make use of the updated latest qemu for the execution of all testcase Change-Id: I1280af507a857675c7f81d30c95255635667bdd7 Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/scripts/cleanup-trace-events.pl')
-rwxr-xr-xqemu/scripts/cleanup-trace-events.pl51
1 files changed, 0 insertions, 51 deletions
diff --git a/qemu/scripts/cleanup-trace-events.pl b/qemu/scripts/cleanup-trace-events.pl
deleted file mode 100755
index 7e808efb6..000000000
--- a/qemu/scripts/cleanup-trace-events.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/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', '-lw', "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;