-- Experimental generic LZ77 encoder, based on LZHUF by OKUMURA & YOSHIZAKI
-- Here the Huffman code is used only to find quickly matching patterns.
generic
----- LZSS Parameters -----
String_buffer_size : Integer := 2**12;
Look_Ahead : Integer := 65;
Threshold : Integer := 2;
-- Input:
with function Read_byte return Byte;
with function More_bytes return Boolean;
-- Output:
with procedure Write_byte( b: Byte );
with procedure Write_code( distance, length: Integer );
procedure Zip.LZ77;