find-metadata ( lines type -- metadata i )

Vocabulary

yenc.private

Inputs

lines	an object
type	an object

Outputs

metadata	an object
i	an object

Definition

USING: kernel sequences yenc ;

IN: yenc.private

:: find-metadata ( lines type -- metadata i )
    lines [ type head? ] find :> ( i line ) i
    [ line type length tail parse-metadata i ]
    [ "Missing envelope marker" invalid-yenc ] if ;