construct-scalar ( scalar-event mapping-key? -- scalar )

Vocabulary

yaml.conversion

Inputs

scalar-event	an object
mapping-key?	an object

Outputs

scalar

an object

Definition

USING: accessors base64 combinators kernel yaml.ffi ;

IN: yaml.conversion

: construct-scalar ( scalar-event mapping-key? -- scalar )
    [ drop value>> ] [ resolve-scalar ] 2bi {
        { YAML_NULL_TAG [ drop f ] }
        { YAML_BOOL_TAG [ construct-bool ] }
        { YAML_INT_TAG [ construct-int ] }
        { YAML_FLOAT_TAG [ construct-float ] }
        { YAML_BINARY_TAG [ base64> ] }
        { YAML_TIMESTAMP_TAG [ construct-timestamp ] }
        { YAML_MERGE_TAG [ drop <yaml-merge> ] }
        { YAML_VALUE_TAG [ drop <yaml-value> ] }
        { YAML_STR_TAG [ ] }
    } case ;