Unit LZSS16 |
Classes |
Functions |
LZDecode - Encode
LZDone - #X LZDone
LZInit
LZEncode - #X LZUnsquash
DeleteNode
LZInit - #Z-
Decode
LZSquash - #X LZUnsquash
LZDone
LZUnSquash - #X LZDone
LZSquash
Types |
PBinaryTree
PLeftMomTree
PLZRWBuffer
PLZTextBuf
PRightTree
TBinaryTree
TLeftMomTree
TLZRWBuffer
TLZSSWord
TLZTextBuf
TReadProc
TRightTree
TWriteProc
Constants |
BinaryTree
F
InBufP
InBufPtr
InBufSize
IsLZInitialized
Log2TLZSSWord
LZRWBufSize
LZSSMemRequired
N
Nul
OutBufP
OutBufPtr
Threshold
Variables |
CodeBuf
Height
LastLen
LZReadProc
LZWriteProc
MatchLen
MatchPos
Functions |
LZSquash
Types |
PBinaryTree = ^TBinaryTree
PLeftMomTree = ^TLeftMomTree
PLZRWBuffer = ^TLZRWBufferThis is declaration for custom write function. It should write Count bytes into WriteBuf, returning the number of actual bytes written. } {#Z+
PLZTextBuf = ^TLZTextBuffile buffers
PRightTree = ^TRightTree
TBinaryTree = record
TextBuf : TLZTextBuf;
Left : TLeftMomTree;
Right : TRightTree;
Mom : TLeftMomTree
end;
TLeftMomTree = array[0..N] of TLZSSWord;
TLZRWBuffer = array[0..LZRWBufSize - 1] of Byte;
TLZSSWord = word#Z+} { This unit is ready for use with Dj. Murdoch's ScanHelp utility which will make a Borland .TPH file for it ????? } {#Z-
TLZTextBuf = array[0..N + F - 2] of Byte;
TReadProc = function(var ReadBuf): TLZSSWord#X LZUnsquash
TRightTree = array[0..N + 256] of TLZSSWord;
TWriteProc = function(var WriteBuf; Count: TLZSSWord): TLZSSWord#X LZUnsquash
Constants |
Variables |