7d595e33c8
* contrib/hblzf/3rd/liblzf/Changes
* contrib/hblzf/3rd/liblzf/crc32.h
* contrib/hblzf/3rd/liblzf/LICENSE
* contrib/hblzf/3rd/liblzf/lzf.h
* contrib/hblzf/3rd/liblzf/lzf_c.c
* contrib/hblzf/3rd/liblzf/lzf_d.c
* contrib/hblzf/3rd/liblzf/lzfP.h
* contrib/hblzf/3rd/liblzf/README
+ Set svn:eol-style=native
* contrib/hblzf/3rd/liblzf/lzf.hbc
* contrib/hblzf/3rd/liblzf/lzf.hbp
* contrib/hblzf/hblzf.c
* contrib/hblzf/hblzf.hbc
* contrib/hblzf/hblzf.hbp
* contrib/hblzf/tests/hbmk.hbm
* contrib/hblzf/tests/test.prg
* contrib/hblzf/tests/test2.prg
! Fixed SVN ID (I hope) and set svn:eol-style=native
56 lines
1.4 KiB
Plaintext
56 lines
1.4 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* hbmk2 testz.prg -lhbbz2 -lbz2 -lhblzf -llzf -es2 -w3 */
|
|
|
|
#include "simpleio.ch"
|
|
|
|
#define _NREPL_ 50
|
|
|
|
PROCEDURE Main()
|
|
LOCAL cStr := Replicate( hb_memoRead( hb_argv( 0 ) ), _NREPL_ )
|
|
LOCAL aCompressedData := { NIL, NIL, NIL, NIL }
|
|
LOCAL hFuncs := { ;
|
|
"GZIP" => @hb_gzCompress(), ;
|
|
"ZLIB" => @hb_zCompress(), ;
|
|
"BZ2 " => @hb_bz2_compress(), ;
|
|
"LZF " => @hb_lzf_compress();
|
|
}
|
|
LOCAL hFuncs2 := { ;
|
|
"GZIP" => @hb_zUncompress(), ;
|
|
"ZLIB" => @hb_zUncompress(), ;
|
|
"BZ2 " => @hb_bz2_uncompress(), ;
|
|
"LZF " => @hb_lzf_decompress();
|
|
}
|
|
|
|
MakeTest( @hFuncs, @aCompressedData, @cStr )
|
|
MakeTest( @hFuncs2, @aCompressedData )
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE MakeTest( ... )
|
|
LOCAL e, e2, cRes, cFmt
|
|
LOCAL nResult := 0
|
|
LOCAL nBegin, nEnd
|
|
LOCAL lCmp := ( PCount() > 2 )
|
|
|
|
FOR EACH e, e2 IN hb_pValue( 1 ), hb_pValue( 2 )
|
|
nBegin := hb_secondsCPU()
|
|
cRes := Eval( e:__enumValue(), iif( lCmp, hb_pValue( 3 ), e2 ), NIL, @nResult )
|
|
nEnd := hb_secondsCPU()
|
|
IF lCmp
|
|
e2 := cRes
|
|
ENDIF
|
|
cFmt := hb_strFormat( ;
|
|
"%s: %d -> %d, Ratio %.2f%%, Times %.2f", ;
|
|
e:__enumKey(), ;
|
|
Len( IIf( lCmp, hb_pValue( 3 ), e2 ) ), Len( cRes ), ;
|
|
( Len( cRes ) / Len( IIf( lCmp, hb_pValue( 3 ), e2 ) ) ) * 100, ;
|
|
nEnd - nBegin;
|
|
)
|
|
? cFmt
|
|
NEXT
|
|
?
|
|
RETURN
|