|
Packit |
6c4009 |
#! @BASH@
|
|
Packit |
6c4009 |
# Copyright (C) 1999-2018 Free Software Foundation, Inc.
|
|
Packit |
6c4009 |
# This file is part of the GNU C Library.
|
|
Packit |
6c4009 |
# Contributed by Ulrich Drepper <drepper@gnu.org>, 1999.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# The GNU C Library is free software; you can redistribute it and/or
|
|
Packit |
6c4009 |
# modify it under the terms of the GNU Lesser General Public
|
|
Packit |
6c4009 |
# License as published by the Free Software Foundation; either
|
|
Packit |
6c4009 |
# version 2.1 of the License, or (at your option) any later version.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# The GNU C Library is distributed in the hope that it will be useful,
|
|
Packit |
6c4009 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
6c4009 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
6c4009 |
# Lesser General Public License for more details.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# You should have received a copy of the GNU Lesser General Public
|
|
Packit |
6c4009 |
# License along with the GNU C Library; if not, see
|
|
Packit |
6c4009 |
# <http://www.gnu.org/licenses/>.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
pcprofileso='@SLIBDIR@/libpcprofile.so'
|
|
Packit |
6c4009 |
pcprofiledump='@BINDIR@/pcprofiledump'
|
|
Packit |
6c4009 |
TEXTDOMAIN=libc
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Print usage message.
|
|
Packit |
6c4009 |
do_usage() {
|
|
Packit |
6c4009 |
printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n"
|
|
Packit |
6c4009 |
exit 0
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Refer to --help option.
|
|
Packit |
6c4009 |
help_info() {
|
|
Packit |
6c4009 |
printf >&2 $"Try \`%s --help' or \`%s --usage' for more information.\n" xtrace xtrace
|
|
Packit |
6c4009 |
exit 1
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Message for missing argument.
|
|
Packit |
6c4009 |
do_missing_arg() {
|
|
Packit |
6c4009 |
printf >&2 $"%s: option '%s' requires an argument.\n" xtrace "$1"
|
|
Packit |
6c4009 |
help_info
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Print help message
|
|
Packit |
6c4009 |
do_help() {
|
|
Packit |
6c4009 |
printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n"
|
|
Packit |
6c4009 |
printf $"Trace execution of program by printing currently executed function.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
--data=FILE Don't run the program, just print the data from FILE.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
-?,--help Print this help and exit
|
|
Packit |
6c4009 |
--usage Give a short usage message
|
|
Packit |
6c4009 |
-V,--version Print version information and exit
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
Mandatory arguments to long options are also mandatory for any corresponding
|
|
Packit |
6c4009 |
short options.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
"
|
|
Packit |
6c4009 |
printf $"For bug reporting instructions, please see:\\n%s.\\n" \
|
|
Packit |
6c4009 |
"@REPORT_BUGS_TO@"
|
|
Packit |
6c4009 |
exit 0
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
do_version() {
|
|
Packit |
6c4009 |
echo 'xtrace @PKGVERSION@@VERSION@'
|
|
Packit |
6c4009 |
printf $"Copyright (C) %s Free Software Foundation, Inc.
|
|
Packit |
6c4009 |
This is free software; see the source for copying conditions. There is NO
|
|
Packit |
6c4009 |
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
Packit |
6c4009 |
" "2018"
|
|
Packit |
6c4009 |
printf $"Written by %s.
|
|
Packit |
6c4009 |
" "Ulrich Drepper"
|
|
Packit |
6c4009 |
exit 0
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Print out function name, file, and line number in a nicely formatted way.
|
|
Packit |
6c4009 |
format_line() {
|
|
Packit |
6c4009 |
fct=$1
|
|
Packit |
6c4009 |
file=${2%%:*}
|
|
Packit |
6c4009 |
line=${2##*:}
|
|
Packit |
6c4009 |
width=$(expr $COLUMNS - 30)
|
|
Packit |
6c4009 |
filelen=$(expr length $file)
|
|
Packit |
6c4009 |
if test "$filelen" -gt "$width"; then
|
|
Packit |
6c4009 |
rwidth=$(expr $width - 3)
|
|
Packit |
6c4009 |
file="...$(expr substr $file $(expr 1 + $filelen - $rwidth) $rwidth)"
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
printf '%-20s %-*s %6s\n' $fct $width $file $line
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# If the variable COLUMNS is not set do this now.
|
|
Packit |
6c4009 |
COLUMNS=${COLUMNS:-80}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# If `TERMINAL_PROG' is not set, set it to `xterm'.
|
|
Packit |
6c4009 |
TERMINAL_PROG=${TERMINAL_PROG:-xterm}
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# The data file to process, if any.
|
|
Packit |
6c4009 |
data=
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Process arguments. But stop as soon as the program name is found.
|
|
Packit |
6c4009 |
while test $# -gt 0; do
|
|
Packit |
6c4009 |
case "$1" in
|
|
Packit |
6c4009 |
--d | --da | --dat | --data)
|
|
Packit |
6c4009 |
if test $# -eq 1; then
|
|
Packit |
6c4009 |
do_missing_arg $1
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
shift
|
|
Packit |
6c4009 |
data="$1"
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
--d=* | --da=* | --dat=* | --data=*)
|
|
Packit |
6c4009 |
data=${1##*=}
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
-\? | --h | --he | --hel | --help)
|
|
Packit |
6c4009 |
do_help
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
-V | --v | --ve | --ver | --vers | --versi | --versio | --version)
|
|
Packit |
6c4009 |
do_version
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
--u | --us | --usa | --usag | --usage)
|
|
Packit |
6c4009 |
do_usage
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
--)
|
|
Packit |
6c4009 |
# Stop processing arguments.
|
|
Packit |
6c4009 |
shift
|
|
Packit |
6c4009 |
break
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
--*)
|
|
Packit |
6c4009 |
printf >&2 $"xtrace: unrecognized option \`$1'\n"
|
|
Packit |
6c4009 |
help_info
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
*)
|
|
Packit |
6c4009 |
# Unknown option. This means the rest is the program name and parameters.
|
|
Packit |
6c4009 |
break
|
|
Packit |
6c4009 |
;;
|
|
Packit |
6c4009 |
esac
|
|
Packit |
6c4009 |
shift
|
|
Packit |
6c4009 |
done
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# See whether any arguments are left.
|
|
Packit |
6c4009 |
if test $# -eq 0; then
|
|
Packit |
6c4009 |
printf >&2 $"No program name given\n"
|
|
Packit |
6c4009 |
help_info
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Determine the program name and check whether it exists.
|
|
Packit |
6c4009 |
program=$1
|
|
Packit |
6c4009 |
shift
|
|
Packit |
6c4009 |
if test ! -f "$program"; then
|
|
Packit |
6c4009 |
printf >&2 $"executable \`$program' not found\n"
|
|
Packit |
6c4009 |
help_info
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
if test ! -x "$program"; then
|
|
Packit |
6c4009 |
printf >&2 $"\`$program' is no executable\n"
|
|
Packit |
6c4009 |
help_info
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# We have two modes. If a data file is given simply print the included data.
|
|
Packit |
6c4009 |
printf "%-20s %-*s %6s\n" Function $(expr $COLUMNS - 30) File Line
|
|
Packit |
6c4009 |
for i in $(seq 1 $COLUMNS); do printf -; done; printf '\n'
|
|
Packit |
6c4009 |
if test -n "$data"; then
|
|
Packit |
6c4009 |
$pcprofiledump "$data" |
|
|
Packit |
6c4009 |
sed 's/this = \([^,]*\).*/\1/' |
|
|
Packit |
6c4009 |
addr2line -fC -e "$program" |
|
|
Packit |
6c4009 |
while read fct; do
|
|
Packit |
6c4009 |
read file
|
|
Packit |
6c4009 |
if test "$fct" != '??' -a "$file" != '??:0'; then
|
|
Packit |
6c4009 |
format_line "$fct" "$file"
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
done
|
|
Packit |
6c4009 |
else
|
|
Packit |
6c4009 |
fifo=$(mktemp -ut xtrace.XXXXXX) || exit
|
|
Packit |
6c4009 |
trap 'rm -f "$fifo"; exit 1' HUP INT QUIT TERM PIPE
|
|
Packit |
6c4009 |
mkfifo -m 0600 $fifo || exit 1
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
# Now start the program and let it write to the FIFO.
|
|
Packit |
6c4009 |
$TERMINAL_PROG -T "xtrace - $program $*" -e /bin/sh -c "LD_PRELOAD=$pcprofileso PCPROFILE_OUTPUT=$fifo $program $*; read < $fifo" &
|
|
Packit |
6c4009 |
termpid=$!
|
|
Packit |
6c4009 |
$pcprofiledump -u "$fifo" |
|
|
Packit |
6c4009 |
while read line; do
|
|
Packit |
6c4009 |
echo "$line" |
|
|
Packit |
6c4009 |
sed 's/this = \([^,]*\).*/\1/' |
|
|
Packit |
6c4009 |
addr2line -fC -e "$program"
|
|
Packit |
6c4009 |
done |
|
|
Packit |
6c4009 |
while read fct; do
|
|
Packit |
6c4009 |
read file
|
|
Packit |
6c4009 |
if test "$fct" != '??' -a "$file" != '??:0'; then
|
|
Packit |
6c4009 |
format_line "$fct" "$file"
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
done
|
|
Packit |
6c4009 |
read -p "Press return here to close $TERMINAL_PROG($program)."
|
|
Packit |
6c4009 |
echo > "$fifo"
|
|
Packit |
6c4009 |
rm "$fifo"
|
|
Packit |
6c4009 |
fi
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
exit 0
|
|
Packit |
6c4009 |
# Local Variables:
|
|
Packit |
6c4009 |
# mode:ksh
|
|
Packit |
6c4009 |
# End:
|