mudler
51 lines
1.5 KiB
Bash
51 lines
1.5 KiB
Bash
#!/bin/bash
|
|
# Maciej Mrozowski <reavertm@gentoo.org>
|
|
|
|
# Returns colon separated list of linking dependencies
|
|
get_link_deps()
|
|
{
|
|
KEY=
|
|
for dep in `scanelf --use-ldpath -yBF '%f %n' "$1"`; do
|
|
if [[ -z $KEY ]]; then
|
|
KEY="$dep"
|
|
continue
|
|
fi
|
|
echo $dep
|
|
done
|
|
}
|
|
|
|
# Print linking deps for given executable or shared object in alphabetical order.
|
|
# Also try to dlopen shared objects in order to detect missing/broken dependencies.
|
|
if [[ "$1" = --linking-deps ]]; then
|
|
# Sanity check, file-5.12 is broken, bail out early
|
|
if [[ `file --version | grep --color=never file- | cut -d'-' -f2` == '5.12' ]]; then
|
|
echo "file-5.12 is broken, bailing out"
|
|
exit 1
|
|
fi
|
|
mime=`file -b --mime-type "$2"`
|
|
if [[ "$mime" == 'application/x-executable' ]] || [[ "${mime}" == 'application/x-sharedlib' ]]; then
|
|
LINK=`get_link_deps "$2"`
|
|
[[ "$mime" == 'application/x-sharedlib' ]] && /usr/bin/try_dlopen "$2"
|
|
[[ -n $LINK ]] && echo -e ${LINK//,/\\n} | sort -u
|
|
exit 0
|
|
fi
|
|
exit 1
|
|
fi
|
|
|
|
[[ -z $* ]] && echo "usage: `basename $0` <package>" && exit 0
|
|
|
|
# Check whether package is installed
|
|
if ! portageq has_version $ROOT/ $1; then
|
|
echo "$1 is not installed"
|
|
exit 1
|
|
fi
|
|
|
|
# For each installed slot
|
|
for cpv in `portageq match $ROOT/ $1`; do
|
|
echo "Processing $cpv"
|
|
# For each file that belongs to package
|
|
# run dynlink-scanner --linking-deps <file> to obtain its linking dependencies
|
|
# Assign all linking deps to packages and print package names
|
|
qfile -eR $ROOT `portageq contents $ROOT/ $cpv | xargs -r -L 1 "$0" --linking-deps` | cut -f1 -d' ' | sort -u
|
|
done
|