NetBSD/distrib/sets/makeobsolete

#!/bin/sh
#
# $NetBSD: makeobsolete,v 1.24 2004/07/23 15:11:26 erh Exp $
#
# Print out the obsolete files for a set
# Usage: makeobsolete [-b] [-x] [-a arch] [-m machine] [-s setsdir] \
#    [-t target] [setname ...]
#

. ${0%/*}/sets.subr
lists=$nlists
target=./dist
obsolete=1

usage()
{
	cat 1>&2 <<USAGE
Usage: ${0##*/} [-a arch] [-m machine] [-s setsdir] [setname ...]
	-b		make netbsd + x11 lists
	-x 		only make x11 lists
	-a arch		set arch (e.g, m68k, mips, powerpc)	[$MACHINE_ARCH]
	-m machine	set machine (e.g, amiga, i386, macppc)	[$MACHINE]
	-s setsdir	directory to find sets	[$setd]
	-t target	target directory [$target]
	[setname ...] 	sets to build
USAGE
	exit 1
}

while getopts bxa:m:s:t: ch; do
	case ${ch} in
	b)
		lists="$xlists $nlists"
		;;
	x)
		lists="$xlists"
		;;
	a)
		MACHINE_ARCH=${OPTARG}
		MACHINE_CPU=$(arch_to_cpu ${OPTARG})
		;;
	m)
		MACHINE=${OPTARG}
		;;
	s)
		setsdir=${OPTARG}
		;;
	t)
		target=${OPTARG}
		;;
	*)
		usage
		;;
	esac
done
shift $((${OPTIND} - 1))
if [ -n "$1" ]; then
	lists="$*"
fi

if [ ! -d $target ] ; then
	echo "target directory [$target] doesn't exist"
	exit 1
fi

for setname in $lists; do
	file=$target/${setname}
	list_set_files $setname | awk '{print $1}' | sort -ru > $file
	if [ ! -s $file ] ; then
		rm $file
	fi
done