(emit-scalar) ( emitter event anchor obj mapping-key? -- )

Vocabulary

yaml.private

Inputs

emitter	an object
event	an object
anchor	an object
obj	an object
mapping-key?	an object

Outputs

None

Definition

USING: kernel yaml.conversion yaml.ffi ;

IN: yaml.private

:: (emit-scalar)
    ( emitter event anchor obj mapping-key? -- )
    event anchor obj [ yaml-tag ] [ represent-scalar ] bi
    -1 2over mapping-key? scalar-implicit-tag?
    YAML_ANY_SCALAR_STYLE yaml_scalar_event_initialize
    yaml-initialize-assert-ok
    emitter event yaml_emitter_emit_asserted ;