event. ( event -- )

Vocabulary

yaml.dbg

Inputs

event

an object

Outputs

None

Definition

USING: accessors combinators kernel prettyprint yaml.ffi ;

IN: yaml.dbg

: event. ( event -- )
    dup [ data>> ] [ type>> ] bi* {
        { YAML_STREAM_START_EVENT [ stream_start>> ] }
        { YAML_DOCUMENT_START_EVENT [ document_start>> ] }
        { YAML_DOCUMENT_END_EVENT [ document_end>> ] }
        { YAML_ALIAS_EVENT [ alias>> ] }
        { YAML_SCALAR_EVENT [ scalar>> ] }
        { YAML_SEQUENCE_START_EVENT [ sequence_start>> ] }
        { YAML_MAPPING_START_EVENT [ mapping_start>> ] }
        [ nip ]
    } case . ;