pl_syscolors.d revision 1
/*
* pl_syscolors.d - trace Perl subroutine flow plus syscalls, in color.
* Written for the Perl DTrace provider.
*
* $Id: pl_syscolors.d 27 2007-09-13 09:26:01Z brendan $
*
* USAGE: pl_syscolors.d { -p PID | -c cmd } # hit Ctrl-C to end
*
* This watches Perl subroutine entries and returns, and indents child
* subroutine calls.
*
* FIELDS:
* C CPU-id
* PID Process ID
* DELTA(us) Elapsed time from previous line to this line
* FILE Filename of the Perl program
* LINE Line number of filename
* NAME Perl subroutine or syscall name
*
* Filename and subroutine names are printed if available.
*
* WARNING: Watch the first column carefully, it prints the CPU-id. If it
* changes, then it is very likely that the output has been shuffled.
*
* COPYRIGHT: Copyright (c) 2007 Brendan Gregg.
*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* See the License for the specific language governing permissions
* and limitations under the License.
*
* CDDL HEADER END
*
* 09-Sep-2007 Brendan Gregg Created this.
*/
{
/*
* The following are terminal color escape sequences.
* Change them to whatever you prefer, eg HTML font tags.
*/
"FILE", "LINE", "TYPE", "NAME");
}
syscall:::return
{
}
{
}
{
}
{
}
syscall:::return
{
}
{
exit(0);
}