dynlink-scanner

#!/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 -vR $ROOT `portageq contents $ROOT/ $cpv | xargs -r -L 1 "$0" --linking-deps` | cut -f1 -d' ' | sort -u
done