set-case ( -- object )

Vocabulary

asn1

Inputs

None

Outputs

object

an object

Definition

USING: accessors combinators endian io.streams.string kernel
namespaces ;

IN: asn1

: set-case ( -- object )
    elements get newobj>> elements get objtype>> {
        { "boolean" [ "\0" = not ] }
        { "string" [ "" or ] }
        { "integer" [ be> ] }
        { "array" [ "" or [ read-array ] with-string-reader ] }
    } case ;