private package UnZip.Decompress.Huffman is
type HufT_table;
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 Table_list;
type p_Table_list is access Table_list;
type Length_array is array (Integer range <>) of Natural;
invalid : constant := 99;
empty : constant Length_array (1 .. 0) := (others => 0);
huft_out_of_memory : exception;
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); |