Add support for multiple dynamic linkers.
[kopensolaris-gnu/glibc.git] / elf / ldd.bash.in
1 #! @BASH@
2
3 # Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
4 # This file is part of the GNU C Library.
5
6 # The GNU C Library is free software; you can redistribute it and/or
7 # modify it under the terms of the GNU Library General Public License as
8 # published by the Free Software Foundation; either version 2 of the
9 # License, or (at your option) any later version.
10
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 # Library General Public License for more details.
15
16 # You should have received a copy of the GNU Library General Public
17 # License along with the GNU C Library; see the file COPYING.LIB.  If not,
18 # write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 # Boston, MA 02111-1307, USA.
20
21
22 # This is the `ldd' command, which lists what shared libraries are
23 # used by given dynamically-linked executables.  It works by invoking the
24 # run-time dynamic linker as a command and setting the environment
25 # variable LD_TRACE_LOADED_OBJECTS to a non-empty value.
26
27 # We should be able to find the translation right at the beginning.
28 TEXTDOMAIN=libc
29 TEXTDOMAINDIR=@TEXTDOMAINDIR@
30
31 RTLDLIST=@RTLD@
32 warn=
33 bind_now=
34 verbose=
35
36 while test $# -gt 0; do
37   case "$1" in
38   --vers | --versi | --versio | --version)
39     echo 'ldd (GNU libc) @VERSION@'
40     echo $"Copyright (C) 1999 Free Software Foundation, Inc.
41 This is free software; see the source for copying conditions.  There is NO
42 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
43 Written by Roland McGrath and Ulrich Drepper."
44     exit 0
45     ;;
46   --h | --he | --hel | --help)
47     echo $"ldd [OPTION]... FILE...
48       --help              print this help and exit
49       --version           print version information and exit
50   -d, --data-relocs       process data relocations
51   -r, --function-relocs   process data and function relocations
52   -v, --verbose           print all information
53 Report bugs using the \`glibcbug' script to <bugs@gnu.org>."
54     exit 0
55     ;;
56   -d | --d | --da | --dat | --data | --data- | --data-r | --data-re | \
57   --data-rel | --data-relo | --data-reloc | --data-relocs)
58     warn=yes
59     shift
60     ;;
61   -r | --f | --fu | --fun | --func | --funct | --functi | --functio | \
62   --function | --function- | --function-r | --function-re | --function-rel | \
63   --function-relo | --function-reloc | --function-relocs)
64     warn=yes
65     bind_now=yes
66     shift
67     ;;
68   -v | --verb | --verbo | --verbos | --verbose)
69     verbose=yes
70     shift
71     ;;
72   --v | --ve | --ver)
73     echo >&2 $"ldd: option \`$1' is ambiguous"
74     exit 1
75     ;;
76   --)           # Stop option processing.
77     shift; break
78     ;;
79   -*)
80     echo >&2 'ldd:' $"unrecognized option" "\`$1'"
81     echo >&2 $"Try \`ldd --help' for more information."
82     exit 1
83     ;;
84   *)
85     break
86     ;;
87   esac
88 done
89
90 nonelf ()
91 {
92   # Maybe extra code for non-ELF binaries.
93   return 1;
94 }
95
96 add_env="LD_TRACE_LOADED_OBJECTS=1 LD_WARN=$warn LD_BIND_NOW=$bind_now"
97 add_env="$add_env LD_VERBOSE=$verbose"
98 case $# in
99 0)
100   echo >&2 'ldd:' $"missing file arguments"
101   echo >&2 $"Try \`ldd --help' for more information."
102   exit 1
103   ;;
104 1)
105   single_file=t
106   ;;
107 *)
108   single_file=f
109   ;;
110 esac
111
112 result=0
113 for file do
114   # We don't list the file name when there is only one.
115   test $single_file = t || echo "${file}:"
116   case $file in
117   */*) :
118        ;;
119   *) file=./$file
120      ;;
121   esac
122   if test ! -f "$file"; then
123     echo "ldd: ${file}:" $"No such file or directory" >&2
124     result=1
125   elif test -r "$file"; then
126     test -x "$file" || echo 'ldd:' $"\
127 warning: you do not have execution permission for" "\`$file'" >&2
128     RTLD=
129     for rtld in ${RTLDLIST}; do
130       if test -x $rtld; then
131         verify_out=`${rtld} --verify "$file"`
132         ret=$?
133         case $ret in
134         [02]) RTLD=${rtld}; break;;
135         esac
136       fi
137     done
138     if test -z "${RTLD}"; then
139       set ${RTLDLIST}
140       RTLD=$1
141       verify_out=`${RTLD} --verify "$file"`
142       ret=$?
143     fi
144     case $ret in
145     0)
146       eval $add_env '"$file"' || result=1
147       ;;
148     1)
149       # This can be a non-ELF binary or no binary at all.
150       nonelf "$file" || {
151         echo $" not a dynamic executable"
152         result=1
153       }
154       ;;
155     2)
156       eval $add_env \${RTLD} '"$file"' || result=1
157       ;;
158     *)
159       echo 'ldd:' ${RTLD} $"exited with unknown exit code" "($ret)" >&2
160       exit 1
161       ;;
162     esac
163   else
164     echo 'ldd:' $"error: you do not have read permission for" "\`$file'" >&2
165     result=1
166   fi
167 done
168
169 exit $result
170 # Local Variables:
171 #  mode:ksh
172 # End: