tabulate

: tabulate compare output

format=$'%10s %12s %8s %8s\n'

function elapsed
{
	integer ss=0 ds=0 h m s d
	typeset t
	for t
	do	case $t in
		*h*)	h=${t%h*}; t=${t#*h} ;;
		*)	h=0 ;;
		esac
		case $t in
		*m*)	m=${t%m*}; t=${t#*m} ;;
		*)	m=0 ;;
		esac
		t=${t%s}
		case $t in
		*.*)	s=${t%.*}; t=${t#*.}; d=${t#*.} ;;
		*)	s=$t d=0 ;;
		esac
		(( ss += (h * 60 + m) * 60 + s ))
		(( ds += d ))
	done
	while (( ds >= 100 ))
	do	(( ds -= 100 ))
		(( ss += 1 ))
	done
	print -f $'%d.%02d\n' $ss $ds
}

while	read cmd opt part uncompress_size x
do	case $cmd in
	gzip)	method=gzip
		uncompress_size=$opt
		;;
	pzip|rzip)
		method=${part#*-}
		method=${method%.*}
		;;
	*)	continue
		;;
	esac
	read x
	read x compress_real
	read x compress_user
	read x compress_sys
	read x
	read compress_size x
	read x
	read x uncompress_real
	read x uncompress_user
	read x uncompress_sys || break
	print -f "$format" $method $compress_size $(elapsed $compress_user $compressed_sys) $(elapsed $uncompress_user $uncompress_sys)
done