autodeps/linux.req

   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 exelist=`echo $filelist | xargs -r file | egrep -v ":.* (commands|script) " | \
  23         grep ":.*executable" | cut -d: -f1`
  24 scriptlist=`echo $filelist | xargs -r file | \
  25         egrep ":.* (commands|script) " | cut -d: -f1`
  26 liblist=`echo $filelist | xargs -r file | \
  27         grep ":.*shared object" | cut -d : -f1`
  28
  29 interplist=
  30 perllist=
  31 pythonlist=
  32 tcllist=
  33
  34 #
  35 # --- Alpha does not mark 64bit dependencies
  36 case `uname -m` in
  37   alpha*)       mark64="" ;;
  38   *)            mark64="()(64bit)" ;;
  39 esac
  40
  41 if [ "$needed" -eq 0 ]; then
  42 #
  43 # --- Executable dependency sonames.
  44   for f in $exelist; do
  45     [ -r $f -a -x $f ] || continue
  46     lib64=`if file -L $f 2>/dev/null | \
  47         grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  48     ldd $f | awk '/=>/ {
  49         if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/ && $1 !~ /libredhat-kernel.so/) {
  50             gsub(/'\''"/,"\\&",$1);
  51             printf "%s'$lib64'\n", $1
  52         }
  53     }'
  54   done | xargs -r -n 1 basename | sort -u
  55
  56 #
  57 # --- Library dependency sonames.
  58   for f in $liblist; do
  59     [ -r $f ] || continue
  60     lib64=`if file -L $f 2>/dev/null | \
  61         grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  62     ldd $f | awk '/=>/ {
  63         if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/ && $1 !~ /libredhat-kernel.so/) {
  64             gsub(/'\''"/,"\\&",$1);
  65             printf "%s'$lib64'\n", $1
  66         }
  67     }'
  68   done | xargs -r -n 1 basename | sort -u
  69 fi
  70
  71 #
  72 # --- Script interpreters.
  73 for f in $scriptlist; do
  74     [ -r $f -a -x $f ] || continue
  75     interp=`head -1 $f | sed -e 's/^\#\![       ]*//' | cut -d" " -f1`
  76     interplist="$interplist $interp"
  77     case $interp in
  78     */perl)     perllist="$perllist $f" ;;
  79     esac
  80 done
  81 [ -n "$interplist" ] && { echo "$interplist" | tr '[:blank:]' \\n | sort -u ; }
  82
  83 #
  84 # --- Add perl module files to perllist.
  85 for f in $filelist; do
  86     [ -r $f -a "${f%.pm}" != "${f}" ] && perllist="$perllist $f"
  87 done
  88
  89 #
  90 # --- Weak symbol versions (from glibc).
  91 [ -n "$mark64" ] && mark64="(64bit)"
  92 for f in $liblist $exelist ; do
  93     [ -r $f ] || continue
  94     lib64=`if file -L $f 2>/dev/null | \
  95         grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  96     objdump -p $f | awk 'BEGIN { START=0; LIBNAME=""; needed='$needed'; }
  97         /^$/ { START=0; }
  98         /^Dynamic Section:$/ { START=1; }
  99         (START==1) && /NEEDED/ {
 100             if (needed) {
 101                 if ("'$lib64'" != "") {
 102                     sub(/$/, "()'$lib64'", $2) ;
 103                 }
 104                 print $2 ;
 105             }
 106         }
 107         /^Version References:$/ { START=2; }
 108         (START==2) && /required from/ {
 109             sub(/:/, "", $3);
 110             LIBNAME=$3;
 111         }
 112         (START==2) && (LIBNAME!="") && ($4!="") && (($4~/^GLIBC_*/) || ($4~/^GCC_*/)) {
 113             print LIBNAME "(" $4 ")'$lib64'";
 114         }
 115     '
 116 done | sort -u
 117
 118 #
 119 # --- Perl modules.
 120 [ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
 121     echo $perllist | tr '[:blank:]' \\n | /usr/lib/rpm/perl.req | sort -u
 122
 123 #
 124 # --- Python modules.
 125 [ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
 126     echo $pythonlist | tr '[:blank:]' \\n | /usr/lib/rpm/python.req | sort -u
 127
 128 #
 129 # --- Tcl modules.
 130 [ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
 131     echo $tcllist | tr '[:blank:]' \\n | /usr/lib/rpm/tcl.req | sort -u
 132
 133 exit 0