With inspiration from VW, I've implemented a new ASN1 Stream and associated Type hierarchy. I briefly explain the new system below. This has been published alongside the existing ASN1Value implementation, in the Cryptography repository, so that users of ASN1Value won't currently be impacted. However, I would like to deprecate the old implementation this week, so this is a call to port uses of ASN1Value to ASN1DERStream. Please contact me if you are a user and I will help you port your code. I will be porting the X509 Certificate implementation over the next few days, so users of this framework should also contact me, as the public api will change.
The new ASN1 framework has a Type hierarchy that supports both basic types and user-defined types.
The support for basic types is sufficient to replace the current ASN1Value impl. Below are the replacements.
ASN1Value fromAsnDer: stream. becomes (ASN1DERStream onStream: stream) decode.
and
anASN1Value encodeAsnDer becomes ASN1DERStream new encode: anASN1Value.
The user-defined types are stored in an instance of an ASN1Module, for each module defined in the image. For instance, the X509 Module is registered as #x509. To access the forthcoming Certificate type definition in the X509 Module (I have to port X509 first), you would write:
type := (ASN1Module name: #x509) find: #Certificate.
In defining a type, you can specify a base type with an new name, or you can specify sequences and other constructs. With sequences, you can add a mapping class, so the elements of the sequence will be set to various ivars. You can add elements with optional, default or explicit and implicit tagging. Here is a sample of a user-defined type, a sequence, mapped to an ASN1TestModel, and a Boolean element mapped to the #testSlot1 ivar:
((ASN1Module name: #test) sequence: #TestSequence) add: #testSlot1 type: #ASN1BooleanType; mapping: ASN1TestModel; yourself.
Now you can encode and decode using the defined Type, and this will marshal all values into ivars defined on various mapping classes. Here is the corresponding code:
type := (ASN1Module name: #test) find: #TestSequence. obj := (ASN1DERStream onBytes: bytes) decodeWithType: type.
and
type := (ASN1Module name: #test) find: #TestSequence. bytes := ASN1DERStream new encode: obj withType: type.
Additional examples, especially of the variety of basic types and user-defined type specifications, can be found in the CryptoASN1Test, once you have loaded the latest Cryptography-ASN1 and Cryptography- Tests.
enjoy!