parse-sequence ( parser event -- seq )

Vocabulary

yaml.private

Inputs

parser	an object
event	an object

Outputs

seq

an object

Definition

USING: accessors destructors kernel make yaml.ffi ;

IN: yaml.private

:: parse-sequence ( parser event -- seq )
    [
        f :> done!
        [ done ] [
            [
                parser event next-event
                type>> YAML_SEQUENCE_END_EVENT =
                [ t done! f f ] [ event ?scalar-value ] if
            ] with-destructors done
            [ 2drop ] [
                [ [ parser event ] dip next-complex-value ]
                unless ,
            ] if
        ] until
    ] { } make ;