hqx-decode ( chars -- bytes )

Vocabulary

binhex.private

Inputs

chars

an object

Outputs

bytes

an object

Definition

USING: combinators kernel make sequences ;

IN: binhex.private

: hqx-decode ( chars -- bytes )
    [
        [ 0 0 ] dip [
            dup "\r\n\t " member?
            [ drop ] [
                hqx>ch swap {
                    { 0 ~quotation~ }
                    { 2 ~quotation~ }
                    { 4 ~quotation~ }
                    { 6 ~quotation~ }
                } case
            ] if
        ] each 2drop
    ] B{ } make ;