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 # --- Weak symbol versions (from glibc).
  73 for f in $liblist $exelist ; do
  74     [ -r $f ] || continue
  75     lib64=`if file -L $f 2>/dev/null | \
  76         grep "ELF 64-bit" >/dev/null; then echo "$mark64"; fi`
  77     objdump -p $f | awk '
  78         BEGIN { START=0; LIBNAME=""; }
  79         /Version References:/ { START=1; }
  80         /required from/ && (START==1) {
  81             sub(/:/, "", $3);
  82             LIBNAME=$3;
  83         }
  84         (START==1) && (LIBNAME!="") && ($4~/^GLIBC_*/) {
  85             print LIBNAME "(" $4 ")'$lib64'";
  86         }
  87         /^$/ { START=0; }
  88     '
  89 done | sort -u
  90
  91 #
  92 # --- Perl modules.
  93 [ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
  94     echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
  95
  96 #
  97 # --- Python modules.
  98 [ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
  99     echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.req | sort -u
 100
 101 #
 102 # --- Tcl modules.
 103 [ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
 104     echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.req | sort -u
 105
 106 exit 0