emit-value ( emitter event anchor obj -- ) - Factor Documentation

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 ;