deep-copy-data ( event -- data )

Vocabulary

yaml.private

Inputs

event

an object

Outputs

data

an object

Definition

USING: accessors combinators kernel yaml.ffi ;

IN: yaml.private

: deep-copy-data ( event -- data )
    [ data>> ] [ type>> ] bi {
        {
            YAML_SEQUENCE_START_EVENT
            [ sequence_start>> deep-copy-seq f ]
        }
        {
            YAML_MAPPING_START_EVENT
            [ mapping_start>> deep-copy-map f swap ]
        }
    } case factor_event_data boa ;