#!/bin/sh
#   ftar -  create and extract frozen tarchives
#   ztar -  create and extract compressed tarchives
#         Dennis T. Flaherty (dennisf@Miles.com)

bits=
cmd=c
case `basename $0` in
ftar)
	compress=freeze
	zcat=fcat
	Z=F
	;;
ztar)
	compress=compress
	zcat=zcat
	Z=Z
	;;
esac

while true
do
	case $1 in
	-b*)	bits=$1 ;;
	-d)	cmd=d ;;
	-t)	cmd=t ;;
	*)	break ;;
	esac
	shift
done

case $cmd in
t)
	for i in ${*--}
	do
		$zcat $i | tar -tvf -
	done
	;;
d)
	for i in ${*--}
	do
		$zcat $i | tar -xovf -
		echo rm -f $i\?\ \\c
		read books
		test x$books = xy -o x$books = xyes && rm -f $i
	done
	;;
c)
	for i
	do
		i=${i%/}
		tar -cvf - $i | $compress $bits >$i.tar.$Z
		echo rm -rf $i\?\ \\c
		read books
		test x$books = xy -o x$books = xyes && rm -rf $i
	done
	;;
esac

exit 0