Missing server address again leads to localhost being used
[glibc.git] / debug / xtrace.sh
blob3cf9b0c0f425f2c66ae4fa88d07dcca8e7e544d4
1 #! @BASH@
2 # Copyright (C) 1999, 2001-2008, 2009, 2010 Free Software Foundation, Inc.
3 # This file is part of the GNU C Library.
4 # Contributed by Ulrich Drepper <drepper@gnu.org>, 1999.
6 # The GNU C Library is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU Lesser General Public
8 # License as published by the Free Software Foundation; either
9 # version 2.1 of the License, or (at your option) any later version.
11 # The GNU C Library is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 # Lesser General Public License for more details.
16 # You should have received a copy of the GNU Lesser General Public
17 # License along with the GNU C Library; if not, write to the Free
18 # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 # 02111-1307 USA.
21 pcprofileso='@SLIBDIR@/libpcprofile.so'
22 pcprofiledump='@BINDIR@/pcprofiledump'
23 TEXTDOMAIN=libc
25 # Print usage message.
26 do_usage() {
27 printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n"
28 exit 0
31 # Refer to --help option.
32 help_info() {
33 printf >&2 $"Try \`xtrace --help' for more information.\n"
34 exit 1
37 # Message for missing argument.
38 do_missing_arg() {
39 printf >&2 $"xtrace: option \`$1' requires an argument.\n"
40 help_info
43 # Print help message
44 do_help() {
45 printf $"Usage: xtrace [OPTION]... PROGRAM [PROGRAMOPTION]...\n"
46 printf $"Trace execution of program by printing currently executed function.
48 --data=FILE Don't run the program, just print the data from FILE.
50 -?,--help Print this help and exit
51 --usage Give a short usage message
52 -V,--version Print version information and exit
54 Mandatory arguments to long options are also mandatory for any corresponding
55 short options.
58 echo $"For bug reporting instructions, please see:
59 <http://www.gnu.org/software/libc/bugs.html>.
61 exit 0
64 do_version() {
65 echo 'xtrace (GNU libc) @VERSION@'
66 printf $"Copyright (C) %s Free Software Foundation, Inc.
67 This is free software; see the source for copying conditions. There is NO
68 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
69 " "2010"
70 printf $"Written by %s.
71 " "Ulrich Drepper"
72 exit 0
75 # Print out function name, file, and line number in a nicely formatted way.
76 format_line() {
77 fct=$1
78 file=${2%%:*}
79 line=${2##*:}
80 width=$(expr $COLUMNS - 30)
81 filelen=$(expr length $file)
82 if test "$filelen" -gt "$width"; then
83 rwidth=$(expr $width - 3)
84 file="...$(expr substr $file $(expr 1 + $filelen - $rwidth) $rwidth)"
86 printf '%-20s %-*s %6s\n' $fct $width $file $line
90 # If the variable COLUMNS is not set do this now.
91 COLUMNS=${COLUMNS:-80}
93 # If `TERMINAL_PROG' is not set, set it to `xterm'.
94 TERMINAL_PROG=${TERMINAL_PROG:-xterm}
96 # The data file to process, if any.
97 data=
99 # Process arguments. But stop as soon as the program name is found.
100 while test $# -gt 0; do
101 case "$1" in
102 --d | --da | --dat | --data)
103 if test $# -eq 1; then
104 do_missing_arg $1
106 shift
107 data="$1"
109 --d=* | --da=* | --dat=* | --data=*)
110 data=${1##*=}
112 -\? | --h | --he | --hel | --help)
113 do_help
115 -V | --v | --ve | --ver | --vers | --versi | --versio | --version)
116 do_version
118 --u | --us | --usa | --usag | --usage)
119 do_usage
122 # Stop processing arguments.
123 shift
124 break
126 --*)
127 printf >&2 $"xtrace: unrecognized option \`$1'\n"
128 help_info
131 # Unknown option. This means the rest is the program name and parameters.
132 break
134 esac
135 shift
136 done
138 # See whether any arguments are left.
139 if test $# -eq 0; then
140 printf >&2 $"No program name given\n"
141 help_info
144 # Determine the program name and check whether it exists.
145 program=$1
146 shift
147 if test ! -f "$program"; then
148 printf >&2 $"executable \`$program' not found\n"
149 help_info
151 if test ! -x "$program"; then
152 printf >&2 $"\`$program' is no executable\n"
153 help_info
156 # We have two modes. If a data file is given simply print the included data.
157 printf "%-20s %-*s %6s\n" Function $(expr $COLUMNS - 30) File Line
158 for i in $(seq 1 $COLUMNS); do printf -; done; printf '\n'
159 if test -n "$data"; then
160 $pcprofiledump "$data" |
161 sed 's/this = \([^,]*\).*/\1/' |
162 addr2line -fC -e "$program" |
163 while read fct; do
164 read file
165 if test "$fct" != '??' -a "$file" != '??:0'; then
166 format_line "$fct" "$file"
168 done
169 else
170 fifo=$(mktemp -ut xtrace.XXXXXX) || exit
171 trap 'rm -f "$fifo"; exit 1' HUP INT QUIT TERM PIPE
172 mkfifo -m 0600 $fifo || exit 1
174 # Now start the program and let it write to the FIFO.
175 $TERMINAL_PROG -T "xtrace - $program $*" -e /bin/sh -c "LD_PRELOAD=$pcprofileso PCPROFILE_OUTPUT=$fifo $program $*; read < $fifo" &
176 termpid=$!
177 $pcprofiledump -u "$fifo" |
178 while read line; do
179 echo "$line" |
180 sed 's/this = \([^,]*\).*/\1/' |
181 addr2line -fC -e "$program"
182 done |
183 while read fct; do
184 read file
185 if test "$fct" != '??' -a "$file" != '??:0'; then
186 format_line "$fct" "$file"
188 done
189 read -p "Press return here to close $TERMINAL_PROG($program)."
190 echo > "$fifo"
191 rm "$fifo"
194 exit 0
195 # Local Variables:
196 # mode:ksh
197 # End: