| 1 | #!/bin/bash |
| 2 | |
| 3 | IFS=: ldpath=($LD_LIBRARY_PATH) |
| 4 | while read dir; do |
| 5 | if [ "${dir:0:1}" == "#" ]; then |
| 6 | continue |
| 7 | elif [ -d "$dir" ]; then |
| 8 | ldpath=("${ldpath[@]}" "$dir") |
| 9 | fi |
| 10 | done </etc/ld.so.conf |
| 11 | ldpath=("${ldpath[@]}" /usr/lib /lib) |
| 12 | IFS=: apath=($PATH) |
| 13 | |
| 14 | findlib() { |
| 15 | for d in "${ldpath[@]}"; do |
| 16 | if [ -r "$d/$1" ]; then |
| 17 | echo "$d/$1" |
| 18 | return 0 |
| 19 | fi |
| 20 | done |
| 21 | return 1 |
| 22 | } |
| 23 | |
| 24 | findbin() { |
| 25 | for d in "${apath[@]}"; do |
| 26 | if [ -r "$d/$1" ]; then |
| 27 | echo "$d/$1" |
| 28 | return 0 |
| 29 | fi |
| 30 | done |
| 31 | return 1 |
| 32 | } |
| 33 | |
| 34 | has() { |
| 35 | for obj in "${found[@]}"; do |
| 36 | if [ "$obj" = "$1" ]; then return 0; fi |
| 37 | done |
| 38 | return 1 |
| 39 | } |
| 40 | |
| 41 | excluded() { |
| 42 | for obj in "${exclude[@]}"; do |
| 43 | if [ -d "$obj" ] && [[ "$1" == "$obj"* ]]; then return 0; fi |
| 44 | if [ "$1" -ef "$obj" ]; then return 0; fi |
| 45 | done |
| 46 | return 1 |
| 47 | } |
| 48 | |
| 49 | examine() { |
| 50 | local tfile lib lib2 |
| 51 | tfile="$(mktemp /tmp/lddotXXXXXX)" |
| 52 | objdump -p "$1" | sed -n 's/^.*NEEDED \+\(lib.*\)/\1/p' >"$tfile" |
| 53 | while read lib; do |
| 54 | if ! lib2="$(findlib "$lib")"; then |
| 55 | echo "\"$lib\" [ color=red ];" |
| 56 | echo "lddot: $lib: not found" >&2 |
| 57 | echo "\"$1\" -> \"$lib\";" |
| 58 | continue |
| 59 | fi |
| 60 | lib="$lib2" |
| 61 | unset lib2 |
| 62 | if excluded "$lib"; then continue; fi |
| 63 | echo "\"$1\" -> \"$lib\";" |
| 64 | if has "$lib"; then continue; fi |
| 65 | found=("${found[@]}" "$lib") |
| 66 | examine "$lib" |
| 67 | done <"$tfile" |
| 68 | rm -f "$tfile" |
| 69 | return 0 |
| 70 | } |
| 71 | |
| 72 | found=() |
| 73 | exclude=() |
| 74 | programs=() |
| 75 | |
| 76 | while [ $# -gt 0 ]; do |
| 77 | arg="$1" |
| 78 | shift |
| 79 | case "$arg" in |
| 80 | -x) |
| 81 | exclude=("${exclude[@]}" "$1") |
| 82 | shift |
| 83 | ;; |
| 84 | *) |
| 85 | programs=("${programs[@]}" "$arg") |
| 86 | esac |
| 87 | done |
| 88 | |
| 89 | if [ ${#programs[@]} -lt 1 ]; then |
| 90 | echo "usage: lddot [-x EXCLUDED] PROGRAM..." >&2 |
| 91 | exit 1 |
| 92 | fi |
| 93 | |
| 94 | echo "digraph {" |
| 95 | rv=0 |
| 96 | for bin in "${programs[@]}"; do |
| 97 | if [[ "$bin" != */* ]]; then |
| 98 | if ! bin2="$(findbin "$bin")"; then |
| 99 | echo "lddot: $bin: not found" >&2 |
| 100 | rv=1 |
| 101 | continue |
| 102 | fi |
| 103 | bin="$bin2" |
| 104 | unset bin2 |
| 105 | fi |
| 106 | if [ ! -r "$bin" ]; then |
| 107 | echo "lddot: $bin: not readable" >&2 |
| 108 | rv=1 |
| 109 | continue |
| 110 | fi |
| 111 | echo "\"$bin\" [ shape=box ];" |
| 112 | if ! examine "$bin"; then rv=1; fi |
| 113 | done |
| 114 | echo "}" |
| 115 | |
| 116 | exit $rv |