- merge sparc64/ia64 fiddles back into linux.{req,prov}.
- automagically generate perl module dependencies always. CVS patchset: 4825 CVS date: 2001/06/01 19:27:33
This commit is contained in:
parent
f5ebe3fb42
commit
25f341822c
2
CHANGES
2
CHANGES
|
@ -74,6 +74,8 @@
|
||||||
- return multiple suggested packages
|
- return multiple suggested packages
|
||||||
(Pawel Kolodziej <pawelk@pld.org.pl>).
|
(Pawel Kolodziej <pawelk@pld.org.pl>).
|
||||||
- fix: return suggested packages when using Depends cache.
|
- fix: return suggested packages when using Depends cache.
|
||||||
|
- merge sparc64/ia64 fiddles back into linux.{req,prov}.
|
||||||
|
- automagically generate perl module dependencies always.
|
||||||
|
|
||||||
4.0 -> 4.0.[12]
|
4.0 -> 4.0.[12]
|
||||||
- add doxygen and lclint annotations most everywhere.
|
- add doxygen and lclint annotations most everywhere.
|
||||||
|
|
|
@ -3,12 +3,21 @@
|
||||||
# This script reads filenames from STDIN and outputs any relevant provides
|
# This script reads filenames from STDIN and outputs any relevant provides
|
||||||
# information that needs to be included in the package.
|
# information that needs to be included in the package.
|
||||||
|
|
||||||
filelist=$(grep "\\.so" | grep -v "^/lib/ld.so" | xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
|
|
||||||
for f in $filelist; do
|
solist=$(echo $filelist | grep "\\.so" | grep -v "^/lib/ld.so" | \
|
||||||
|
xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
||||||
|
perllist=$(echo $filelist | grep "\\.pm")
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames and weak symbol versions (from glibc).
|
||||||
|
for f in $solist; do
|
||||||
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
||||||
|
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
if [ "$soname" != "" ]; then
|
if [ "$soname" != "" ]; then
|
||||||
if [ ! -L $f ]; then
|
if [ ! -L $f ]; then
|
||||||
echo $soname$lib64
|
echo $soname$lib64
|
||||||
|
@ -27,3 +36,18 @@ for f in $filelist; do
|
||||||
echo ${f##*/}$lib64
|
echo ${f##*/}$lib64
|
||||||
fi
|
fi
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.prov -a -n "$perllist" ] &&
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.prov -a -n "$pythonlist" ] &&
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.prov -a -n "$tcllist" ] &&
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.prov | sort -u
|
||||||
|
|
|
@ -1,35 +1,72 @@
|
||||||
#!/bin/sh
|
#!/bin/bash
|
||||||
|
|
||||||
# note this works for both a.out and ELF executables
|
#
|
||||||
# it also auto-generates requirment lines for shell scripts
|
# Auto-generate requirements for executables (both ELF and a.out) and library
|
||||||
|
# sonames, script interpreters, and perl modules.
|
||||||
|
#
|
||||||
|
|
||||||
ulimit -c 0
|
ulimit -c 0
|
||||||
|
|
||||||
filelist=`sed "s/['\"]/\\\&/g"`
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
exelist=`echo $filelist | xargs -r file | grep ":.*executable" | cut -d: -f1 `
|
exelist=`echo $filelist | xargs -r file | egrep -v ":.* (commands|script) " | \
|
||||||
scriptlist=`echo $filelist | xargs -r file | egrep ":.* (commands|script) " | cut -d: -f1 `
|
grep ":.*executable" | cut -d: -f1`
|
||||||
liblist=`echo $filelist | xargs -r file | grep ":.*shared object" | cut -d : -f1 `
|
scriptlist=`echo $filelist | xargs -r file | \
|
||||||
|
egrep ":.* (commands|script) " | cut -d: -f1`
|
||||||
|
liblist=`echo $filelist | xargs -r file | \
|
||||||
|
grep ":.*shared object" | cut -d : -f1`
|
||||||
|
|
||||||
|
interplist=
|
||||||
|
perllist=
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Executable sonames.
|
||||||
for f in $exelist; do
|
for f in $exelist; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
[ -r $f -a -x $f ] || continue
|
||||||
if [ -x $f ]; then
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
ldd $f | awk '/=>/ { if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) { gsub(/'\''"/,"\\&",$1); printf "%s'$lib64'\n", $1 } }'
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
fi
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
done | xargs -r -n 1 basename | sort -u
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames.
|
||||||
for f in $liblist; do
|
for f in $liblist; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
[ -r $f ] || continue
|
||||||
ldd $f | awk '/=>/ { if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) { gsub(/'\''"/,"\\&",$1); printf "%s'$lib64'\n", $1 } }'
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
done | xargs -r -n 1 basename | sort -u
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Script interpreters.
|
||||||
for f in $scriptlist; do
|
for f in $scriptlist; do
|
||||||
if [ -x $f ]; then
|
[ -r $f -a -x $f ] || continue
|
||||||
head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1
|
interp=`head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1`
|
||||||
fi
|
interplist="$interplist $interp"
|
||||||
done | sort -u
|
case $interp in
|
||||||
|
*/perl) perllist="$perllist $f" ;;
|
||||||
|
*) [ "${f%.pm} != "${f}" ] && perllist="$perllist $f" ;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
[ -n "$interplist" ] && { echo "$interplist" | sort -u ; }
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Weak symbol versions (from glibc).
|
||||||
for f in $liblist $exelist ; do
|
for f in $liblist $exelist ; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "(64bit)"; fi`
|
[ -r $f ] || continue
|
||||||
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
objdump -p $f | awk '
|
objdump -p $f | awk '
|
||||||
BEGIN { START=0; LIBNAME=""; }
|
BEGIN { START=0; LIBNAME=""; }
|
||||||
/Version References:/ { START=1; }
|
/Version References:/ { START=1; }
|
||||||
|
@ -37,7 +74,24 @@ for f in $liblist $exelist ; do
|
||||||
sub(/:/, "", $3);
|
sub(/:/, "", $3);
|
||||||
LIBNAME=$3;
|
LIBNAME=$3;
|
||||||
}
|
}
|
||||||
(START==1) && (LIBNAME!="") && ($4!="") { print LIBNAME "(" $4 ")'$lib64'"; }
|
(START==1) && (LIBNAME!="") && ($4~/^GLIBC_*/) {
|
||||||
|
print LIBNAME "(" $4 ")'$lib64'";
|
||||||
|
}
|
||||||
/^$/ { START=0; }
|
/^$/ { START=0; }
|
||||||
'
|
'
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.req | sort -u
|
||||||
|
|
|
@ -3,14 +3,24 @@
|
||||||
# This script reads filenames from STDIN and outputs any relevant provides
|
# This script reads filenames from STDIN and outputs any relevant provides
|
||||||
# information that needs to be included in the package.
|
# information that needs to be included in the package.
|
||||||
|
|
||||||
filelist=$(grep "\\.so" | grep -v "^/lib/ld.so" | xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
|
|
||||||
for f in $filelist; do
|
solist=$(echo $filelist | grep "\\.so" | grep -v "^/lib/ld.so" | \
|
||||||
|
xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
||||||
|
perllist=$(echo $filelist | grep "\\.pm")
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames and weak symbol versions (from glibc).
|
||||||
|
for f in $solist; do
|
||||||
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
||||||
|
|
||||||
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
if [ "$soname" != "" ]; then
|
if [ "$soname" != "" ]; then
|
||||||
if [ ! -L $f ]; then
|
if [ ! -L $f ]; then
|
||||||
echo $soname
|
echo $soname$lib64
|
||||||
objdump -p $f | awk '
|
objdump -p $f | awk '
|
||||||
BEGIN { START=0 ; }
|
BEGIN { START=0 ; }
|
||||||
/Version definitions:/ { START=1; }
|
/Version definitions:/ { START=1; }
|
||||||
|
@ -19,10 +29,25 @@ for f in $filelist; do
|
||||||
' | \
|
' | \
|
||||||
grep -v $soname | \
|
grep -v $soname | \
|
||||||
while read symbol ; do
|
while read symbol ; do
|
||||||
echo "$soname($symbol)"
|
echo "$soname($symbol)`echo $lib64 | sed 's/()//'`"
|
||||||
done
|
done
|
||||||
fi
|
fi
|
||||||
else
|
else
|
||||||
echo ${f##*/}
|
echo ${f##*/}$lib64
|
||||||
fi
|
fi
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.prov -a -n "$perllist" ] &&
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.prov -a -n "$pythonlist" ] &&
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.prov -a -n "$tcllist" ] &&
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.prov | sort -u
|
||||||
|
|
|
@ -1,32 +1,72 @@
|
||||||
#!/bin/sh
|
#!/bin/bash
|
||||||
|
|
||||||
# note this works for both a.out and ELF executables
|
#
|
||||||
# it also auto-generates requirment lines for shell scripts
|
# Auto-generate requirements for executables (both ELF and a.out) and library
|
||||||
|
# sonames, script interpreters, and perl modules.
|
||||||
|
#
|
||||||
|
|
||||||
ulimit -c 0
|
ulimit -c 0
|
||||||
|
|
||||||
filelist=`sed "s/['\"]/\\\&/g"`
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
exelist=`echo $filelist | xargs -r file | grep ":.*executable" | cut -d: -f1 `
|
exelist=`echo $filelist | xargs -r file | egrep -v ":.* (commands|script) " | \
|
||||||
scriptlist=`echo $filelist | xargs -r file | egrep ":.* (commands|script) " | cut -d: -f1 `
|
grep ":.*executable" | cut -d: -f1`
|
||||||
liblist=`echo $filelist | xargs -r file | grep ":.*shared object" | cut -d : -f1 `
|
scriptlist=`echo $filelist | xargs -r file | \
|
||||||
|
egrep ":.* (commands|script) " | cut -d: -f1`
|
||||||
|
liblist=`echo $filelist | xargs -r file | \
|
||||||
|
grep ":.*shared object" | cut -d : -f1`
|
||||||
|
|
||||||
|
interplist=
|
||||||
|
perllist=
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Executable sonames.
|
||||||
for f in $exelist; do
|
for f in $exelist; do
|
||||||
if [ -x $f ]; then
|
[ -r $f -a -x $f ] || continue
|
||||||
ldd $f | awk '/=>/ { print $1 }'
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
fi
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
done | sort -u | sed "s/['\"]/\\\&/g" | xargs -r -n 1 basename | grep -v 'libNoVersion.so' | sort -u
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames.
|
||||||
for f in $liblist; do
|
for f in $liblist; do
|
||||||
ldd $f | awk '/=>/ { print $1 }'
|
[ -r $f ] || continue
|
||||||
done | sort -u | sed "s/['\"]/\\\&/g" | xargs -r -n 1 basename | grep -v 'libNoVersion.so' | sort -u
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Script interpreters.
|
||||||
for f in $scriptlist; do
|
for f in $scriptlist; do
|
||||||
if [ -x $f ]; then
|
[ -r $f -a -x $f ] || continue
|
||||||
head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1
|
interp=`head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1`
|
||||||
fi
|
interplist="$interplist $interp"
|
||||||
done | sort -u
|
case $interp in
|
||||||
|
*/perl) perllist="$perllist $f" ;;
|
||||||
|
*) [ "${f%.pm} != "${f}" ] && perllist="$perllist $f" ;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
[ -n "$interplist" ] && { echo "$interplist" | sort -u ; }
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Weak symbol versions (from glibc).
|
||||||
for f in $liblist $exelist ; do
|
for f in $liblist $exelist ; do
|
||||||
|
[ -r $f ] || continue
|
||||||
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
objdump -p $f | awk '
|
objdump -p $f | awk '
|
||||||
BEGIN { START=0; LIBNAME=""; }
|
BEGIN { START=0; LIBNAME=""; }
|
||||||
/Version References:/ { START=1; }
|
/Version References:/ { START=1; }
|
||||||
|
@ -34,7 +74,24 @@ for f in $liblist $exelist ; do
|
||||||
sub(/:/, "", $3);
|
sub(/:/, "", $3);
|
||||||
LIBNAME=$3;
|
LIBNAME=$3;
|
||||||
}
|
}
|
||||||
(START==1) && (LIBNAME!="") && ($4~/^GLIBC_*/) { print LIBNAME "(" $4 ")"; }
|
(START==1) && (LIBNAME!="") && ($4~/^GLIBC_*/) {
|
||||||
|
print LIBNAME "(" $4 ")'$lib64'";
|
||||||
|
}
|
||||||
/^$/ { START=0; }
|
/^$/ { START=0; }
|
||||||
'
|
'
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.req | sort -u
|
||||||
|
|
|
@ -3,12 +3,21 @@
|
||||||
# This script reads filenames from STDIN and outputs any relevant provides
|
# This script reads filenames from STDIN and outputs any relevant provides
|
||||||
# information that needs to be included in the package.
|
# information that needs to be included in the package.
|
||||||
|
|
||||||
filelist=$(grep "\\.so" | grep -v "^/lib/ld.so" | xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
|
|
||||||
for f in $filelist; do
|
solist=$(echo $filelist | grep "\\.so" | grep -v "^/lib/ld.so" | \
|
||||||
|
xargs file -L 2>/dev/null | grep "ELF.*shared object" | cut -d: -f1)
|
||||||
|
perllist=$(echo $filelist | grep "\\.pm")
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames and weak symbol versions (from glibc).
|
||||||
|
for f in $solist; do
|
||||||
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
soname=$(objdump -p $f | awk '/SONAME/ {print $2}')
|
||||||
|
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
if [ "$soname" != "" ]; then
|
if [ "$soname" != "" ]; then
|
||||||
if [ ! -L $f ]; then
|
if [ ! -L $f ]; then
|
||||||
echo $soname$lib64
|
echo $soname$lib64
|
||||||
|
@ -27,3 +36,18 @@ for f in $filelist; do
|
||||||
echo ${f##*/}$lib64
|
echo ${f##*/}$lib64
|
||||||
fi
|
fi
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.prov -a -n "$perllist" ] &&
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.prov -a -n "$pythonlist" ] &&
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.prov | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.prov -a -n "$tcllist" ] &&
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.prov | sort -u
|
||||||
|
|
|
@ -1,35 +1,72 @@
|
||||||
#!/bin/sh
|
#!/bin/bash
|
||||||
|
|
||||||
# note this works for both a.out and ELF executables
|
#
|
||||||
# it also auto-generates requirment lines for shell scripts
|
# Auto-generate requirements for executables (both ELF and a.out) and library
|
||||||
|
# sonames, script interpreters, and perl modules.
|
||||||
|
#
|
||||||
|
|
||||||
ulimit -c 0
|
ulimit -c 0
|
||||||
|
|
||||||
filelist=`sed "s/['\"]/\\\&/g"`
|
filelist=`sed "s/['\"]/\\\&/g"`
|
||||||
exelist=`echo $filelist | xargs -r file | grep ":.*executable" | cut -d: -f1 `
|
exelist=`echo $filelist | xargs -r file | egrep -v ":.* (commands|script) " | \
|
||||||
scriptlist=`echo $filelist | xargs -r file | egrep ":.* (commands|script) " | cut -d: -f1 `
|
grep ":.*executable" | cut -d: -f1`
|
||||||
liblist=`echo $filelist | xargs -r file | grep ":.*shared object" | cut -d : -f1 `
|
scriptlist=`echo $filelist | xargs -r file | \
|
||||||
|
egrep ":.* (commands|script) " | cut -d: -f1`
|
||||||
|
liblist=`echo $filelist | xargs -r file | \
|
||||||
|
grep ":.*shared object" | cut -d : -f1`
|
||||||
|
|
||||||
|
interplist=
|
||||||
|
perllist=
|
||||||
|
pythonlist=
|
||||||
|
tcllist=
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Executable sonames.
|
||||||
for f in $exelist; do
|
for f in $exelist; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
[ -r $f -a -x $f ] || continue
|
||||||
if [ -x $f ]; then
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
ldd $f | awk '/=>/ { if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) { gsub(/'\''"/,"\\&",$1); printf "%s'$lib64'\n", $1 } }'
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
fi
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
done | xargs -r -n 1 basename | sort -u
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Library sonames.
|
||||||
for f in $liblist; do
|
for f in $liblist; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
[ -r $f ] || continue
|
||||||
ldd $f | awk '/=>/ { if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) { gsub(/'\''"/,"\\&",$1); printf "%s'$lib64'\n", $1 } }'
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
|
ldd $f | awk '/=>/ {
|
||||||
|
if ($1 !~ /libNoVersion.so/ && $1 !~ /4[um]lib.so/) {
|
||||||
|
gsub(/'\''"/,"\\&",$1);
|
||||||
|
printf "%s'$lib64'\n", $1
|
||||||
|
}
|
||||||
|
}'
|
||||||
done | xargs -r -n 1 basename | sort -u
|
done | xargs -r -n 1 basename | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Script interpreters.
|
||||||
for f in $scriptlist; do
|
for f in $scriptlist; do
|
||||||
if [ -x $f ]; then
|
[ -r $f -a -x $f ] || continue
|
||||||
head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1
|
interp=`head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1`
|
||||||
fi
|
interplist="$interplist $interp"
|
||||||
done | sort -u
|
case $interp in
|
||||||
|
*/perl) perllist="$perllist $f" ;;
|
||||||
|
*) [ "${f%.pm} != "${f}" ] && perllist="$perllist $f" ;;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
[ -n "$interplist" ] && { echo "$interplist" | sort -u ; }
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Weak symbol versions (from glibc).
|
||||||
for f in $liblist $exelist ; do
|
for f in $liblist $exelist ; do
|
||||||
lib64=`if file -L $f 2>/dev/null | grep "ELF 64-bit" >/dev/null; then echo "(64bit)"; fi`
|
[ -r $f ] || continue
|
||||||
|
lib64=`if file -L $f 2>/dev/null | \
|
||||||
|
grep "ELF 64-bit" >/dev/null; then echo "()(64bit)"; fi`
|
||||||
objdump -p $f | awk '
|
objdump -p $f | awk '
|
||||||
BEGIN { START=0; LIBNAME=""; }
|
BEGIN { START=0; LIBNAME=""; }
|
||||||
/Version References:/ { START=1; }
|
/Version References:/ { START=1; }
|
||||||
|
@ -37,7 +74,24 @@ for f in $liblist $exelist ; do
|
||||||
sub(/:/, "", $3);
|
sub(/:/, "", $3);
|
||||||
LIBNAME=$3;
|
LIBNAME=$3;
|
||||||
}
|
}
|
||||||
(START==1) && (LIBNAME!="") && ($4!="") { print LIBNAME "(" $4 ")'$lib64'"; }
|
(START==1) && (LIBNAME!="") && ($4~/^GLIBC_*/) {
|
||||||
|
print LIBNAME "(" $4 ")'$lib64'";
|
||||||
|
}
|
||||||
/^$/ { START=0; }
|
/^$/ { START=0; }
|
||||||
'
|
'
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Perl modules.
|
||||||
|
[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
|
||||||
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Python modules.
|
||||||
|
[ -x /usr/lib/rpm/python.req -a -n "$pythonlist" ] && \
|
||||||
|
echo $pythonlist | tr [:blank:] \\n | /usr/lib/rpm/python.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# --- Tcl modules.
|
||||||
|
[ -x /usr/lib/rpm/tcl.req -a -n "$tcllist" ] && \
|
||||||
|
echo $tcllist | tr [:blank:] \\n | /usr/lib/rpm/tcl.req | sort -u
|
||||||
|
|
|
@ -17,10 +17,23 @@ for f in $scriptlist; do
|
||||||
esac
|
esac
|
||||||
done | sort -u
|
done | sort -u
|
||||||
|
|
||||||
|
for f in $filelist; do
|
||||||
|
[ -r $f ] || continue
|
||||||
|
if echo $f | grep -q '\.pm$'
|
||||||
|
then
|
||||||
|
modules="$modules $f"
|
||||||
|
fi
|
||||||
|
done
|
||||||
|
|
||||||
|
[ -n "$modules" ] && perllist="$perllist $modules"
|
||||||
|
|
||||||
#
|
#
|
||||||
# Generate perl module dependencies, if any.
|
# Generate perl module dependencies, if any.
|
||||||
set -x
|
set -x
|
||||||
[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
|
[ -x /usr/lib/rpm/perl.req -a -n "$perllist" ] && \
|
||||||
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
|
echo $perllist | tr [:blank:] \\n | /usr/lib/rpm/perl.req | sort -u
|
||||||
|
|
||||||
|
#
|
||||||
|
# Then process the files as usual.
|
||||||
set +x
|
set +x
|
||||||
echo $filelist | /usr/lib/rpm/find-requires
|
echo $filelist | /usr/lib/rpm/find-requires
|
||||||
|
|
|
@ -67,7 +67,7 @@ foreach $module (sort keys %require) {
|
||||||
|
|
||||||
# I am not using rpm3.0 so I do not want spaces arround my
|
# I am not using rpm3.0 so I do not want spaces arround my
|
||||||
# operators. Also I will need to change the processing of the
|
# operators. Also I will need to change the processing of the
|
||||||
# $RPM_* vairable when I upgrade.
|
# $RPM_* variable when I upgrade.
|
||||||
|
|
||||||
print "perl($module) = $require{$module}\n";
|
print "perl($module) = $require{$module}\n";
|
||||||
}
|
}
|
||||||
|
@ -82,8 +82,7 @@ sub process_file {
|
||||||
my ($file) = @_;
|
my ($file) = @_;
|
||||||
chomp $file;
|
chomp $file;
|
||||||
|
|
||||||
open(FILE, "<$file")||
|
open(FILE, "<$file") || return;
|
||||||
die("$0: Could not open file: '$file' : $!\n");
|
|
||||||
|
|
||||||
my ($package, $version) = ();
|
my ($package, $version) = ();
|
||||||
|
|
||||||
|
@ -124,9 +123,9 @@ sub process_file {
|
||||||
|
|
||||||
# here are examples of VERSION lines from the perl distribution
|
# here are examples of VERSION lines from the perl distribution
|
||||||
|
|
||||||
#FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
|
#FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
|
||||||
#ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.3 $, 10;
|
#ExtUtils/Install.pm:$VERSION = substr q$Revision: 1.4 $, 10;
|
||||||
#CGI/Apache.pm:$VERSION = (qw$Revision: 1.3 $)[1];
|
#CGI/Apache.pm:$VERSION = (qw$Revision: 1.4 $)[1];
|
||||||
#DynaLoader.pm:$VERSION = $VERSION = "1.03"; # avoid typo warning
|
#DynaLoader.pm:$VERSION = $VERSION = "1.03"; # avoid typo warning
|
||||||
|
|
||||||
if (
|
if (
|
||||||
|
|
|
@ -76,8 +76,7 @@ sub process_file {
|
||||||
my ($file) = @_;
|
my ($file) = @_;
|
||||||
chomp $file;
|
chomp $file;
|
||||||
|
|
||||||
open(FILE, "<$file")||
|
open(FILE, "<$file") || return;
|
||||||
die("$0: Could not open file: '$file' : $!\n");
|
|
||||||
|
|
||||||
while (<FILE>) {
|
while (<FILE>) {
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue