Unit SFXinflt |
*****************************************************************) (* Copyright 1997, Microchip Systems / Carl Bunton *) (* Email: Twojags@cris.com *) (* Web-page: http://www.concentric.net/~twojags *) (* *) (* This code is not for redistribution in whole or in part. It *) (* may be used in compiled program format only. *) (* *) (* This program was written in Delphi 2 because version 2 *) (* compiles a much smaller executable using the windows api. It *) (* should be fully compatible with Delphi 3, but will produce a *) (* noticable increase of size in the final compiled program. *) (******************************************************************) (******************) (* INFLATE METHOD *) (
Classes |
Functions |
inflate - Static Global
--------------------------------------------------------------------------*) { decompress an inflated entry
Types |
Constants |
cpdext
cpdist
cplens
cplext
dbits
lbits
maskr
N_MAX
Variables |
bb
bk
fixed_td
fixed_tl
hufts
InBuf
InPTR
Slide
WP
ZipCount
Functions |
--------------------------------------------------------------------------*) { decompress an inflated entry
Types |
BufPtr = ^BufType
BufType = ARRAY[0..WSIZE] OF BYTE;
PT = ^Thuft
Thuft = record
e : shortint;
b : shortint;
n : WORD;
next : PT;
end;
Constants |
Variables |