Cross Reference: /ast/src/cmd/pzip/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