home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / rescue / usr / lib / rpm / find-requires < prev    next >
Text File  |  2006-11-29  |  4KB  |  150 lines
  1. #!/bin/bash
  2.  
  3. #
  4. # Auto-generate requirements for executables (both ELF and a.out) and library
  5. # sonames, script interpreters, and perl modules.
  6. #
  7.  
  8. ulimit -c 0
  9.  
  10. #
  11. # --- Set needed to 0 for traditional find-requires behavior.
  12. needed=1
  13. if [ X"$1" = Xldd ]; then
  14.     needed=0
  15. elif [ X"$1" = Xobjdump ]; then
  16.     needed=1
  17. fi
  18.  
  19. #
  20. # --- Grab the file manifest and classify files.
  21. #filelist=`sed "s/['\"]/\\\&/g"`
  22. #filelist=`sed "s/[]['\"*?{}]/\\\\\&/g"`
  23. IFS=$'\n'
  24. filelist=($(grep -Ev '/usr/doc/|/usr/share/doc/'))
  25. exelist=($(printf "%s\0" "${filelist[@]}" | xargs -0 -r file | \
  26.     egrep -v ":.* (commands|script) " | \
  27.     grep ":.*executable" | cut -d: -f1))
  28. scriptlist=($(printf "%s\0" "${filelist[@]}" | xargs -0 -r file | \
  29.     egrep ":.* (commands|script) " | cut -d: -f1))
  30. liblist=($(printf "%s\0" "${filelist[@]}" | xargs -0 -r file | \
  31.     grep ":.*shared object" | cut -d : -f1))
  32.  
  33. interplist=()
  34. perllist=()
  35. pythonlist=()
  36. tcllist=()
  37. monolist=($(printf "%s\n" "${filelist[@]}" | egrep "\\.(exe|dll)\$"))
  38.  
  39. #
  40. # --- Alpha does not mark 64bit dependencies
  41. case `uname -m` in
  42.   alpha*)    mark64="" ;;
  43.   *)        mark64="()(64bit)" ;;
  44. esac
  45.  
  46. if [ "$needed" -eq 0 ]; then
  47. #
  48. # --- Executable dependency sonames.
  49.   for f in "${exelist[@]}"; do
  50.     [ -r "$f" -a -x "$f" ] || continue
  51.     lib64=`if file -L "$f" 2>/dev/null | \
  52.     grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  53.     ldd "$f" | awk '/=>/ {
  54.     if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/ && $1 !~ /linux-gate.so/) {
  55.         gsub(/'\''"/,"\\&",$1);
  56.         printf "%s'$lib64'\n", $1
  57.     }
  58.     }'
  59.   done | xargs -r -n 1 basename | sort -u
  60.  
  61. #
  62. # --- Library dependency sonames.
  63.   for f in "${liblist[@]}"; do
  64.     [ -r "$f" ] || continue
  65.     lib64=`if file -L "$f" 2>/dev/null | \
  66.     grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  67.     ldd "$f" | awk '/=>/ {
  68.     if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/ && $1 !~ /linux-gate.so/) {
  69.         gsub(/'\''"/,"\\&",$1);
  70.         printf "%s'$lib64'\n", $1
  71.     }
  72.     }'
  73.   done | xargs -r -n 1 basename | sort -u
  74. fi
  75.  
  76. #
  77. # --- Script interpreters.
  78. for f in "${scriptlist[@]}"; do
  79.     [ -r "$f" -a -x "$f" ] || continue
  80.     interp=`head -n 1 "$f" | sed -ne 's/^\#\![     ]*//p' | cut -d" " -f1`
  81.     interplist=("${interplist[@]}" "$interp")
  82.     case $interp in
  83.     */perl)    perllist=("${perllist[@]}" "$f") ;;
  84.     esac
  85. done
  86. [ -n "$interplist" ] && { printf "%s\n" "${interplist[@]}" | sort -u ; }
  87.  
  88. #
  89. # --- Add perl module files to perllist.
  90. for f in "${filelist[@]}"; do
  91.     [ -r "$f" -a "${f%.pm}" != "${f}" ] && perllist=("${perllist[@]}" "$f")
  92. done
  93.  
  94. #
  95. # --- Weak symbol versions (from glibc).
  96. [ -n "$mark64" ] && mark64="(64bit)"
  97. for f in "${liblist[@]}" "${exelist[@]}" ; do
  98.     [ -r "$f" ] || continue
  99.     lib64=`if file -L "$f" 2>/dev/null | \
  100.     grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  101.     objdump -p "$f" | awk 'BEGIN { START=0; LIBNAME=""; needed='$needed'; }
  102.     /^$/ { START=0; }
  103.     /^Dynamic Section:$/ { START=1; }
  104.     (START==1) && /NEEDED/ {
  105.         if (needed) {
  106.         if ("'$lib64'" != "") {
  107.             sub(/$/, "()'$lib64'", $2) ;
  108.         }
  109.         print $2 ;
  110.         }
  111.     }
  112.     /^Version References:$/ { START=2; }
  113.     (START==2) && /required from/ {
  114.         sub(/:/, "", $3);
  115.         LIBNAME=$3;
  116.     }
  117.     (START==2) && (LIBNAME!="") && ($4!="") {
  118.         print LIBNAME "(" $4 ")'$lib64'";
  119.     }
  120.     '
  121. done | sort -u
  122.  
  123. #
  124. # --- Perl modules.
  125. #[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
  126. #    printf "%s\n" "${perllist[@]}" | /usr/lib/rpm/perl.req | sort -u
  127.  
  128. #
  129. # --- Python modules.
  130. [ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
  131.     printf "%s\n" "${pythonlist[@]}" | /usr/lib/rpm/python.req | sort -u
  132.  
  133. #
  134. # --- Tcl modules.
  135. [ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
  136.     printf "%s\n" "${tcllist[@]}" | /usr/lib/rpm/tcl.req | sort -u
  137.  
  138. #
  139. # --- Mono exes/dlls
  140. : ${MONO_PREFIX=/usr}
  141. [ -x $MONO_PREFIX/bin/mono -a -f $MONO_PREFIX/bin/mono-find-requires -a -n "$monolist" ] &&
  142.     printf "%s\n" "${monolist[@]}" | MONO_PATH=$MONO_PREFIX/lib${MONO_PATH:+:$MONO_PATH} prefix=$MONO_PREFIX $MONO_PREFIX/bin/mono-find-requires
  143.  
  144. #
  145. # --- Kernel module imported symbols
  146. [ -x ${0%/*}/find-requires.ksyms ] &&
  147.     printf "%s\n" "${filelist[@]}" | ${0%/*}/find-requires.ksyms "$@"
  148.  
  149. exit 0
  150.