emit-value ( emitter event anchor obj -- )

Vocabulary

yaml.private

Inputs

emitter	an object
event	an object
anchor	an object
obj	an object

Outputs

None

Definition

IN: yaml.private

GENERIC: emit-value ( emitter event anchor obj -- )

Methods

USING: assocs combinators.extras kernel namespaces yaml.config
yaml.ffi yaml.private ;

M: assoc emit-value
    [ drop YAML_MAP_TAG implicit-tags get emit-assoc-start ]
    [ nip emit-assoc-body ] [ 2drop emit-assoc-end ] 4tri ;


USING: byte-arrays yaml.private ;

M: byte-array emit-value emit-scalar ;


USING: yaml.private ;

M: f emit-value emit-scalar ;


USING: combinators.extras kernel linked-assocs yaml.conversion
yaml.private ;

M: linked-assoc emit-value
    [ drop YAML_OMAP_TAG f emit-sequence-start ]
    [ nip emit-linked-assoc-body ] [ 2drop emit-sequence-end ]
    4tri ;


USING: kernel yaml.private ;

M: object emit-value emit-scalar ;


USING: combinators.extras kernel namespaces sequences
yaml.config yaml.ffi yaml.private ;

M: sequence emit-value
    [ drop YAML_SEQ_TAG implicit-tags get emit-sequence-start ]
    [ nip emit-sequence-body ] [ 2drop emit-sequence-end ] 4tri
    ;


USING: combinators.extras kernel sets yaml.conversion
yaml.private ;

M: set emit-value
    [ drop YAML_SET_TAG f emit-assoc-start ]
    [ nip emit-set-body ] [ 2drop emit-assoc-end ] 4tri ;


USING: strings yaml.private ;

M: string emit-value emit-scalar ;


USING: accessors yaml.ffi yaml.private ;

M:: yaml-alias emit-value ( emitter event unused obj -- )
    event obj anchor>> yaml_alias_event_initialize
    yaml-initialize-assert-ok
    emitter event yaml_emitter_emit_asserted ;


USING: accessors kernel yaml.private ;

M: yaml-anchor emit-value
    nip [ anchor>> ] [ obj>> ] bi emit-value ;