read-tagged ( info -- tagged )


Vocabulary
cbor.private

Inputs
infoan object


Outputs
taggedan object


Definition
USING: base64 calendar calendar.parser cbor combinators endian
kernel math urls ;

IN: cbor.private

: read-tagged ( info -- tagged )
read-unsigned read-cbor swap {
{ 0 [ rfc3339>timestamp ] }
{ 1 [ unix-time>timestamp ] }
{ 2 [ be> ] }
{ 3 [ be> neg 1 - ] }
{ 32 [ >url ] }
{ 33 [ base64> ] }
[ swap cbor-tagged boa ]
} case ;