1. --  Experimental generic LZ77 encoder, based on LZHUF by OKUMURA & YOSHIZAKI 
  2. --  Here the Huffman code is used only to find quickly matching patterns. 
  3.  
  4. generic 
  5.  
  6.   ----- LZSS Parameters ----- 
  7.   String_buffer_size : Integer := 2**12; 
  8.   Look_Ahead         : Integer := 65; 
  9.   Threshold          : Integer := 2; 
  10.  
  11.   -- Input: 
  12.   with function  Read_byte return Byte; 
  13.   with function  More_bytes return Boolean; 
  14.   -- Output: 
  15.   with procedure Write_byte( b: Byte ); 
  16.   with procedure Write_code( distance, length: Integer ); 
  17.  
  18. procedure Zip.LZ77;