127 lines
3.2 KiB
Bash
127 lines
3.2 KiB
Bash
#! /usr/bin/ksh
|
|
|
|
# Original Author: Tim Mooney <mooney@golem.phys.ndsu.NoDak.edu>
|
|
# $Id$
|
|
#
|
|
# This file is distributed under the terms of the GNU Public License
|
|
#
|
|
# find-requires is part of RPM, the Red Hat Package Manager. find-requires
|
|
# reads a list of full pathnames (in a package) on stdin, and outputs all
|
|
# shared libraries the package requires to run correctly.
|
|
#
|
|
# On HP-UX, use `chatr' to find the library dependencies for an executable
|
|
#
|
|
# Example chatr output:
|
|
#
|
|
#$chatr /usr/bin/chatr
|
|
#/usr/bin/chatr:
|
|
# shared executable
|
|
# shared library dynamic path search:
|
|
# SHLIB_PATH disabled second
|
|
# embedded path disabled first Not Defined
|
|
# internal name:
|
|
# chatr
|
|
# shared library list:
|
|
# dynamic /usr/lib/libc.1
|
|
# shared library binding:
|
|
# deferred
|
|
# static branch prediction disabled
|
|
# kernel assisted branch predictionenabled
|
|
# lazy swap allocationdisabled
|
|
# text segment lockingdisabled
|
|
# data segment lockingdisabled
|
|
# data page size: 4K
|
|
# instruction page size: 4K
|
|
|
|
PATH=/usr/bin:/usr/sbin:/sbin:/usr/ccs/bin
|
|
export PATH
|
|
|
|
#
|
|
# TVM: Marc Stephenson (marc@austin.ibm.com) points out we run things
|
|
# like `file', et. al. and expect the output to be what we see in the
|
|
# C/POSIX locale. Make sure it is so.
|
|
#
|
|
LANG=C
|
|
export LANG
|
|
|
|
IFS=""
|
|
while read f
|
|
do
|
|
# uncomment the next line if debugging
|
|
# echo "### processing $f"
|
|
|
|
#
|
|
# Only run the file command once per file:
|
|
#
|
|
file_output=`file $f`
|
|
|
|
#
|
|
# First, check to see if it's a script, and try figure out what
|
|
# intpreter it requires. This is more work on HP-UX, since `file'
|
|
# doesn't tell us what interpreter the script uses, or even if it
|
|
# really is a script.
|
|
#
|
|
is_shell_script=`od -N 2 -t c $f 2>/dev/null | grep '0000000 # !'`
|
|
if test X"$is_shell_script" != X ; then
|
|
#
|
|
# it's a shell script. Now figure out what interpreter it needs
|
|
# Look at me! I'm good with sed. ;-)
|
|
interp=`head -1 $f | sed -e 's/^#! \{0,1\}\([^ ]*\).*$/\1/'`
|
|
if test X"$interp" != X ; then
|
|
echo "$interp"
|
|
#
|
|
# We've found what we need for this file. Skip back to the
|
|
# top of the loop. This saves me an `else' and another indent
|
|
# level! ;-)
|
|
continue
|
|
fi
|
|
fi
|
|
|
|
#
|
|
# The `else' is implied here by the `continue' above
|
|
#
|
|
|
|
#
|
|
# Is it a shared library?
|
|
#
|
|
maybe_shared_lib=`echo "$file_output" | egrep '(executable|library)'`
|
|
if test X"$maybe_shared_lib" != X ; then
|
|
chatr $f 2>/dev/null \
|
|
| awk '
|
|
|
|
#
|
|
# For you non-awk-ers, no single quotes in comments -- the shell
|
|
# sees them and things get hosed.
|
|
#
|
|
|
|
BEGIN {
|
|
in_shlib_list = 0;
|
|
FS = " ";
|
|
RS = "\n";
|
|
}
|
|
|
|
# uncomment the next line for debugging information
|
|
#{ print NR, ": ", $0 }
|
|
|
|
|
|
in_shlib_list == 1 && /dynamic[ ]+[\/\.]/ {
|
|
|
|
# split the line on "/" and print out the last element
|
|
numfields = split($0,fields,"/")
|
|
print fields[numfields]
|
|
|
|
}
|
|
|
|
/^ +shared library list: *$/ {
|
|
in_shlib_list = 1
|
|
}
|
|
|
|
/^ +shared library binding: *$/ {
|
|
exit
|
|
}
|
|
' # end of awk
|
|
fi # end of shared library if.
|
|
done | sort -u
|
|
#comment out the previous line and uncomment the next one if debugging.
|
|
#done
|