handle-uncompress-code ( lzw -- lzw )

Vocabulary

compression.lzw

Inputs

lzw

an object

Outputs

lzw

an object

Definition

USING: accessors kernel sequences ;

IN: compression.lzw

: handle-uncompress-code ( lzw -- lzw )
    dup code-in-table? [
        [ write-code ] [
            [
                [ lookup-old-code ] [ lookup-code first ] bi
                suffix
            ] [ add-to-table ] bi
        ] [ code>old-code ] tri
    ] [
        [
            [ lookup-old-code dup first suffix ] keep
            [ output>> push-all ] [ add-to-table ] 2bi
        ] [ code>old-code ] bi
    ] if ;