diff options
Diffstat (limited to 'debug/xtrace.sh')
| -rwxr-xr-x | debug/xtrace.sh | 168 |
1 files changed, 168 insertions, 0 deletions
diff --git a/debug/xtrace.sh b/debug/xtrace.sh new file mode 100755 index 0000000000..c688391ff1 --- /dev/null +++ b/debug/xtrace.sh @@ -0,0 +1,168 @@ +#! @BASH@ +# Copyright (C) 1999 Free Software Foundation, Inc. +# This file is part of the GNU C Library. +# Contributed by Ulrich Drepper <drepper@gnu.org>, 1999. + +# The GNU C Library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Library General Public License as +# published by the Free Software Foundation; either version 2 of the +# License, or (at your option) any later version. + +# The GNU C Library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Library General Public License for more details. + +# You should have received a copy of the GNU Library General Public +# License along with the GNU C Library; see the file COPYING.LIB. If not, +# write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. + +pcprofileso=@LIBDIR@/libpcprofile.so +pcprofiledump=@BINDIR@/pcprofiledump + +# Print usage message. +do_usage() { + echo >&2 $"Try \`xtrace --help' for more information." + exit 1 +} + +# Message for missing argument. +do_missing_arg() { + echo >&2 $"xtrace: option \`$1' requires an argument" + do_usage +} + +# Print help message +do_help() { + echo $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]... +Trace execution of program by printing currently executed function. + + --data=FILE Don't run the program, just print the data from FILE. + + -?,--help Print this help and exit + --usage Give a short usage message + -V,--version Print version information and exit + +Mandatory arguments to long options are also mandatory for any corresponding +short options. + +Report bugs using the \`glibcbug' script to <bugs@gnu.org>." + exit 0 +} + +do_version() { + echo 'xtrace (GNU libc) @VERSION@' + echo $"Copyright (C) 1999 Free Software Foundation, Inc. +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +Written by Ulrich Drepper." + exit 0 +} + +# Print out function name, file, and line number is a nice formatted way. +format_line() { + fct=$1 + file=${2%%:*} + line=${2##*:} + width=$(expr $COLUMNS - 30) + filelen=$(expr length $file) + if test "$filelen" -gt "$width"; then + rwidth=$(expr $width - 3) + file="...$(expr substr $file $(expr 1 + $filelen - $rwidth) $rwidth)" + fi + printf '%-20s %-*s %6s\n' $fct $width $file $line +} + + +# If the variable COLUMNS is not set do this now. +COLUMNS=${COLUMNS:-80} + +# If `TERM' is not set, set it to `xterm'. +TERM=${TERM:-xterm} + +# Process arguments. But stop as soon as the program name is found. +while test $# -gt 0; do + case "$1" in + --d | --da | --dat | --data) + if test $# -eq 1; then + do_missing_arg $1 + fi + shift + data="$1" + ;; + --d=* | --da=* | --dat=* | --data=*) + data=${1##*=} + ;; + --) + # Stop processing arguments. + shift + break + ;; + --*) + echo >&2 $"memprof: unrecognized option \`$1'" + do_usage + ;; + *) + # Unknown option. This means the rest is the program name and parameters. + break + ;; + esac + shift +done + +# See whether any arguments are left. +if test $# -eq 0; then + echo >&2 $"No program name given" + do_usage +fi + +# Determine the program name and check whether it exists. +program=$1 +shift +if test ! -f "$program"; then + echo >2& $"\executable \`$program' not found" + do_usage +fi +if test ! -x "$program"; then + echo >&2 $"\`$program' is no executable" + do_usage +fi + +# We have two modes. If a data file is given simply print the included data. +printf "%-20s %-*s %6s\n" Function $(expr $COLUMNS - 30) File Line +for i in $(seq 1 $COLUMNS); do echo -n -; done; echo +if test -n "$data"; then + eval $pcprofiledump $data | + sed 's/this = \([^,]*\).*/\1/' | + addr2line -fC -e $program | + while read fct; do + read file + if test "$fct" != '??' -a "$file" != '??:0'; then + format_line $fct $file + fi + done +else + fifo=$(mktemp -u ${TMPDIR:-/tmp}/xprof.XXXXXX) + mkfifo -m 0600 $fifo || exit 1 + # Now start the program and let it write to the FIFO. + eval $TERM -T "'xtrace - $program $*'" -e /bin/sh -c "'LD_PRELOAD=$pcprofileso PCPROFILE_OUTPUT=$fifo $program $*; read $fifo'" & + termpid=$! + eval $pcprofiledump $fifo | + sed 's/this = \([^,]*\).*/\1/' | + addr2line -fC -e $program | + while read fct; do + read file + if test "$fct" != '??' -a "$file" != '??:0'; then + format_line $fct $file + fi + done + read -p "Press return to end the program." + echo > $fifo + rm $fifo +fi + +exit 0 +# Local Variables: +# mode:ksh +# End: |