| #! @BASH@ |
| # Copyright (C) 1999-2014 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 Lesser General Public |
| # License as published by the Free Software Foundation; either |
| # version 2.1 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 |
| # Lesser General Public License for more details. |
| |
| # You should have received a copy of the GNU Lesser General Public |
| # License along with the GNU C Library; if not, see |
| # <http://www.gnu.org/licenses/>. |
| |
| pcprofileso='@SLIBDIR@/libpcprofile.so' |
| pcprofiledump='@BINDIR@/pcprofiledump' |
| TEXTDOMAIN=libc |
| |
| # Print usage message. |
| do_usage() { |
| printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n" |
| exit 0 |
| } |
| |
| # Refer to --help option. |
| help_info() { |
| printf >&2 $"Try \`%s --help' or \`%s --usage' for more information.\n" xtrace xtrace |
| exit 1 |
| } |
| |
| # Message for missing argument. |
| do_missing_arg() { |
| printf >&2 $"%s: option '%s' requires an argument.\n" xtrace "$1" |
| help_info |
| } |
| |
| # Print help message |
| do_help() { |
| printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n" |
| printf $"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. |
| |
| " |
| printf $"For bug reporting instructions, please see:\\n%s.\\n" \ |
| "@REPORT_BUGS_TO@" |
| exit 0 |
| } |
| |
| do_version() { |
| echo 'xtrace @PKGVERSION@@VERSION@' |
| printf $"Copyright (C) %s 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. |
| " "2014" |
| printf $"Written by %s. |
| " "Ulrich Drepper" |
| exit 0 |
| } |
| |
| # Print out function name, file, and line number in a nicely 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 `TERMINAL_PROG' is not set, set it to `xterm'. |
| TERMINAL_PROG=${TERMINAL_PROG:-xterm} |
| |
| # The data file to process, if any. |
| data= |
| |
| # 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##*=} |
| ;; |
| -\? | --h | --he | --hel | --help) |
| do_help |
| ;; |
| -V | --v | --ve | --ver | --vers | --versi | --versio | --version) |
| do_version |
| ;; |
| --u | --us | --usa | --usag | --usage) |
| do_usage |
| ;; |
| --) |
| # Stop processing arguments. |
| shift |
| break |
| ;; |
| --*) |
| printf >&2 $"xtrace: unrecognized option \`$1'\n" |
| help_info |
| ;; |
| *) |
| # 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 |
| printf >&2 $"No program name given\n" |
| help_info |
| fi |
| |
| # Determine the program name and check whether it exists. |
| program=$1 |
| shift |
| if test ! -f "$program"; then |
| printf >&2 $"executable \`$program' not found\n" |
| help_info |
| fi |
| if test ! -x "$program"; then |
| printf >&2 $"\`$program' is no executable\n" |
| help_info |
| 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 printf -; done; printf '\n' |
| if test -n "$data"; then |
| $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 -ut xtrace.XXXXXX) || exit |
| trap 'rm -f "$fifo"; exit 1' HUP INT QUIT TERM PIPE |
| mkfifo -m 0600 $fifo || exit 1 |
| |
| # Now start the program and let it write to the FIFO. |
| $TERMINAL_PROG -T "xtrace - $program $*" -e /bin/sh -c "LD_PRELOAD=$pcprofileso PCPROFILE_OUTPUT=$fifo $program $*; read < $fifo" & |
| termpid=$! |
| $pcprofiledump -u "$fifo" | |
| while read line; do |
| echo "$line" | |
| sed 's/this = \([^,]*\).*/\1/' | |
| addr2line -fC -e "$program" |
| done | |
| while read fct; do |
| read file |
| if test "$fct" != '??' -a "$file" != '??:0'; then |
| format_line "$fct" "$file" |
| fi |
| done |
| read -p "Press return here to close $TERMINAL_PROG($program)." |
| echo > "$fifo" |
| rm "$fifo" |
| fi |
| |
| exit 0 |
| # Local Variables: |
| # mode:ksh |
| # End: |