Merge commit '60d692811c12788ed4468d5ff680633304e8f641' as 'tkimg'

7 files changed, 618 insertions, 0 deletions

diff --git a/tkimg/compat/zlib/old/Makefile.emx b/tkimg/compat/zlib/old/Makefile.emx
new file mode 100755
index 0000000..3edda09
--- /dev/null
+++ b/tkimg/compat/zlib/old/Makefile.emx
@@ -0,0 +1,69 @@
+# Makefile for zlib.  Modified for emx/rsxnt by Chr. Spieler, 6/16/98.

+# Copyright (C) 1995-1998 Jean-loup Gailly.

+# For conditions of distribution and use, see copyright notice in zlib.h

+

+# To compile, or to compile and test, type:

+#

+#   make -fmakefile.emx;  make test -fmakefile.emx

+#

+

+CC=gcc -Zwin32

+

+#CFLAGS=-MMD -O

+#CFLAGS=-O -DMAX_WBITS=14 -DMAX_MEM_LEVEL=7

+#CFLAGS=-MMD -g -DDEBUG

+CFLAGS=-MMD -O3 $(BUTT) -Wall -Wwrite-strings -Wpointer-arith -Wconversion \

+             -Wstrict-prototypes -Wmissing-prototypes

+

+# If cp.exe is available, replace "copy /Y" with "cp -fp" .

+CP=copy /Y

+# If gnu install.exe is available, replace $(CP) with ginstall.

+INSTALL=$(CP)

+# The default value of RM is "rm -f."  If "rm.exe" is found, comment out:

+RM=del

+LDLIBS=-L. -lzlib

+LD=$(CC) -s -o

+LDSHARED=$(CC)

+

+INCL=zlib.h zconf.h

+LIBS=zlib.a

+

+AR=ar rcs

+

+prefix=/usr/local

+exec_prefix = $(prefix)

+

+OBJS = adler32.o compress.o crc32.o deflate.o gzclose.o gzlib.o gzread.o \

+       gzwrite.o infback.o inffast.o inflate.o inftrees.o trees.o uncompr.o zutil.o

+

+TEST_OBJS = example.o minigzip.o

+

+all: example.exe minigzip.exe

+

+test: all

+	./example

+	echo hello world | .\minigzip | .\minigzip -d

+

+%.o : %.c

+	$(CC) $(CFLAGS) -c $< -o $@

+

+zlib.a: $(OBJS)

+	$(AR) $@ $(OBJS)

+

+%.exe : %.o $(LIBS)

+	$(LD) $@ $< $(LDLIBS)

+

+

+.PHONY : clean

+

+clean:

+	$(RM) *.d

+	$(RM) *.o

+	$(RM) *.exe

+	$(RM) zlib.a

+	$(RM) foo.gz

+

+DEPS := $(wildcard *.d)

+ifneq ($(DEPS),)

+include $(DEPS)

+endif

diff --git a/tkimg/compat/zlib/old/Makefile.riscos b/tkimg/compat/zlib/old/Makefile.riscos
new file mode 100755
index 0000000..5fa8d29
--- /dev/null
+++ b/tkimg/compat/zlib/old/Makefile.riscos
@@ -0,0 +1,151 @@
+# Project:   zlib_1_03

+# Patched for zlib 1.1.2 rw@shadow.org.uk 19980430

+# test works out-of-the-box, installs `somewhere' on demand

+

+# Toolflags:

+CCflags = -c -depend !Depend -IC: -g -throwback  -DRISCOS  -fah

+C++flags = -c -depend !Depend -IC: -throwback

+Linkflags = -aif -c++ -o $@

+ObjAsmflags = -throwback -NoCache -depend !Depend

+CMHGflags =

+LibFileflags = -c -l -o $@

+Squeezeflags = -o $@

+

+# change the line below to where _you_ want the library installed.

+libdest = lib:zlib

+

+# Final targets:

+@.lib:   @.o.adler32 @.o.compress @.o.crc32 @.o.deflate @.o.gzio \

+        @.o.infblock @.o.infcodes @.o.inffast @.o.inflate @.o.inftrees @.o.infutil @.o.trees \

+        @.o.uncompr @.o.zutil

+        LibFile $(LibFileflags) @.o.adler32 @.o.compress @.o.crc32 @.o.deflate \

+        @.o.gzio @.o.infblock @.o.infcodes @.o.inffast @.o.inflate @.o.inftrees @.o.infutil \

+        @.o.trees @.o.uncompr @.o.zutil

+test:   @.minigzip @.example @.lib

+	@copy @.lib @.libc  A~C~DF~L~N~P~Q~RS~TV

+	@echo running tests: hang on.

+	@/@.minigzip -f -9 libc

+	@/@.minigzip -d libc-gz

+	@/@.minigzip -f -1 libc

+	@/@.minigzip -d libc-gz

+	@/@.minigzip -h -9 libc

+	@/@.minigzip -d libc-gz

+	@/@.minigzip -h -1 libc

+	@/@.minigzip -d libc-gz

+	@/@.minigzip -9 libc

+	@/@.minigzip -d libc-gz

+	@/@.minigzip -1 libc

+	@/@.minigzip -d libc-gz

+	@diff @.lib @.libc

+	@echo that should have reported '@.lib and @.libc identical' if you have diff.

+	@/@.example @.fred @.fred

+	@echo that will have given lots of hello!'s.

+

+@.minigzip:   @.o.minigzip @.lib C:o.Stubs

+        Link $(Linkflags) @.o.minigzip @.lib C:o.Stubs

+@.example:   @.o.example @.lib C:o.Stubs

+        Link $(Linkflags) @.o.example @.lib C:o.Stubs

+

+install: @.lib

+	cdir $(libdest)

+	cdir $(libdest).h

+	@copy @.h.zlib $(libdest).h.zlib A~C~DF~L~N~P~Q~RS~TV

+	@copy @.h.zconf $(libdest).h.zconf A~C~DF~L~N~P~Q~RS~TV

+	@copy @.lib $(libdest).lib  A~C~DF~L~N~P~Q~RS~TV

+	@echo okay, installed zlib in $(libdest)

+

+clean:; remove @.minigzip

+	remove @.example

+	remove @.libc

+	-wipe @.o.* F~r~cV

+	remove @.fred

+

+# User-editable dependencies:

+.c.o:

+        cc $(ccflags) -o $@ $<

+

+# Static dependencies:

+

+# Dynamic dependencies:

+o.example:	c.example

+o.example:	h.zlib

+o.example:	h.zconf

+o.minigzip:	c.minigzip

+o.minigzip:	h.zlib

+o.minigzip:	h.zconf

+o.adler32:	c.adler32

+o.adler32:	h.zlib

+o.adler32:	h.zconf

+o.compress:	c.compress

+o.compress:	h.zlib

+o.compress:	h.zconf

+o.crc32:	c.crc32

+o.crc32:	h.zlib

+o.crc32:	h.zconf

+o.deflate:	c.deflate

+o.deflate:	h.deflate

+o.deflate:	h.zutil

+o.deflate:	h.zlib

+o.deflate:	h.zconf

+o.gzio:	c.gzio

+o.gzio:	h.zutil

+o.gzio:	h.zlib

+o.gzio:	h.zconf

+o.infblock:	c.infblock

+o.infblock:	h.zutil

+o.infblock:	h.zlib

+o.infblock:	h.zconf

+o.infblock:	h.infblock

+o.infblock:	h.inftrees

+o.infblock:	h.infcodes

+o.infblock:	h.infutil

+o.infcodes:	c.infcodes

+o.infcodes:	h.zutil

+o.infcodes:	h.zlib

+o.infcodes:	h.zconf

+o.infcodes:	h.inftrees

+o.infcodes:	h.infblock

+o.infcodes:	h.infcodes

+o.infcodes:	h.infutil

+o.infcodes:	h.inffast

+o.inffast:	c.inffast

+o.inffast:	h.zutil

+o.inffast:	h.zlib

+o.inffast:	h.zconf

+o.inffast:	h.inftrees

+o.inffast:	h.infblock

+o.inffast:	h.infcodes

+o.inffast:	h.infutil

+o.inffast:	h.inffast

+o.inflate:	c.inflate

+o.inflate:	h.zutil

+o.inflate:	h.zlib

+o.inflate:	h.zconf

+o.inflate:	h.infblock

+o.inftrees:	c.inftrees

+o.inftrees:	h.zutil

+o.inftrees:	h.zlib

+o.inftrees:	h.zconf

+o.inftrees:	h.inftrees

+o.inftrees:	h.inffixed

+o.infutil:	c.infutil

+o.infutil:	h.zutil

+o.infutil:	h.zlib

+o.infutil:	h.zconf

+o.infutil:	h.infblock

+o.infutil:	h.inftrees

+o.infutil:	h.infcodes

+o.infutil:	h.infutil

+o.trees:	c.trees

+o.trees:	h.deflate

+o.trees:	h.zutil

+o.trees:	h.zlib

+o.trees:	h.zconf

+o.trees:	h.trees

+o.uncompr:	c.uncompr

+o.uncompr:	h.zlib

+o.uncompr:	h.zconf

+o.zutil:	c.zutil

+o.zutil:	h.zutil

+o.zutil:	h.zlib

+o.zutil:	h.zconf

diff --git a/tkimg/compat/zlib/old/README b/tkimg/compat/zlib/old/README
new file mode 100755
index 0000000..0327768
--- /dev/null
+++ b/tkimg/compat/zlib/old/README
@@ -0,0 +1,3 @@
+This directory contains files that have not been updated for zlib 1.2.x

+

+(Volunteers are encouraged to help clean this up.  Thanks.)

diff --git a/tkimg/compat/zlib/old/descrip.mms b/tkimg/compat/zlib/old/descrip.mms
new file mode 100755
index 0000000..4f9e699
--- /dev/null
+++ b/tkimg/compat/zlib/old/descrip.mms
@@ -0,0 +1,48 @@
+# descrip.mms: MMS description file for building zlib on VMS

+# written by Martin P.J. Zinser <m.zinser@gsi.de>

+

+cc_defs =

+c_deb =

+

+.ifdef __DECC__

+pref = /prefix=all

+.endif

+

+OBJS = adler32.obj, compress.obj, crc32.obj, gzio.obj, uncompr.obj,\

+       deflate.obj, trees.obj, zutil.obj, inflate.obj, infblock.obj,\

+       inftrees.obj, infcodes.obj, infutil.obj, inffast.obj

+

+CFLAGS= $(C_DEB) $(CC_DEFS) $(PREF)

+

+all : example.exe minigzip.exe

+        @ write sys$output " Example applications available"

+libz.olb : libz.olb($(OBJS))

+	@ write sys$output " libz available"

+

+example.exe : example.obj libz.olb

+              link example,libz.olb/lib

+

+minigzip.exe : minigzip.obj libz.olb

+              link minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib

+

+clean :

+	delete *.obj;*,libz.olb;*

+

+

+# Other dependencies.

+adler32.obj : zutil.h zlib.h zconf.h

+compress.obj : zlib.h zconf.h

+crc32.obj : zutil.h zlib.h zconf.h

+deflate.obj : deflate.h zutil.h zlib.h zconf.h

+example.obj : zlib.h zconf.h

+gzio.obj : zutil.h zlib.h zconf.h

+infblock.obj : zutil.h zlib.h zconf.h infblock.h inftrees.h infcodes.h infutil.h

+infcodes.obj : zutil.h zlib.h zconf.h inftrees.h infutil.h infcodes.h inffast.h

+inffast.obj : zutil.h zlib.h zconf.h inftrees.h infutil.h inffast.h

+inflate.obj : zutil.h zlib.h zconf.h infblock.h

+inftrees.obj : zutil.h zlib.h zconf.h inftrees.h

+infutil.obj : zutil.h zlib.h zconf.h inftrees.h infutil.h

+minigzip.obj : zlib.h zconf.h

+trees.obj : deflate.h zutil.h zlib.h zconf.h

+uncompr.obj : zlib.h zconf.h

+zutil.obj : zutil.h zlib.h zconf.h

diff --git a/tkimg/compat/zlib/old/os2/Makefile.os2 b/tkimg/compat/zlib/old/os2/Makefile.os2
new file mode 100755
index 0000000..7ce217e
--- /dev/null
+++ b/tkimg/compat/zlib/old/os2/Makefile.os2
@@ -0,0 +1,136 @@
+# Makefile for zlib under OS/2 using GCC (PGCC)

+# For conditions of distribution and use, see copyright notice in zlib.h

+

+# To compile and test, type:

+#   cp Makefile.os2 ..

+#   cd ..

+#   make -f Makefile.os2 test

+

+# This makefile will build a static library z.lib, a shared library

+# z.dll and a import library zdll.lib. You can use either z.lib or

+# zdll.lib by specifying either -lz or -lzdll on gcc's command line

+

+CC=gcc -Zomf -s

+

+CFLAGS=-O6 -Wall

+#CFLAGS=-O -DMAX_WBITS=14 -DMAX_MEM_LEVEL=7

+#CFLAGS=-g -DDEBUG

+#CFLAGS=-O3 -Wall -Wwrite-strings -Wpointer-arith -Wconversion \

+#           -Wstrict-prototypes -Wmissing-prototypes

+

+#################### BUG WARNING: #####################

+## infcodes.c hits a bug in pgcc-1.0, so you have to use either

+## -O# where # <= 4 or one of (-fno-ommit-frame-pointer or -fno-force-mem)

+## This bug is reportedly fixed in pgcc >1.0, but this was not tested

+CFLAGS+=-fno-force-mem

+

+LDFLAGS=-s -L. -lzdll -Zcrtdll

+LDSHARED=$(CC) -s -Zomf -Zdll -Zcrtdll

+

+VER=1.1.0

+ZLIB=z.lib

+SHAREDLIB=z.dll

+SHAREDLIBIMP=zdll.lib

+LIBS=$(ZLIB) $(SHAREDLIB) $(SHAREDLIBIMP)

+

+AR=emxomfar cr

+IMPLIB=emximp

+RANLIB=echo

+TAR=tar

+SHELL=bash

+

+prefix=/usr/local

+exec_prefix = $(prefix)

+

+OBJS = adler32.o compress.o crc32.o gzio.o uncompr.o deflate.o trees.o \

+       zutil.o inflate.o infblock.o inftrees.o infcodes.o infutil.o inffast.o

+

+TEST_OBJS = example.o minigzip.o

+

+DISTFILES = README INDEX ChangeLog configure Make*[a-z0-9] *.[ch] descrip.mms \

+  algorithm.txt zlib.3 msdos/Make*[a-z0-9] msdos/zlib.def msdos/zlib.rc \

+  nt/Makefile.nt nt/zlib.dnt  contrib/README.contrib contrib/*.txt \

+  contrib/asm386/*.asm contrib/asm386/*.c \

+  contrib/asm386/*.bat contrib/asm386/zlibvc.d?? contrib/iostream/*.cpp \

+  contrib/iostream/*.h  contrib/iostream2/*.h contrib/iostream2/*.cpp \

+  contrib/untgz/Makefile contrib/untgz/*.c contrib/untgz/*.w32

+

+all: example.exe minigzip.exe

+

+test: all

+	@LD_LIBRARY_PATH=.:$(LD_LIBRARY_PATH) ; export LD_LIBRARY_PATH; \

+	echo hello world | ./minigzip | ./minigzip -d || \

+	  echo '		*** minigzip test FAILED ***' ; \

+	if ./example; then \

+	  echo '		*** zlib test OK ***'; \

+	else \

+	  echo '		*** zlib test FAILED ***'; \

+	fi

+

+$(ZLIB): $(OBJS)

+	$(AR) $@ $(OBJS)

+	-@ ($(RANLIB) $@ || true) >/dev/null 2>&1

+

+$(SHAREDLIB): $(OBJS) os2/z.def

+	$(LDSHARED) -o $@ $^

+

+$(SHAREDLIBIMP): os2/z.def

+	$(IMPLIB) -o $@ $^

+

+example.exe: example.o $(LIBS)

+	$(CC) $(CFLAGS) -o $@ example.o $(LDFLAGS)

+

+minigzip.exe: minigzip.o $(LIBS)

+	$(CC) $(CFLAGS) -o $@ minigzip.o $(LDFLAGS)

+

+clean:

+	rm -f *.o *~ example minigzip libz.a libz.so* foo.gz

+

+distclean:	clean

+

+zip:

+	mv Makefile Makefile~; cp -p Makefile.in Makefile

+	rm -f test.c ztest*.c

+	v=`sed -n -e 's/\.//g' -e '/VERSION "/s/.*"\(.*\)".*/\1/p' < zlib.h`;\

+	zip -ul9 zlib$$v $(DISTFILES)

+	mv Makefile~ Makefile

+

+dist:

+	mv Makefile Makefile~; cp -p Makefile.in Makefile

+	rm -f test.c ztest*.c

+	d=zlib-`sed -n '/VERSION "/s/.*"\(.*\)".*/\1/p' < zlib.h`;\

+	rm -f $$d.tar.gz; \

+	if test ! -d ../$$d; then rm -f ../$$d; ln -s `pwd` ../$$d; fi; \

+	files=""; \

+	for f in $(DISTFILES); do files="$$files $$d/$$f"; done; \

+	cd ..; \

+	GZIP=-9 $(TAR) chofz $$d/$$d.tar.gz $$files; \

+	if test ! -d $$d; then rm -f $$d; fi

+	mv Makefile~ Makefile

+

+tags:

+	etags *.[ch]

+

+depend:

+	makedepend -- $(CFLAGS) -- *.[ch]

+

+# DO NOT DELETE THIS LINE -- make depend depends on it.

+

+adler32.o: zlib.h zconf.h

+compress.o: zlib.h zconf.h

+crc32.o: zlib.h zconf.h

+deflate.o: deflate.h zutil.h zlib.h zconf.h

+example.o: zlib.h zconf.h

+gzio.o: zutil.h zlib.h zconf.h

+infblock.o: infblock.h inftrees.h infcodes.h infutil.h zutil.h zlib.h zconf.h

+infcodes.o: zutil.h zlib.h zconf.h

+infcodes.o: inftrees.h infblock.h infcodes.h infutil.h inffast.h

+inffast.o: zutil.h zlib.h zconf.h inftrees.h

+inffast.o: infblock.h infcodes.h infutil.h inffast.h

+inflate.o: zutil.h zlib.h zconf.h infblock.h

+inftrees.o: zutil.h zlib.h zconf.h inftrees.h

+infutil.o: zutil.h zlib.h zconf.h infblock.h inftrees.h infcodes.h infutil.h

+minigzip.o: zlib.h zconf.h

+trees.o: deflate.h zutil.h zlib.h zconf.h trees.h

+uncompr.o: zlib.h zconf.h

+zutil.o: zutil.h zlib.h zconf.h

diff --git a/tkimg/compat/zlib/old/os2/zlib.def b/tkimg/compat/zlib/old/os2/zlib.def
new file mode 100755
index 0000000..438e8c0
--- /dev/null
+++ b/tkimg/compat/zlib/old/os2/zlib.def
@@ -0,0 +1,51 @@
+;

+; Slightly modified version of ../nt/zlib.dnt :-)

+;

+

+LIBRARY		Z

+DESCRIPTION	"Zlib compression library for OS/2"

+CODE		PRELOAD MOVEABLE DISCARDABLE

+DATA		PRELOAD MOVEABLE MULTIPLE

+

+EXPORTS

+    adler32

+    compress

+    crc32

+    deflate

+    deflateCopy

+    deflateEnd

+    deflateInit2_

+    deflateInit_

+    deflateParams

+    deflateReset

+    deflateSetDictionary

+    gzclose

+    gzdopen

+    gzerror

+    gzflush

+    gzopen

+    gzread

+    gzwrite

+    inflate

+    inflateEnd

+    inflateInit2_

+    inflateInit_

+    inflateReset

+    inflateSetDictionary

+    inflateSync

+    uncompress

+    zlibVersion

+    gzprintf

+    gzputc

+    gzgetc

+    gzseek

+    gzrewind

+    gztell

+    gzeof

+    gzsetparams

+    zError

+    inflateSyncPoint

+    get_crc_table

+    compress2

+    gzputs

+    gzgets

diff --git a/tkimg/compat/zlib/old/visual-basic.txt b/tkimg/compat/zlib/old/visual-basic.txt
new file mode 100755
index 0000000..bb275af
--- /dev/null
+++ b/tkimg/compat/zlib/old/visual-basic.txt
@@ -0,0 +1,160 @@
+See below some functions declarations for Visual Basic.

+

+Frequently Asked Question:

+

+Q: Each time I use the compress function I get the -5 error (not enough

+   room in the output buffer).

+

+A: Make sure that the length of the compressed buffer is passed by

+   reference ("as any"), not by value ("as long"). Also check that

+   before the call of compress this length is equal to the total size of

+   the compressed buffer and not zero.

+

+

+From: "Jon Caruana" <jon-net@usa.net>

+Subject: Re: How to port zlib declares to vb?

+Date: Mon, 28 Oct 1996 18:33:03 -0600

+

+Got the answer! (I haven't had time to check this but it's what I got, and

+looks correct):

+

+He has the following routines working:

+        compress

+        uncompress

+        gzopen

+        gzwrite

+        gzread

+        gzclose

+

+Declares follow: (Quoted from Carlos Rios <c_rios@sonda.cl>, in Vb4 form)

+

+#If Win16 Then   'Use Win16 calls.

+Declare Function compress Lib "ZLIB.DLL" (ByVal compr As

+        String, comprLen As Any, ByVal buf As String, ByVal buflen

+        As Long) As Integer

+Declare Function uncompress Lib "ZLIB.DLL" (ByVal uncompr

+        As String, uncomprLen As Any, ByVal compr As String, ByVal

+        lcompr As Long) As Integer

+Declare Function gzopen Lib "ZLIB.DLL" (ByVal filePath As

+        String, ByVal mode As String) As Long

+Declare Function gzread Lib "ZLIB.DLL" (ByVal file As

+        Long, ByVal uncompr As String, ByVal uncomprLen As Integer)

+        As Integer

+Declare Function gzwrite Lib "ZLIB.DLL" (ByVal file As

+        Long, ByVal uncompr As String, ByVal uncomprLen As Integer)

+        As Integer

+Declare Function gzclose Lib "ZLIB.DLL" (ByVal file As

+        Long) As Integer

+#Else

+Declare Function compress Lib "ZLIB32.DLL"

+        (ByVal compr As String, comprLen As Any, ByVal buf As

+        String, ByVal buflen As Long) As Integer

+Declare Function uncompress Lib "ZLIB32.DLL"

+        (ByVal uncompr As String, uncomprLen As Any, ByVal compr As

+        String, ByVal lcompr As Long) As Long

+Declare Function gzopen Lib "ZLIB32.DLL"

+        (ByVal file As String, ByVal mode As String) As Long

+Declare Function gzread Lib "ZLIB32.DLL"

+        (ByVal file As Long, ByVal uncompr As String, ByVal

+        uncomprLen As Long) As Long

+Declare Function gzwrite Lib "ZLIB32.DLL"

+        (ByVal file As Long, ByVal uncompr As String, ByVal

+        uncomprLen As Long) As Long

+Declare Function gzclose Lib "ZLIB32.DLL"

+        (ByVal file As Long) As Long

+#End If

+

+-Jon Caruana

+jon-net@usa.net

+Microsoft Sitebuilder Network Level 1 Member - HTML Writer's Guild Member

+

+

+Here is another example from Michael <michael_borgsys@hotmail.com> that he

+says conforms to the VB guidelines, and that solves the problem of not

+knowing the uncompressed size by storing it at the end of the file:

+

+'Calling the functions:

+'bracket meaning: <parameter> [optional] {Range of possible values}

+'Call subCompressFile(<path with filename to compress> [, <path with

+filename to write to>, [level of compression {1..9}]])

+'Call subUncompressFile(<path with filename to compress>)

+

+Option Explicit

+Private lngpvtPcnSml As Long 'Stores value for 'lngPercentSmaller'

+Private Const SUCCESS As Long = 0

+Private Const strFilExt As String = ".cpr"

+Private Declare Function lngfncCpr Lib "zlib.dll" Alias "compress2" (ByRef

+dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long,

+ByVal level As Integer) As Long

+Private Declare Function lngfncUcp Lib "zlib.dll" Alias "uncompress" (ByRef

+dest As Any, ByRef destLen As Any, ByRef src As Any, ByVal srcLen As Long)

+As Long

+

+Public Sub subCompressFile(ByVal strargOriFilPth As String, Optional ByVal

+strargCprFilPth As String, Optional ByVal intLvl As Integer = 9)

+    Dim strCprPth As String

+    Dim lngOriSiz As Long

+    Dim lngCprSiz As Long

+    Dim bytaryOri() As Byte

+    Dim bytaryCpr() As Byte

+    lngOriSiz = FileLen(strargOriFilPth)

+    ReDim bytaryOri(lngOriSiz - 1)

+    Open strargOriFilPth For Binary Access Read As #1

+        Get #1, , bytaryOri()

+    Close #1

+    strCprPth = IIf(strargCprFilPth = "", strargOriFilPth, strargCprFilPth)

+'Select file path and name

+    strCprPth = strCprPth & IIf(Right(strCprPth, Len(strFilExt)) =

+strFilExt, "", strFilExt) 'Add file extension if not exists

+    lngCprSiz = (lngOriSiz * 1.01) + 12 'Compression needs temporary a bit

+more space then original file size

+    ReDim bytaryCpr(lngCprSiz - 1)

+    If lngfncCpr(bytaryCpr(0), lngCprSiz, bytaryOri(0), lngOriSiz, intLvl) =

+SUCCESS Then

+        lngpvtPcnSml = (1# - (lngCprSiz / lngOriSiz)) * 100

+        ReDim Preserve bytaryCpr(lngCprSiz - 1)

+        Open strCprPth For Binary Access Write As #1

+            Put #1, , bytaryCpr()

+            Put #1, , lngOriSiz 'Add the the original size value to the end

+(last 4 bytes)

+        Close #1

+    Else

+        MsgBox "Compression error"

+    End If

+    Erase bytaryCpr

+    Erase bytaryOri

+End Sub

+

+Public Sub subUncompressFile(ByVal strargFilPth As String)

+    Dim bytaryCpr() As Byte

+    Dim bytaryOri() As Byte

+    Dim lngOriSiz As Long

+    Dim lngCprSiz As Long

+    Dim strOriPth As String

+    lngCprSiz = FileLen(strargFilPth)

+    ReDim bytaryCpr(lngCprSiz - 1)

+    Open strargFilPth For Binary Access Read As #1

+        Get #1, , bytaryCpr()

+    Close #1

+    'Read the original file size value:

+    lngOriSiz = bytaryCpr(lngCprSiz - 1) * (2 ^ 24) _

+              + bytaryCpr(lngCprSiz - 2) * (2 ^ 16) _

+              + bytaryCpr(lngCprSiz - 3) * (2 ^ 8) _

+              + bytaryCpr(lngCprSiz - 4)

+    ReDim Preserve bytaryCpr(lngCprSiz - 5) 'Cut of the original size value

+    ReDim bytaryOri(lngOriSiz - 1)

+    If lngfncUcp(bytaryOri(0), lngOriSiz, bytaryCpr(0), lngCprSiz) = SUCCESS

+Then

+        strOriPth = Left(strargFilPth, Len(strargFilPth) - Len(strFilExt))

+        Open strOriPth For Binary Access Write As #1

+            Put #1, , bytaryOri()

+        Close #1

+    Else

+        MsgBox "Uncompression error"

+    End If

+    Erase bytaryCpr

+    Erase bytaryOri

+End Sub

+Public Property Get lngPercentSmaller() As Long

+    lngPercentSmaller = lngpvtPcnSml

+End Property