?parse-yaml-doc ( parser event -- obj/f ? )

Vocabulary

yaml.private

Inputs

parser	an object
event	an object

Outputs

obj/f	an object
?	an object

Definition

USING: accessors combinators destructors kernel yaml yaml.ffi ;

IN: yaml.private

:: ?parse-yaml-doc ( parser event -- obj/f ? )
    [
        parser event next-event type>> {
            { YAML_DOCUMENT_START_EVENT [ t ] }
            { YAML_STREAM_END_EVENT [ f ] }
            [
                {
                    YAML_DOCUMENT_START_EVENT
                    YAML_STREAM_END_EVENT
                } yaml-unexpected-event
            ]
        } case
    ] with-destructors [
        parser event parse-yaml-doc
        t parser event YAML_DOCUMENT_END_EVENT expect-event
    ] [ f f ] if ;