32f95811e1
- contrib/hbbzip2
+ contrib/hbbz2
* contrib/Makefile
* contrib/hbbz2/hbbzip2.hbc
* Renaming hbbzip2 to hbbz2 (pass 1/2)
13 lines
185 B
Plaintext
13 lines
185 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
LOCAL cI, cJ, nErr
|
|
cI := "Hello"
|
|
cJ := HB_BZ2_COMPRESS( cI,, @nErr )
|
|
? nErr, LEN( cJ ), HB_STRTOHEX( cJ )
|
|
RETURN
|