read-ber ( syntax -- object )

Vocabulary

asn1

Inputs

syntax

an object

Outputs

object

an object

Definition

USING: accessors kernel namespaces ;

IN: asn1

: read-ber ( syntax -- object )
    element new swap >>syntax elements set set-id [
        (set-tag) set-tagclass set-encoding set-content-length
        set-newobj elements get syntax>> set-objtype set-case
    ] [ end ] if ;