uu-decode ( -- )

Vocabulary

uu

Inputs

None

Outputs

None

Definition

USING: io kernel sequences uu.private ;

IN: uu

: uu-decode ( -- )
    [ [ "begin" head? ] [ not ] bi or ] [ readln ] do until [
        dup [ "end" head? ] [ not ] bi or
        [ drop t ] [ ascii>binary write f ] if
    ] [ readln ] do until ;