private package UnZip.Decompress.Huffman is
type p_HufT_table is access HufT_table;
type HufT is record extra_bits : Natural; bits : Natural; n : Natural; next_table : p_HufT_table; end record;
type p_HufT is access all HufT;
type p_Table_list is access Table_list;
empty : constant Length_array( 1..0 ):= ( others=> 0 );
procedure HufT_free
( | tl | : in out p_Table_list ); |
procedure HufT_build
( | b | : Length_array; |
s | : Integer; | |
d, e | : Length_array; | |
tl | : out p_Table_list; | |
m | : in out Integer; | |
huft_incomplete | : out Boolean); |