<huffman-decoder> ( bs tdesc -- huffman-decoder )

Vocabulary

compression.huffman

Inputs

bs	an object
tdesc	an object

Outputs

huffman-decoder

an object

Definition

USING: accessors compression.huffman.private kernel math ;

IN: compression.huffman

: <huffman-decoder> ( bs tdesc -- huffman-decoder )
    huffman-decoder new swap >>tdesc swap >>bs 16 >>bits/level
    dup [ tdesc>> ] [ bits/level>> 2^ ] bi reverse-table
    >>rtable ; inline