Current Path : /compat/linux/usr/share/doc/bash-3.2/scripts.v2/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //compat/linux/usr/share/doc/bash-3.2/scripts.v2/shprof |
#! /bin/bash # # shprof - a line profiler for shell scripts # # adapted from a similar program included in `The New KornShell' by # Bolsky and Korn and posted to usenet by bsh20858@challenger.fhda.edu # # converted to bash v2 syntax by Chet Ramey # TMPFILE=${TMP:-/tmp}/shprof$$ trap 'rm -f $TMPFILE' EXIT errexit() { echo $0: "$@" >&2 exit 1 } # create script with profiling enabled cat > $TMPFILE <<- \_EOF_ declare -a _line _profend() { case "$1" in /*|./*) file="$1" ;; *) file=$(type -path "$1") ;; esac echo "*** line profile for $file ***" i=1; while read -r && [ $i -le $NLINE ]; do count=${_line[$i]} if [ "$count" -gt 0 ]; then echo "[$count] $i: $REPLY" fi i=$((i + 1)) done <$file _EOF_ # make the profiling script remove itself after printing line stats echo "rm -f $TMPFILE" >> $TMPFILE cat >> $TMPFILE <<- \_EOF_ } _command=$1 shift i=1 NLINE=$(wc -l < "$_command") while [ $i -le $NLINE ]; do _line[$i]=0 i=$((i + 1)) done unset i trap "_profend ${_command}" EXIT trap '_line[$LINENO]=$((${_line[$LINENO]} + 1))' DEBUG LINENO=0 _EOF_ case "$1" in /*|./*) file=$1 ;; *) file=$((type -path "$1")) ;; esac cat "${file-$1}" >> $TMPFILE || errexit "${1}: cannot open" chmod +x $TMPFILE exec -a "$file" $TMPFILE "$@"