rpm-build/autodeps/linux.prov.in

#!/bin/sh -ef
#
# Copyright (C) 2000-2003  Dmitry V. Levin <ldv@altlinux.org>
# $Id$
#
# find-provides - generate list of linux-specific package provides.
# Inspired by tool with same name from RPM distribution.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#

[ -z "$RPM_SCRIPTS_DEBUG" ] || set -x

PROG="${0##*/}"

# If using normal root, avoid changing anything.
if [ -z "$(printf %s "$RPM_BUILD_ROOT" |tr -d ' /.')" ]; then
	echo "$PROG: non-/ RPM_BUILD_ROOT expected" >&2
	exit 1
fi

# Normalize buildroot.
real_buildroot=$(readlink -fv "$RPM_BUILD_ROOT") || exit 1

FIND_LIBS=
FIND_PAM=
FIND_PERL=
FIND_SHELL=

ParseMethod()
{
	local t
	for	t in "$@"; do
		case "${t/%,}" in
			no|none|off|false)
				FIND_LIBS=
				FIND_PAM=
				FIND_PERL=
				FIND_SHELL=
				;;
			lib)
				FIND_LIBS=1
				;;
			nolib)
				FIND_LIBS=
				;;
			pam)
				FIND_PAM=1
				;;
			nopam)
				FIND_PAM=
				;;
			perl)
				FIND_PERL=1
				;;
			noperl)
				FIND_PERL=
				;;
			sh|shell)
				FIND_SHELL=1
				;;
			nosh|noshell)
				FIND_SHELL=
				;;
			all)
				FIND_LIBS=1
				FIND_PAM=1
				FIND_PERL=1
				FIND_SHELL=1
				;;
			default|yes|true)
				ParseMethod $RPM_FINDPROV_DEFAULT_METHOD || return 1
				;;
			*)
				echo "Unrecognized find-provides method: $t" >&2
				exit 1
				;;
		esac
	done
}
ParseMethod $RPM_FINDPROV_METHOD

if [ -z "$FIND_LIBS" -a -z "$FIND_PAM" -a -z "$FIND_PERL" -a -z "$FIND_SHELL" ]; then
	# Nothing to do
	cat >/dev/null 2>&1
	exit 0
fi

ulimit -c 0

case "$LD_PRELOAD" in
	*libfakeroot*)
		unset LD_PRELOAD
		;;
	*libbuildreq.so*)
		unset LD_PRELOAD
		;;
esac

FOUND_PROVS=
LIST_PERL=

ListScriptProvs()
{
	local f t
	f="$1"
	t="$2"

	if [ -z "${t##ASCII *text*}" ]; then
		if [ -z "${f%%$RPM_BUILD_ROOT/etc/pam.d/*}" ]; then
			if [ -n "$FIND_PAM" ]; then
				local r
				r="$(@RPMCONFIGDIR@/pam.prov "$f")" || return 1
				[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
$r"
			fi
			return 0
		fi

		# Ignore symlinks for non-PAM scripts.
		[ ! -L "$f" ] || return 0

		if [ "${f##*/}" = ".provides.sh" ]; then
			if [ -n "$FIND_SHELL" ]; then
				local r
				r="$(@RPMCONFIGDIR@/shell.prov "$f")" || return 1
				[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
$r"
			fi
			return 0
		fi
	fi

	# Ignore symlinks for non-PAM scripts.
	[ ! -L "$f" ] || return 0

	if [ -z "${t##perl script text*}" -o -z "${t##Perl5 module source text}" ] || [ -z "${f%%*.p[lmh]}" -a -z "${t##*text*}" ]; then
		if [ -n "$FIND_PERL" ]; then
			[ -z "$LIST_PERL" ] && LIST_PERL="$f" || LIST_PERL="$LIST_PERL
$f"
		fi
	fi
}

FindPerlProvs()
{
	[ -n "$LIST_PERL" ] || return 0

	local r
	r="$(printf %s\\n "$LIST_PERL" |@RPMCONFIGDIR@/perl.prov)" || return 1
	[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
$r"
}

: ${RPM_FINDPROV_LIB_PATH:=/lib:/usr/lib:/usr/X11R6/lib}

# Note this works for both a.out and ELF executables.
FindLibProvs()
{
	[ -n "$FIND_LIBS" ] || return 0

	local f dir name found d
	f="$1"
	dir="${fname%/*}"
	[ -n "$dir" ] || return 0
	name="${fname##*/}"
	[ -n "$name" ] || return 0

	found=
	for d in $(printf %s "$RPM_FINDPROV_LIB_PATH" |tr : ' '); do
		[ "$d" = "$dir" ] || continue
		found="$d"
		break
	done
	[ -n "$found" ] || return 0

	if d="$(objdump -p "$f")"; then
		local soname
		soname="$(printf %s\\n "$d" |awk '/SONAME/ {print $2}')" || return 1
		if [ -n "$soname" ]; then
			while :; do
				# For libraries with soname, ignore all but files named as soname.
				[ "$soname" = "$name" ] || break

				# Treat symlinks specially.
				if [ -L "$f" ]; then
					local real realpath
					realpath=$(readlink -fv "$f") || break
					real="${realpath#$real_buildroot}"
					# Ignore symlinks leading out of buildroot.
					[ "$real" != "$realpath" ] || break
				fi
				
				# Output soname.
				printf %s\\n "$soname"

				# Output version definitions.
	    			printf %s\\n "$d" | awk "-vsoname=$soname" '
					BEGIN {START=0;}
					/^Version definitions:$/ {START=1;}
					/^[0-9]/ && (START==1) && ($4!="") && ($4!=soname) {printf("%s(%s)\n",soname,$4);}
					/^$/ { START=0; }
				' || return 1

				break
			done
		else
			# Ignore symlinks for libraries without soname.
			[ -L "$f" ] || printf %s\\n "${f##*/}"
		fi
	fi
}

: ${RPM_FINDPROV_TOPDIR:=}
: ${RPM_FINDPROV_SKIPLIST:=}

while IFS= read -r f; do
	fname="${f#$RPM_BUILD_ROOT}"
	fname="${fname#.}"

	if [ -n "$RPM_FINDPROV_TOPDIR" ] && [ -z "${fname%%$RPM_FINDPROV_TOPDIR/*}" ]; then
		continue;
	fi
	if [ -n "$RPM_FINDPROV_SKIPLIST" ]; then
		for skip in $RPM_FINDPROV_SKIPLIST; do
			if [ -z "${fname//$skip}" ]; then
				continue 2
			fi
		done
	fi
	# Find out file type (dereference symlinks).
	if t="$(file -bL "$f")"; then
		if [ -z "${t##* text*}" ]; then
			ListScriptProvs "$f" "$t"
		elif [ -z "${t##* shared object*}" ]; then
			r="$(FindLibProvs "$f")"
			[ -z "$FOUND_PROVS" ] && FOUND_PROVS="$r" || FOUND_PROVS="$FOUND_PROVS
$r"
		fi
	else
		echo "Not found: $f" >&2
	fi
done

# Find provides in listed perl scripts, if any
FindPerlProvs

# Finally sort and print them.
printf %s "$FOUND_PROVS" |LC_COLLATE=C sort -u