perf script: Finish the rename from trace to script
The scripts have calls to 'perf trace' that need to be converted to 'perf script', do it.
This problem was introduced in 133dc4c.
Reported-by: Torok Edwin <edwintorok@gmail.com>
Cc: Frederic Weisbecker <fweisbec@gmail.com>
Cc: Ingo Molnar <mingo@elte.hu>
Cc: Mike Galbraith <efault@gmx.de>
Cc: Paul Mackerras <paulus@samba.org>
Cc: Peter Zijlstra <peterz@infradead.org>
Cc: Stephane Eranian <eranian@google.com>
Cc: Tom Zanussi <tzanussi@gmail.com>
Cc: Torok Edwin <edwintorok@gmail.com>
LKML-Reference: <new-submission>
Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>
	
	
This commit is contained in:
		
					parent
					
						
							
								104db7ff1d
							
						
					
				
			
			
				commit
				
					
						765532c8aa
					
				
			
		
					 31 changed files with 35 additions and 51 deletions
				
			
		| 
						 | 
				
			
			@ -8,7 +8,7 @@
 | 
			
		|||
 | 
			
		||||
#line 1 "Context.xs"
 | 
			
		||||
/*
 | 
			
		||||
 * Context.xs.  XS interfaces for perf trace.
 | 
			
		||||
 * Context.xs.  XS interfaces for perf script.
 | 
			
		||||
 *
 | 
			
		||||
 * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com>
 | 
			
		||||
 *
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
/*
 | 
			
		||||
 * Context.xs.  XS interfaces for perf trace.
 | 
			
		||||
 * Context.xs.  XS interfaces for perf script.
 | 
			
		||||
 *
 | 
			
		||||
 * Copyright (C) 2009 Tom Zanussi <tzanussi@gmail.com>
 | 
			
		||||
 *
 | 
			
		||||
| 
						 | 
				
			
			@ -23,7 +23,7 @@
 | 
			
		|||
#include "perl.h"
 | 
			
		||||
#include "XSUB.h"
 | 
			
		||||
#include "../../../perf.h"
 | 
			
		||||
#include "../../../util/trace-event.h"
 | 
			
		||||
#include "../../../util/script-event.h"
 | 
			
		||||
 | 
			
		||||
MODULE = Perf::Trace::Context		PACKAGE = Perf::Trace::Context
 | 
			
		||||
PROTOTYPES: ENABLE
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,7 +1,7 @@
 | 
			
		|||
Perf-Trace-Util version 0.01
 | 
			
		||||
============================
 | 
			
		||||
 | 
			
		||||
This module contains utility functions for use with perf trace.
 | 
			
		||||
This module contains utility functions for use with perf script.
 | 
			
		||||
 | 
			
		||||
Core.pm and Util.pm are pure Perl modules; Core.pm contains routines
 | 
			
		||||
that the core perf support for Perl calls on and should always be
 | 
			
		||||
| 
						 | 
				
			
			@ -33,7 +33,7 @@ After you do that:
 | 
			
		|||
 | 
			
		||||
INSTALLATION
 | 
			
		||||
 | 
			
		||||
Building perf with perf trace Perl scripting should install this
 | 
			
		||||
Building perf with perf script Perl scripting should install this
 | 
			
		||||
module in the right place.
 | 
			
		||||
 | 
			
		||||
You should make sure libperl and ExtUtils/Embed.pm are installed first
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -34,7 +34,7 @@ Perf::Trace::Context - Perl extension for accessing functions in perf.
 | 
			
		|||
 | 
			
		||||
=head1 SEE ALSO
 | 
			
		||||
 | 
			
		||||
Perf (trace) documentation
 | 
			
		||||
Perf (script) documentation
 | 
			
		||||
 | 
			
		||||
=head1 AUTHOR
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -163,7 +163,7 @@ sub dump_symbolic_fields
 | 
			
		|||
__END__
 | 
			
		||||
=head1 NAME
 | 
			
		||||
 | 
			
		||||
Perf::Trace::Core - Perl extension for perf trace
 | 
			
		||||
Perf::Trace::Core - Perl extension for perf script
 | 
			
		||||
 | 
			
		||||
=head1 SYNOPSIS
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -171,7 +171,7 @@ Perf::Trace::Core - Perl extension for perf trace
 | 
			
		|||
 | 
			
		||||
=head1 SEE ALSO
 | 
			
		||||
 | 
			
		||||
Perf (trace) documentation
 | 
			
		||||
Perf (script) documentation
 | 
			
		||||
 | 
			
		||||
=head1 AUTHOR
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -65,7 +65,7 @@ sub clear_term
 | 
			
		|||
__END__
 | 
			
		||||
=head1 NAME
 | 
			
		||||
 | 
			
		||||
Perf::Trace::Util - Perl extension for perf trace
 | 
			
		||||
Perf::Trace::Util - Perl extension for perf script
 | 
			
		||||
 | 
			
		||||
=head1 SYNOPSIS
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -73,7 +73,7 @@ Perf::Trace::Util - Perl extension for perf trace
 | 
			
		|||
 | 
			
		||||
=head1 SEE ALSO
 | 
			
		||||
 | 
			
		||||
Perf (trace) documentation
 | 
			
		||||
Perf (script) documentation
 | 
			
		||||
 | 
			
		||||
=head1 AUTHOR
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -7,4 +7,4 @@ if [ $# -gt 0 ] ; then
 | 
			
		|||
	shift
 | 
			
		||||
    fi
 | 
			
		||||
fi
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/failed-syscalls.pl $comm
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/failed-syscalls.pl $comm
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -7,7 +7,4 @@ if [ $# -lt 1 ] ; then
 | 
			
		|||
fi
 | 
			
		||||
comm=$1
 | 
			
		||||
shift
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/rw-by-file.pl $comm
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rw-by-file.pl $comm
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,6 +1,3 @@
 | 
			
		|||
#!/bin/bash
 | 
			
		||||
# description: system-wide r/w activity
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/rw-by-pid.pl
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rw-by-pid.pl
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -17,7 +17,4 @@ if [ "$n_args" -gt 0 ] ; then
 | 
			
		|||
    interval=$1
 | 
			
		||||
    shift
 | 
			
		||||
fi
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,6 +1,3 @@
 | 
			
		|||
#!/bin/bash
 | 
			
		||||
# description: system-wide min/max/avg wakeup latency
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/wakeup-latency.pl
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/wakeup-latency.pl
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,7 +1,3 @@
 | 
			
		|||
#!/bin/bash
 | 
			
		||||
# description: workqueue stats (ins/exe/create/destroy)
 | 
			
		||||
perf trace $@ -s "$PERF_EXEC_PATH"/scripts/perl/workqueue-stats.pl
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/workqueue-stats.pl
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,4 +1,4 @@
 | 
			
		|||
# perf trace event handlers, generated by perf trace -g perl
 | 
			
		||||
# perf script event handlers, generated by perf script -g perl
 | 
			
		||||
# (c) 2009, Tom Zanussi <tzanussi@gmail.com>
 | 
			
		||||
# Licensed under the terms of the GNU GPL License version 2
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -18,7 +18,7 @@ use lib "./Perf-Trace-Util/lib";
 | 
			
		|||
use Perf::Trace::Core;
 | 
			
		||||
use Perf::Trace::Util;
 | 
			
		||||
 | 
			
		||||
my $usage = "perf trace -s rw-by-file.pl <comm>\n";
 | 
			
		||||
my $usage = "perf script -s rw-by-file.pl <comm>\n";
 | 
			
		||||
 | 
			
		||||
my $for_comm = shift or die $usage;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -10,7 +10,7 @@
 | 
			
		|||
#     workqueue:workqueue_destruction -e workqueue:workqueue_execution
 | 
			
		||||
#     -e workqueue:workqueue_insertion
 | 
			
		||||
#
 | 
			
		||||
#   perf trace -p -s tools/perf/scripts/perl/workqueue-stats.pl
 | 
			
		||||
#   perf script -p -s tools/perf/scripts/perl/workqueue-stats.pl
 | 
			
		||||
 | 
			
		||||
use 5.010000;
 | 
			
		||||
use strict;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue