ydec, ( encode? ch -- encode?' )

Vocabulary

yenc.private

Inputs

encode?	an object
ch	an object

Outputs

encode?'

an object

Definition

USING: kernel make math math.order sequences ;

IN: yenc.private

: ydec, ( encode? ch -- encode?' )
    dup "\r\n" member?
    [ drop ] [
        2dup [ not ] [ 61 = ] bi* and
        [ 2drop t ] [
            over [ 64 - [ drop f ] dip ] when dup 0 41 between?
            [ 214 + ] [ 42 - ] if ,
        ] if
    ] if ;