128 lines
2.5 KiB
Plaintext
128 lines
2.5 KiB
Plaintext
|
#!/bin/sh
|
||
|
|
#
|
||
|
|
# syspkgdeps [-a arch] [-m machine] [-s setsdir] [-p prefix] sets
|
||
|
|
#
|
||
|
|
# Compute naive package dependencies based on file & directory
|
||
|
|
# nesting. E.g., if pkg P contains /foo/bar and Q contains /foo,
|
||
|
|
# then Q is considered a dependency of P.
|
||
|
|
#
|
||
|
|
|
||
|
|
#set -u
|
||
|
|
|
||
|
|
DB="db -q"
|
||
|
|
|
||
|
|
#
|
||
|
|
# set defaults and import setlist subroutines
|
||
|
|
#
|
||
|
|
. ./sets.subr
|
||
|
|
setd=$(pwd)
|
||
|
|
prefix=/
|
||
|
|
|
||
|
|
usage() {
|
||
|
|
exec 1>&2
|
||
|
|
|
||
|
|
echo "Usage: $0 [-a arch] [-m machine] [-s setsdir] [-p prefix] sets"
|
||
|
|
echo " -a arch set arch (e.g, m68k, mips, powerpc) [$machine_arch]"
|
||
|
|
echo " -m machine set machine (e.g, amiga, i386, macppc) [$machine]"
|
||
|
|
echo " -s setsdir directory to find sets [$setd]"
|
||
|
|
echo " -p prefix prefix for created plist [$prefix]"
|
||
|
|
echo " sets sets to find dependencies for"
|
||
|
|
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
|
||
|
|
# parse arguments
|
||
|
|
while : ; do
|
||
|
|
case $1 in
|
||
|
|
-a*)
|
||
|
|
machine_arch=`MACHINE_ARCH=${2} ${make} print_machine_arch`
|
||
|
|
machine_cpu=`MACHINE_ARCH=${2} ${make} print_machine_cpu`
|
||
|
|
shift
|
||
|
|
;;
|
||
|
|
-m*)
|
||
|
|
machine=$2; shift
|
||
|
|
;;
|
||
|
|
-s*)
|
||
|
|
setd=$2; shift
|
||
|
|
;;
|
||
|
|
-p*)
|
||
|
|
prefix=$2; shift
|
||
|
|
;;
|
||
|
|
-*)
|
||
|
|
usage
|
||
|
|
;;
|
||
|
|
*)
|
||
|
|
break
|
||
|
|
;;
|
||
|
|
esac
|
||
|
|
shift
|
||
|
|
done
|
||
|
|
if [ $# -lt 1 ]; then
|
||
|
|
usage
|
||
|
|
fi
|
||
|
|
|
||
|
|
sets=$@
|
||
|
|
|
||
|
|
if [ "$object_fmt" = "ELF" ]; then
|
||
|
|
shlib=elf
|
||
|
|
else
|
||
|
|
shlib=aout
|
||
|
|
fi
|
||
|
|
stlib=$shlib
|
||
|
|
|
||
|
|
# Turn off shlibs for some ports.
|
||
|
|
if [ "$machine_cpu" = "sh3" -o "$machine_arch" = "m68000" ]; then
|
||
|
|
shlib=no
|
||
|
|
fi
|
||
|
|
|
||
|
|
lkm=yes
|
||
|
|
# Turn off LKMs for some ports.
|
||
|
|
if [ "$machine" = "evbppc" ]; then
|
||
|
|
lkm=no
|
||
|
|
fi
|
||
|
|
|
||
|
|
# Turn off lintlibs for some ports.
|
||
|
|
# Not needed anymore, leave the hook here for future use.
|
||
|
|
lintlibs=
|
||
|
|
|
||
|
|
# TBD clean up
|
||
|
|
SCRATCH=$(mktemp -d /var/tmp/$(basename $0).XXXXXX)
|
||
|
|
|
||
|
|
[ $? -ne 0 ] && { echo "Could not create scratch directory." 1>&2 ; exit 1 ; }
|
||
|
|
|
||
|
|
PATH_MEMBERSHIP=$SCRATCH/path-membership
|
||
|
|
PATH_TO_PKGNAME=$SCRATCH/pathpkg.db
|
||
|
|
PARENT_PKGNAMES=$SCRATCH/parent-pkgnames
|
||
|
|
PARENT_PATHNAMES=$SCRATCH/parent-pathnames
|
||
|
|
|
||
|
|
echo "indexing packages by pathnames" 1>&2
|
||
|
|
|
||
|
|
list_set_files $sets | sed 's/^\.\///' | \
|
||
|
|
env PREFIX=$prefix awk '{
|
||
|
|
if ($1 == ".") {
|
||
|
|
print ENVIRON["PREFIX"] " " $2;
|
||
|
|
} else {
|
||
|
|
print ENVIRON["PREFIX"] $1 " " $2;
|
||
|
|
}
|
||
|
|
}' | sort -k 1 -u > $PATH_MEMBERSHIP
|
||
|
|
|
||
|
|
$DB -w -f - btree $PATH_TO_PKGNAME < $PATH_MEMBERSHIP || echo "shit" 1>&2
|
||
|
|
|
||
|
|
echo "computing parent pathnames" 1>&2
|
||
|
|
|
||
|
|
while read pathname pkgname; do
|
||
|
|
# print parent pathname
|
||
|
|
dirname $pathname
|
||
|
|
done < $PATH_MEMBERSHIP > $PARENT_PATHNAMES
|
||
|
|
|
||
|
|
echo "selecting parent packages using parent pathnames" 1>&2
|
||
|
|
|
||
|
|
$DB -f - btree $PATH_TO_PKGNAME < $PARENT_PATHNAMES | \
|
||
|
|
paste $PATH_MEMBERSHIP - | \
|
||
|
|
awk '{ if ($2 != $4) print $2 " " $4; }' | sort -u | ./culldeps
|
||
|
|
|
||
|
|
if [ $? -ne 0 ]; then
|
||
|
|
echo "error in parent-directory lookup, aborting" 1>&2
|
||
|
|
exit 1
|
||
|
|
fi
|