parse-mapping ( parser event -- map )

Vocabulary

yaml.private

Inputs

parser	an object
event	an object

Outputs

map

an object

Definition

USING: accessors destructors kernel make yaml.ffi ;

IN: yaml.private

:: parse-mapping ( parser event -- map )
    [
        f :> done!
        [ done ] [
            [
                parser event next-event
                type>> YAML_MAPPING_END_EVENT =
                [ t done! f f ]
                [ event ?mapping-key-scalar-value ] if
            ] with-destructors done
            [ 2drop ] [
                [ [ parser event ] dip next-complex-value ]
                unless parser event next-value swap ,,
            ] if
        ] until
    ] H{ } make ;