: ${LIB?}

SORTF="-u +0 -2 +2n +0"

T=/tmp/$$
trap "rm -f $T.*; exit 1" 1 2 3 15
trap "rm -f $T.*; exit" 0

NL='
'

TST=bin
P=place-i
PL=
F=
RUN=
O=

for A
do
	case $A in
	-T)	TST=new ;;
	-[dgpw])
		P="place$A" ;;
	-n)	RUN=no ;;
	-*)	O="$O $A" ;;
	*.pl)	PL="$PL $A" ;;
	*)	F="$F $A" ;;
	esac
done
case $PL in
?*)	case $F in
	?*)	prompt "too many input files$NL"
		exit 2
	esac
	;;

"")	$LIB/$TST/wir -b $F >$T.t1
	sort $SORTF <$T.t1 >$T.t2
	$LIB/$TST/place-r <$T.t2 >$T.t1
	PL=$T.t1 ;;
esac

case $RUN in

"")	$LIB/$TST/$P $O $PL ;;

no)	mv $PL .pl
esac