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