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