mirror of
https://github.com/adulau/aha.git
synced 2024-12-31 21:26:18 +00:00
d1b93772be
The Perl scripting support for perf trace allows most of a trace event's data to be accessed directly as handler arguments, but not all of it e.g. the less common fields aren't passed in. To give scripts access to the other fields and/or any other data or metadata in the main perf executable that might be useful, a way to access the C data in perf from Perl is needed; this patch uses the Perl XS facility to do it for the common_xxx event fields not passed to handler functions. Context.pm exports three functions to Perl scripts that access fields for the current event by calling back into perf: common_pc(), common_flags() and common_lock_depth(). Support for common_flags() field values was added to Core.pm and a script used to sanity check these and other basic scripting features, check-perf-trace.pl, was also added. Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: fweisbec@gmail.com Cc: rostedt@goodmis.org Cc: anton@samba.org Cc: hch@infradead.org LKML-Reference: <1259133352-23685-6-git-send-email-tzanussi@gmail.com> Signed-off-by: Ingo Molnar <mingo@elte.hu>
55 lines
1 KiB
Perl
55 lines
1 KiB
Perl
package Perf::Trace::Context;
|
|
|
|
use 5.010000;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require Exporter;
|
|
|
|
our @ISA = qw(Exporter);
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw(
|
|
) ] );
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
our @EXPORT = qw(
|
|
common_pc common_flags common_lock_depth
|
|
);
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
require XSLoader;
|
|
XSLoader::load('Perf::Trace::Context', $VERSION);
|
|
|
|
1;
|
|
__END__
|
|
=head1 NAME
|
|
|
|
Perf::Trace::Context - Perl extension for accessing functions in perf.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Perf::Trace::Context;
|
|
|
|
=head1 SEE ALSO
|
|
|
|
Perf (trace) documentation
|
|
|
|
=head1 AUTHOR
|
|
|
|
Tom Zanussi, E<lt>tzanussi@gmail.com<gt>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
Copyright (C) 2009 by Tom Zanussi
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the same terms as Perl itself, either Perl version 5.10.0 or,
|
|
at your option, any later version of Perl 5 you may have available.
|
|
|
|
Alternatively, this software may be distributed under the terms of the
|
|
GNU General Public License ("GPL") version 2 as published by the Free
|
|
Software Foundation.
|
|
|
|
=cut
|