module Heap : sig ... endval reverse_code : int -> int -> intval generate_codes :
tree_lengths:int array ->
max_code:int ->
bl_count:int array ->
int arrayval generate_lengths :
tree_dads:int array ->
tree_lengths:int array ->
max_code:int ->
max_length:int ->
Heap.t ->
bl_count:int array ->
unittype tree = {lengths : int array; |
max_code : int; |
tree : Lookup.t; |
}val make :
length:int ->
?max_length:int ->
int array ->
bl_count:int array ->
treeval scan : int array -> int -> bl_freqs:int array -> unitval bits : int -> int -> intval symbols :
int ->
int array ->
int ->
bl_symbols:int array ->
bltree:tree ->
int