#! /usr/bin/perl

##

## vi:ts=4:et

##

##---------------------------------------------------------------------------##

##

##  Author:

##      Markus F.X.J. Oberhumer         <markus@oberhumer.com></markus@oberhumer.com>

##

##  Description:

##      Convert the output of the LZO lzotest program into a nice table.

##

##  Copyright (C) 1996-2008 Markus Franz Xaver Johannes Oberhumer

##

##---------------------------------------------------------------------------##

$PROG = $0;

require 'ctime.pl';

#

# get options

#

while ($_ = $ARGV[ $[ ], /^-/) {

    shift(@ARGV);

    /^--$/ && ($opt_last = 1, last);

    /^--sort=name/ && ($opt_sort_summary_by_name++, next);

    /^--sort=ratio/ && ($opt_sort_summary_by_ratio++, next);

    /^-s/ && ($opt_summary_only++, next);

    /^-t/ && ($opt_clear_time++, next);

}

$alg = '';

$sep = "+" . ("-" x 76) . "+\n";

$block_size = -1;

$n = 0;

@algs = ();

%average = ();

%total = ();

$lzo_version_string = '';

$lzo_version_date = '';

# /***********************************************************************

# //

# ************************************************************************/

while (<>) {

    if (/(^|\s)(\d+)\s+block\-size/i) {

        if ($block_size < 0) {

            $block_size = $2;

            &intro($block_size);

        } elsif ($block_size != $2) {

            die "$PROG: block-size: $block_size != $2\n";

        }

        next;

    }

    if (/^\s*LZO\s.*library\s+\(v\s*([\w\.\s]+)\s*\,\s*([^\)]+)\)/) {

        $lzo_version_string = $1;

        $lzo_version_date = $2;

        next;

    }

    if (/^\s*(\S+(\s+\[\S+\])?)\s*(\|.*\|)\s*$/i) {

        if ($1 ne $alg) {

            &footer($1);

            &header($1);

        }

        $line = $3;

        &stats(*line);

        print "$line\n" if (!$opt_summary_only);

    }

}

&footer($1);

&summary();

exit(0);

# /***********************************************************************

# //

# ************************************************************************/

sub stats {

    local (*l) = @_;

    local ($x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8);

    if ($l !~ /^\|\s*(.+?)\s+(\d+)\s+(\d+)\s+(\d+)\s+([\d\.]+\s+)?([\d\.]+\s+)?([\d\.]+)\s+([\d\.]+)\s*\|/) {

        die $_;

    }

    $n++;

    $x1 = $1; $x2 = $2; $x3 = $3; $x4 = $4;

    $x5 = ($x2 > 0) ? $x4 * 100.0 / $x2 : 0.0;

    $x6 = ($x2 > 0) ? $x4 *   8.0 / $x2 : 0.0;

    $x7 = $7; $x8 = $8;

    # convert from kB/s to MB/s (for old versions of lzotest)

    if ($x7 =~ /\.\d\d$/) { $x7 = $x7 / 1000.0; }

    if ($x8 =~ /\.\d\d$/) { $x8 = $x8 / 1000.0; }

    if ($opt_clear_time) {

        $x7 = $x8 = 0.0;

    }

    $s[0] += $x2;

    $s[1] += $x3;

    $s[2] += $x4;

    $s[3] += $x5;

    $s[4] += $x6;

    if ($x7 > 0) {

        $s[5] += 1.0 / $x7; $sn[5] += 1;

    }

    if ($x8 > 0) {

        $s[6] += 1.0/ $x8; $sn[6] += 1;

    }

    $x1 =~ s/\s+$//;

    $l = sprintf("| %-14s %10d %5d %9d %6.1f %5.2f %9.3f %9.3f |",

                    $x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8);

}

# /***********************************************************************

# //

# ************************************************************************/

sub header {

    local ($t) = @_;

    $alg = $t;

    # reset stats

    $n = 0;

    @s = (0, 0, 0, 0.0, 0.0, 0.0, 0.0);

    @sn = (0, 0, 0, 0, 0, 0, 0);

    return if $opt_summary_only;

    print "\n$alg\n\n";

    print $sep;

print <

| File Name          Length   CxB    ComLen  Ratio% Bits  Com MB/s  Dec MB/s |

| ---------          ------   ---    ------  -----  ----  --------  -------- |

EndOfString

}

# /***********************************************************************

# //

# ************************************************************************/

sub footer {

    local ($t) = @_;

    local ($shm5, $shm6);

    return unless $alg;

    die if $n <= 0;

    die if $s[0] <= 0;

    # harmonic mean

    $shm5 = $s[5] > 0 ? $sn[5] / $s[5] : 0.0;

    $shm6 = $s[6] > 0 ? $sn[6] / $s[6] : 0.0;

    push(@algs,$alg);

    $average{$alg} =

        sprintf("| %-14s %10d %5d %9d %6.1f %5.2f %9.3f %9.3f |\n",

            "Average", $s[0]/$n, $s[1]/$n, $s[2]/$n,

            $s[3]/$n, $s[4]/$n,

            $shm5, $shm6);

    $total{$alg} =

        sprintf("| %-14s %10d %5d %9d %6.1f %5.2f %9.3f %9.3f |\n",

            "Total", $s[0], $s[1], $s[2],

            $s[2]/$s[0]*100, $s[2]/$s[0]*8,

            $shm5, $shm6);

    return if $opt_summary_only;

    print $sep;

    print $average{$alg};

    print $total{$alg};

    print $sep, "\n";

}

# /***********************************************************************

# //

# ************************************************************************/

$sort_mode = 0;

sub cmp_by_ratio {

    local ($aa, $bb);

    if ($sort_mode == 0) {

        $aa = $average{$a};

        $bb = $average{$b};

    } elsif ($sort_mode == 1) {

        $aa = $total{$a};

        $bb = $total{$b};

    } else {

        die;

    }

    ($aa =~ m%^\s*\|\s+\S+\s+\d+\s+\d+\s+\d+\s+(\S+)%) || die;

    $aa = $1;

    ($bb =~ m%^\s*\|\s+\S+\s+\d+\s+\d+\s+\d+\s+(\S+)%) || die;

    $bb = $1;

    # $aa < $bb;

    $aa cmp $bb;

}

# /***********************************************************************

# //

# ************************************************************************/

sub summary {

    local ($l);

    local (@k);

    $sort_mode = 0;

    if ($opt_sort_summary_by_name) {

        @k = sort(@algs);

    } elsif ($opt_sort_summary_by_ratio) {

        @k = sort(cmp_by_ratio @algs);

    } else {

        @k = @algs;

    }

    print "\n\n";

    print "Summary of average values\n\n";

    print $sep;

print <

| Algorithm          Length   CxB    ComLen  Ratio% Bits  Com MB/s  Dec MB/s |

| ---------          ------   ---    ------  -----  ----  --------  -------- |

EndOfString

    for (@k) {

        $l = $average{$_};

        $l =~ s/Average[\s]{7}/sprintf("%-14s",$_)/e;

        print $l;

    }

    print $sep;

    $sort_mode = 1;

    if ($opt_sort_summary_by_name) {

        @k = sort(@algs);

    } elsif ($opt_sort_summary_by_ratio) {

        @k = sort(cmp_by_ratio @algs);

    } else {

        @k = @algs;

    }

    print "\n\n";

    print "Summary of total values\n\n";

    print $sep;

print <

| Algorithm          Length   CxB    ComLen  Ratio% Bits  Com MB/s  Dec MB/s |

| ---------          ------   ---    ------  -----  ----  --------  -------- |

EndOfString

    for (@k) {

        $l = $total{$_};

        $l =~ s/Total[\s]{9}/sprintf("%-14s",$_)/e;

        print $l;

    }

    print $sep;

}

# /***********************************************************************

# //

# ************************************************************************/

sub intro {

    local ($bs) = @_;

    local ($v, $t, $x);

    local ($u, $uname_m, $uname_s, $uname_r);

    $t = &ctime(time); chop($t);

    $t = sprintf("%-55s |", $t);

    $v='';

    if ($lzo_version_string) {

        $v = $lzo_version_string;

        $v .= ', ' . $lzo_version_date if $lzo_version_date;

        $v = sprintf("%-55s |", $v);

        $v = sprintf("| LZO version      : %s\n", $v);

    }

    if ($bs % 1024 == 0) {

        $x = sprintf("%d (= %d kB)", $bs, $bs / 1024);

    } else {

        $x = sprintf("%d (= %.3f kB)", $bs, $bs / 1024.0);

    }

    $x = sprintf("%-55s |", $x);

    $u='';

    if (1 == 1) {

        $uname_s = `uname -s`; $uname_s =~ s/^\s+//; $uname_s =~ s/\s+$//;

        $uname_r = `uname -r`; $uname_r =~ s/^\s+//; $uname_r =~ s/\s+$//;

        $uname_m = `uname -m`; $uname_m =~ s/^\s+//; $uname_m =~ s/\s+$//;

        if ($uname_s && $uname_m) {

            $u = $uname_s;

            $u .= ' ' . $uname_r if $uname_r;

            $u .= ' ' . $uname_m;

            $u = sprintf("%-55s |", $u);

            $u = sprintf("| Operating system : %s\n", $u);

        }

    }

    print <

+----------------------------------------------------------------------------+

| DATA COMPRESSION TEST                                                      |

| =====================                                                      |

| Time of run      : $t

$v$u| Context length   : $x

+----------------------------------------------------------------------------+

Notes:

- CxB is the number of independent blocks a file was splitted

- MB/s is the speed measured in 1,000,000 uncompressed bytes per second

- all averages are calculated from the un-rounded values

- the average ratio & bits are calculated by the arithmetic mean

- the average speed is calculated by the harmonic mean

EndOfString

}

__END__

### insert something like this after 'Time of run':

| Hardware         : Intel Pentium 133, 64 MB RAM, 256 kB Cache          |

| Operating system : MS-DOS 7.10, HIMEM.SYS 3.95, DOS/4GW 1.97           |

| Compiler         : Watcom C32 10.5                                     |

| Compiler flags   : -mf -5r -oneatx                                     |

| Test suite       : Calgary Corpus Suite                                |

| Files in suite   : 14                                                  |

| Timing accuracy  : One part in 100                                     |