lzw-process-next-code ( lzw quot: ( lzw code -- ) -- )

Vocabulary

compression.lzw

Inputs

lzw	a lzw
quot	a quotation

Outputs

None

Word description

Read the next LZW code and, assuming that the code is neither the Clear Code nor the End of Information Code, conditionally processes it by calling quot with the lzw object and the LZW code. If it does read a Clear Code, this combinator will take care of handling the Clear Code for you.

Definition

USING: combinators kernel ;

IN: compression.lzw

: lzw-process-next-code ( lzw quot: ( lzw code -- ) -- )
    [ lzw-read ] dip {
        { [ 2over end-of-information? ] [ 3drop ] }
        { [ 2over clear-code? ] [ 2drop handle-clear-code ] }
        [ ( lzw code -- ) call-effect ]
    } cond ; inline