init-emitter ( -- emitter event )

Vocabulary

yaml.private

Inputs

None

Outputs

emitter	an object
event	an object

Definition

USING: classes.struct kernel libc namespaces yaml.ffi ;

IN: yaml.private

:: init-emitter ( -- emitter event )
    yaml_emitter_t (malloc-struct) &free :> emitter emitter
    yaml_emitter_initialize yaml-initialize-assert-ok
    emitter &yaml_emitter_delete drop
    emitter init-emitter-options
    BV{ } clone :> output output yaml-write-buffer set-global
    emitter yaml-write-handler f yaml_emitter_set_output
    yaml_event_t (malloc-struct) &free :> event event
    YAML_UTF8_ENCODING yaml_stream_start_event_initialize
    yaml-initialize-assert-ok
    emitter event yaml_emitter_emit_asserted emitter event ;