ydec-file ( yenc -- ybegin yend bytes )

Vocabulary

yenc

Inputs

yenc

an object

Outputs

ybegin	an object
yend	an object
bytes	an object

Definition

USING: combinators kernel make math sequences splitting
yenc.private ;

IN: yenc

: ydec-file ( yenc -- ybegin yend bytes )
    "\n" split {
        [ "=ybegin " find-metadata 1 + ]
        [ "=yend " find-metadata swapd ]
        [ <slice> ]
    } cleave [ f swap [ [ ydec, ] each ] each drop ] B{ } make ;