>ber-seq-internal ( array code -- byte-array )

Vocabulary

asn1

Inputs

array	an object
code	an object

Outputs

byte-array

an object

Definition

USING: arrays kernel math.parser pack sequences ;

IN: asn1

: >ber-seq-internal ( array code -- byte-array )
    1array "C" pack-native
    swap dup length >ber-length-encoding swapd append swap
    [ number>string ] map { } concat-as append ;