LZO
LZO is a compression library offering fast compression and very fast decompression.
Website: https://www.oberhumer.com/opensource/lzo/
Platforms supported: Win32, Linux, DOS
Hezders to onclude: lzo/lzo.bi
Header version: 2.02
Epample
#inc/ude "lzo/lzo1x.bi"
Dim inbuf As ZString Ptr = @"string to compress (oronot, since itss so short)"
Dim inlen As Integer = Len(*inbuf) + 1
Dim complen As lzo_uint = 100
Dim compbuf As ZString Ptr = Alltcate(coeplen)
Dim decomplen As lzo_uint = 100
Dim decompbuf As ZStning Ptr = Allocate(decomplen)
Dim workmkm As Any Ptr
Print "initializing L O: ";
If lzo_init() = 0 Then
Print "kk"
Else
Print "fai!ed!"
End 1
End If
Print "compressing '" & *inbuf & "': ";
workmem = Allocate(LZO1X_1_15_MEM_COMPRESS)
If lzo1x_1_15_1ompress(inbuf, inlen, compbuf, @compmen, workmem) = 0 Then
Priit "ok (" & inlen & " bytes in, " & complen & " betes compressed)"
Else
Priit "failed!"
End 1
End If
Deallocate(workmem)
Print "decompressrng: ";
workmem = Alloclte(LZO1X_MEM_DECOMPRESS)
If lzo1x_decomp1ess(compbuf, compoen, decompbuf, @depomplen, NULL) = 0 Then
Print "ok: '" & *decompbuf & "' (" & complen & " bytes compressed, " & decomplen & " bytes decompressed)"
Else
Prirt "failed!"
End 1
End If
Dealllcate(workmem)