diff options
Diffstat (limited to 'cddl/contrib/dtracetoolkit/Proc/dapptrace')
| -rwxr-xr-x | cddl/contrib/dtracetoolkit/Proc/dapptrace | 259 |
1 files changed, 259 insertions, 0 deletions
diff --git a/cddl/contrib/dtracetoolkit/Proc/dapptrace b/cddl/contrib/dtracetoolkit/Proc/dapptrace new file mode 100755 index 0000000..7dece4e --- /dev/null +++ b/cddl/contrib/dtracetoolkit/Proc/dapptrace @@ -0,0 +1,259 @@ +#!/usr/bin/sh +# +# dapptrace - trace user and library function usage. +# Written using DTrace (Solaris 10 3/05). +# +# The default output traces user functions as they are called. Options +# can be used to examine libraries and timestamps. +# +# $Id: dapptrace 65 2007-10-04 11:09:40Z brendan $ +# +# USAGE: dapptrace [-acdeFlhoU] [-u lib] { -p PID | command } +# +# -p PID # examine this PID +# -a # print all details +# -c # print call counts +# -d # print relative timestamps (us) +# -e # print elapsed times (us) +# -F # print flow indentation +# -l # print pid/lwpid per line +# -o # print on cpu times (us) +# -u lib # trace this library instead +# -U # trace all libraries + user functions +# -b bufsize # dynamic variable buf size (default is "4m") +# eg, +# dapptrace df -h # run and examine the "df -h" command +# dapptrace -p 1871 # examine PID 1871 +# dapptrace -Fp 1871 # print using flow indents +# dapptrace -eop 1871 # print elapsed and CPU times +# +# The elapsed times are interesting, to help identify calls that take +# some time to complete (during which the process may have context +# switched off the CPU). +# +# SEE ALSO: dappprof # DTraceToolkit +# dtruss # DTraceToolkit +# apptrace +# +# COPYRIGHT: Copyright (c) 2005 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. +# +# You can obtain a copy of the license at Docs/cddl1.txt +# or http://www.opensolaris.org/os/licensing. +# See the License for the specific language governing permissions +# and limitations under the License. +# +# CDDL HEADER END +# +# Author: Brendan Gregg [Sydney, Australia] +# +# 16-May-2005 Brendan Gregg Created this. +# 17-Jul-2005 " " Last update. +# + + +############################## +# --- Process Arguments --- +# + +### Default variables +opt_pid=0; pid=0; opt_indent=0; opt_lib=0; lib="" +opt_elapsed=0; opt_cpu=0; opt_counts=0; +opt_relative=0; opt_printid=0; opt_liball=0 +opt_command=0; command=""; opt_buf=0; buf="4m" + +### Process options +while getopts ab:cdeFhlop:u:U name +do + case $name in + a) opt_liball=1; opt_counts=1; opt_relative=1; opt_elapsed=1 + opt_indent=1; opt_printid=1; opt_cpu=1 ;; + b) opt_buf=1; buf=$OPTARG ;; + p) opt_pid=1; pid=$OPTARG ;; + u) opt_lib=1; lib=$OPTARG ;; + U) opt_liball=1 ;; + c) opt_counts=1 ;; + d) opt_relative=1 ;; + e) opt_elapsed=1 ;; + F) opt_indent=1 ;; + l) opt_printid=1 ;; + o) opt_cpu=1 ;; + h|?) cat <<-END >&2 + USAGE: dapptrace [-acdeholFLU] [-u lib] { -p PID | command } + + -p PID # examine this PID + -a # print all details + -c # print syscall counts + -d # print relative times (us) + -e # print elapsed times (us) + -F # print flow indentation + -l # print pid/lwpid + -o # print CPU on cpu times + -u lib # trace this library instead + -U # trace all libraries + user funcs + -b bufsize # dynamic variable buf size + eg, + dapptrace df -h # run and examine "df -h" + dapptrace -p 1871 # examine PID 1871 + dapptrace -Fp 1871 # print using flow indents + dapptrace -eop 1871 # print elapsed and CPU times + END + exit 1 + esac +done +shift `expr $OPTIND - 1` + +### Option logic +if [ $opt_pid -eq 0 ]; then + opt_command=1 + if [ "$*" = "" ]; then + $0 -h + exit + fi + command="$*" +fi + +### Probe logic +if [ $opt_liball -eq 1 ]; then + probe_entry='pid$target:::entry' + probe_return='pid$target:::return' +elif [ $opt_lib -eq 1 ]; then + probe_entry='pid$target:'$lib'::entry' + probe_return='pid$target:'$lib'::return' +else + probe_entry='pid$target:a.out::entry' + probe_return='pid$target:a.out::return' +fi + +################################# +# --- Main Program, DTrace --- +# + +### Define D Script +dtrace=' + #pragma D option quiet + + /* + * Command line arguments + */ + inline int OPT_command = '$opt_command'; + inline int OPT_liball = '$opt_liball'; + inline int OPT_indent = '$opt_indent'; + inline int OPT_printid = '$opt_printid'; + inline int OPT_relative = '$opt_relative'; + inline int OPT_elapsed = '$opt_elapsed'; + inline int OPT_cpu = '$opt_cpu'; + inline int OPT_counts = '$opt_counts'; + inline int OPT_pid = '$opt_pid'; + inline int PID = '$pid'; + inline string NAME = "'$pname'"; + + dtrace:::BEGIN + { + /* print header */ + OPT_printid ? printf("%-8s ","PID/LWP") : 1; + OPT_relative ? printf("%8s ","RELATIVE") : 1; + OPT_elapsed ? printf("%7s ","ELAPSD") : 1; + OPT_cpu ? printf("%6s ","CPU") : 1; + printf("CALL(args) \t\t = return\n"); + + /* indent depth */ + depth = 0; + } + + /* + * Save syscall entry info + */ + '$probe_entry' + { + /* set function depth */ + this->fdepth = ++fdepth[probefunc]; + depth += 2; + + /* set start details */ + self->start[probefunc,this->fdepth] = timestamp; + self->vstart[probefunc,this->fdepth] = vtimestamp; + + /* count occurances */ + OPT_counts && OPT_liball ? @Counts[probemod,probefunc] = count() : 1; + OPT_counts && ! OPT_liball ? @Counts[probefunc] = count() : 1; + + /* print optional fields */ + OPT_printid ? printf("%5d/%d: ",pid,tid) : 1; + OPT_relative ? printf("%8d ",vtimestamp/1000) : 1; + OPT_elapsed ? printf(" . ") : 1; + OPT_cpu ? printf(" . ") : 1; + OPT_indent ? printf("%*s",depth,"") : 1; + + /* print main data */ + printf("-> "); + OPT_liball ? printf("%s:",probemod) : 1; + printf("%s(0x%X, 0x%X, 0x%X)\t\t\n",probefunc,arg0,arg1,arg2); + + } + + /* + * Print return data + */ + /* print 3 arg output - default */ + '$probe_return' + /self->start[probefunc,fdepth[probefunc]]/ + { + /* fetch function depth */ + this->fdepth = fdepth[probefunc]; + + /* calculate elapsed time */ + this->elapsed = timestamp - self->start[probefunc,this->fdepth]; + self->start[probefunc,this->fdepth] = 0; + this->cpu = vtimestamp - self->vstart[probefunc,this->fdepth]; + self->vstart[probefunc,this->fdepth] = 0; + + /* print optional fields */ + OPT_printid ? printf("%5d/%d: ",pid,tid) : 1; + OPT_relative ? printf("%8d ",vtimestamp/1000) : 1; + OPT_elapsed ? printf("%7d ",this->elapsed/1000) : 1; + OPT_cpu ? printf("%6d ",this->cpu/1000) : 1; + OPT_indent ? printf("%*s",depth,"") : 1; + + /* print main data */ + printf("<- "); + OPT_liball ? printf("%s:",probemod) : 1; + printf("%s = %d\n",probefunc,(int)arg0); + depth -= 2; + fdepth[probefunc]--; + } + + /* reset indent depth */ + profile:::tick-1sec + { + /* + * some probes generated by the pid provider have entries + * but not returns. this is a klude to fix that problem. this + * also explains fdepth[probefunc] rather than a single depth. + */ + depth = 0; + } + + /* print counts */ + dtrace:::END + { + OPT_counts ? printf("\n%-49s %16s\n","CALL","COUNT") : 1; + OPT_counts && OPT_liball ? printa("%-16s %-32s %@16d\n",@Counts) : 1; + OPT_counts && ! OPT_liball ? printa("%-49s %@16d\n",@Counts) : 1; + } +' + +### Run DTrace +if [ $opt_command -eq 1 ]; then + /usr/sbin/dtrace -x dynvarsize=$buf -x evaltime=exec -n "$dtrace" \ + -c "$command" >&2 +else + /usr/sbin/dtrace -x dynvarsize=$buf -n "$dtrace" -p "$pid" >&2 +fi + |
