From c1299d7a963f451d6a3677dae4e955dae2b1592a Mon Sep 17 00:00:00 2001 From: Norbert Hartl Date: Tue, 23 Sep 2025 16:08:16 +0200 Subject: [PATCH] tonel reformatted --- ASN1-AST/ASN1.extension.st | 4 +- ASN1-AST/ASN1ASTNode.class.st | 58 +- ASN1-AST/ASN1ASTParser.class.st | 255 ++++---- ASN1-AST/ASN1ASTRoot.class.st | 57 +- ASN1-AST/ASN1ASTVisitor.class.st | 146 ++--- ASN1-AST/ASN1AmbiguitySolvingVisitor.class.st | 30 +- ASN1-AST/ASN1AmbiguousNode.class.st | 24 +- ASN1-AST/ASN1AnyTypeNode.class.st | 14 +- ASN1-AST/ASN1ArithmeticNode.class.st | 8 +- ASN1-AST/ASN1AssignmentNode.class.st | 22 +- .../ASN1BinaryBitStringValueNode.class.st | 10 +- ASN1-AST/ASN1BitStringTypeNode.class.st | 22 +- ASN1-AST/ASN1BitStringValueNode.class.st | 22 +- ASN1-AST/ASN1BooleanTypeNode.class.st | 8 +- ASN1-AST/ASN1BooleanValueNode.class.st | 20 +- ASN1-AST/ASN1ChoiceNode.class.st | 20 +- ASN1-AST/ASN1ChoiceValueNode.class.st | 18 +- ASN1-AST/ASN1ClosestTypeDefinition.class.st | 16 +- ASN1-AST/ASN1CollectionNode.class.st | 22 +- ASN1-AST/ASN1ComponentTypeListNode.class.st | 16 +- ASN1-AST/ASN1ComponentTypeNode.class.st | 20 +- ASN1-AST/ASN1ComponentsOfNode.class.st | 16 +- ASN1-AST/ASN1ConstraintNode.class.st | 24 +- ASN1-AST/ASN1DefaultSyntaxClassNode.class.st | 32 +- ASN1-AST/ASN1DefinedSyntaxClassNode.class.st | 22 +- ASN1-AST/ASN1DefinedSyntaxObjectNode.class.st | 28 +- ASN1-AST/ASN1ElementSpecNode.class.st | 16 +- ASN1-AST/ASN1ElementsNode.class.st | 24 +- ASN1-AST/ASN1EncodingReferenceNode.class.st | 8 +- ASN1-AST/ASN1EnumeratedNode.class.st | 12 +- ASN1-AST/ASN1EnvironmentVisitor.class.st | 34 +- .../ASN1ExtensionAndExceptionNode.class.st | 16 +- ASN1-AST/ASN1ExtensionEndMarkerNode.class.st | 12 +- ASN1-AST/ASN1ExtensionNode.class.st | 16 +- ASN1-AST/ASN1ExternalTypeNode.class.st | 12 +- ASN1-AST/ASN1FieldSpecNode.class.st | 20 +- ASN1-AST/ASN1HexBitStringValueNode.class.st | 10 +- ASN1-AST/ASN1IdentifierNode.class.st | 16 +- ASN1-AST/ASN1ImportNode.class.st | 22 +- ASN1-AST/ASN1ImportSymbolVisitor.class.st | 16 +- .../ASN1InconsistencySolvingVisitor.class.st | 10 +- ASN1-AST/ASN1IntegerTypeNode.class.st | 22 +- ASN1-AST/ASN1IntegerValueNode.class.st | 18 +- ASN1-AST/ASN1IntersectionNode.class.st | 18 +- ASN1-AST/ASN1LiteralNode.class.st | 24 +- ASN1-AST/ASN1MissingModule.class.st | 13 +- .../ASN1ModifierDefaultValueNode.class.st | 22 +- ASN1-AST/ASN1ModifierNode.class.st | 10 +- ASN1-AST/ASN1ModifierOptionalNode.class.st | 14 +- ASN1-AST/ASN1ModifierUniqueNode.class.st | 8 +- ASN1-AST/ASN1ModuleDefinitionNode.class.st | 66 ++- ASN1-AST/ASN1ModuleIdentifierNode.class.st | 26 +- ASN1-AST/ASN1NamedBitNode.class.st | 20 +- ASN1-AST/ASN1NamedNumberNode.class.st | 22 +- ASN1-AST/ASN1NamedTypeNode.class.st | 26 +- ASN1-AST/ASN1NamedValueNode.class.st | 18 +- ASN1-AST/ASN1NullTypeNode.class.st | 12 +- ASN1-AST/ASN1ObjectIdComponentNode.class.st | 44 +- ASN1-AST/ASN1ObjectIdNode.class.st | 28 +- .../ASN1ObjectIdentifierTypeNode.class.st | 16 +- ASN1-AST/ASN1ObjectNode.class.st | 12 +- ASN1-AST/ASN1ObjectSetNode.class.st | 18 +- ASN1-AST/ASN1ObjectSetTypeNode.class.st | 8 +- ASN1-AST/ASN1OpenTypeNode.class.st | 12 +- .../ASN1OptionalExtensionMarkerNode.class.st | 14 +- ASN1-AST/ASN1PDUFindingVisitor.class.st | 16 +- ASN1-AST/ASN1ParameterNode.class.st | 22 +- ASN1-AST/ASN1ParseError.class.st | 7 +- ASN1-AST/ASN1PrimitiveTypeNode.class.st | 22 +- ASN1-AST/ASN1PrimitiveValueNode.class.st | 16 +- ASN1-AST/ASN1RangeConstraintNode.class.st | 28 +- ASN1-AST/ASN1ReferenceNode.class.st | 70 +-- .../ASN1RelativeOidResolvingVisitor.class.st | 16 +- ASN1-AST/ASN1RewriteVisitor.class.st | 74 +-- ASN1-AST/ASN1Scope.class.st | 24 +- ASN1-AST/ASN1ScopeNode.class.st | 10 +- ASN1-AST/ASN1SelectionTypeNode.class.st | 18 +- ASN1-AST/ASN1SequenceNode.class.st | 14 +- ASN1-AST/ASN1SequenceOfValueNode.class.st | 8 +- ASN1-AST/ASN1SequenceValueNode.class.st | 12 +- ASN1-AST/ASN1SetNode.class.st | 10 +- ASN1-AST/ASN1SymbolResolvingVisitor.class.st | 34 +- ASN1-AST/ASN1TagEncodingReference.class.st | 8 +- ASN1-AST/ASN1TagNode.class.st | 24 +- ASN1-AST/ASN1TaggedTypeNode.class.st | 30 +- ASN1-AST/ASN1Token.extension.st | 4 +- ASN1-AST/ASN1TypeFieldNode.class.st | 22 +- ASN1-AST/ASN1TypeFromObjectNode.class.st | 20 +- ASN1-AST/ASN1TypeNode.class.st | 36 +- ASN1-AST/ASN1TypedCollectionNode.class.st | 12 +- ASN1-AST/ASN1TypedSequenceNode.class.st | 10 +- ASN1-AST/ASN1TypedSetNode.class.st | 10 +- ASN1-AST/ASN1UnionNode.class.st | 24 +- ASN1-AST/ASN1ValueCollectionNode.class.st | 20 +- ASN1-AST/ASN1ValueFromObjectNode.class.st | 18 +- ASN1-AST/ASN1ValueNode.class.st | 28 +- ASN1-AST/ASN1ValueSetNode.class.st | 18 +- ASN1-AST/ASN1ValueSetTypeNode.class.st | 8 +- ASN1-AST/Object.extension.st | 8 +- ASN1-AST/PPParser.extension.st | 4 +- ASN1-AST/String.extension.st | 8 +- ASN1-AST/package.st | 2 +- ASN1-Builder/ASN1.extension.st | 16 +- ASN1-Builder/ASN1ASTRoot.extension.st | 4 +- ASN1-Builder/ASN1ClassModuleLibrary.class.st | 25 +- .../ASN1DefaultModuleLibrary.class.st | 27 +- ASN1-Builder/ASN1FileModuleLibrary.class.st | 39 +- ASN1-Builder/ASN1LibraryCollection.class.st | 23 +- ASN1-Builder/ASN1ModelBuilderVisitor.class.st | 115 ++-- ASN1-Builder/ASN1ModuleLibrary.class.st | 21 +- ASN1-Builder/package.st | 2 +- ASN1-Codec/ASN1.extension.st | 8 +- .../ASN1EncodedConstructedValue.class.st | 33 +- ASN1-Codec/ASN1EncodedError.class.st | 11 +- ASN1-Codec/ASN1EncodedPrimitiveValue.class.st | 25 +- ASN1-Codec/ASN1EncodedValue.class.st | 23 +- ASN1-Codec/ASN1EncodedValueError.class.st | 13 +- ASN1-Codec/ASN1PrimitiveCodec.class.st | 13 +- ASN1-Codec/ASN1StreamValue.class.st | 9 +- ASN1-Codec/ASN1UTCTimeParser.class.st | 25 +- ASN1-Codec/BERIdentifier.class.st | 30 +- ASN1-Codec/BERLength.class.st | 28 +- ASN1-Codec/BERStreamFormat.class.st | 14 +- ASN1-Codec/BERTLVStream.class.st | 40 +- ASN1-Codec/BERTag.class.st | 64 +- ASN1-Codec/Object.extension.st | 4 +- ASN1-Codec/package.st | 2 +- ASN1-Common/ASN1.class.st | 11 +- ASN1-Common/ASN1ExplicitTags.class.st | 11 +- ASN1-Common/ASN1ImplicitTags.class.st | 11 +- ASN1-Common/ASN1Tag.class.st | 35 +- ASN1-Common/ASN1TagEnvironment.class.st | 9 +- ASN1-Common/package.st | 2 +- ASN1-Syntax/ASN1.extension.st | 4 +- ASN1-Syntax/ASN1Configuration.class.st | 15 +- ASN1-Syntax/ASN1LongestChoiceParser.class.st | 11 +- ASN1-Syntax/ASN1Syntax.class.st | 549 +++++++++--------- ASN1-Syntax/ASN1Token.class.st | 13 +- ASN1-Syntax/ASN1TokenParser.class.st | 17 +- ASN1-Syntax/Character.extension.st | 4 +- ASN1-Syntax/PPParser.extension.st | 4 +- ASN1-Syntax/package.st | 2 +- ASN1-Tests-AST/ASN1ASTParserTest.class.st | 109 ++-- .../ASN1ExampleGrammarASTTest.class.st | 23 +- .../ASN1ExampleGrammarTest.class.st | 13 +- .../ASN1ExampleGrammarTestResource.class.st | 87 +-- ASN1-Tests-AST/ASN1TestParser.class.st | 15 +- ASN1-Tests-AST/ASN1TestParserTest.class.st | 17 +- ASN1-Tests-AST/package.st | 2 +- ASN1-Tests-Builder/ASN1BuilderTest.class.st | 23 +- .../ASN1ExampleGrammarTest.extension.st | 6 +- ...SN1ExampleGrammarTestResource.extension.st | 6 +- ASN1-Tests-Builder/package.st | 2 +- ASN1-Tests-Codec/ASN1CodecTests.class.st | 9 +- .../ASN1PrimitiveCodecTest.class.st | 57 +- ASN1-Tests-Codec/BERIdentifierTest.class.st | 17 +- ASN1-Tests-Codec/BERLengthTest.class.st | 19 +- ASN1-Tests-Codec/BERStreamTest.class.st | 13 +- ASN1-Tests-Codec/BERTLVStreamTest.class.st | 15 +- ASN1-Tests-Codec/UTCTimeParserTest.class.st | 11 +- ASN1-Tests-Codec/package.st | 2 +- .../ASN1AdaptiveModelTest.class.st | 27 +- ASN1-Tests-Model/ASN1ModelTest.class.st | 29 +- ASN1-Tests-Model/ASN1TestModel.class.st | 23 +- ASN1-Tests-Model/package.st | 2 +- .../ASN1CustomSyntaxTest.class.st | 21 +- .../ASN1SyntaxExamplesTest.class.st | 61 +- ASN1-Tests-Syntax/ASN1SyntaxTest.class.st | 419 ++++++------- .../PPCompositeParserTest.extension.st | 4 +- ASN1-Tests-Syntax/package.st | 2 +- ASN1-Tests-Tool/ASN1PacketTest.class.st | 13 +- ASN1-Tests-Tool/ASN1ReadWriteTest.class.st | 11 +- ASN1-Tests-Tool/ASN1ReaderTest.class.st | 29 +- ASN1-Tests-Tool/ASN1TestWriteVisitor.class.st | 9 +- ASN1-Tests-Tool/ASN1ToolModelTest.class.st | 25 +- ASN1-Tests-Tool/ASN1ToolTest.class.st | 19 +- ASN1-Tests-Tool/ASN1WriterTest.class.st | 21 +- ASN1-Tests-Tool/TestASN1.class.st | 9 +- ASN1-Tests-Tool/package.st | 2 +- ASN1-Tool/ASN1.extension.st | 52 +- ASN1-Tool/ASN1ChoiceType.extension.st | 6 +- ASN1-Tool/ASN1DefinitionObject.extension.st | 12 +- ASN1-Tool/ASN1ElementNotFound.class.st | 10 +- ASN1-Tool/ASN1EncodedType.extension.st | 6 +- ASN1-Tool/ASN1ExplicitTags.extension.st | 6 +- ASN1-Tool/ASN1ImplicitTags.extension.st | 6 +- .../ASN1MandatoryElementNotFound.class.st | 10 +- ASN1-Tool/ASN1ModelRoot.extension.st | 12 +- ASN1-Tool/ASN1Module.extension.st | 16 +- ASN1-Tool/ASN1ObjectFactory.class.st | 20 +- ASN1-Tool/ASN1PrimitiveType.extension.st | 6 +- ASN1-Tool/ASN1ReadVisitor.class.st | 58 +- ASN1-Tool/ASN1StructureError.class.st | 8 +- ASN1-Tool/ASN1TagEnvironment.extension.st | 4 +- ASN1-Tool/ASN1TaggedType.extension.st | 6 +- ASN1-Tool/ASN1UnexpectedType.class.st | 8 +- ASN1-Tool/ASN1WriteVisitor.class.st | 36 +- ASN1-Tool/Object.extension.st | 4 +- ASN1-Tool/package.st | 2 +- BaselineOfASN1/BaselineOfASN1.class.st | 9 +- BaselineOfASN1/package.st | 2 +- 201 files changed, 2716 insertions(+), 2451 deletions(-) diff --git a/ASN1-AST/ASN1.extension.st b/ASN1-AST/ASN1.extension.st index 0018c23..b428fa9 100644 --- a/ASN1-AST/ASN1.extension.st +++ b/ASN1-AST/ASN1.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1 } +Extension { #name : 'ASN1' } -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } ASN1 >> buildAst [ "read configured root modules, then load all imported modules recursively" diff --git a/ASN1-AST/ASN1ASTNode.class.st b/ASN1-AST/ASN1ASTNode.class.st index c7d9de3..3cbabbc 100644 --- a/ASN1-AST/ASN1ASTNode.class.st +++ b/ASN1-AST/ASN1ASTNode.class.st @@ -1,136 +1,138 @@ Class { - #name : #ASN1ASTNode, - #superclass : #Object, + #name : 'ASN1ASTNode', + #superclass : 'Object', #instVars : [ 'properties' ], - #category : #'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTNode >> addModifier: aModifier [ aModifier ifNotNil: [ self modifiers add: aModifier ]. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> beAssigned [ self propertyAt: #assigned put: true ] -{ #category : #binding } +{ #category : 'binding' } ASN1ASTNode >> bindingOf: aString [ ^ nil ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> defaultValue [ ^ (self modifiers detect: [:each| each isDefaultValue ] ifNone: [ ^ nil ]) value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> definition [ ^ self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTNode >> dereferenced [ ^ self ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> hasDefaultValue [ ^ self modifiers anySatisfy: [:each| each isDefaultValue ] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> hasProperty: aString [ ^ (self properties at: aString ifAbsent: [ nil ]) notNil ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isAsn1Node [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isAsn1ReferenceNode [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isAssigned [ ^ self propertyAt: #assigned ifAbsent: [ false ] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isLiteralNode [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isOptional [ ^ self modifiers anySatisfy: [:each| each isOptional ] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isPrimitiveNode [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isTypeNode [ ^ false ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> isValueNode [ ^ false ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTNode >> modifiers [ ^ self propertyAt: #modifiers ifAbsentPut: [ Set new ] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ASTNode >> printOn: aStream [ ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> properties [ ^ properties ifNil: [ properties := Dictionary new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> propertyAt: aString [ ^ self properties at: aString ifAbsent: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> propertyAt: aString ifAbsent: aBlock [ ^ self properties at: aString ifAbsent: aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> propertyAt: aString ifAbsentPut: aBlock [ ^ self properties at: aString ifAbsentPut: aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> propertyAt: aString ifPresent: aBlock [ ^ self properties at: aString ifPresent: aBlock ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTNode >> propertyAt: aString put: anObject [ self properties at: aString put: anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTNode >> providesScope [ ^ false ] diff --git a/ASN1-AST/ASN1ASTParser.class.st b/ASN1-AST/ASN1ASTParser.class.st index 8d6ad16..88d8d80 100644 --- a/ASN1-AST/ASN1ASTParser.class.st +++ b/ASN1-AST/ASN1ASTParser.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ASTParser, - #superclass : #ASN1Syntax, - #category : 'ASN1-AST' + #name : 'ASN1ASTParser', + #superclass : 'ASN1Syntax', + #category : 'ASN1-AST', + #package : 'ASN1-AST' } -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> actualParameterList [ ^ super actualParameterList "==> [:nodes| self halt ]" ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> ambiguousMatch: aProductionSymbol withAlternatives: aCollection [ "try to parse a set of alternatives that all match the same rule. The match needs to be determined in a later step. At the same time track @@ -36,7 +37,7 @@ ASN1ASTParser >> ambiguousMatch: aProductionSymbol withAlternatives: aCollection alternatives: alt ]]] ] -{ #category : #'x.680 grammer 1998' } +{ #category : 'x.680 grammer 1998' } ASN1ASTParser >> anyType [ ^ super anyType ==> [:nodes| ASN1AnyTypeNode new @@ -45,12 +46,12 @@ ASN1ASTParser >> anyType [ ifNil: [ nil ]) ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> assignmentList [ ^ super assignmentList ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> bString [ ^ super bString ==> [:nodes| ASN1BinaryBitStringValueNode new @@ -58,7 +59,7 @@ ASN1ASTParser >> bString [ value: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> bitStringType [ ^ super bitStringType ==> [:nodes| | bitString | bitString := ASN1BitStringTypeNode new. @@ -67,7 +68,7 @@ ASN1ASTParser >> bitStringType [ bitString ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> bitStringValue [ ^ self ambiguousMatch: #bitStringValue @@ -75,7 +76,7 @@ ASN1ASTParser >> bitStringValue [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> bitStringValuePlain [ ^ super bitStringValue ==> [:nodes| "this is an empty bit string value so we assign a type without bits" @@ -83,13 +84,13 @@ ASN1ASTParser >> bitStringValuePlain [ value: (nodes ifNil: [ Array new ] ) ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> booleanType [ ^ super booleanType ==> [:node| ASN1BooleanTypeNode name: node ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> booleanValue [ ^ super booleanValue ==> [:nodes| ASN1BooleanValueNode new @@ -97,12 +98,12 @@ ASN1ASTParser >> booleanValue [ value: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> builtinValue [ ^ super builtinValue ==> [:nodes| nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> choiceType [ ^ super choiceType ==> [:nodes| ASN1ChoiceNode new @@ -110,7 +111,7 @@ ASN1ASTParser >> choiceType [ rest: (nodes copyFrom: 2 to: 4)] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> choiceValue [ ^ super choiceValue ==> [:n| ASN1ChoiceValueNode new @@ -118,7 +119,7 @@ ASN1ASTParser >> choiceValue [ value: n third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> componentType [ ^ super componentType ==> [:nodes| (nodes first = 'COMPONENTS OF') @@ -133,7 +134,7 @@ ASN1ASTParser >> componentType [ component ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> componentTypeLists [ " there can be quite a few combinations of components, extensions and extensionadditions. Extension comes as string and the others as collection" @@ -146,7 +147,7 @@ ASN1ASTParser >> componentTypeLists [ col ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> constraint [ ^ super constraint ==> [:nodes| ASN1ConstraintNode @@ -154,33 +155,33 @@ ASN1ASTParser >> constraint [ exception: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> containedSubtype [ ^ super containedSubtype ==> [:nodes| ASN1ConstraintNode new constraint: nodes ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> defaultSyntax [ ^ super defaultSyntax ==> [:nodes| nodes] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> definedObjectClass [ ^ super definedObjectClass ==> [:node| node asn1Reference ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> definedSyntax [ ^ super definedSyntax ==> [:node| ASN1DefinedSyntaxObjectNode new syntax: node second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> definitiveIdentification [ "disabling iri value for now" self flag: #incomplete. @@ -190,7 +191,7 @@ ASN1ASTParser >> definitiveIdentification [ ifNil: [ nil ] ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> definitiveNameAndNumberForm [ ^ super definitiveNameAndNumberForm ==> [:nodes| ASN1ObjectIdComponentNode new @@ -198,24 +199,24 @@ ASN1ASTParser >> definitiveNameAndNumberForm [ number: (Number readFrom: nodes second) ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> definitiveObjIdComponent [ ^ super definitiveObjIdComponent ==> [:nodes| ASN1ObjectIdComponentNode nodes: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> definitiveOid [ ^ super definitiveOid ==> [:nodes| ASN1ObjectIdNode components: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> durationType [ ^ super durationType ==> [:node| ASN1PrimitiveTypeNode name: node ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> elementSetSpecs [ ^ super elementSetSpecs ==> [ :nodes | | set | set := nodes first . @@ -226,13 +227,13 @@ ASN1ASTParser >> elementSetSpecs [ set ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> enumeratedType [ ^super enumeratedType ==> [:nodes| ASN1EnumeratedNode new elements: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> enumeration [ "If we get named numbers the have values assigned. If we get just an identifier we create a dummy named number with nil value that can be assigned later" @@ -243,7 +244,7 @@ ASN1ASTParser >> enumeration [ ifFalse: [ node ] ] ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> enumerations [ ^ super enumerations ==> [:nodes| | enum | enum := nodes first asOrderedCollection. @@ -254,32 +255,32 @@ ASN1ASTParser >> enumerations [ enum ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> extensionAdditions [ ^ super extensionAdditions ==> [:nodes| nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> extensionAndException [ ^ super extensionAndException ==> [:nodes| ASN1ExtensionAndExceptionNode new exception: nodes second] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> extensionEndMarker [ ^ super extensionEndMarker ==> [:nodes| ASN1ExtensionEndMarkerNode new ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> externalType [ ^ super externalType ==> [:nodes| ASN1ExternalTypeNode new ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> fixedTypeValueFieldSpec [ self flag: #incomplete. ^ super fixedTypeValueFieldSpec ==> [:nodes| | node | @@ -293,7 +294,7 @@ ASN1ASTParser >> fixedTypeValueFieldSpec [ node] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> fixedTypeValueSetFieldSpec [ ^ super fixedTypeValueSetFieldSpec ==> [:nodes| | node | node := ASN1FieldSpecNode new @@ -304,7 +305,7 @@ ASN1ASTParser >> fixedTypeValueSetFieldSpec [ node ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> globalModuleReference [ ^ super globalModuleReference ==> [:nodes| ASN1ModuleIdentifierNode new @@ -312,7 +313,7 @@ ASN1ASTParser >> globalModuleReference [ oid: nodes second ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> hString [ ^ super hString ==> [:nodes| ASN1HexBitStringValueNode new @@ -320,14 +321,14 @@ ASN1ASTParser >> hString [ value: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> innerTypeConstraints [ ^ super innerTypeConstraints ==> [:nodes| ASN1ConstraintNode new constraint: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> integerType [ ^ super integerType ==> [:nodes| | intergerType | integerType := ASN1IntegerTypeNode new. @@ -337,7 +338,7 @@ ASN1ASTParser >> integerType [ integerType] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> integerValue [ "^ (signedNumber flatten ==> [:node| ASN1IntegerValueNode new value: node ]) / (identifier ==> [:node| | ambi | @@ -354,7 +355,7 @@ ASN1ASTParser >> integerValue [ ifNil: [ node asn1Reference ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> intersections [ ^ super intersections ==> [:nodes| | intersectionElements | intersectionElements := nodes collect: [:each| @@ -370,13 +371,13 @@ ASN1ASTParser >> intersections [ ifFalse: [ intersectionElements first ] ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> literal [ ^ super literal ==> [:nodes| ASN1LiteralNode new string: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> moduleDefinition [ ^ super moduleDefinition ==> [:nodes| ASN1ModuleDefinitionNode new @@ -390,12 +391,12 @@ ASN1ASTParser >> moduleDefinition [ encodingControlSections: nodes sixth ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> moduleIdentifier [ ^ super moduleIdentifier ==> [:nodes| ASN1ModuleIdentifierNode nodes: nodes. ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> nameAndNumberForm [ ^ super nameAndNumberForm ==> [:nodes| ASN1ObjectIdComponentNode new @@ -403,7 +404,7 @@ ASN1ASTParser >> nameAndNumberForm [ number: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> namedBit [ ^ super namedBit ==> [:nodes| ASN1NamedBitNode new @@ -411,7 +412,7 @@ ASN1ASTParser >> namedBit [ value: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> namedNumber [ ^ super namedNumber ==> [:nodes| ASN1NamedNumberNode @@ -419,7 +420,7 @@ ASN1ASTParser >> namedNumber [ number: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> namedType [ ^ super namedType ==> [:nodes| ASN1NamedTypeNode new @@ -427,7 +428,7 @@ ASN1ASTParser >> namedType [ type: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> namedValue [ ^ super namedValue ==> [:nodes| ASN1NamedValueNode new @@ -435,13 +436,13 @@ ASN1ASTParser >> namedValue [ value: nodes second] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> nullType [ ^ super nullType ==> [:node| ASN1NullTypeNode new ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> numberForm [ ^ super numberForm ==> [:node| node isAllDigits @@ -449,18 +450,18 @@ ASN1ASTParser >> numberForm [ ifFalse: [ node ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> objIdComponents [ ^ super objIdComponents ==> [:nodes| ASN1ObjectIdComponentNode nodes: nodes ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> object [ ^ super object ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectAssignment [ ^ super objectAssignment ==> [:nodes| ASN1AssignmentNode new @@ -471,7 +472,7 @@ ASN1ASTParser >> objectAssignment [ type: nodes second) ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectClassAssignment [ ^ super objectClassAssignment ==> [:nodes| ASN1AssignmentNode new @@ -480,7 +481,7 @@ ASN1ASTParser >> objectClassAssignment [ right: nodes third ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectClassDefn [ ^ super objectClassDefn ==> [:nodes| (nodes second isNil @@ -489,7 +490,7 @@ ASN1ASTParser >> objectClassDefn [ fields: nodes first ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectClassFieldType [ ^ super objectClassFieldType ==> [:nodes| ASN1TypeFieldNode new @@ -497,25 +498,25 @@ ASN1ASTParser >> objectClassFieldType [ fields: nodes third] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectClassReference [ ^ super objectClassReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> objectIdentifierType [ ^super objectIdentifierType ==> [:nodes| ASN1ObjectIdentifierTypeNode new name: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> objectIdentifierValue [ ^ self ambiguousMatch: #objectIdentifierValue withAlternatives: #( #objectIdentifierValuePlain #sequenceValue) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> objectIdentifierValuePlain [ ^ super objectIdentifierValue ==> [:nodes| ASN1ObjectIdNode components: ( @@ -529,13 +530,13 @@ ASN1ASTParser >> objectIdentifierValuePlain [ ifFalse: [ nodes ]] ) ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectReference [ ^ super objectReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectSet [ ^ super objectSet ==> [:nodes| (nodes = '...') @@ -547,7 +548,7 @@ ASN1ASTParser >> objectSet [ fold: [:a :b| a merge: b]) ]] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectSetAssignment [ ^ super objectSetAssignment ==> [:nodes| ASN1AssignmentNode new @@ -557,7 +558,7 @@ ASN1ASTParser >> objectSetAssignment [ right: (nodes third type: nodes second) ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectSetFieldSpec [ ^ super objectSetFieldSpec ==> [:nodes | | node | node := ASN1FieldSpecNode new @@ -568,13 +569,13 @@ ASN1ASTParser >> objectSetFieldSpec [ node] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectSetReference [ ^ super objectSetReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> objectSetSpec [ ^ super objectSetSpec ==> [ :nodes | nodes collect: [ :node | @@ -583,21 +584,21 @@ ASN1ASTParser >> objectSetSpec [ ifFalse: [ node ] ] ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> octetStringType [ ^ super octetStringType ==> [:node| ASN1PrimitiveTypeNode new name: node ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> optionalExtensionMarker [ ^ super optionalExtensionMarker ==> [:nodes| nodes ifNotNil: [ ASN1ExtensionNode new ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> optionalGroup [ ^ super optionalGroup ==> [:nodes| ASN1ValueCollectionNode new @@ -605,7 +606,7 @@ ASN1ASTParser >> optionalGroup [ addModifier: ASN1ModifierOptionalNode new] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameter [ ^ super parameter ==> [:nodes| | paramType | nodes first ifNotNil: [ @@ -617,13 +618,13 @@ ASN1ASTParser >> parameter [ reference: nodes second ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObject [ ^ super parameterizedObject ==> [:nodes| nodes first parameters: nodes second] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObjectAssignment [ ^ super parameterizedObjectAssignment ==> [:nodes| ASN1AssignmentNode new @@ -635,13 +636,13 @@ ASN1ASTParser >> parameterizedObjectAssignment [ type: nodes third) ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObjectClass [ ^ super parameterizedObjectClass ==> [:nodes| nodes first parameters: nodes second ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObjectClassAssignment [ ^ super parameterizedObjectClassAssignment ==> [:nodes| self notYetImplemented @@ -652,13 +653,13 @@ ASN1ASTParser >> parameterizedObjectClassAssignment [ right: nodes third "] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObjectSet [ ^ super parameterizedObjectSet ==> [:nodes| nodes first parameters: nodes second] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedObjectSetAssignment [ ^ super parameterizedObjectSetAssignment ==> [:nodes| ASN1AssignmentNode new @@ -669,7 +670,7 @@ ASN1ASTParser >> parameterizedObjectSetAssignment [ right: nodes fourth ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedReference [ ^ super parameterizedReference ==> [:nodes| | params | params := nodes second @@ -678,13 +679,13 @@ ASN1ASTParser >> parameterizedReference [ nodes first parameters: params ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedType [ ^ super parameterizedType ==> [:nodes| nodes first parameters: nodes second ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedTypeAssignment [ ^ super parameterizedTypeAssignment ==> [:nodes| ASN1AssignmentNode new @@ -694,13 +695,13 @@ ASN1ASTParser >> parameterizedTypeAssignment [ right: nodes fourth ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedValue [ ^ super parameterizedValue ==> [:nodes| nodes first parameters: nodes second] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedValueAssignment [ ^ super parameterizedValueAssignment ==> [:nodes| ASN1AssignmentNode new @@ -711,13 +712,13 @@ ASN1ASTParser >> parameterizedValueAssignment [ right: nodes fourth ] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedValueSetType [ ^ super parameterizedValueSetType ==> [:nodes| nodes first parameters: nodes second] ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1ASTParser >> parameterizedValueSetTypeAssignment [ ^ super parameterizedValueSetTypeAssignment ==> [:nodes| ASN1AssignmentNode new @@ -728,7 +729,7 @@ ASN1ASTParser >> parameterizedValueSetTypeAssignment [ right: nodes fifth] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> parseAmbiguous: aParser using: aBlock [ ^ aParser >=> [:stream :block| | startPos parsed | startPos := stream position. @@ -743,7 +744,7 @@ ASN1ASTParser >> parseAmbiguous: aParser using: aBlock [ value: (stream collection copyFrom: startPos + 1 to: stream position )]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> reference [ ^ super reference ==> [:node| (node class = ASN1ReferenceNode ) ifFalse: [ @@ -751,26 +752,26 @@ ASN1ASTParser >> reference [ node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> relativeOidComponents [ ^ super relativeOidComponents ==> [:nodes| ASN1ObjectIdComponentNode nodes: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> relativeOidValue [ ^ super relativeOidValue ==> [:nodes| ASN1ObjectIdNode components: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> restrictedCharacterStringType [ ^ super restrictedCharacterStringType ==> [:node| ASN1PrimitiveTypeNode new name: node ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> selectionType [ ^ super selectionType ==> [:nodes| ASN1SelectionTypeNode new @@ -778,52 +779,52 @@ ASN1ASTParser >> selectionType [ type: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> sequenceOfType [ ^ super sequenceOfType ==> [:nodes| ASN1TypedSequenceNode new type: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> sequenceOfValue [ ^ super sequenceOfValue ==> [:nodes| ASN1SequenceOfValueNode new elements: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> sequenceType [ ^ super sequenceType ==> [:nodes| ASN1SequenceNode new elements: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> sequenceValue [ ^ super sequenceValue ==> [:nodes| ASN1SequenceValueNode new elements: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> setOfType [ ^ super setOfType ==> [:nodes| ASN1TypedSetNode new type: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> setType [ ^ super setType ==> [:nodes| ASN1SetNode new elements: nodes ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> setting [ ^ super setting ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> signedNumber [ ^ super signedNumber ==> [:nodes| nodes first notNil @@ -831,14 +832,14 @@ ASN1ASTParser >> signedNumber [ ifFalse: [ nodes second asNumber ]] ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1ASTParser >> sizeConstraint [ ^ super sizeConstraint ==> [:nodes| ASN1ConstraintNode new constraint: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> symbolsFromModule [ ^ super symbolsFromModule ==> [:nodes| ASN1ImportNode new @@ -846,14 +847,14 @@ ASN1ASTParser >> symbolsFromModule [ moduleIdentifier: nodes second ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> syntaxList [ ^ super syntaxList ==> [:nodes| ASN1ValueCollectionNode new elements: nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> tag [ ^ super tag ==> [:nodes| ASN1TagNode new @@ -863,7 +864,7 @@ ASN1ASTParser >> tag [ ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> tagDefault [ ^ super tagDefault ==> [:nodes| nodes @@ -871,7 +872,7 @@ ASN1ASTParser >> tagDefault [ ifNil: [ ASN1ExplicitTags ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> taggedType [ ^ super taggedType ==> [:nodes| ASN1TaggedTypeNode new @@ -880,7 +881,7 @@ ASN1ASTParser >> taggedType [ type: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> type [ ^ super type ==> [:nodes| nodes second do: [:each| @@ -888,7 +889,7 @@ ASN1ASTParser >> type [ nodes first ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> typeAssignment [ ^ super typeAssignment ==> [:nodes| ASN1AssignmentNode new @@ -896,7 +897,7 @@ ASN1ASTParser >> typeAssignment [ right: nodes second ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> typeFieldSpec [ ^ super typeFieldSpec ==> [:nodes| | node | node := ASN1FieldSpecNode new @@ -906,7 +907,7 @@ ASN1ASTParser >> typeFieldSpec [ node ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> typeFromObject [ ^ super typeFromObject ==> [:nodes| ASN1TypeFromObjectNode new @@ -914,19 +915,19 @@ ASN1ASTParser >> typeFromObject [ field: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> typeReference [ ^ super typeReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> typeReferenceToken [ ^ super typeReferenceToken ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> typeWithConstraint [ ^ super typeWithConstraint ==> [:nodes| | collection | collection := (nodes first = 'SET') @@ -937,26 +938,26 @@ ASN1ASTParser >> typeWithConstraint [ ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> unions [ ^ super unions ==> [:nodes| ASN1UnionNode new elements: nodes] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> usefulType [ ^ super usefulType ==> [:nodes| ASN1PrimitiveTypeNode new name: nodes] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> value [ ^ super value ==> [:nodes| nodes ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueAssignment [ ^ super valueAssignment ==> [:nodes| ASN1AssignmentNode new @@ -967,7 +968,7 @@ ASN1ASTParser >> valueAssignment [ ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> valueFromObject [ ^ super valueFromObject ==> [:nodes| ASN1ValueFromObjectNode new @@ -975,7 +976,7 @@ ASN1ASTParser >> valueFromObject [ fields: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueOptionalitySpec [ ^ super valueOptionalitySpec ==> [:nodes| (nodes = 'OPTIONAL') @@ -983,7 +984,7 @@ ASN1ASTParser >> valueOptionalitySpec [ ifFalse: [ ASN1ModifierDefaultValueNode new value: nodes second]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueRange [ ^ super valueRange ==> [:nodes| (ASN1RangeConstraintNode @@ -994,19 +995,19 @@ ASN1ASTParser >> valueRange [ yourself ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueReference [ ^ super valueReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueReferenceToken [ ^super valueReferenceToken ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueSet [ "a possible extension marker in between makes constructing a bit weird. Base set spec is in the first element but the additional set spec is nested deeply" @@ -1014,13 +1015,13 @@ ASN1ASTParser >> valueSet [ ASN1ValueSetNode new elementsSpec: nodes ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1ASTParser >> valueSetFieldReference [ ^ super valueSetFieldReference ==> [:node| node asn1Reference ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueSetOptionalitySpec [ ^ super valueSetOptionalitySpec ==> [:nodes| (nodes = 'OPTIONAL') @@ -1028,7 +1029,7 @@ ASN1ASTParser >> valueSetOptionalitySpec [ ifFalse: [ ASN1ModifierDefaultValueNode new value: nodes second]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1ASTParser >> valueSetTypeAssignment [ ^ super valueSetTypeAssignment ==> [:nodes| ASN1AssignmentNode new diff --git a/ASN1-AST/ASN1ASTRoot.class.st b/ASN1-AST/ASN1ASTRoot.class.st index 6ae0d68..d6fde9c 100644 --- a/ASN1-AST/ASN1ASTRoot.class.st +++ b/ASN1-AST/ASN1ASTRoot.class.st @@ -1,18 +1,19 @@ Class { - #name : #ASN1ASTRoot, - #superclass : #Object, + #name : 'ASN1ASTRoot', + #superclass : 'Object', #instVars : [ 'modules' ], - #category : 'ASN1-AST' + #category : 'ASN1-AST', + #package : 'ASN1-AST' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTRoot >> accept: aVisitor [ ^ aVisitor visitRoot: self ] -{ #category : #actions } +{ #category : 'actions' } ASN1ASTRoot >> addImportedModules [ "load modules that are imported by existing modules recursively" | list seen | @@ -26,12 +27,12 @@ ASN1ASTRoot >> addImportedModules [ list addLast: (self moduleWithIdentifier: identifier) ]]] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTRoot >> addModule: aModule [ ^ self modules add: aModule ] -{ #category : #actions } +{ #category : 'actions' } ASN1ASTRoot >> addModuleFrom: aString [ "add module from a text source. Prevent modules being added if parsing has gone wrong" @@ -39,7 +40,7 @@ ASN1ASTRoot >> addModuleFrom: aString [ ] -{ #category : #actions } +{ #category : 'actions' } ASN1ASTRoot >> annotateAsts [ self resolveImportSymbols; @@ -52,7 +53,7 @@ ASN1ASTRoot >> annotateAsts [ detectPDUs ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTRoot >> bindingNamed: aString [ self modules do: [:module| module assignments associationsDo: [:assignment| @@ -61,31 +62,31 @@ ASN1ASTRoot >> bindingNamed: aString [ ^ nil ] -{ #category : #binding } +{ #category : 'binding' } ASN1ASTRoot >> bindingOf: aString [ ^ self resolveName: aString ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> defaultModule [ ^ self modules detect: [ :each | each moduleName = 'default' ] ifNone: [ ^ nil ] ] -{ #category : #actions } +{ #category : 'actions' } ASN1ASTRoot >> detectPDUs [ "annotate a module with the definition of a PDU" self modules allButFirst do: [:each| | a | a := self pduForModule: each. ] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTRoot >> includesModuleNamed: aModuleName [ ^ (self moduleIdentifierNamed: aModuleName) notNil ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> inquireModuleWithIdentifier: aModuleIdentifier [ "raise resumable exception to inquire a module or module source string" ^ (ASN1MissingModule new identifier: aModuleIdentifier; signal) @@ -96,14 +97,14 @@ ASN1ASTRoot >> inquireModuleWithIdentifier: aModuleIdentifier [ ifNil: [ Error signal: 'cannot resolve module with identifier ', aModuleIdentifier asString ] ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> moduleIdentifierNamed: aModuleName [ ^ (self modules detect: [:each| each identifier name = aModuleName ] ifNone: [ ^ nil ]) identifier ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> moduleWithIdentifier: aModuleIdentifier [ "resolve a module by its identifier. If the identifier cannot be found resolve the module with its name. If no module is found throw a resumable exception so someelse can provide @@ -121,32 +122,32 @@ ASN1ASTRoot >> moduleWithIdentifier: aModuleIdentifier [ ifNil: [ self inquireModuleWithIdentifier: aModuleIdentifier ]] ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> moduleWithName: aModuleName [ ^ self modules detect: [:each| each identifier name = aModuleName ] ifNone: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTRoot >> modules [ ^ modules ifNil: [ modules := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTRoot >> modules: aCollection [ modules := aCollection ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTRoot >> optimizeModuleOrder [ modules := modules copy sort: [ :a :b | a imports anySatisfy: [:import| import moduleIdentifier name label= b identifier name ] ] ] -{ #category : #actions } +{ #category : 'actions' } ASN1ASTRoot >> parseModuleFrom: aString [ | module | module := ASN1ASTParser parse: aString. @@ -155,7 +156,7 @@ ASN1ASTRoot >> parseModuleFrom: aString [ ^ module ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> pduForModule: aModule [ | visitor pdu | visitor := ASN1PDUFindingVisitor new. @@ -175,13 +176,13 @@ ASN1ASTRoot >> pduForModule: aModule [ ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveAllSymbols [ "annotate all names in the grammar with their definition" self accept: (ASN1SymbolResolvingVisitor new root: self) ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveAmbiguities [ "rewrite ambiguous nodes to real nodes using their context" | visitor newRoot | @@ -189,19 +190,19 @@ ASN1ASTRoot >> resolveAmbiguities [ newRoot := self accept: visitor ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveImportSymbols [ "annotate all imported modules and names with their definitions" self accept: (ASN1ImportSymbolVisitor new root: self) ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveInconsistencies [ "check the AST finally for incosistencies before we convert it to the model" self accept: (ASN1InconsistencySolvingVisitor new) ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveName: aString [ self defaultModule localNames at: aString @@ -214,7 +215,7 @@ ASN1ASTRoot >> resolveName: aString [ Error signal: 'couldn''t resolve name ', aString printString, String cr ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1ASTRoot >> resolveRelativeOids [ "resolve OIDs defined by reference" self accept: (ASN1RelativeOidResolvingVisitor new) diff --git a/ASN1-AST/ASN1ASTVisitor.class.st b/ASN1-AST/ASN1ASTVisitor.class.st index 22ba21e..2b90451 100644 --- a/ASN1-AST/ASN1ASTVisitor.class.st +++ b/ASN1-AST/ASN1ASTVisitor.class.st @@ -1,97 +1,99 @@ Class { - #name : #ASN1ASTVisitor, - #superclass : #Object, - #category : 'ASN1-AST-Visitor' + #name : 'ASN1ASTVisitor', + #superclass : 'Object', + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visit: anObject [ anObject isNil ifTrue: [ ^ nil ]. ^ anObject accept: self ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitAll: aCollection [ aCollection isNil ifTrue: [ ^ aCollection ]. ^ aCollection collect: [:each| self visit: each ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitAmbiguousNode: anAmbiguousNode [ self visitAll: anAmbiguousNode alternatives. ^ anAmbiguousNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitAnyTypeNode: anAnyNode [ ^ anAnyNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitAssignmentNode: anAssignmentNode [ self visit: anAssignmentNode left. self visit: anAssignmentNode right. ^ anAssignmentNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitBinaryBitStringValueNode: aBitStringValueNode [ ^ self visitValueNode: aBitStringValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitBitStringNode: aBitString [ ^ self visitPrimitiveNode: aBitString ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitBitStringValueNode: aBitStringValueNode [ ^ self visitValueNode: aBitStringValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitBooleanValueNode: aPrimitiveValueNode [ ^ self visitValueNode: aPrimitiveValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitChoiceNode: aChoice [ ^ self visitCollectionNode: aChoice ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitChoiceValueNode: aChoiceValueNode [ ^ self visitValueNode: aChoiceValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitCollectionNode: aCollection [ self visitAll: aCollection elements. ^ self visitTypeNode: aCollection ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitComponentTypeListNode: aComponentTypeList [ self visitAll: aComponentTypeList components. self visitNode: aComponentTypeList. ^ aComponentTypeList ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitComponentTypeNode: aComponentTypeNode [ self visit: aComponentTypeNode type. self visit: aComponentTypeNode modifiers. ^ aComponentTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitComponentsOfNode: aComponentsOf [ self visit: aComponentsOf type. ^ aComponentsOf ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitConstraintNode: aConstraint [ self visit: aConstraint constraint. self flag: #hack. @@ -99,26 +101,26 @@ ASN1ASTVisitor >> visitConstraintNode: aConstraint [ ^ aConstraint ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitCustomStringNode: aCustomString [ ^ aCustomString ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitDefaultSyntaxClassNode: aDefaultSyntaxClassNode [ self visitAll: aDefaultSyntaxClassNode fields. ^ aDefaultSyntaxClassNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitDefinedSyntaxClassNode: aDefinedSyntaxClass [ self visitAll: aDefinedSyntaxClass fields. "self visitAll: aDefinedSyntaxClass syntax." ^ aDefinedSyntaxClass ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitElementsNode: anElements [ self visit: anElements entity. anElements exclusions ifNotNil: [ @@ -126,74 +128,74 @@ ASN1ASTVisitor >> visitElementsNode: anElements [ ^ anElements ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitEnumeratedNode: anEnumerated [ ^ anEnumerated ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitExtensionAndExceptionNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitExtensionNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitExternalNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitFieldSpecNode: aFieldSpec [ self visit: aFieldSpec type. self flag: #needsRedesign. ^ aFieldSpec ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitHexBitStringValueNode: aBitStringValueNode [ ^ self visitValueNode: aBitStringValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitImportNode: anImport [ self visit: anImport moduleIdentifier. self visitAll: anImport symbols. ^ anImport ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitIntegerNode: anInteger [ self visitAll: anInteger namedNumbers. self visitTypeNode: anInteger. ^ anInteger ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitIntegerValueNode: aIntegerValueNode [ ^ aIntegerValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitLiteralNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitModifierDefaultValueNode: aNode [ self visit: aNode value. ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitModifierOptionalNode: anOptionalNode [ ^ anOptionalNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitModuleDefinitionNode: aModuleDefinition [ self flag: #incomplete. self visit: aModuleDefinition identifier. @@ -203,97 +205,97 @@ ASN1ASTVisitor >> visitModuleDefinitionNode: aModuleDefinition [ ^ aModuleDefinition ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitModuleIdentifierNode: aModuleIdentifierNode [ "self visit: aModuleIdentifierNode name." self visit: aModuleIdentifierNode oid. ^ aModuleIdentifierNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitNamedNumberNode: aNamedNumberNode [ ^ ASN1NamedNumberNode new name: aNamedNumberNode name; number: aNamedNumberNode number ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitNamedTypeNode: aNamedType [ self visit: aNamedType type. ^ aNamedType ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitNamedValueNode: aNode [ ^ self visit: aNode value ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitNullTypeNode: aNullType [ ^ aNullType ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitObjectIdComponentNode: anObjectIdComponent [ ^ anObjectIdComponent ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitObjectIdNode: anObjectId [ self visitAll: anObjectId components. ^ anObjectId ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitObjectIdentifierNode: anObjectId [ self visitAll: anObjectId components. ^ anObjectId ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitObjectIdentifierTypeNode: anObjectIdentifier [ ^ anObjectIdentifier ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitObjectSetNode: anObjectSetNode [ self visit: anObjectSetNode elementsSpec. ^ anObjectSetNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitOctetStringNode: aOctetString [ ^ self visitPrimitiveNode: aOctetString ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitOpenTypeNode: anOpenTypeNode [ ^ anOpenTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitParameterNode: aParameterNode [ self visit: aParameterNode type. "self visit: aParameterNode reference." ^ aParameterNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitPrimitiveNode: aPrimitiveNode [ ^ self visitTypeNode: aPrimitiveNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitPrimitiveValueNode: aPrimitiveValueNode [ ^ self visitValueNode: aPrimitiveValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitReferenceNode: aReferenceNode [ aReferenceNode hasParameters ifTrue: [ self visitAll: aReferenceNode parameters ]. @@ -302,7 +304,7 @@ ASN1ASTVisitor >> visitReferenceNode: aReferenceNode [ ^ aReferenceNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitRoot: aRoot [ "process all modules. For each module a new visitor is created to avoid side effects or recursive effects" @@ -312,101 +314,101 @@ ASN1ASTVisitor >> visitRoot: aRoot [ ^ aRoot ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitSelectionTypeNode: aSelectionTypeNode [ self visit: aSelectionTypeNode type. ^ aSelectionTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitSequenceNode: aNode [ ^ self visitCollectionNode: aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitSequenceValueNode: aNode [ self visitAll: aNode elements. ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitSetNode: aNode [ ^ self visitCollectionNode: aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTagNode: aTag [ ^ aTag ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTaggedTypeNode: aTypeNode [ self visit: aTypeNode type. self visit: aTypeNode tag. ^ aTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypeFieldNode: aTypeFieldNode [ self visit: aTypeFieldNode type. self visitAll: aTypeFieldNode fields. ^ aTypeFieldNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypeFromObjectNode: aTypeFromObject [ self visit: aTypeFromObject object. ^ aTypeFromObject ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypeNode: aTypeNode [ ^ self visitNode: aTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypedCollectionNode: aNode [ self visit: aNode type. ^ self visitNode: aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypedSequenceNode: aSequenceNode [ ^ self visitTypedCollectionNode: aSequenceNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitTypedSetNode: aSetNode [ ^ self visitTypedCollectionNode: aSetNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitUnionNode: aUnion [ self visitAll: aUnion elements. ^ aUnion ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitValueCollectionNode: aValueCollectionNode [ ^ self visitAll: aValueCollectionNode elements ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitValueFromObject: anASN1ValueFromObject [ self shouldBeImplemented. ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitValueFromObjectNode: aValueFromObjectNode [ self visit: aValueFromObjectNode object ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitValueNode: aValueNode [ ^ self visitNode: aValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ASTVisitor >> visitValueSetNode: aValueSetNode [ self visit: aValueSetNode elementsSpec. ^ aValueSetNode diff --git a/ASN1-AST/ASN1AmbiguitySolvingVisitor.class.st b/ASN1-AST/ASN1AmbiguitySolvingVisitor.class.st index c2e0e2b..dd92456 100644 --- a/ASN1-AST/ASN1AmbiguitySolvingVisitor.class.st +++ b/ASN1-AST/ASN1AmbiguitySolvingVisitor.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1AmbiguitySolvingVisitor, - #superclass : #ASN1RewriteVisitor, + #name : 'ASN1AmbiguitySolvingVisitor', + #superclass : 'ASN1RewriteVisitor', #instVars : [ 'root', 'module' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguitySolvingVisitor >> module [ ^ module ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguitySolvingVisitor >> module: anObject [ module := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguitySolvingVisitor >> root [ ^ root ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguitySolvingVisitor >> root: anObject [ root := anObject ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visit: anObject [ anObject isNil ifTrue: [ ^ nil ]. ^ anObject isAsn1Node @@ -36,7 +38,7 @@ ASN1AmbiguitySolvingVisitor >> visit: anObject [ ifFalse: [ anObject ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitAmbiguousNode: anAmbiguousType [ "^ (anAmbiguousType alternatives detect: [:each| | type | type := each properties at: #definition ifAbsent: [ nil ]. @@ -47,28 +49,28 @@ ASN1AmbiguitySolvingVisitor >> visitAmbiguousNode: anAmbiguousType [ detect: [:each| each canBeAssignedTo: type ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitAssignmentNode: aNode [ ^ self provideType: aNode left type during: [ super visitAssignmentNode: aNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitComponentTypeNode: aNode [ ^ self provideType: aNode during: [ super visitComponentTypeNode: aNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitImportNode: aNode [ ^ self provideType: ASN1ObjectIdentifierTypeNode new during: [ super visitImportNode: aNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitModuleDefinitionNode: aModuleDefinition [ module := aModuleDefinition. ^ self @@ -76,7 +78,7 @@ ASN1AmbiguitySolvingVisitor >> visitModuleDefinitionNode: aModuleDefinition [ during: [ super visitModuleDefinitionNode: aModuleDefinition ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguitySolvingVisitor >> visitReferenceNode: aReferenceNode [ aReferenceNode type ifNotNil: [ self visit: aReferenceNode type]. diff --git a/ASN1-AST/ASN1AmbiguousNode.class.st b/ASN1-AST/ASN1AmbiguousNode.class.st index 14a4be6..93a1212 100644 --- a/ASN1-AST/ASN1AmbiguousNode.class.st +++ b/ASN1-AST/ASN1AmbiguousNode.class.st @@ -1,46 +1,48 @@ Class { - #name : #ASN1AmbiguousNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1AmbiguousNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name', 'alternatives', 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1AmbiguousNode >> accept: aVisitor [ ^ aVisitor visitAmbiguousNode: self ] -{ #category : #adding } +{ #category : 'adding' } ASN1AmbiguousNode >> addAlternative: anObject [ self alternatives add: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguousNode >> alternatives [ ^ alternatives ifNil: [ alternatives := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguousNode >> alternatives: anObject [ alternatives := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguousNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguousNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1AmbiguousNode >> printOn: aStream [ aStream nextPutAll: 'ambiguous<'. self alternatives @@ -49,7 +51,7 @@ ASN1AmbiguousNode >> printOn: aStream [ aStream nextPut: $> ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AmbiguousNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1AnyTypeNode.class.st b/ASN1-AST/ASN1AnyTypeNode.class.st index bc01235..6aa6778 100644 --- a/ASN1-AST/ASN1AnyTypeNode.class.st +++ b/ASN1-AST/ASN1AnyTypeNode.class.st @@ -1,23 +1,25 @@ Class { - #name : #ASN1AnyTypeNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1AnyTypeNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'id' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1AnyTypeNode >> accept: aVisitor [ ^ aVisitor visitAnyTypeNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AnyTypeNode >> id [ ^ id ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AnyTypeNode >> id: anObject [ id := anObject ] diff --git a/ASN1-AST/ASN1ArithmeticNode.class.st b/ASN1-AST/ASN1ArithmeticNode.class.st index 87566f8..04194b7 100644 --- a/ASN1-AST/ASN1ArithmeticNode.class.st +++ b/ASN1-AST/ASN1ArithmeticNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1ArithmeticNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ArithmeticNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1AssignmentNode.class.st b/ASN1-AST/ASN1AssignmentNode.class.st index a372d3c..bd571c4 100644 --- a/ASN1-AST/ASN1AssignmentNode.class.st +++ b/ASN1-AST/ASN1AssignmentNode.class.st @@ -1,19 +1,21 @@ Class { - #name : #ASN1AssignmentNode, - #superclass : #ASN1ScopeNode, + #name : 'ASN1AssignmentNode', + #superclass : 'ASN1ScopeNode', #instVars : [ 'left', 'right' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1AssignmentNode >> accept: aVisitor [ ^ aVisitor visitAssignmentNode: self ] -{ #category : #binding } +{ #category : 'binding' } ASN1AssignmentNode >> bindingOf: aString [ right parameters ifNil: [ ^ nil ]. ^ (right parameters anySatisfy: [:each| each contains: aString ]) @@ -21,17 +23,17 @@ ASN1AssignmentNode >> bindingOf: aString [ ifFalse: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AssignmentNode >> left [ ^ left ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AssignmentNode >> left: anObject [ left := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1AssignmentNode >> printOn: aStream [ aStream nextPutAll: 'assignment '; @@ -47,12 +49,12 @@ ASN1AssignmentNode >> printOn: aStream [ nextPut: Character cr ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AssignmentNode >> right [ ^ right ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1AssignmentNode >> right: anObject [ right := anObject ] diff --git a/ASN1-AST/ASN1BinaryBitStringValueNode.class.st b/ASN1-AST/ASN1BinaryBitStringValueNode.class.st index 1d823c8..1f0e4d8 100644 --- a/ASN1-AST/ASN1BinaryBitStringValueNode.class.st +++ b/ASN1-AST/ASN1BinaryBitStringValueNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1BinaryBitStringValueNode, - #superclass : #ASN1BitStringValueNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1BinaryBitStringValueNode', + #superclass : 'ASN1BitStringValueNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1BinaryBitStringValueNode >> accept: aVisitor [ ^ aVisitor visitBinaryBitStringValueNode: self ] diff --git a/ASN1-AST/ASN1BitStringTypeNode.class.st b/ASN1-AST/ASN1BitStringTypeNode.class.st index d5851b1..c6f16b5 100644 --- a/ASN1-AST/ASN1BitStringTypeNode.class.st +++ b/ASN1-AST/ASN1BitStringTypeNode.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1BitStringTypeNode, - #superclass : #ASN1PrimitiveTypeNode, + #name : 'ASN1BitStringTypeNode', + #superclass : 'ASN1PrimitiveTypeNode', #instVars : [ 'bits' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1BitStringTypeNode >> accept: aVisitor [ ^ aVisitor visitBitStringNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BitStringTypeNode >> bindingOf: aString [ "a bit string consists of a collection of named bits. Resolve the named bit and return its value" @@ -22,28 +24,28 @@ ASN1BitStringTypeNode >> bindingOf: aString [ ifNotNil: [ :namedBit | namedBit value ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringTypeNode >> bits [ ^ bits ifNil: [ bits := Set new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringTypeNode >> bits: anObject [ bits := anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1BitStringTypeNode >> matchesType: aTypeNodeClass [ ^ self class = aTypeNodeClass ] -{ #category : #testing } +{ #category : 'testing' } ASN1BitStringTypeNode >> matchesTypeOf: aTypeNodeClass [ ^ self class = aTypeNodeClass ] -{ #category : #printing } +{ #category : 'printing' } ASN1BitStringTypeNode >> printOn: aStream [ aStream nextPutAll: 'BitString('. bits ifNotNil: [ diff --git a/ASN1-AST/ASN1BitStringValueNode.class.st b/ASN1-AST/ASN1BitStringValueNode.class.st index 8221c3c..9dd63b0 100644 --- a/ASN1-AST/ASN1BitStringValueNode.class.st +++ b/ASN1-AST/ASN1BitStringValueNode.class.st @@ -1,33 +1,35 @@ Class { - #name : #ASN1BitStringValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1BitStringValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1BitStringValueNode >> accept: aVisitor [ ^ aVisitor visitBitStringValueNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1BitStringValueNode >> canBeAssignedTo: aTypeNode [ ^ aTypeNode matchesTypeOf: ASN1BitStringTypeNode ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringValueNode >> defaultTypeClass [ ^ ASN1BitStringTypeNode ] -{ #category : #testing } +{ #category : 'testing' } ASN1BitStringValueNode >> hasSameType: aTypeInstance [ ^ self type class = aTypeInstance class ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringValueNode >> setBitValues: aCollection [ | number | number := 0. @@ -37,12 +39,12 @@ ASN1BitStringValueNode >> setBitValues: aCollection [ self resolvedValue: (number printStringBase: 2) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BitStringValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1BooleanTypeNode.class.st b/ASN1-AST/ASN1BooleanTypeNode.class.st index d50eaba..ae9c3a4 100644 --- a/ASN1-AST/ASN1BooleanTypeNode.class.st +++ b/ASN1-AST/ASN1BooleanTypeNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1BooleanTypeNode, - #superclass : #ASN1PrimitiveTypeNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1BooleanTypeNode', + #superclass : 'ASN1PrimitiveTypeNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1BooleanValueNode.class.st b/ASN1-AST/ASN1BooleanValueNode.class.st index 3b6a7f6..4e5a2a0 100644 --- a/ASN1-AST/ASN1BooleanValueNode.class.st +++ b/ASN1-AST/ASN1BooleanValueNode.class.st @@ -1,40 +1,42 @@ Class { - #name : #ASN1BooleanValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1BooleanValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1BooleanValueNode >> accept: aVisitor [ ^ aVisitor visitBooleanValueNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BooleanValueNode >> defaultTypeClass [ ^ ASN1BooleanTypeNode ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BooleanValueNode >> hasSameType: aType [ ^ self type class = aType class ] -{ #category : #printing } +{ #category : 'printing' } ASN1BooleanValueNode >> printOn: aStream [ aStream nextPutAll: 'boolean '. value printOn: aStream ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BooleanValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1BooleanValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1ChoiceNode.class.st b/ASN1-AST/ASN1ChoiceNode.class.st index 70d82d7..caf1798 100644 --- a/ASN1-AST/ASN1ChoiceNode.class.st +++ b/ASN1-AST/ASN1ChoiceNode.class.st @@ -1,44 +1,46 @@ Class { - #name : #ASN1ChoiceNode, - #superclass : #ASN1CollectionNode, + #name : 'ASN1ChoiceNode', + #superclass : 'ASN1CollectionNode', #instVars : [ 'rest' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ChoiceNode >> accept: aVisitor [ ^ aVisitor visitChoiceNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ChoiceNode >> createInstance: aNode [ | type | type := (self elementAt: aNode choice) type. ^ type createInstance: aNode value ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ChoiceNode >> elementAt: aString [ ^ elements detect: [:each| each name = aString ] ifNone: [ nil ] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ChoiceNode >> printOn: aStream [ aStream nextPutAll: 'CHOICE{'. super printOn: aStream. aStream nextPut: $} ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceNode >> rest [ ^ rest ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceNode >> rest: anObject [ rest := anObject ] diff --git a/ASN1-AST/ASN1ChoiceValueNode.class.st b/ASN1-AST/ASN1ChoiceValueNode.class.st index 0a96670..62b3a95 100644 --- a/ASN1-AST/ASN1ChoiceValueNode.class.st +++ b/ASN1-AST/ASN1ChoiceValueNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1ChoiceValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1ChoiceValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'choice', 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ChoiceValueNode >> accept: aVisitor [ ^ aVisitor visitChoiceValueNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceValueNode >> choice [ ^ choice ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceValueNode >> choice: anObject [ choice := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ChoiceValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1ClosestTypeDefinition.class.st b/ASN1-AST/ASN1ClosestTypeDefinition.class.st index d0e2214..dac3462 100644 --- a/ASN1-AST/ASN1ClosestTypeDefinition.class.st +++ b/ASN1-AST/ASN1ClosestTypeDefinition.class.st @@ -1,20 +1,22 @@ Class { - #name : #ASN1ClosestTypeDefinition, - #superclass : #Notification, - #category : 'ASN1-AST-Visitor' + #name : 'ASN1ClosestTypeDefinition', + #superclass : 'Notification', + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClosestTypeDefinition class >> defaultAction [ ^ self class defaultValue ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClosestTypeDefinition class >> defaultValue [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClosestTypeDefinition class >> use: anObject during: aBlock [ ^ aBlock @@ -22,7 +24,7 @@ ASN1ClosestTypeDefinition class >> use: anObject during: aBlock [ do: [ :notification | notification resume: anObject ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClosestTypeDefinition class >> value [ ^ self signal diff --git a/ASN1-AST/ASN1CollectionNode.class.st b/ASN1-AST/ASN1CollectionNode.class.st index 40c6a47..5b0c30e 100644 --- a/ASN1-AST/ASN1CollectionNode.class.st +++ b/ASN1-AST/ASN1CollectionNode.class.st @@ -1,29 +1,31 @@ Class { - #name : #ASN1CollectionNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1CollectionNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'elements' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #testing } +{ #category : 'testing' } ASN1CollectionNode >> contains: aString [ ^ self elements anySatisfy: [:each| each notNil and: [ each contains: aString ]] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1CollectionNode >> elements [ ^ elements ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1CollectionNode >> elements: anObject [ elements := anObject ] -{ #category : #converting } +{ #category : 'converting' } ASN1CollectionNode >> flattenComponentsOf [ elements ifNil: [ ^ self ]. elements := elements @@ -35,13 +37,13 @@ ASN1CollectionNode >> flattenComponentsOf [ col ] ] -{ #category : #converting } +{ #category : 'converting' } ASN1CollectionNode >> normalized [ ^ self copy flattenComponentsOf ] -{ #category : #printing } +{ #category : 'printing' } ASN1CollectionNode >> printOn: aStream [ elements ifNotNil: [ (elements isCollection) @@ -52,7 +54,7 @@ ASN1CollectionNode >> printOn: aStream [ elements printElementsOn: aStream ]] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1CollectionNode >> size [ ^ elements isNil ifTrue: [ 0 ] diff --git a/ASN1-AST/ASN1ComponentTypeListNode.class.st b/ASN1-AST/ASN1ComponentTypeListNode.class.st index 15eab18..60bf826 100644 --- a/ASN1-AST/ASN1ComponentTypeListNode.class.st +++ b/ASN1-AST/ASN1ComponentTypeListNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1ComponentTypeListNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ComponentTypeListNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'components' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ComponentTypeListNode >> accept: aVisitor [ ^ aVisitor visitComponentTypeListNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentTypeListNode >> components [ ^ components ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentTypeListNode >> components: anObject [ components := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ComponentTypeListNode >> printOn: aStream [ aStream nextPutAll: 'component type list: '. components diff --git a/ASN1-AST/ASN1ComponentTypeNode.class.st b/ASN1-AST/ASN1ComponentTypeNode.class.st index 11cfbe6..9004ac9 100644 --- a/ASN1-AST/ASN1ComponentTypeNode.class.st +++ b/ASN1-AST/ASN1ComponentTypeNode.class.st @@ -1,33 +1,35 @@ Class { - #name : #ASN1ComponentTypeNode, - #superclass : #ASN1NamedTypeNode, + #name : 'ASN1ComponentTypeNode', + #superclass : 'ASN1NamedTypeNode', #instVars : [ 'modifiers' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ComponentTypeNode >> accept: aVisitor [ ^ aVisitor visitComponentTypeNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ComponentTypeNode >> bindingOf: aString [ ^ type bindingOf: aString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentTypeNode >> modifiers [ ^ modifiers ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentTypeNode >> modifiers: anObject [ modifiers := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ComponentTypeNode >> printOn: aStream [ aStream nextPutAll: '[component type] '; @@ -40,7 +42,7 @@ ASN1ComponentTypeNode >> printOn: aStream [ ] -{ #category : #testing } +{ #category : 'testing' } ASN1ComponentTypeNode >> providesScope [ ^ true ] diff --git a/ASN1-AST/ASN1ComponentsOfNode.class.st b/ASN1-AST/ASN1ComponentsOfNode.class.st index 41cb8a6..1cea55e 100644 --- a/ASN1-AST/ASN1ComponentsOfNode.class.st +++ b/ASN1-AST/ASN1ComponentsOfNode.class.st @@ -1,30 +1,32 @@ Class { - #name : #ASN1ComponentsOfNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ComponentsOfNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ComponentsOfNode >> accept: aVisitor [ ^ aVisitor visitComponentsOfNode: self ] -{ #category : #printing } +{ #category : 'printing' } ASN1ComponentsOfNode >> printOn: aStream [ aStream nextPutAll: 'components of '; nextPutAll: type printString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentsOfNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ComponentsOfNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1ConstraintNode.class.st b/ASN1-AST/ASN1ConstraintNode.class.st index 638efe0..e8852ed 100644 --- a/ASN1-AST/ASN1ConstraintNode.class.st +++ b/ASN1-AST/ASN1ConstraintNode.class.st @@ -1,46 +1,48 @@ Class { - #name : #ASN1ConstraintNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ConstraintNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'constraint', 'exception' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ConstraintNode class >> constraint: aConstraint exception: anException [ ^ self new constraint: aConstraint; exception: anException ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ConstraintNode >> accept: aVisitor [ ^ aVisitor visitConstraintNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ConstraintNode >> constraint [ ^ constraint ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ConstraintNode >> constraint: anObject [ constraint := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ConstraintNode >> exception [ ^ exception ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ConstraintNode >> exception: anObject [ exception := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ConstraintNode >> printOn: aStream [ aStream nextPut: $<. constraint ifNotNil: [ @@ -48,7 +50,7 @@ ASN1ConstraintNode >> printOn: aStream [ aStream nextPut: $> ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ConstraintNode >> type: anObject [ ] diff --git a/ASN1-AST/ASN1DefaultSyntaxClassNode.class.st b/ASN1-AST/ASN1DefaultSyntaxClassNode.class.st index ad48b56..6b0f094 100644 --- a/ASN1-AST/ASN1DefaultSyntaxClassNode.class.st +++ b/ASN1-AST/ASN1DefaultSyntaxClassNode.class.st @@ -1,20 +1,22 @@ Class { - #name : #ASN1DefaultSyntaxClassNode, - #superclass : #ASN1ScopeNode, + #name : 'ASN1DefaultSyntaxClassNode', + #superclass : 'ASN1ScopeNode', #instVars : [ 'fields' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultSyntaxClassNode class >> name: aString fields: aCollection [ ^ self new name: aString; fields: aCollection ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultSyntaxClassNode class >> name: aString fields: aCollection syntax: aSyntaxCollection [ ^ self new name: aString; @@ -22,12 +24,12 @@ ASN1DefaultSyntaxClassNode class >> name: aString fields: aCollection syntax: aS syntax: aSyntaxCollection ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1DefaultSyntaxClassNode >> accept: aVisitor [ ^ aVisitor visitDefaultSyntaxClassNode: self ] -{ #category : #binding } +{ #category : 'binding' } ASN1DefaultSyntaxClassNode >> bindingOf: aString [ self flag: #incomplete. ^ self fields @@ -35,47 +37,47 @@ ASN1DefaultSyntaxClassNode >> bindingOf: aString [ ifNone: [ nil ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultSyntaxClassNode >> createInstance: aNode [ ^ aNode ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefaultSyntaxClassNode >> fieldAt: aString [ ^ (fields detect: [:each| each name label = aString ]) type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefaultSyntaxClassNode >> fields [ ^ fields ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefaultSyntaxClassNode >> fields: anObject [ fields := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultSyntaxClassNode >> instantiateFieldAt: aString value: anObject [ ^ (self fieldAt: aString) dereferenced createInstance: anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1DefaultSyntaxClassNode >> matchesTypeOf: anObject [ anObject type ifNil: [ Error signal: 'cannot find type for ', anObject printString ]. ^ anObject type class = self class. ] -{ #category : #printing } +{ #category : 'printing' } ASN1DefaultSyntaxClassNode >> printOn: aStream [ aStream nextPutAll: self class name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefaultSyntaxClassNode >> typeOf: aString [ | binding | binding := (self bindingOf: aString). diff --git a/ASN1-AST/ASN1DefinedSyntaxClassNode.class.st b/ASN1-AST/ASN1DefinedSyntaxClassNode.class.st index 63dd842..ff64cd4 100644 --- a/ASN1-AST/ASN1DefinedSyntaxClassNode.class.st +++ b/ASN1-AST/ASN1DefinedSyntaxClassNode.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1DefinedSyntaxClassNode, - #superclass : #ASN1DefaultSyntaxClassNode, + #name : 'ASN1DefinedSyntaxClassNode', + #superclass : 'ASN1DefaultSyntaxClassNode', #instVars : [ 'syntax' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1DefinedSyntaxClassNode >> accept: aVisitor [ ^ aVisitor visitDefinedSyntaxClassNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxClassNode >> assignDefaultTypes [ "default values should have type information. It is safe to set it to the fields type if not already set otherwise" @@ -22,7 +24,7 @@ ASN1DefinedSyntaxClassNode >> assignDefaultTypes [ field defaultValue type: field type ] ] ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxClassNode >> matchesSyntax: aCollection [ [ self parseSyntax: aCollection ] on: Error @@ -30,7 +32,7 @@ ASN1DefinedSyntaxClassNode >> matchesSyntax: aCollection [ ^ true ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxClassNode >> parseSyntax: aSyntax [ | dict | dict := Dictionary new. @@ -40,17 +42,17 @@ ASN1DefinedSyntaxClassNode >> parseSyntax: aSyntax [ ^ dict ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefinedSyntaxClassNode >> syntax [ ^ syntax ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefinedSyntaxClassNode >> syntax: anObject [ syntax := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxClassNode >> validateFields: aDictionary [ self fields do: [:field| | value | aDictionary at: field name label ifAbsent: [. diff --git a/ASN1-AST/ASN1DefinedSyntaxObjectNode.class.st b/ASN1-AST/ASN1DefinedSyntaxObjectNode.class.st index 455812d..89cd2c7 100644 --- a/ASN1-AST/ASN1DefinedSyntaxObjectNode.class.st +++ b/ASN1-AST/ASN1DefinedSyntaxObjectNode.class.st @@ -1,38 +1,40 @@ Class { - #name : #ASN1DefinedSyntaxObjectNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1DefinedSyntaxObjectNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'syntax' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1DefinedSyntaxObjectNode >> accept: aVisitor [ ^ aVisitor visitDefinedSyntaxObjectNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxObjectNode >> basicTypeLabel [ ^ #object ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefinedSyntaxObjectNode >> fieldNamed: aString [ ^ (self type definition bindingOf: aString) definition ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxObjectNode >> isValid [ ^ self type definition matchesSyntax: syntax ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxObjectNode >> parseSyntax [ ^ self type definition parseSyntax: syntax ] -{ #category : #printing } +{ #category : 'printing' } ASN1DefinedSyntaxObjectNode >> printOn: aStream [ aStream nextPutAll: 'object from defined syntax [ '; @@ -40,22 +42,22 @@ ASN1DefinedSyntaxObjectNode >> printOn: aStream [ nextPutAll: ' ]' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefinedSyntaxObjectNode >> syntax [ ^ syntax ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1DefinedSyntaxObjectNode >> syntax: anObject [ syntax := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxObjectNode >> type [ ^ self propertyAt: #type ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefinedSyntaxObjectNode >> type: anObject [ self propertyAt: #type put: anObject ] diff --git a/ASN1-AST/ASN1ElementSpecNode.class.st b/ASN1-AST/ASN1ElementSpecNode.class.st index 00876fd..a0ffd97 100644 --- a/ASN1-AST/ASN1ElementSpecNode.class.st +++ b/ASN1-AST/ASN1ElementSpecNode.class.st @@ -1,23 +1,25 @@ Class { - #name : #ASN1ElementSpecNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1ElementSpecNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'elementsSpec' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementSpecNode >> elementsSpec [ ^ elementsSpec ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementSpecNode >> elementsSpec: anObject [ elementsSpec := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ElementSpecNode >> printOn: aStream [ aStream nextPut: $(; @@ -25,7 +27,7 @@ ASN1ElementSpecNode >> printOn: aStream [ nextPut: $) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementSpecNode >> type: anObject [ elementsSpec type: anObject ] diff --git a/ASN1-AST/ASN1ElementsNode.class.st b/ASN1-AST/ASN1ElementsNode.class.st index e17e7f1..357b9e7 100644 --- a/ASN1-AST/ASN1ElementsNode.class.st +++ b/ASN1-AST/ASN1ElementsNode.class.st @@ -1,44 +1,46 @@ Class { - #name : #ASN1ElementsNode, - #superclass : #ASN1ArithmeticNode, + #name : 'ASN1ElementsNode', + #superclass : 'ASN1ArithmeticNode', #instVars : [ 'entity', 'exclusions' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ElementsNode >> accept: aVisitor [ ^ aVisitor visitElementsNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1ElementsNode >> contains: aString [ ^ self entity label = aString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementsNode >> entity [ ^ entity ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementsNode >> entity: anObject [ entity := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementsNode >> exclusions [ ^ exclusions ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementsNode >> exclusions: anObject [ exclusions := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ElementsNode >> printOn: aStream [ entity printOn: aStream. exclusions ifNotNil: [ @@ -46,7 +48,7 @@ ASN1ElementsNode >> printOn: aStream [ exclusions printOn: aStream ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ElementsNode >> type: anObject [ entity type: anObject. exclusions ifNotNil: [ diff --git a/ASN1-AST/ASN1EncodingReferenceNode.class.st b/ASN1-AST/ASN1EncodingReferenceNode.class.st index f7a3064..3638157 100644 --- a/ASN1-AST/ASN1EncodingReferenceNode.class.st +++ b/ASN1-AST/ASN1EncodingReferenceNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1EncodingReferenceNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1EncodingReferenceNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1EnumeratedNode.class.st b/ASN1-AST/ASN1EnumeratedNode.class.st index 1426bb3..e8f27af 100644 --- a/ASN1-AST/ASN1EnumeratedNode.class.st +++ b/ASN1-AST/ASN1EnumeratedNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1EnumeratedNode, - #superclass : #ASN1CollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1EnumeratedNode', + #superclass : 'ASN1CollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnumeratedNode >> accept: aVisitor [ ^ aVisitor visitEnumeratedNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EnumeratedNode >> bindingOf: aString [ ^ self elements detect: [ :each | each name = aString ] diff --git a/ASN1-AST/ASN1EnvironmentVisitor.class.st b/ASN1-AST/ASN1EnvironmentVisitor.class.st index 24154ad..e350c5b 100644 --- a/ASN1-AST/ASN1EnvironmentVisitor.class.st +++ b/ASN1-AST/ASN1EnvironmentVisitor.class.st @@ -1,25 +1,27 @@ Class { - #name : #ASN1EnvironmentVisitor, - #superclass : #ASN1ASTVisitor, + #name : 'ASN1EnvironmentVisitor', + #superclass : 'ASN1ASTVisitor', #instVars : [ 'errors', 'scope' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1EnvironmentVisitor >> errors [ ^ errors ifNil: [ errors := OrderedCollection new ] ] -{ #category : #actions } +{ #category : 'actions' } ASN1EnvironmentVisitor >> popScope [ scope := scope parent ] -{ #category : #actions } +{ #category : 'actions' } ASN1EnvironmentVisitor >> pushScope: aScopeObject [ "bring aScopeObject to the front of the scope chain" | currentScope | @@ -29,24 +31,24 @@ ASN1EnvironmentVisitor >> pushScope: aScopeObject [ scope := currentScope ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> pushScope: aScopeObject during: aBlock [ self pushScope: aScopeObject. aBlock value. self popScope ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EnvironmentVisitor >> root: anObject [ self pushScope: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EnvironmentVisitor >> scope [ ^ scope ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visit: aNode [ aNode ifNil: [ ^ self ]. aNode providesScope @@ -57,7 +59,7 @@ ASN1EnvironmentVisitor >> visit: aNode [ ifFalse: [ super visit: aNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitAssignmentNode: anAssignmentNode [ "resolve left side of assignment and its type to add the left side type as scope object when resolving the right side of the assignment. A right side value @@ -72,7 +74,7 @@ ASN1EnvironmentVisitor >> visitAssignmentNode: anAssignmentNode [ self visit: anAssignmentNode right ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitComponentTypeNode: aNode [ self pushScope: aNode @@ -80,7 +82,7 @@ ASN1EnvironmentVisitor >> visitComponentTypeNode: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitDefaultSyntaxClassNode: aDefaultSyntaxClassNode [ self pushScope: aDefaultSyntaxClassNode @@ -88,21 +90,21 @@ ASN1EnvironmentVisitor >> visitDefaultSyntaxClassNode: aDefaultSyntaxClassNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitDefinedSyntaxClassNode: aDefinedSyntaxClassNode [ self pushScope: aDefinedSyntaxClassNode during: [ super visitDefinedSyntaxClassNode: aDefinedSyntaxClassNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitReferenceNode: aReferenceNode [ self pushScope: aReferenceNode during: [ super visitReferenceNode: aReferenceNode ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1EnvironmentVisitor >> visitTypeFieldNode: aTypeFieldNode [ self visit: aTypeFieldNode type. self diff --git a/ASN1-AST/ASN1ExtensionAndExceptionNode.class.st b/ASN1-AST/ASN1ExtensionAndExceptionNode.class.st index 6911bc3..aefe830 100644 --- a/ASN1-AST/ASN1ExtensionAndExceptionNode.class.st +++ b/ASN1-AST/ASN1ExtensionAndExceptionNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1ExtensionAndExceptionNode, - #superclass : #ASN1ExtensionNode, + #name : 'ASN1ExtensionAndExceptionNode', + #superclass : 'ASN1ExtensionNode', #instVars : [ 'exception' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExtensionAndExceptionNode >> accept: aVisitor [ ^ aVisitor visitExtensionAndExceptionNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExtensionAndExceptionNode >> exception [ ^ exception ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExtensionAndExceptionNode >> exception: anObject [ exception := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ExtensionAndExceptionNode >> printOn: aStream [ aStream nextPutAll: self class name ] diff --git a/ASN1-AST/ASN1ExtensionEndMarkerNode.class.st b/ASN1-AST/ASN1ExtensionEndMarkerNode.class.st index 3b49e66..85bb2b5 100644 --- a/ASN1-AST/ASN1ExtensionEndMarkerNode.class.st +++ b/ASN1-AST/ASN1ExtensionEndMarkerNode.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1ExtensionEndMarkerNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ExtensionEndMarkerNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'optional' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExtensionEndMarkerNode >> optional [ ^ optional ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExtensionEndMarkerNode >> optional: anObject [ optional := anObject ] diff --git a/ASN1-AST/ASN1ExtensionNode.class.st b/ASN1-AST/ASN1ExtensionNode.class.st index 9f604fe..efbb0c1 100644 --- a/ASN1-AST/ASN1ExtensionNode.class.st +++ b/ASN1-AST/ASN1ExtensionNode.class.st @@ -1,26 +1,28 @@ Class { - #name : #ASN1ExtensionNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ExtensionNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ExtensionNode >> accept: aVisitor [ ^ aVisitor visitExtensionNode: self ] -{ #category : #converting } +{ #category : 'converting' } ASN1ExtensionNode >> asUnion [ ^ ASN1UnionNode new elements: (Array with: self ) ] -{ #category : #printing } +{ #category : 'printing' } ASN1ExtensionNode >> printOn: aStream [ aStream nextPutAll: 'EXTENSION' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExtensionNode >> type: anObject [ ] diff --git a/ASN1-AST/ASN1ExternalTypeNode.class.st b/ASN1-AST/ASN1ExternalTypeNode.class.st index 7c2d038..f3640eb 100644 --- a/ASN1-AST/ASN1ExternalTypeNode.class.st +++ b/ASN1-AST/ASN1ExternalTypeNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1ExternalTypeNode, - #superclass : #ASN1TypeNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ExternalTypeNode', + #superclass : 'ASN1TypeNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ExternalTypeNode >> accept: aVisitor [ ^ aVisitor visitExternalNode: self ] -{ #category : #printing } +{ #category : 'printing' } ASN1ExternalTypeNode >> printOn: aStream [ aStream nextPutAll: 'EXTERNAL' ] diff --git a/ASN1-AST/ASN1FieldSpecNode.class.st b/ASN1-AST/ASN1FieldSpecNode.class.st index ca509c2..d70f0a0 100644 --- a/ASN1-AST/ASN1FieldSpecNode.class.st +++ b/ASN1-AST/ASN1FieldSpecNode.class.st @@ -1,29 +1,31 @@ Class { - #name : #ASN1FieldSpecNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1FieldSpecNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name', 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1FieldSpecNode >> accept: aVisitor [ ^ aVisitor visitFieldSpecNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FieldSpecNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FieldSpecNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1FieldSpecNode >> printOn: aStream [ aStream nextPutAll: self class name; @@ -31,12 +33,12 @@ ASN1FieldSpecNode >> printOn: aStream [ nextPutAll: self name printString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FieldSpecNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FieldSpecNode >> type: anObject [ self flag: #needsCheck. type := (anObject isNil) diff --git a/ASN1-AST/ASN1HexBitStringValueNode.class.st b/ASN1-AST/ASN1HexBitStringValueNode.class.st index 33f5bbf..a686066 100644 --- a/ASN1-AST/ASN1HexBitStringValueNode.class.st +++ b/ASN1-AST/ASN1HexBitStringValueNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1HexBitStringValueNode, - #superclass : #ASN1BitStringValueNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1HexBitStringValueNode', + #superclass : 'ASN1BitStringValueNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1HexBitStringValueNode >> accept: aVisitor [ ^ aVisitor visitHexBitStringValueNode: self ] diff --git a/ASN1-AST/ASN1IdentifierNode.class.st b/ASN1-AST/ASN1IdentifierNode.class.st index b2f7379..16bbdb4 100644 --- a/ASN1-AST/ASN1IdentifierNode.class.st +++ b/ASN1-AST/ASN1IdentifierNode.class.st @@ -1,29 +1,31 @@ Class { - #name : #ASN1IdentifierNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1IdentifierNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'name' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1IdentifierNode class >> name: aString [ ^ self new name: aString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IdentifierNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IdentifierNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1IdentifierNode >> printOn: aStream [ aStream nextPutAll: self class name; diff --git a/ASN1-AST/ASN1ImportNode.class.st b/ASN1-AST/ASN1ImportNode.class.st index 3d3d3de..658e063 100644 --- a/ASN1-AST/ASN1ImportNode.class.st +++ b/ASN1-AST/ASN1ImportNode.class.st @@ -1,35 +1,37 @@ Class { - #name : #ASN1ImportNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ImportNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'moduleIdentifier', 'symbols' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ImportNode class >> nodes: aCollection [ ^ self new nodes: aCollection ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ImportNode >> accept: anASN1Visitor [ ^ anASN1Visitor visitImportNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportNode >> moduleIdentifier [ ^ moduleIdentifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportNode >> moduleIdentifier: anObject [ moduleIdentifier := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ImportNode >> printOn: aStream [ self moduleIdentifier printOn: aStream. aStream nextPut: Character cr. @@ -42,12 +44,12 @@ ASN1ImportNode >> printOn: aStream [ aStream nextPut: Character cr. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportNode >> symbols [ ^ symbols ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportNode >> symbols: anObject [ symbols := anObject ] diff --git a/ASN1-AST/ASN1ImportSymbolVisitor.class.st b/ASN1-AST/ASN1ImportSymbolVisitor.class.st index 7c0de46..b8a44df 100644 --- a/ASN1-AST/ASN1ImportSymbolVisitor.class.st +++ b/ASN1-AST/ASN1ImportSymbolVisitor.class.st @@ -2,25 +2,27 @@ I'm a visitor that annotates all tokens of an import statement with their definition modules and assignments. " Class { - #name : #ASN1ImportSymbolVisitor, - #superclass : #ASN1ASTVisitor, + #name : 'ASN1ImportSymbolVisitor', + #superclass : 'ASN1ASTVisitor', #instVars : [ 'root' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportSymbolVisitor >> root [ ^ root ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImportSymbolVisitor >> root: anObject [ root := anObject ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ImportSymbolVisitor >> visitImportNode: anImport [ | importModule | importModule := root moduleWithIdentifier: anImport moduleIdentifier. @@ -29,7 +31,7 @@ ASN1ImportSymbolVisitor >> visitImportNode: anImport [ each propertyAt: #definition put: (importModule localNames at: each label) ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ImportSymbolVisitor >> visitModuleDefinitionNode: aModule [ self visitAll: aModule imports ] diff --git a/ASN1-AST/ASN1InconsistencySolvingVisitor.class.st b/ASN1-AST/ASN1InconsistencySolvingVisitor.class.st index f8a15ca..5f4297b 100644 --- a/ASN1-AST/ASN1InconsistencySolvingVisitor.class.st +++ b/ASN1-AST/ASN1InconsistencySolvingVisitor.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1InconsistencySolvingVisitor, - #superclass : #ASN1RewriteVisitor, - #category : 'ASN1-AST-Visitor' + #name : 'ASN1InconsistencySolvingVisitor', + #superclass : 'ASN1RewriteVisitor', + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1InconsistencySolvingVisitor >> visitDefinedSyntaxObjectNode: aNode [ "Another ambiguity to solve. A literal node that consists only of uppercase letters takes precedence of a type reference. So we have a few literal nodes where there diff --git a/ASN1-AST/ASN1IntegerTypeNode.class.st b/ASN1-AST/ASN1IntegerTypeNode.class.st index e57fbec..02536d6 100644 --- a/ASN1-AST/ASN1IntegerTypeNode.class.st +++ b/ASN1-AST/ASN1IntegerTypeNode.class.st @@ -1,23 +1,25 @@ Class { - #name : #ASN1IntegerTypeNode, - #superclass : #ASN1PrimitiveTypeNode, + #name : 'ASN1IntegerTypeNode', + #superclass : 'ASN1PrimitiveTypeNode', #instVars : [ 'namedNumbers' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1IntegerTypeNode >> accept: aVisitor [ ^ aVisitor visitIntegerNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerTypeNode >> addNamedNumber: aNamedNumber [ self namedNumbers add: aNamedNumber ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1IntegerTypeNode >> bindingOf: aString [ ^ namedNumbers ifNotNil: [ namedNumbers @@ -25,7 +27,7 @@ ASN1IntegerTypeNode >> bindingOf: aString [ ifNone: [ nil ] ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1IntegerTypeNode >> createInstance: aNode [ ^ (aNode class = ASN1IntegerValueNode ) ifTrue: [ aNode ] @@ -33,19 +35,19 @@ ASN1IntegerTypeNode >> createInstance: aNode [ ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1IntegerTypeNode >> initialize [ super initialize. name := 'INTEGER' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerTypeNode >> namedNumbers [ ^ namedNumbers ifNil: [ namedNumbers := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerTypeNode >> namedNumbers: anObject [ namedNumbers := anObject ] diff --git a/ASN1-AST/ASN1IntegerValueNode.class.st b/ASN1-AST/ASN1IntegerValueNode.class.st index 09ac882..97928b8 100644 --- a/ASN1-AST/ASN1IntegerValueNode.class.st +++ b/ASN1-AST/ASN1IntegerValueNode.class.st @@ -1,35 +1,37 @@ Class { - #name : #ASN1IntegerValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1IntegerValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1IntegerValueNode >> accept: aVisitor [ ^ aVisitor visitIntegerValueNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerValueNode >> defaultTypeClass [ ^ ASN1IntegerTypeNode ] -{ #category : #printing } +{ #category : 'printing' } ASN1IntegerValueNode >> printOn: aStream [ aStream nextPutAll: 'integer '. value printOn: aStream ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntegerValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1IntersectionNode.class.st b/ASN1-AST/ASN1IntersectionNode.class.st index 539f43e..3e2971e 100644 --- a/ASN1-AST/ASN1IntersectionNode.class.st +++ b/ASN1-AST/ASN1IntersectionNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1IntersectionNode, - #superclass : #ASN1ArithmeticNode, + #name : 'ASN1IntersectionNode', + #superclass : 'ASN1ArithmeticNode', #instVars : [ 'elements' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1IntersectionNode >> accept: aVisitor [ ^ aVisitor visitIntersectionNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntersectionNode >> elements [ ^ elements ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntersectionNode >> elements: anObject [ elements := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1IntersectionNode >> printOn: aStream [ elements ifNotNil: [ aStream nextPut: $(. @@ -32,7 +34,7 @@ ASN1IntersectionNode >> printOn: aStream [ aStream nextPut: $) ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1IntersectionNode >> type: anObject [ elements type: anObject ] diff --git a/ASN1-AST/ASN1LiteralNode.class.st b/ASN1-AST/ASN1LiteralNode.class.st index dadce7a..cf7da2f 100644 --- a/ASN1-AST/ASN1LiteralNode.class.st +++ b/ASN1-AST/ASN1LiteralNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1LiteralNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1LiteralNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'string' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LiteralNode >> = aLiteral [ (self class = aLiteral class) ifFalse: [ ^ false ]. ^ string = aLiteral string ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LiteralNode >> accept: aVisitor [ aVisitor visitLiteralNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LiteralNode >> hash [ ^ string hash ] -{ #category : #testing } +{ #category : 'testing' } ASN1LiteralNode >> isLiteralNode [ ^ true ] -{ #category : #parsing } +{ #category : 'parsing' } ASN1LiteralNode >> parse: aStream into: aDictionary [ | streamToken | streamToken := aStream next. @@ -37,19 +39,19 @@ ASN1LiteralNode >> parse: aStream into: aDictionary [ ^ ASN1ParseError signal: 'literals do not match' ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LiteralNode >> printOn: aStream [ aStream nextPut: $#; nextPutAll: string ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1LiteralNode >> string [ ^ string ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1LiteralNode >> string: anObject [ string := anObject ] diff --git a/ASN1-AST/ASN1MissingModule.class.st b/ASN1-AST/ASN1MissingModule.class.st index 06c858d..4755484 100644 --- a/ASN1-AST/ASN1MissingModule.class.st +++ b/ASN1-AST/ASN1MissingModule.class.st @@ -1,23 +1,24 @@ Class { - #name : #ASN1MissingModule, - #superclass : #Error, + #name : 'ASN1MissingModule', + #superclass : 'Error', #instVars : [ 'identifier' ], - #category : 'ASN1-AST' + #category : 'ASN1-AST', + #package : 'ASN1-AST' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1MissingModule >> identifier [ ^ identifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1MissingModule >> identifier: anIdentifier [ identifier := anIdentifier ] -{ #category : #testing } +{ #category : 'testing' } ASN1MissingModule >> isResumable [ ^ true ] diff --git a/ASN1-AST/ASN1ModifierDefaultValueNode.class.st b/ASN1-AST/ASN1ModifierDefaultValueNode.class.st index 4a9dec6..60eaff3 100644 --- a/ASN1-AST/ASN1ModifierDefaultValueNode.class.st +++ b/ASN1-AST/ASN1ModifierDefaultValueNode.class.st @@ -1,46 +1,48 @@ Class { - #name : #ASN1ModifierDefaultValueNode, - #superclass : #ASN1ModifierNode, + #name : 'ASN1ModifierDefaultValueNode', + #superclass : 'ASN1ModifierNode', #instVars : [ 'value', 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModifierDefaultValueNode >> accept: aVisitor [ ^ aVisitor visitModifierDefaultValueNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModifierDefaultValueNode >> isDefaultValue [ ^ true ] -{ #category : #printing } +{ #category : 'printing' } ASN1ModifierDefaultValueNode >> printOn: aStream [ aStream nextPutAll: 'default value='; nextPutAll: value asString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModifierDefaultValueNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModifierDefaultValueNode >> type: anObject [ value type: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModifierDefaultValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModifierDefaultValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1ModifierNode.class.st b/ASN1-AST/ASN1ModifierNode.class.st index c7d8ee4..c986367 100644 --- a/ASN1-AST/ASN1ModifierNode.class.st +++ b/ASN1-AST/ASN1ModifierNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1ModifierNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ModifierNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModifierNode >> isDefaultValue [ ^ false ] diff --git a/ASN1-AST/ASN1ModifierOptionalNode.class.st b/ASN1-AST/ASN1ModifierOptionalNode.class.st index 6745c64..2640252 100644 --- a/ASN1-AST/ASN1ModifierOptionalNode.class.st +++ b/ASN1-AST/ASN1ModifierOptionalNode.class.st @@ -1,20 +1,22 @@ Class { - #name : #ASN1ModifierOptionalNode, - #superclass : #ASN1ModifierNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ModifierOptionalNode', + #superclass : 'ASN1ModifierNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModifierOptionalNode >> accept: aVisitor [ ^ aVisitor visitModifierOptionalNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1ModifierOptionalNode >> isOptional [ ^ true ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModifierOptionalNode >> printOn: aStream [ aStream nextPutAll: 'optional' ] diff --git a/ASN1-AST/ASN1ModifierUniqueNode.class.st b/ASN1-AST/ASN1ModifierUniqueNode.class.st index f3d107f..25b411d 100644 --- a/ASN1-AST/ASN1ModifierUniqueNode.class.st +++ b/ASN1-AST/ASN1ModifierUniqueNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1ModifierUniqueNode, - #superclass : #ASN1ModifierNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ModifierUniqueNode', + #superclass : 'ASN1ModifierNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1ModuleDefinitionNode.class.st b/ASN1-AST/ASN1ModuleDefinitionNode.class.st index bd587da..ed77a41 100644 --- a/ASN1-AST/ASN1ModuleDefinitionNode.class.st +++ b/ASN1-AST/ASN1ModuleDefinitionNode.class.st @@ -1,6 +1,6 @@ Class { - #name : #ASN1ModuleDefinitionNode, - #superclass : #ASN1ScopeNode, + #name : 'ASN1ModuleDefinitionNode', + #superclass : 'ASN1ScopeNode', #instVars : [ 'identifier', 'encodingReferenceDefault', @@ -11,111 +11,113 @@ Class { 'assignments', 'encodingControlSections' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModuleDefinitionNode >> accept: aVisitor [ ^ aVisitor visitModuleDefinitionNode: self ] -{ #category : #adding } +{ #category : 'adding' } ASN1ModuleDefinitionNode >> addAsModuleTo: anASTRoot [ anASTRoot addModule: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> assignments [ ^ assignments ifNil: [ assignments := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> assignments: anObject [ assignments := anObject ] -{ #category : #binding } +{ #category : 'binding' } ASN1ModuleDefinitionNode >> bindingOf: aString [ [ ^ self resolveName: aString ] on: Error do: [:err| ^ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> encodingControlSections [ ^ encodingControlSections ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> encodingControlSections: anObject [ encodingControlSections := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> encodingReferenceDefault [ ^ encodingReferenceDefault ifNil: [ encodingReferenceDefault := ASN1TagEncodingReference new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> encodingReferenceDefault: anObject [ encodingReferenceDefault := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> exports [ ^ exports ifNil: [ exports := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> exports: anObject [ exports := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> extensionDefault [ ^ extensionDefault ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> extensionDefault: anObject [ extensionDefault := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> identifier [ ^ identifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> identifier: anObject [ identifier := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> importIdentifiers [ ^ self imports collect: #moduleIdentifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> imports [ ^ imports ifNil: [ imports := OrderedCollection new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> imports: anObject [ imports := anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1ModuleDefinitionNode >> isAsn1ModuleDefinitionNode [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> localNames [ ^ (self assignments collect: [:each| @@ -123,17 +125,17 @@ ASN1ModuleDefinitionNode >> localNames [ ] -{ #category : #private } +{ #category : 'private' } ASN1ModuleDefinitionNode >> matches: aModuleIdentifier [ ^ self identifier = aModuleIdentifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> moduleName [ ^ self identifier name ] -{ #category : #printing } +{ #category : 'printing' } ASN1ModuleDefinitionNode >> printOn: aStream [ "identifier encodingReferenceDefault tagDefault extensionDefault exports imports assignments encodingControlSections" identifier printOn: aStream. @@ -155,12 +157,12 @@ ASN1ModuleDefinitionNode >> printOn: aStream [ aStream nextPut: Character cr ]." ] -{ #category : #testing } +{ #category : 'testing' } ASN1ModuleDefinitionNode >> providesScope [ ^ true ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModuleDefinitionNode >> resolveImportedName: aString [ self imports do: [:import| import symbols do: [:symbol| @@ -169,7 +171,7 @@ ASN1ModuleDefinitionNode >> resolveImportedName: aString [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModuleDefinitionNode >> resolveLocalName: aString [ ^ self localNames at: aString @@ -177,7 +179,7 @@ ASN1ModuleDefinitionNode >> resolveLocalName: aString [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModuleDefinitionNode >> resolveName: aString [ ^ (self resolveLocalName: aString) ifNil: [ (self resolveImportedName: aString) @@ -185,13 +187,13 @@ ASN1ModuleDefinitionNode >> resolveName: aString [ ifNil: [ Error signal: 'could not resolve name ', aString ]] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> tagDefault [ ^ tagDefault ifNil: [ tagDefault := ASN1ExplicitTags ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleDefinitionNode >> tagDefault: anObject [ tagDefault := anObject ] diff --git a/ASN1-AST/ASN1ModuleIdentifierNode.class.st b/ASN1-AST/ASN1ModuleIdentifierNode.class.st index 68815f6..2b58c86 100644 --- a/ASN1-AST/ASN1ModuleIdentifierNode.class.st +++ b/ASN1-AST/ASN1ModuleIdentifierNode.class.st @@ -1,14 +1,16 @@ Class { - #name : #ASN1ModuleIdentifierNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ModuleIdentifierNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'oid', 'name' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModuleIdentifierNode class >> nodes: aCollection [ ^ self new name: aCollection first; @@ -16,42 +18,42 @@ ASN1ModuleIdentifierNode class >> nodes: aCollection [ yourself ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ModuleIdentifierNode >> = aModuleIdentifier [ ^ self oid = aModuleIdentifier oid ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModuleIdentifierNode >> accept: anASN1Visitor [ ^ anASN1Visitor visitModuleIdentifierNode: self ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ModuleIdentifierNode >> hash [ ^ self oid hash ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleIdentifierNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleIdentifierNode >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleIdentifierNode >> oid [ ^ oid ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleIdentifierNode >> oid: anObject [ oid := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ModuleIdentifierNode >> printOn: aStream [ self name ifNotNil: [ self name printOn: aStream ] diff --git a/ASN1-AST/ASN1NamedBitNode.class.st b/ASN1-AST/ASN1NamedBitNode.class.st index 1dfba09..c71ca79 100644 --- a/ASN1-AST/ASN1NamedBitNode.class.st +++ b/ASN1-AST/ASN1NamedBitNode.class.st @@ -1,29 +1,31 @@ Class { - #name : #ASN1NamedBitNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1NamedBitNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name', 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1NamedBitNode >> accept: aVisitor [ ^ aVisitor visitNamedBitNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedBitNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedBitNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1NamedBitNode >> printOn: aStream [ name printOn: aStream. aStream nextPut: $(. @@ -31,12 +33,12 @@ ASN1NamedBitNode >> printOn: aStream [ aStream nextPut: $) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedBitNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedBitNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1NamedNumberNode.class.st b/ASN1-AST/ASN1NamedNumberNode.class.st index a1ae7d2..89961ef 100644 --- a/ASN1-AST/ASN1NamedNumberNode.class.st +++ b/ASN1-AST/ASN1NamedNumberNode.class.st @@ -1,46 +1,48 @@ Class { - #name : #ASN1NamedNumberNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1NamedNumberNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name', 'number' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1NamedNumberNode class >> name: aString number: aNumber [ ^ self new name: aString; number: aNumber ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1NamedNumberNode >> accept: aVisitor [ ^ aVisitor visitNamedNumberNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedNumberNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedNumberNode >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedNumberNode >> number [ ^ number ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedNumberNode >> number: anObject [ number := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1NamedNumberNode >> printOn: aStream [ aStream nextPutAll: 'named number: '; diff --git a/ASN1-AST/ASN1NamedTypeNode.class.st b/ASN1-AST/ASN1NamedTypeNode.class.st index e5b16ae..ddaefec 100644 --- a/ASN1-AST/ASN1NamedTypeNode.class.st +++ b/ASN1-AST/ASN1NamedTypeNode.class.st @@ -1,45 +1,47 @@ Class { - #name : #ASN1NamedTypeNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1NamedTypeNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name', 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1NamedTypeNode >> accept: aVisitor [ ^ aVisitor visitNamedTypeNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedTypeNode >> basicType [ ^ type basicType ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1NamedTypeNode >> bindingOf: aString [ (name = aString) ifTrue: [ ^ self ]. ^ type bindingOf: aString ] -{ #category : #testing } +{ #category : 'testing' } ASN1NamedTypeNode >> matchesTypeOf: aTypeNodeClass [ ^ type matchesTypeOf: aTypeNodeClass ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedTypeNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedTypeNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1NamedTypeNode >> printOn: aStream [ aStream nextPutAll: '[named type] '; @@ -49,12 +51,12 @@ ASN1NamedTypeNode >> printOn: aStream [ nextPut: $. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedTypeNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedTypeNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1NamedValueNode.class.st b/ASN1-AST/ASN1NamedValueNode.class.st index 79c0440..7ed6bb1 100644 --- a/ASN1-AST/ASN1NamedValueNode.class.st +++ b/ASN1-AST/ASN1NamedValueNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1NamedValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1NamedValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'name', 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1NamedValueNode >> accept: aVisitor [ ^ aVisitor visitNamedValueNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedValueNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedValueNode >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1NamedValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1NullTypeNode.class.st b/ASN1-AST/ASN1NullTypeNode.class.st index 563d3d4..32e333b 100644 --- a/ASN1-AST/ASN1NullTypeNode.class.st +++ b/ASN1-AST/ASN1NullTypeNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1NullTypeNode, - #superclass : #ASN1TypeNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1NullTypeNode', + #superclass : 'ASN1TypeNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1NullTypeNode >> accept: aVisitor [ ^ aVisitor visitNullTypeNode: self ] -{ #category : #printing } +{ #category : 'printing' } ASN1NullTypeNode >> printOn: aStream [ aStream nextPutAll: 'NULL' ] diff --git a/ASN1-AST/ASN1ObjectIdComponentNode.class.st b/ASN1-AST/ASN1ObjectIdComponentNode.class.st index d6e5bef..86bb2b9 100644 --- a/ASN1-AST/ASN1ObjectIdComponentNode.class.st +++ b/ASN1-AST/ASN1ObjectIdComponentNode.class.st @@ -1,21 +1,23 @@ Class { - #name : #ASN1ObjectIdComponentNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ObjectIdComponentNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'name', 'number' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'instance creation' } +{ #category : 'instance creation' } ASN1ObjectIdComponentNode class >> definedName: aString [ ^ self new name: aString; number: (self definedNumbers at: aString) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode class >> definedNumbers [ self flag: #needsredesign. ^ Dictionary new @@ -30,7 +32,7 @@ ASN1ObjectIdComponentNode class >> definedNumbers [ yourself ] -{ #category : #testing } +{ #category : 'testing' } ASN1ObjectIdComponentNode class >> isDefinedName: aString [ self definedNumbers at: aString @@ -38,20 +40,20 @@ ASN1ObjectIdComponentNode class >> isDefinedName: aString [ ^ false ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } ASN1ObjectIdComponentNode class >> name: aString [ ^ self new name: aString ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } ASN1ObjectIdComponentNode class >> name: aString number: aNumber [ ^ self new name: aString; number: aNumber ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } ASN1ObjectIdComponentNode class >> nodes: anObject [ anObject isAsn1Node ifTrue: [ ^ anObject ]. anObject isNumber ifTrue: [ @@ -65,42 +67,42 @@ ASN1ObjectIdComponentNode class >> nodes: anObject [ ^ anObject asn1Reference ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } ASN1ObjectIdComponentNode class >> number: aNumber [ ^ self new number: aNumber ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ObjectIdComponentNode >> = aObjectIdComponent [ (self name notNil and: [ aObjectIdComponent name notNil ]) ifTrue: [ ^ self name = aObjectIdComponent name ]. ^ self number = aObjectIdComponent number ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ObjectIdComponentNode >> accept: aVisitor [ ^ aVisitor visitObjectIdComponentNode: self ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ObjectIdComponentNode >> hash [ (self name notNil) ifTrue: [ ^ self name hash]. ^ self number hash ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode >> nodes: aCollectionOrString [ (aCollectionOrString isString or: [aCollectionOrString isAsn1Node ]) ifTrue: [ name := aCollectionOrString. @@ -111,18 +113,18 @@ ASN1ObjectIdComponentNode >> nodes: aCollectionOrString [ ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode >> number [ ^ number ifNil: [ number := self resolveOidName: name asString ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdComponentNode >> number: anObject [ number := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ObjectIdComponentNode >> printNumberOn: aStream [ self flag: #needsRedesign. self number @@ -130,7 +132,7 @@ ASN1ObjectIdComponentNode >> printNumberOn: aStream [ ifNil: [ aStream nextPutAll: 'N/A' ] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ObjectIdComponentNode >> printOn: aStream [ aStream nextPutAll: self name printString; @@ -139,7 +141,7 @@ ASN1ObjectIdComponentNode >> printOn: aStream [ nextPut: $) ] -{ #category : #testing } +{ #category : 'testing' } ASN1ObjectIdComponentNode >> resolveOidName: aString [ ^ self class definedNumbers at: aString diff --git a/ASN1-AST/ASN1ObjectIdNode.class.st b/ASN1-AST/ASN1ObjectIdNode.class.st index 7318641..1490f1c 100644 --- a/ASN1-AST/ASN1ObjectIdNode.class.st +++ b/ASN1-AST/ASN1ObjectIdNode.class.st @@ -1,57 +1,59 @@ Class { - #name : #ASN1ObjectIdNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1ObjectIdNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'components' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ObjectIdNode class >> components: aCollection [ ^ self new components: aCollection ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ObjectIdNode class >> fromString: aString [ ^ self new components: (($. split: aString) collect: [ :each| ASN1ObjectIdComponentNode number: each ]) ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ObjectIdNode >> = aObjectIdNode [ (self class = aObjectIdNode class) ifFalse: [ ^ false ]. ^ self components = aObjectIdNode components ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ObjectIdNode >> accept: aVisitor [ ^ aVisitor visitObjectIdentifierNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdNode >> components [ ^ components ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdNode >> components: aCollection [ components := aCollection ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdNode >> defaultTypeClass [ ^ ASN1ObjectIdentifierTypeNode ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ObjectIdNode >> hash [ ^ self components hash ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdNode >> oidString [ ^ String streamContents: [:stream| self components @@ -62,7 +64,7 @@ ASN1ObjectIdNode >> oidString [ separatedBy: [ stream nextPut: $. ]] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ObjectIdNode >> printOn: aStream [ aStream nextPutAll: self class name; diff --git a/ASN1-AST/ASN1ObjectIdentifierTypeNode.class.st b/ASN1-AST/ASN1ObjectIdentifierTypeNode.class.st index 9440d03..32820ca 100644 --- a/ASN1-AST/ASN1ObjectIdentifierTypeNode.class.st +++ b/ASN1-AST/ASN1ObjectIdentifierTypeNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1ObjectIdentifierTypeNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1ObjectIdentifierTypeNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ObjectIdentifierTypeNode >> accept: aVisitor [ ^ aVisitor visitObjectIdentifierTypeNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdentifierTypeNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectIdentifierTypeNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1ObjectIdentifierTypeNode >> printOn: aStream [ aStream nextPutAll: name printString ] diff --git a/ASN1-AST/ASN1ObjectNode.class.st b/ASN1-AST/ASN1ObjectNode.class.st index 63cf0e5..254aeb9 100644 --- a/ASN1-AST/ASN1ObjectNode.class.st +++ b/ASN1-AST/ASN1ObjectNode.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1ObjectNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ObjectNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'attributes' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectNode >> attributes [ ^ attributes ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectNode >> attributes: anObject [ attributes := anObject ] diff --git a/ASN1-AST/ASN1ObjectSetNode.class.st b/ASN1-AST/ASN1ObjectSetNode.class.st index 9a07576..00c4ef8 100644 --- a/ASN1-AST/ASN1ObjectSetNode.class.st +++ b/ASN1-AST/ASN1ObjectSetNode.class.st @@ -1,32 +1,34 @@ Class { - #name : #ASN1ObjectSetNode, - #superclass : #ASN1ElementSpecNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ObjectSetNode', + #superclass : 'ASN1ElementSpecNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ObjectSetNode >> accept: aVisitor [ ^ aVisitor visitObjectSetNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1ObjectSetNode >> canBeAssignedTo: aTypeNode [ ^ aTypeNode matchesTypeOf: self type ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ObjectSetNode >> defaultTypeClass [ ^ ASN1ObjectSetTypeNode ] -{ #category : #printing } +{ #category : 'printing' } ASN1ObjectSetNode >> printOn: aStream [ aStream nextPutAll: 'OBJECT SET'. super printOn: aStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ObjectSetNode >> resolvesIn: aModule [ | elem | elem := aModule resolveName: elementsSpec entity label. diff --git a/ASN1-AST/ASN1ObjectSetTypeNode.class.st b/ASN1-AST/ASN1ObjectSetTypeNode.class.st index 2a00cd8..32059b6 100644 --- a/ASN1-AST/ASN1ObjectSetTypeNode.class.st +++ b/ASN1-AST/ASN1ObjectSetTypeNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1ObjectSetTypeNode, - #superclass : #ASN1CollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ObjectSetTypeNode', + #superclass : 'ASN1CollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1OpenTypeNode.class.st b/ASN1-AST/ASN1OpenTypeNode.class.st index b7cb0ad..e1b450f 100644 --- a/ASN1-AST/ASN1OpenTypeNode.class.st +++ b/ASN1-AST/ASN1OpenTypeNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1OpenTypeNode, - #superclass : #ASN1TypeNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1OpenTypeNode', + #superclass : 'ASN1TypeNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1OpenTypeNode >> accept: aVisitor [ ^ aVisitor visitOpenTypeNode: self ] -{ #category : #printing } +{ #category : 'printing' } ASN1OpenTypeNode >> printOn: aStream [ aStream nextPutAll: 'open type' ] diff --git a/ASN1-AST/ASN1OptionalExtensionMarkerNode.class.st b/ASN1-AST/ASN1OptionalExtensionMarkerNode.class.st index a1b6f66..de93d44 100644 --- a/ASN1-AST/ASN1OptionalExtensionMarkerNode.class.st +++ b/ASN1-AST/ASN1OptionalExtensionMarkerNode.class.st @@ -1,23 +1,25 @@ Class { - #name : #ASN1OptionalExtensionMarkerNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1OptionalExtensionMarkerNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'optional' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1OptionalExtensionMarkerNode >> optional [ ^ optional ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1OptionalExtensionMarkerNode >> optional: anObject [ optional := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1OptionalExtensionMarkerNode >> printOn: aStream [ aStream nextPutAll: self class name ] diff --git a/ASN1-AST/ASN1PDUFindingVisitor.class.st b/ASN1-AST/ASN1PDUFindingVisitor.class.st index 7b2227a..5e6123d 100644 --- a/ASN1-AST/ASN1PDUFindingVisitor.class.st +++ b/ASN1-AST/ASN1PDUFindingVisitor.class.st @@ -1,19 +1,21 @@ Class { - #name : #ASN1PDUFindingVisitor, - #superclass : #ASN1ASTVisitor, + #name : 'ASN1PDUFindingVisitor', + #superclass : 'ASN1ASTVisitor', #instVars : [ 'candidates' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1PDUFindingVisitor >> candidates [ ^ candidates ifNil: [ candidates := Dictionary new ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1PDUFindingVisitor >> visitAssignmentNode: aNode [ (aNode right isTypeNode & aNode right isPrimitiveNode not) ifTrue: [ self visit: aNode right ] @@ -21,13 +23,13 @@ ASN1PDUFindingVisitor >> visitAssignmentNode: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1PDUFindingVisitor >> visitModuleDefinitionNode: aNode [ aNode assignments do: [:each| self candidates at: each right put: each left]. self visitAll: aNode assignments. ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1PDUFindingVisitor >> visitReferenceNode: aNode [ candidates removeKey: aNode definition ifAbsent: []. super visitReferenceNode: aNode. diff --git a/ASN1-AST/ASN1ParameterNode.class.st b/ASN1-AST/ASN1ParameterNode.class.st index 15ef70d..60cad1b 100644 --- a/ASN1-AST/ASN1ParameterNode.class.st +++ b/ASN1-AST/ASN1ParameterNode.class.st @@ -1,26 +1,28 @@ Class { - #name : #ASN1ParameterNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ParameterNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'type', 'reference' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ParameterNode >> accept: aVisitor [ aVisitor visitParameterNode: self ] -{ #category : #binding } +{ #category : 'binding' } ASN1ParameterNode >> bindingOf: aString [ ^ (reference label = aString) ifTrue: [ type ] ifFalse: [ nil ] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ParameterNode >> printOn: aStream [ aStream nextPutAll: reference printString. @@ -31,22 +33,22 @@ ASN1ParameterNode >> printOn: aStream [ nextPut: $) ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ParameterNode >> reference [ ^ reference ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ParameterNode >> reference: anObject [ reference := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ParameterNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ParameterNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1ParseError.class.st b/ASN1-AST/ASN1ParseError.class.st index ae6104e..b117478 100644 --- a/ASN1-AST/ASN1ParseError.class.st +++ b/ASN1-AST/ASN1ParseError.class.st @@ -1,5 +1,6 @@ Class { - #name : #ASN1ParseError, - #superclass : #Error, - #category : 'ASN1-AST' + #name : 'ASN1ParseError', + #superclass : 'Error', + #category : 'ASN1-AST', + #package : 'ASN1-AST' } diff --git a/ASN1-AST/ASN1PrimitiveTypeNode.class.st b/ASN1-AST/ASN1PrimitiveTypeNode.class.st index 260b8a8..1be236b 100644 --- a/ASN1-AST/ASN1PrimitiveTypeNode.class.st +++ b/ASN1-AST/ASN1PrimitiveTypeNode.class.st @@ -1,46 +1,48 @@ Class { - #name : #ASN1PrimitiveTypeNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1PrimitiveTypeNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'name' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1PrimitiveTypeNode class >> name: aString [ ^ self new name: aString ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1PrimitiveTypeNode >> accept: aVisitor [ ^ aVisitor visitPrimitiveNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1PrimitiveTypeNode >> isPrimitiveNode [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1PrimitiveTypeNode >> isSameType: aType [ aType isPrimitiveNode ifFalse: [ ^ false ]. ^ name = aType name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PrimitiveTypeNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PrimitiveTypeNode >> name: anObject [ name := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1PrimitiveTypeNode >> printOn: aStream [ aStream nextPutAll: 'primitive ['; diff --git a/ASN1-AST/ASN1PrimitiveValueNode.class.st b/ASN1-AST/ASN1PrimitiveValueNode.class.st index 2f3b748..92e3805 100644 --- a/ASN1-AST/ASN1PrimitiveValueNode.class.st +++ b/ASN1-AST/ASN1PrimitiveValueNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1PrimitiveValueNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1PrimitiveValueNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'value' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1PrimitiveValueNode >> accept: aVisitor [ ^ aVisitor visitPrimitiveValueNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1PrimitiveValueNode >> hasSameType: aTypeNode [ ^ type name = aTypeNode name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PrimitiveValueNode >> value [ ^ value ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PrimitiveValueNode >> value: anObject [ value := anObject ] diff --git a/ASN1-AST/ASN1RangeConstraintNode.class.st b/ASN1-AST/ASN1RangeConstraintNode.class.st index 94a0f07..651a443 100644 --- a/ASN1-AST/ASN1RangeConstraintNode.class.st +++ b/ASN1-AST/ASN1RangeConstraintNode.class.st @@ -1,43 +1,45 @@ Class { - #name : #ASN1RangeConstraintNode, - #superclass : #ASN1ConstraintNode, + #name : 'ASN1RangeConstraintNode', + #superclass : 'ASN1ConstraintNode', #instVars : [ 'lowerValue', 'upperValue', 'lowerExcluded', 'upperExcluded' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1RangeConstraintNode class >> lowerValue: aLowerValue upperValue: aUpperValue [ ^ self new lowerValue: aLowerValue; upperValue: aUpperValue ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> lowerExcluded [ ^ lowerExcluded ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> lowerExcluded: anObject [ lowerExcluded := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> lowerValue [ ^ lowerValue ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> lowerValue: anObject [ lowerValue := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1RangeConstraintNode >> printOn: aStream [ aStream nextPutAll: 'range('; @@ -47,22 +49,22 @@ ASN1RangeConstraintNode >> printOn: aStream [ nextPutAll: ')' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> upperExcluded [ ^ upperExcluded ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> upperExcluded: anObject [ upperExcluded := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> upperValue [ ^ upperValue ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1RangeConstraintNode >> upperValue: anObject [ upperValue := anObject ] diff --git a/ASN1-AST/ASN1ReferenceNode.class.st b/ASN1-AST/ASN1ReferenceNode.class.st index 2d0d29e..7984c46 100644 --- a/ASN1-AST/ASN1ReferenceNode.class.st +++ b/ASN1-AST/ASN1ReferenceNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1ReferenceNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1ReferenceNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'label' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #comparing } +{ #category : 'comparing' } ASN1ReferenceNode >> = aReference [ (aReference class = self class) ifFalse: [ ^ false ]. ^ label = aReference label ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReferenceNode >> accept: aVisitor [ ^ aVisitor visitReferenceNode: self ] -{ #category : #converting } +{ #category : 'converting' } ASN1ReferenceNode >> asString [ ^ self label ] -{ #category : #converting } +{ #category : 'converting' } ASN1ReferenceNode >> asn1Reference [ ^ self ] -{ #category : #binding } +{ #category : 'binding' } ASN1ReferenceNode >> bindingOf: aString [ self hasParameters ifTrue: [ self parameters do: [:each| @@ -44,120 +46,120 @@ ASN1ReferenceNode >> bindingOf: aString [ ^ nil ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> declaration [ ^ self propertyAt: #declaration ifAbsent: [ false ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> declaration: anObject [ self propertyAt: #declaration put: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> definition [ ^ self propertyAt: #definition ifAbsent: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> definition: anObject [ self propertyAt: #definition put: anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReferenceNode >> dereferenced [ ^ self definition dereferenced ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> hasDefinition [ ^ self definition notNil ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> hasParameters [ ^ self parameters notNil ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> hasType [ ^ self type notNil ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1ReferenceNode >> hash [ ^ label hash ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> isAsn1ReferenceNode [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> isDeclaration [ ^ self declaration ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> isTypeNode [ ^ self definition isTypeNode ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> isUnresolved [ ^ self isDeclaration not and: [ (self propertyAt: #definition ifAbsent: [ nil ]) isNil ] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> isValueNode [ ^ self definition isValueNode ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> label [ ^ label ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> label: anObject [ label := anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> matchesSyntax: anObject [ anObject isAsn1Node ifFalse: [ ^ false ]. ^ anObject isAsn1ReferenceNode ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> matchesTypeOf: anASN1Object [ ^ self definition matchesTypeOf: anASN1Object ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> name [ self label ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> parameters [ ^ self propertyAt: #parameters ifAbsent: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> parameters: aCollection [ "((aCollection notNil and: [aCollection notEmpty]) and: [ aCollection first isCollection ]) ifTrue: [ self halt ]." ^ self propertyAt: #parameters put: aCollection ] -{ #category : #parsing } +{ #category : 'parsing' } ASN1ReferenceNode >> parse: aStream into: aDictionary [ aStream next ifNotNil: [:val| aDictionary at: label put: val] ] -{ #category : #printing } +{ #category : 'printing' } ASN1ReferenceNode >> printOn: aStream [ aStream nextPutAll: label printString. @@ -170,17 +172,17 @@ ASN1ReferenceNode >> printOn: aStream [ super printOn: aStream ] -{ #category : #testing } +{ #category : 'testing' } ASN1ReferenceNode >> providesScope [ ^ self hasType | self hasParameters ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> type [ ^ self propertyAt: #type ifAbsent: [ nil ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReferenceNode >> type: anObject [ anObject isAsn1Node ifFalse: [ Error signal: 'type of reference node needs to be an ASN.1 object' ]. self propertyAt: #type put: anObject diff --git a/ASN1-AST/ASN1RelativeOidResolvingVisitor.class.st b/ASN1-AST/ASN1RelativeOidResolvingVisitor.class.st index f1d69ff..b5f4e21 100644 --- a/ASN1-AST/ASN1RelativeOidResolvingVisitor.class.st +++ b/ASN1-AST/ASN1RelativeOidResolvingVisitor.class.st @@ -1,13 +1,15 @@ Class { - #name : #ASN1RelativeOidResolvingVisitor, - #superclass : #ASN1RewriteVisitor, + #name : 'ASN1RelativeOidResolvingVisitor', + #superclass : 'ASN1RewriteVisitor', #instVars : [ 'module' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1RelativeOidResolvingVisitor >> resolveReferencesOf: aCollection [ "dereferencing values needs improvement" self flag: #hack. @@ -20,7 +22,7 @@ ASN1RelativeOidResolvingVisitor >> resolveReferencesOf: aCollection [ ifFalse: [ each ]] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1RelativeOidResolvingVisitor >> resolveToComponents: aNode [ | leadingComponent components | components := aNode components. @@ -31,14 +33,14 @@ ASN1RelativeOidResolvingVisitor >> resolveToComponents: aNode [ ^ components ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RelativeOidResolvingVisitor >> visitModuleDefinitionNode: aModuleDefinition [ module := aModuleDefinition. [ ^ super visitModuleDefinitionNode: aModuleDefinition ] ensure: [ module := nil ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RelativeOidResolvingVisitor >> visitObjectIdentifierNode: aNode [ | components | components := self resolveToComponents: aNode. diff --git a/ASN1-AST/ASN1RewriteVisitor.class.st b/ASN1-AST/ASN1RewriteVisitor.class.st index 1e9ca13..bacc4a7 100644 --- a/ASN1-AST/ASN1RewriteVisitor.class.st +++ b/ASN1-AST/ASN1RewriteVisitor.class.st @@ -1,61 +1,63 @@ Class { - #name : #ASN1RewriteVisitor, - #superclass : #ASN1ASTVisitor, - #category : 'ASN1-AST-Visitor' + #name : 'ASN1RewriteVisitor', + #superclass : 'ASN1ASTVisitor', + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> provideType: aNode during: aBlock [ ^ ASN1ClosestTypeDefinition use: aNode during: aBlock ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visit: anObject [ anObject isNil ifTrue: [ ^ nil ]. ^ anObject accept: self ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitAll: aCollection [ aCollection isNil ifTrue: [ ^ aCollection ]. ^ aCollection collect: [:each| self visit: each ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitAmbiguousNode: anAmbiguousNode [ ^ anAmbiguousNode alternatives: (self visitAll: anAmbiguousNode alternatives) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitAssignmentNode: anAssignmentNode [ anAssignmentNode left: (self visit: anAssignmentNode left). anAssignmentNode right: (self visit: anAssignmentNode right). ^ anAssignmentNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitCollectionNode: aCollection [ ^ aCollection elements: (self visitAll: aCollection elements) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitComponentTypeListNode: aComponentTypeList [ aComponentTypeList components: (self visitAll: aComponentTypeList components). ^ aComponentTypeList ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitComponentTypeNode: aComponentTypeNode [ aComponentTypeNode type type: (self visit: aComponentTypeNode type type). aComponentTypeNode modifiers: (self visit: aComponentTypeNode modifiers). ^ aComponentTypeNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitConstraintNode: aNode [ self flag: #disabledForNow. "aNode constraint: (self visit: aNode constraint)." @@ -63,20 +65,20 @@ ASN1RewriteVisitor >> visitConstraintNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitDefaultSyntaxClassNode: aDefaultSyntaxClassNode [ ^ aDefaultSyntaxClassNode fields: (self visitAll: aDefaultSyntaxClassNode fields). ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitDefinedSyntaxClassNode: aDefinedSyntaxClass [ aDefinedSyntaxClass fields: (self visitAll: aDefinedSyntaxClass fields). aDefinedSyntaxClass syntax: (self visit: aDefinedSyntaxClass syntax). ^ aDefinedSyntaxClass ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitDefinedSyntaxObjectNode: aDefinedSyntaxObjectNode [ | parsed objectClass | "Process syntax for possible rewrites. For defined syntax objects the type information @@ -97,40 +99,40 @@ ASN1RewriteVisitor >> visitDefinedSyntaxObjectNode: aDefinedSyntaxObjectNode [ ^ aDefinedSyntaxObjectNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitElementsNode: anElements [ anElements entity: (self visit: anElements entity). anElements exclusions: (self visitAll: anElements exclusions). ^ anElements ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitFieldSpecNode: aFieldSpec [ aFieldSpec type: (self visit: aFieldSpec type). ^ aFieldSpec ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitImportNode: anImport [ anImport moduleIdentifier: (self visit: anImport moduleIdentifier). anImport symbols: (self visitAll: anImport symbols). ^ anImport ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitIntegerNode: anInteger [ ^ (self visitTypeNode: anInteger) namedNumbers: (self visitAll: anInteger namedNumbers). ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitModifierDefaultValueNode: aNode [ aNode value: (self visit: aNode value). ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitModuleDefinitionNode: aModuleDefinition [ self flag: #incomplete. aModuleDefinition identifier: (self visit: aModuleDefinition identifier). @@ -140,18 +142,18 @@ ASN1RewriteVisitor >> visitModuleDefinitionNode: aModuleDefinition [ ^ aModuleDefinition ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitModuleIdentifierNode: aModuleIdentifierNode [ ^ aModuleIdentifierNode oid: (self visit: aModuleIdentifierNode oid) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitNamedTypeNode: aNamedType [ aNamedType type: (self visit: aNamedType type). ^ aNamedType ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitObjectIdentifierNode: anObjectId [ self provideType: anObjectId type @@ -160,25 +162,25 @@ ASN1RewriteVisitor >> visitObjectIdentifierNode: anObjectId [ ^ anObjectId ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitObjectSetNode: anObjectSetNode [ ^ anObjectSetNode elementsSpec: (self visit: anObjectSetNode elementsSpec) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitParameterNode: aParameterNode [ ^ ASN1Parameter new name: aParameterNode reference label; type: (self visit: aParameterNode type) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitPrimitiveValueNode: aPrimitiveValueNode [ ^ aPrimitiveValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitReferenceNode: aReferenceNode [ aReferenceNode type ifNotNil: [ aReferenceNode type: (self visit: aReferenceNode type)]. @@ -187,19 +189,19 @@ ASN1RewriteVisitor >> visitReferenceNode: aReferenceNode [ ^ aReferenceNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitRoot: aRoot [ aRoot modules: (self visitAll: aRoot modules). ^ aRoot ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitSelectionTypeNode: aSelectionTypeNode [ ^ aSelectionTypeNode type: (self visit: aSelectionTypeNode type) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitTaggedTypeNode: aNode [ | type | aNode tag: (self visit: aNode tag). @@ -208,32 +210,32 @@ ASN1RewriteVisitor >> visitTaggedTypeNode: aNode [ ^ aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitTypeFieldNode: aTypeFieldNode [ aTypeFieldNode type: (self visit: aTypeFieldNode type). aTypeFieldNode fields: (self visitAll: aTypeFieldNode fields). ^ aTypeFieldNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitTypeFromObjectNode: aTypeFromObject [ aTypeFromObject object: (self visit: aTypeFromObject object). ^ aTypeFromObject ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitTypeNode: aTypeNode [ ^ aTypeNode constraints: (self visitAll: aTypeNode constraints) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitUnionNode: aUnion [ aUnion elements: (self visitAll: aUnion elements). ^ aUnion ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1RewriteVisitor >> visitValueSetNode: aValueSet [ ^ aValueSet elementsSpec: (self visit: aValueSet elementsSpec) ] diff --git a/ASN1-AST/ASN1Scope.class.st b/ASN1-AST/ASN1Scope.class.st index fa9d4b6..ff48ae7 100644 --- a/ASN1-AST/ASN1Scope.class.st +++ b/ASN1-AST/ASN1Scope.class.st @@ -1,55 +1,57 @@ Class { - #name : #ASN1Scope, - #superclass : #Object, + #name : 'ASN1Scope', + #superclass : 'Object', #instVars : [ 'parent', 'scopeObject' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #binding } +{ #category : 'binding' } ASN1Scope >> bindingOf: aString [ ^ scopeObject bindingOf: aString ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1Scope >> lookup: aString [ ^ self lookup: aString ifAbsent: [ Error signal: 'couldn''t find declaration of ', aString printString ] ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1Scope >> lookup: aString ifAbsent: aBlock [ ^ (self bindingOf: aString) ifNil: [ parent ifNil: [ aBlock value ]. parent lookup: aString ifAbsent: aBlock ] ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1Scope >> moduleDefinition [ ^ (scopeObject class = ASN1ModuleDefinitionNode ) ifTrue: [ scopeObject ] ifFalse: [ parent moduleDefinition ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Scope >> parent [ ^ parent ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Scope >> scopeObject [ ^ scopeObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Scope >> scopeObject: anObject [ scopeObject := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Scope >> setParent: aScope [ parent := aScope ] diff --git a/ASN1-AST/ASN1ScopeNode.class.st b/ASN1-AST/ASN1ScopeNode.class.st index 28ace68..c284aa3 100644 --- a/ASN1-AST/ASN1ScopeNode.class.st +++ b/ASN1-AST/ASN1ScopeNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1ScopeNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ScopeNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #binding } +{ #category : 'binding' } ASN1ScopeNode >> bindingOf: aString [ self subclassResponsibility ] diff --git a/ASN1-AST/ASN1SelectionTypeNode.class.st b/ASN1-AST/ASN1SelectionTypeNode.class.st index 0720641..0403d90 100644 --- a/ASN1-AST/ASN1SelectionTypeNode.class.st +++ b/ASN1-AST/ASN1SelectionTypeNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1SelectionTypeNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1SelectionTypeNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'name', 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1SelectionTypeNode >> accept: aVisitor [ ^ aVisitor visitSelectionTypeNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SelectionTypeNode >> name [ ^ name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SelectionTypeNode >> name: anObject [ name := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SelectionTypeNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SelectionTypeNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1SequenceNode.class.st b/ASN1-AST/ASN1SequenceNode.class.st index 4848fa4..291c9a7 100644 --- a/ASN1-AST/ASN1SequenceNode.class.st +++ b/ASN1-AST/ASN1SequenceNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1SequenceNode, - #superclass : #ASN1CollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1SequenceNode', + #superclass : 'ASN1CollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1SequenceNode >> accept: aVisitor [ ^ aVisitor visitSequenceNode: self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SequenceNode >> bindingOf: aString [ elements do: [ :each | (each bindingOf: aString) ifNotNil: [ :val | @@ -17,7 +19,7 @@ ASN1SequenceNode >> bindingOf: aString [ ^ nil ] -{ #category : #printing } +{ #category : 'printing' } ASN1SequenceNode >> printOn: aStream [ aStream nextPutAll: 'SEQUENCE{'. super printOn: aStream. diff --git a/ASN1-AST/ASN1SequenceOfValueNode.class.st b/ASN1-AST/ASN1SequenceOfValueNode.class.st index 46759b9..87ee76e 100644 --- a/ASN1-AST/ASN1SequenceOfValueNode.class.st +++ b/ASN1-AST/ASN1SequenceOfValueNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1SequenceOfValueNode, - #superclass : #ASN1ValueCollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1SequenceOfValueNode', + #superclass : 'ASN1ValueCollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1SequenceValueNode.class.st b/ASN1-AST/ASN1SequenceValueNode.class.st index 5eb01c1..d06a9ba 100644 --- a/ASN1-AST/ASN1SequenceValueNode.class.st +++ b/ASN1-AST/ASN1SequenceValueNode.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1SequenceValueNode, - #superclass : #ASN1ValueCollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1SequenceValueNode', + #superclass : 'ASN1ValueCollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1SequenceValueNode >> accept: aVisitor [ ^ aVisitor visitSequenceValueNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SequenceValueNode >> defaultTypeClass [ ^ ASN1SequenceNode ] diff --git a/ASN1-AST/ASN1SetNode.class.st b/ASN1-AST/ASN1SetNode.class.st index 0166601..37bee72 100644 --- a/ASN1-AST/ASN1SetNode.class.st +++ b/ASN1-AST/ASN1SetNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1SetNode, - #superclass : #ASN1CollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1SetNode', + #superclass : 'ASN1CollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1SetNode >> accept: aVisitor [ ^ aVisitor visitSetNode: self ] diff --git a/ASN1-AST/ASN1SymbolResolvingVisitor.class.st b/ASN1-AST/ASN1SymbolResolvingVisitor.class.st index 4b5c537..c20b513 100644 --- a/ASN1-AST/ASN1SymbolResolvingVisitor.class.st +++ b/ASN1-AST/ASN1SymbolResolvingVisitor.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1SymbolResolvingVisitor, - #superclass : #ASN1EnvironmentVisitor, + #name : 'ASN1SymbolResolvingVisitor', + #superclass : 'ASN1EnvironmentVisitor', #instVars : [ 'module' ], - #category : 'ASN1-AST-Visitor' + #category : 'ASN1-AST-Visitor', + #package : 'ASN1-AST', + #tag : 'Visitor' } -{ #category : #resolving } +{ #category : 'resolving' } ASN1SymbolResolvingVisitor >> resolveLabel: aString [ ^ self scope lookup: aString ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1SymbolResolvingVisitor >> resolveReference: aReference [ (aReference isUnresolved) ifTrue: [ | def | def := self resolveLabel: aReference label. @@ -20,7 +22,7 @@ ASN1SymbolResolvingVisitor >> resolveReference: aReference [ aReference definition: def ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visit: anObject [ super visit: anObject. @@ -32,31 +34,31 @@ ASN1SymbolResolvingVisitor >> visit: anObject [ anObject propertyAt: #module put: module ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitAmbiguousNode: anAmbiguousNode [ ^ anAmbiguousNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitAssignmentNode: aNode [ aNode right beAssigned. ^ (super visitAssignmentNode: aNode) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitBitStringValueNode: aNode [ super visitBitStringValueNode: aNode. "resolve the values for the named bits" aNode setBitValues: (aNode value collect: [:each| self resolveLabel: each]) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitBooleanValueNode: aBooleanValueNode [ ^ aBooleanValueNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitDefinedSyntaxObjectNode: aDefinedSyntaxObjectNode [ "parse defined syntax and build map from field references to values. Resolve field type references and value references like any other object. @@ -77,7 +79,7 @@ ASN1SymbolResolvingVisitor >> visitDefinedSyntaxObjectNode: aDefinedSyntaxObject ^ aDefinedSyntaxObjectNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitModuleDefinitionNode: aModuleDefinition [ | previousModule | previousModule := module. @@ -86,19 +88,19 @@ ASN1SymbolResolvingVisitor >> visitModuleDefinitionNode: aModuleDefinition [ ensure: [ module := previousModule ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitParameterNode: aNode [ super visitParameterNode: aNode. aNode reference definition: aNode type ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitReferenceNode: aReferenceNode [ super visitReferenceNode: aReferenceNode. self resolveReference: aReferenceNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitSequenceValueNode: aNode [ "Resolve each named value in the nodes' elements to a sequence type slot value. Each named values 'name' refers to a slot in the sequence type. The @@ -110,7 +112,7 @@ ASN1SymbolResolvingVisitor >> visitSequenceValueNode: aNode [ type bindingOf: namedValue value label) ] ) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1SymbolResolvingVisitor >> visitTypeFieldNode: aNode [ | type | type := aNode type. diff --git a/ASN1-AST/ASN1TagEncodingReference.class.st b/ASN1-AST/ASN1TagEncodingReference.class.st index d164a8d..d15348a 100644 --- a/ASN1-AST/ASN1TagEncodingReference.class.st +++ b/ASN1-AST/ASN1TagEncodingReference.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1TagEncodingReference, - #superclass : #ASN1EncodingReferenceNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1TagEncodingReference', + #superclass : 'ASN1EncodingReferenceNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/ASN1TagNode.class.st b/ASN1-AST/ASN1TagNode.class.st index f247db0..0d4bbe9 100644 --- a/ASN1-AST/ASN1TagNode.class.st +++ b/ASN1-AST/ASN1TagNode.class.st @@ -1,30 +1,32 @@ Class { - #name : #ASN1TagNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1TagNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'encodingReference', 'tagClass', 'tagNumber' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TagNode >> accept: aVisitor [ ^ aVisitor visitTagNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> encodingReference [ ^ encodingReference ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> encodingReference: anObject [ encodingReference := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1TagNode >> printOn: aStream [ aStream nextPut: $[. encodingReference ifNotNil: [ @@ -41,22 +43,22 @@ ASN1TagNode >> printOn: aStream [ aStream nextPut: $] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> tagClass [ ^ tagClass ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> tagClass: anObject [ tagClass := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> tagNumber [ ^ tagNumber ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagNode >> tagNumber: anObject [ tagNumber := anObject ] diff --git a/ASN1-AST/ASN1TaggedTypeNode.class.st b/ASN1-AST/ASN1TaggedTypeNode.class.st index bfd5422..8ee5a2e 100644 --- a/ASN1-AST/ASN1TaggedTypeNode.class.st +++ b/ASN1-AST/ASN1TaggedTypeNode.class.st @@ -1,35 +1,37 @@ Class { - #name : #ASN1TaggedTypeNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1TaggedTypeNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'tag', 'type', 'tagEnvironment' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TaggedTypeNode >> accept: aVisitor [ ^ aVisitor visitTaggedTypeNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> basicType [ ^ self type basicType ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TaggedTypeNode >> bindingOf: aString [ ^ type bindingOf: aString ] -{ #category : #testing } +{ #category : 'testing' } ASN1TaggedTypeNode >> matchesTypeOf: aTypeNodeClass [ ^ type matchesTypeOf: aTypeNodeClass ] -{ #category : #printing } +{ #category : 'printing' } ASN1TaggedTypeNode >> printOn: aStream [ aStream nextPutAll: type printString. @@ -39,32 +41,32 @@ ASN1TaggedTypeNode >> printOn: aStream [ ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> tag [ ^ self propertyAt: #tag ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> tag: anObject [ self propertyAt: #tag put: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> tagEnvironment [ ^ tagEnvironment ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> tagEnvironment: aTagEnvironment [ tagEnvironment := aTagEnvironment ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TaggedTypeNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1Token.extension.st b/ASN1-AST/ASN1Token.extension.st index c57da44..6e09f05 100644 --- a/ASN1-AST/ASN1Token.extension.st +++ b/ASN1-AST/ASN1Token.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1Token } +Extension { #name : 'ASN1Token' } -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } ASN1Token >> asn1Reference [ ^ ASN1ReferenceNode new label: self value diff --git a/ASN1-AST/ASN1TypeFieldNode.class.st b/ASN1-AST/ASN1TypeFieldNode.class.st index 9677027..ec9dc3d 100644 --- a/ASN1-AST/ASN1TypeFieldNode.class.st +++ b/ASN1-AST/ASN1TypeFieldNode.class.st @@ -1,29 +1,31 @@ Class { - #name : #ASN1TypeFieldNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1TypeFieldNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'type', 'fields' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TypeFieldNode >> accept: aVisitor [ ^ aVisitor visitTypeFieldNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFieldNode >> fields [ ^ fields ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFieldNode >> fields: anObject [ fields := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1TypeFieldNode >> printOn: aStream [ aStream nextPutAll: self type printString. @@ -34,7 +36,7 @@ ASN1TypeFieldNode >> printOn: aStream [ separatedBy: [ aStream nextPut: $. ]] ] -{ #category : #resolving } +{ #category : 'resolving' } ASN1TypeFieldNode >> resolveType [ | fieldType | fieldType := self type. @@ -44,12 +46,12 @@ ASN1TypeFieldNode >> resolveType [ ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFieldNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFieldNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1TypeFromObjectNode.class.st b/ASN1-AST/ASN1TypeFromObjectNode.class.st index 8973ba4..3509e53 100644 --- a/ASN1-AST/ASN1TypeFromObjectNode.class.st +++ b/ASN1-AST/ASN1TypeFromObjectNode.class.st @@ -1,39 +1,41 @@ Class { - #name : #ASN1TypeFromObjectNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1TypeFromObjectNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'object', 'field' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TypeFromObjectNode >> accept: aVisitor [ ^ aVisitor visitTypeFromObjectNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFromObjectNode >> field [ ^ field ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFromObjectNode >> field: anObject [ field := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFromObjectNode >> object [ ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeFromObjectNode >> object: anObject [ object := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1TypeFromObjectNode >> printOn: aStream [ aStream nextPutAll: self object printString; diff --git a/ASN1-AST/ASN1TypeNode.class.st b/ASN1-AST/ASN1TypeNode.class.st index 33bb88d..63d9663 100644 --- a/ASN1-AST/ASN1TypeNode.class.st +++ b/ASN1-AST/ASN1TypeNode.class.st @@ -1,60 +1,62 @@ Class { - #name : #ASN1TypeNode, - #superclass : #ASN1ASTNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1TypeNode', + #superclass : 'ASN1ASTNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #adding } +{ #category : 'adding' } ASN1TypeNode >> addConstraint: aConstraintNode [ self constraints add: aConstraintNode ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TypeNode >> basicType [ ^ self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeNode >> constraints [ ^ self propertyAt: #constraints ifAbsentPut: [ Set new] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeNode >> constraints: aCollection [ ^ self propertyAt: #constraints put: aCollection ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TypeNode >> createInstance: anObject [ ^ anObject ] -{ #category : #testing } +{ #category : 'testing' } ASN1TypeNode >> isSameType: aType [ ^ self class = aType class ] -{ #category : #testing } +{ #category : 'testing' } ASN1TypeNode >> isTypeNode [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1TypeNode >> matchesTypeOf: anObject [ ^ anObject type class = self class ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeNode >> modifier [ ^ self propertyAt: #modifier ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypeNode >> modifier: anObject [ ^ self propertyAt: #modifier put: anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1TypeNode >> printOn: aStream [ super printOn: aStream. self constraints notNil ifTrue: [ @@ -70,18 +72,18 @@ ASN1TypeNode >> printOn: aStream [ nextPutAll: modifier printString ]. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TypeNode >> tagEnvironment [ ^ self propertyAt: #tagEnvironment ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TypeNode >> tagEnvironment: aTaggingMode [ aTaggingMode ifNil: [ ^ self ]. self propertyAt: #tagEnvironment put: aTaggingMode ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TypeNode >> validate: aValueNode [ aValueNode isValueNode ifFalse: [ Error signal: 'is not a value node']. diff --git a/ASN1-AST/ASN1TypedCollectionNode.class.st b/ASN1-AST/ASN1TypedCollectionNode.class.st index 49c6564..200d411 100644 --- a/ASN1-AST/ASN1TypedCollectionNode.class.st +++ b/ASN1-AST/ASN1TypedCollectionNode.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1TypedCollectionNode, - #superclass : #ASN1TypeNode, + #name : 'ASN1TypedCollectionNode', + #superclass : 'ASN1TypeNode', #instVars : [ 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypedCollectionNode >> type [ ^ type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TypedCollectionNode >> type: anObject [ type := anObject ] diff --git a/ASN1-AST/ASN1TypedSequenceNode.class.st b/ASN1-AST/ASN1TypedSequenceNode.class.st index 8c3679a..a8b85f5 100644 --- a/ASN1-AST/ASN1TypedSequenceNode.class.st +++ b/ASN1-AST/ASN1TypedSequenceNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1TypedSequenceNode, - #superclass : #ASN1TypedCollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1TypedSequenceNode', + #superclass : 'ASN1TypedCollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TypedSequenceNode >> accept: aVisitor [ ^ aVisitor visitTypedSequenceNode: self ] diff --git a/ASN1-AST/ASN1TypedSetNode.class.st b/ASN1-AST/ASN1TypedSetNode.class.st index 3514fac..2fd0816 100644 --- a/ASN1-AST/ASN1TypedSetNode.class.st +++ b/ASN1-AST/ASN1TypedSetNode.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1TypedSetNode, - #superclass : #ASN1TypedCollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1TypedSetNode', + #superclass : 'ASN1TypedCollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1TypedSetNode >> accept: aVisitor [ ^ aVisitor visitTypedSetNode: self ] diff --git a/ASN1-AST/ASN1UnionNode.class.st b/ASN1-AST/ASN1UnionNode.class.st index 174ff16..0ac8011 100644 --- a/ASN1-AST/ASN1UnionNode.class.st +++ b/ASN1-AST/ASN1UnionNode.class.st @@ -1,39 +1,41 @@ Class { - #name : #ASN1UnionNode, - #superclass : #ASN1ArithmeticNode, + #name : 'ASN1UnionNode', + #superclass : 'ASN1ArithmeticNode', #instVars : [ 'elements' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1UnionNode >> accept: aVisitor [ ^ aVisitor visitUnionNode: self ] -{ #category : #adding } +{ #category : 'adding' } ASN1UnionNode >> add: aNode [ elements add: aNode ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1UnionNode >> elements [ ^ elements ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1UnionNode >> elements: anObject [ elements := anObject asOrderedCollection ] -{ #category : #actions } +{ #category : 'actions' } ASN1UnionNode >> merge: aUnionNode [ ^ self class new elements: (elements asOrderedCollection addAll: aUnionNode elements; yourself) ] -{ #category : #printing } +{ #category : 'printing' } ASN1UnionNode >> printOn: aStream [ elements ifNotNil: [ elements @@ -42,14 +44,14 @@ ASN1UnionNode >> printOn: aStream [ ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1UnionNode >> size [ ^ elements isNil ifTrue: [ 0 ] ifFalse: [ elements size ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1UnionNode >> type: anObject [ elements do: [ :element | element type: anObject ] diff --git a/ASN1-AST/ASN1ValueCollectionNode.class.st b/ASN1-AST/ASN1ValueCollectionNode.class.st index 3b2934f..25956ca 100644 --- a/ASN1-AST/ASN1ValueCollectionNode.class.st +++ b/ASN1-AST/ASN1ValueCollectionNode.class.st @@ -1,28 +1,30 @@ Class { - #name : #ASN1ValueCollectionNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1ValueCollectionNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'elements' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ValueCollectionNode >> accept: aVisitor [ aVisitor visitValueCollectionNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueCollectionNode >> elements [ ^ elements ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueCollectionNode >> elements: anObject [ elements := anObject ] -{ #category : #parsing } +{ #category : 'parsing' } ASN1ValueCollectionNode >> parse: aStream into: aDictionary [ | pos | elements do: [:each| @@ -35,12 +37,12 @@ ASN1ValueCollectionNode >> parse: aStream into: aDictionary [ ifFalse: [ err pass ]]] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ValueCollectionNode >> size [ ^ elements size ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueCollectionNode >> stream [ ^ elements readStream ] diff --git a/ASN1-AST/ASN1ValueFromObjectNode.class.st b/ASN1-AST/ASN1ValueFromObjectNode.class.st index fcb8d27..6c0aa03 100644 --- a/ASN1-AST/ASN1ValueFromObjectNode.class.st +++ b/ASN1-AST/ASN1ValueFromObjectNode.class.st @@ -1,34 +1,36 @@ Class { - #name : #ASN1ValueFromObjectNode, - #superclass : #ASN1ValueNode, + #name : 'ASN1ValueFromObjectNode', + #superclass : 'ASN1ValueNode', #instVars : [ 'object', 'fields' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ValueFromObjectNode >> accept: aVisitor [ aVisitor visitValueFromObjectNode: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueFromObjectNode >> fields [ ^ fields ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueFromObjectNode >> fields: anObject [ fields := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueFromObjectNode >> object [ ^ object ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueFromObjectNode >> object: anObject [ object := anObject ] diff --git a/ASN1-AST/ASN1ValueNode.class.st b/ASN1-AST/ASN1ValueNode.class.st index 2711cf2..517a1b4 100644 --- a/ASN1-AST/ASN1ValueNode.class.st +++ b/ASN1-AST/ASN1ValueNode.class.st @@ -1,41 +1,43 @@ Class { - #name : #ASN1ValueNode, - #superclass : #ASN1ASTNode, + #name : 'ASN1ValueNode', + #superclass : 'ASN1ASTNode', #instVars : [ 'type' ], - #category : 'ASN1-AST-Nodes' + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ValueNode class >> new [ (self class = ASN1ValueNode) ifTrue: [ Error signal: 'abstract']. ^ super new ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> basicTypeLabel [ ^ #value ] -{ #category : #testing } +{ #category : 'testing' } ASN1ValueNode >> canBeAssignedTo: aType [ ^ aType matchesTypeOf: self ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> defaultTypeClass [ self shouldBeImplemented ] -{ #category : #testing } +{ #category : 'testing' } ASN1ValueNode >> isValueNode [ ^ true ] -{ #category : #printing } +{ #category : 'printing' } ASN1ValueNode >> printOn: aStream [ aStream nextPut: $[; @@ -43,23 +45,23 @@ ASN1ValueNode >> printOn: aStream [ nextPut: $]. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> resolvedValue [ ^ self propertyAt: #resolvedValue ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> resolvedValue: anObject [ self propertyAt: #resolvedValue put: anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> type [ ^ type ifNil: [ type := self defaultTypeClass new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueNode >> type: aTypeNode [ type := aTypeNode ] diff --git a/ASN1-AST/ASN1ValueSetNode.class.st b/ASN1-AST/ASN1ValueSetNode.class.st index 8a232e2..a77e973 100644 --- a/ASN1-AST/ASN1ValueSetNode.class.st +++ b/ASN1-AST/ASN1ValueSetNode.class.st @@ -1,32 +1,34 @@ Class { - #name : #ASN1ValueSetNode, - #superclass : #ASN1ElementSpecNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ValueSetNode', + #superclass : 'ASN1ElementSpecNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } -{ #category : #visiting } +{ #category : 'visiting' } ASN1ValueSetNode >> accept: aVisitor [ ^ aVisitor visitValueSetNode: self ] -{ #category : #testing } +{ #category : 'testing' } ASN1ValueSetNode >> canBeAssignedTo: aTypeNode [ ^ aTypeNode matchesTypeOf: self type ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ValueSetNode >> defaultTypeClass [ ^ ASN1ValueSetTypeNode ] -{ #category : #printing } +{ #category : 'printing' } ASN1ValueSetNode >> printOn: aStream [ aStream nextPutAll: 'VALUESET'. super printOn: aStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ValueSetNode >> resolvesIn: aModule [ | elem | elem := aModule resolveName: elementsSpec entity label. diff --git a/ASN1-AST/ASN1ValueSetTypeNode.class.st b/ASN1-AST/ASN1ValueSetTypeNode.class.st index 4521c54..8537dc1 100644 --- a/ASN1-AST/ASN1ValueSetTypeNode.class.st +++ b/ASN1-AST/ASN1ValueSetTypeNode.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1ValueSetTypeNode, - #superclass : #ASN1CollectionNode, - #category : 'ASN1-AST-Nodes' + #name : 'ASN1ValueSetTypeNode', + #superclass : 'ASN1CollectionNode', + #category : 'ASN1-AST-Nodes', + #package : 'ASN1-AST', + #tag : 'Nodes' } diff --git a/ASN1-AST/Object.extension.st b/ASN1-AST/Object.extension.st index b324249..060a16f 100644 --- a/ASN1-AST/Object.extension.st +++ b/ASN1-AST/Object.extension.st @@ -1,16 +1,16 @@ -Extension { #name : #Object } +Extension { #name : 'Object' } -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } Object >> isAsn1ModuleDefinitionNode [ ^ false ] -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } Object >> isAsn1Node [ ^ false ] -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } Object >> isAsn1ReferenceNode [ ^ false ] diff --git a/ASN1-AST/PPParser.extension.st b/ASN1-AST/PPParser.extension.st index caf5c22..8e31661 100644 --- a/ASN1-AST/PPParser.extension.st +++ b/ASN1-AST/PPParser.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #PPParser } +Extension { #name : 'PPParser' } -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } PPParser >> asn1Token [ ^ (ASN1TokenParser on: self) ==> [:node| node inputValue ] ] diff --git a/ASN1-AST/String.extension.st b/ASN1-AST/String.extension.st index 24e95fd..d730b7c 100644 --- a/ASN1-AST/String.extension.st +++ b/ASN1-AST/String.extension.st @@ -1,17 +1,17 @@ -Extension { #name : #String } +Extension { #name : 'String' } -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } String >> addAsModuleTo: aASTRoot [ aASTRoot addModuleFrom: self ] -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } String >> asn1Reference [ ^ ASN1ReferenceNode new label: self ] -{ #category : #'*asn1-ast' } +{ #category : '*asn1-ast' } String >> matchesSyntax: anObject [ ^ anObject = self ] diff --git a/ASN1-AST/package.st b/ASN1-AST/package.st index 16ce079..ad687a8 100644 --- a/ASN1-AST/package.st +++ b/ASN1-AST/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-AST' } +Package { #name : 'ASN1-AST' } diff --git a/ASN1-Builder/ASN1.extension.st b/ASN1-Builder/ASN1.extension.st index edde04f..f998aaa 100644 --- a/ASN1-Builder/ASN1.extension.st +++ b/ASN1-Builder/ASN1.extension.st @@ -1,43 +1,43 @@ -Extension { #name : #ASN1 } +Extension { #name : 'ASN1' } -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> addLibrary: aLibrary [ self libraries add: aLibrary ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> buildModel [ ^ self buildAst buildModel: self modelRootClass ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> defaultModelRootClass [ ^ ASN1CachedModelRoot ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> libraries [ ^ self properties at: #libraryCollection ifAbsentPut: [ ASN1LibraryCollection new ] ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> model [ ^ self properties at:#model ifAbsentPut:[ self buildModel ] ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> modelRootClass [ ^ self properties at:#modelRootClass ifAbsentPut:[ self defaultModelRootClass ] ] -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1 >> modelRootClass: anObject [ self properties at: #modelRootClass diff --git a/ASN1-Builder/ASN1ASTRoot.extension.st b/ASN1-Builder/ASN1ASTRoot.extension.st index cd656ac..9991e0f 100644 --- a/ASN1-Builder/ASN1ASTRoot.extension.st +++ b/ASN1-Builder/ASN1ASTRoot.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1ASTRoot } +Extension { #name : 'ASN1ASTRoot' } -{ #category : #'*asn1-builder' } +{ #category : '*asn1-builder' } ASN1ASTRoot >> buildModel: aClass [ | visitor | self annotateAsts. diff --git a/ASN1-Builder/ASN1ClassModuleLibrary.class.st b/ASN1-Builder/ASN1ClassModuleLibrary.class.st index d2a4e81..62e07e1 100644 --- a/ASN1-Builder/ASN1ClassModuleLibrary.class.st +++ b/ASN1-Builder/ASN1ClassModuleLibrary.class.st @@ -1,14 +1,15 @@ Class { - #name : #ASN1ClassModuleLibrary, - #superclass : #ASN1ModuleLibrary, + #name : 'ASN1ClassModuleLibrary', + #superclass : 'ASN1ModuleLibrary', #instVars : [ 'path', 'manifest' ], - #category : 'ASN1-Builder' + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClassModuleLibrary >> compile: aString selector: aSelector [ self class compile: (String streamContents: [:stream| stream @@ -19,42 +20,42 @@ ASN1ClassModuleLibrary >> compile: aString selector: aSelector [ nextPutAll: aString storeString ]) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ClassModuleLibrary >> dependencies: aCollection [ self compile: aCollection selector: #dependencies ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClassModuleLibrary >> escape: aString [ ^ aString select: [:each| each asciiValue between: 0 and: 127] ] -{ #category : #testing } +{ #category : 'testing' } ASN1ClassModuleLibrary >> includesModuleNamed: aString [ ^ self respondsTo: (self selectorNameFrom: aString) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ClassModuleLibrary >> moduleNamed: aString [ ^ (self perform: (self selectorNameFrom: aString) asSymbol ) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ClassModuleLibrary >> name: aString [ self compile: aString selector: #name ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ClassModuleLibrary >> rootModules: aCollection [ self compile: aCollection selector: #rootModules ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClassModuleLibrary >> selectorNameFrom: aString [ ^ ( aString copyWithout: $- ) uncapitalized asSymbol ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ClassModuleLibrary >> storeModule: aString named: moduleName [ self compile: (self escape: aString) diff --git a/ASN1-Builder/ASN1DefaultModuleLibrary.class.st b/ASN1-Builder/ASN1DefaultModuleLibrary.class.st index 9d6a086..0d76c86 100644 --- a/ASN1-Builder/ASN1DefaultModuleLibrary.class.st +++ b/ASN1-Builder/ASN1DefaultModuleLibrary.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1DefaultModuleLibrary, - #superclass : #ASN1ClassModuleLibrary, - #category : 'ASN1-Builder' + #name : 'ASN1DefaultModuleLibrary', + #superclass : 'ASN1ClassModuleLibrary', + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary class >> globalDeclarations [ ^' itu-t OBJECT IDENTIFIER ::= { itu-t (0) } @@ -12,7 +13,7 @@ ASN1DefaultModuleLibrary class >> globalDeclarations [ joint-iso-itu-t OBJECT IDENTIFIER ::= { joint-iso-itu-t (2) }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> abstractSyntaxClass [ ^ (ASN1ASTParser parse: ASN1Syntax abstractSyntax @@ -20,34 +21,34 @@ ASN1DefaultModuleLibrary >> abstractSyntaxClass [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> dependencies [ ^ #() ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> globalDeclarations [ ^ ASN1ASTParser parse: self class globalDeclarations startingAt: #assignmentList ] -{ #category : #testing } +{ #category : 'testing' } ASN1DefaultModuleLibrary >> includesModuleNamed: aString [ ^ false ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> moduleNamed: aString [ ^ self newDefaultModule ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> name [ ^ 'default' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> newDefaultModule [ | module | ASN1Configuration default failOnReservedWords: false. @@ -65,12 +66,12 @@ ASN1DefaultModuleLibrary >> newDefaultModule [ ^ module ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> rootModules [ ^ #( default ) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1DefaultModuleLibrary >> typeIdentifierClass [ ^ (ASN1ASTParser parse: ASN1Syntax typeIdentifier diff --git a/ASN1-Builder/ASN1FileModuleLibrary.class.st b/ASN1-Builder/ASN1FileModuleLibrary.class.st index 969e38e..85d0835 100644 --- a/ASN1-Builder/ASN1FileModuleLibrary.class.st +++ b/ASN1-Builder/ASN1FileModuleLibrary.class.st @@ -1,95 +1,96 @@ Class { - #name : #ASN1FileModuleLibrary, - #superclass : #ASN1ModuleLibrary, + #name : 'ASN1FileModuleLibrary', + #superclass : 'ASN1ModuleLibrary', #instVars : [ 'path', 'manifest' ], - #category : 'ASN1-Builder' + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary class >> path: aString [ ^ self new path: aString asFileReference asAbsolute ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> allModuleNames [ ^ (path allFiles copyWithout: (path / self manifestFilename)) collect: #basenameWithoutExtension ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> defaultConverter [ ^ TextConverter newForEncoding: 'latin1' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> dependencies [ ^ self manifest at: 'dependencies' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> filename: aString [ ^ aString, '.asn' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> includesModuleNamed: aString [ ^ ( path / (self filename: aString)) exists ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FileModuleLibrary >> manifest [ ^ manifest ifNil: [ manifest := self parseJson: self readManifest ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FileModuleLibrary >> manifestFilename [ ^ 'manifest.json' ] -{ #category : #loading } +{ #category : 'loading' } ASN1FileModuleLibrary >> moduleNamed: aString [ Transcript show: self name asString, ': loading module ', aString asString; cr. ^ self readFile: (self filename: aString) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> name [ ^ self manifest at: 'name' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> parseJson: aString [ ^ NeoJSONReader fromString: aString ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FileModuleLibrary >> path [ ^ path ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1FileModuleLibrary >> path: anObject [ path := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> readFile: aString [ ^ (path / aString) readStream converter: self defaultConverter; contents ] -{ #category : #loading } +{ #category : 'loading' } ASN1FileModuleLibrary >> readManifest [ ^ self readFile: self manifestFilename ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1FileModuleLibrary >> rootModules [ ^ self manifest at: 'rootModules' ] diff --git a/ASN1-Builder/ASN1LibraryCollection.class.st b/ASN1-Builder/ASN1LibraryCollection.class.st index 282d189..f41fb0b 100644 --- a/ASN1-Builder/ASN1LibraryCollection.class.st +++ b/ASN1-Builder/ASN1LibraryCollection.class.st @@ -1,18 +1,19 @@ Class { - #name : #ASN1LibraryCollection, - #superclass : #Object, + #name : 'ASN1LibraryCollection', + #superclass : 'Object', #instVars : [ 'libraries' ], - #category : 'ASN1-Builder' + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1LibraryCollection >> add: aModuleLibrary [ libraries add: aModuleLibrary ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LibraryCollection >> checkDependencies [ libraries do: [ :library | library dependencies do: [ :dependency | @@ -23,24 +24,24 @@ ASN1LibraryCollection >> checkDependencies [ ifTrue: [ Error signal: 'cyclic dependency between ', library asString,' and ', dependency asString ] ] ] ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LibraryCollection >> includesLibrary: aString [ ^ libraries anySatisfy: [ :each | each name = aString ] ] -{ #category : #initialize } +{ #category : 'initialize' } ASN1LibraryCollection >> initialize [ super initialize. libraries := OrderedCollection new. self add: ASN1DefaultModuleLibrary new ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1LibraryCollection >> libraryNamed: aString [ ^ libraries detect: [ :each | each name = aString ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LibraryCollection >> moduleNamed: aString [ libraries do: [ :library | (library includesModuleNamed: aString) ifTrue: [ @@ -48,7 +49,7 @@ ASN1LibraryCollection >> moduleNamed: aString [ NotFound signal: 'Cannot find module named ', aString asString ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LibraryCollection >> rootModulesDo: aBlock [ self sortedLibraries do: [ :library | @@ -56,7 +57,7 @@ ASN1LibraryCollection >> rootModulesDo: aBlock [ aBlock value: (library moduleNamed: moduleName ) ] ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LibraryCollection >> sortedLibraries [ ^ libraries sort: [ :a :b | (b dependencies includes: a name) ] diff --git a/ASN1-Builder/ASN1ModelBuilderVisitor.class.st b/ASN1-Builder/ASN1ModelBuilderVisitor.class.st index 9a08d8a..26494c6 100644 --- a/ASN1-Builder/ASN1ModelBuilderVisitor.class.st +++ b/ASN1-Builder/ASN1ModelBuilderVisitor.class.st @@ -1,22 +1,23 @@ Class { - #name : #ASN1ModelBuilderVisitor, - #superclass : #ASN1RewriteVisitor, + #name : 'ASN1ModelBuilderVisitor', + #superclass : 'ASN1RewriteVisitor', #instVars : [ 'module', 'objects', 'hits' ], - #category : 'ASN1-Builder' + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1ModelBuilderVisitor >> initialize [ super initialize. objects := IdentityDictionary new. hits := IdentityDictionary new. ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> useModule: aModule during: aBlock [ | previousModule | previousModule := module. @@ -26,7 +27,7 @@ ASN1ModelBuilderVisitor >> useModule: aModule during: aBlock [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visit: aNode [ | object | aNode isNil ifTrue: [ ^ nil ]. @@ -43,19 +44,19 @@ ASN1ModelBuilderVisitor >> visit: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitAmbiguousNode: aNode [ self inform: 'there shouldnt be any ambiguous nodes at this stage'. ^ self visitNode: aNode ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitAnyTypeNode: aNode [ ^ ASN1AnyType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitAssignmentNode: anAssignment [ | right | right := (self visit: anAssignment right). @@ -63,7 +64,7 @@ ASN1ModelBuilderVisitor >> visitAssignmentNode: anAssignment [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitBinaryBitStringValueNode: aBitStringValueNode [ ^ ASN1BinaryBitStringValue new @@ -72,14 +73,14 @@ ASN1ModelBuilderVisitor >> visitBinaryBitStringValueNode: aBitStringValueNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitBitStringNode: aBitString [ ^ ASN1BitStringType new namedBits: (self visitAll: aBitString bits); module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitBitStringValueNode: aBitStringValueNode [ ^ ASN1BitStringValue new type: (self visit: aBitStringValueNode type) value; @@ -87,7 +88,7 @@ ASN1ModelBuilderVisitor >> visitBitStringValueNode: aBitStringValueNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitChoiceNode: aNode [ "If a choice has a choice as element all elements if the child choice are copied into this instance. This resolves context specific tagged elements to the location where they are resolved from an encoding" @@ -105,7 +106,7 @@ ASN1ModelBuilderVisitor >> visitChoiceNode: aNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitChoiceValueNode: aChoiceValueNode [ ^ ASN1ChoiceValue new type: aChoiceValueNode choice; @@ -113,7 +114,7 @@ ASN1ModelBuilderVisitor >> visitChoiceValueNode: aChoiceValueNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitComponentTypeNode: aComponentTypeNode [ "assign the type of the node to its default value if there is any. Convert the component type to a association holding key and value of the @@ -131,25 +132,25 @@ ASN1ModelBuilderVisitor >> visitComponentTypeNode: aComponentTypeNode [ yourself) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitComponentsOfNode: aComponentsOf [ Error signal: 'this method should not be called. ' ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitConstraintNode: aNode [ ^ ASN1Constraint new constraint: (self visit: aNode constraint ); exception: (self visit: aNode exception) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitDefaultSyntaxClassNode: aNode [ ^ ASN1ClassType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitDefinedSyntaxClassNode: aNode [ "classes should not be needed beyond this point. Classes just help instantiating objects" @@ -158,7 +159,7 @@ ASN1ModelBuilderVisitor >> visitDefinedSyntaxClassNode: aNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitDefinedSyntaxObjectNode: aNode [ | dict | dict := aNode parseSyntax. @@ -176,7 +177,7 @@ ASN1ModelBuilderVisitor >> visitDefinedSyntaxObjectNode: aNode [ initializeFromDict: dict ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitElementsNode: aNode [ ^ ASN1ElementComplement new included: (self visit: aNode entity); @@ -184,7 +185,7 @@ ASN1ModelBuilderVisitor >> visitElementsNode: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitEnumeratedNode: aNode [ ^ ASN1EnumeratedType new elements: (self visitAll: aNode elements); @@ -192,25 +193,25 @@ ASN1ModelBuilderVisitor >> visitEnumeratedNode: aNode [ sanitizeValues ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitExtensionAndExceptionNode: anExtensionNode [ "ignoring the exception for now" self flag: #needsRedesign. ^ ASN1Extension new ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitExtensionNode: anExtensionNode [ ^ ASN1Extension new ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitExternalNode: aNode [ ^ ASN1ExternalType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitHexBitStringValueNode: aBitStringValueNode [ ^ ASN1HexBitStringValue new @@ -219,14 +220,14 @@ ASN1ModelBuilderVisitor >> visitHexBitStringValueNode: aBitStringValueNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitIntegerNode: aNode [ ^ ASN1IntegerType new namedNumbers: (self visitAll: aNode namedNumbers); module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitIntegerValueNode: aIntegerValueNode [ ^ ASN1IntegerValue new @@ -234,28 +235,28 @@ ASN1ModelBuilderVisitor >> visitIntegerValueNode: aIntegerValueNode [ contents: aIntegerValueNode value ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitIntersectionNode: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitLiteralNode: aNode [ ^ aNode string ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitModifierDefaultValueNode: aNode [ ^ ASN1ModifierDefaultValue new value: (self visit: aNode value) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitModifierOptionalNode: aNode [ ^ ASN1ModifierOptional new ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitModuleDefinitionNode: aModuleDefinition [ | m | m := ASN1Module new @@ -275,7 +276,7 @@ ASN1ModelBuilderVisitor >> visitModuleDefinitionNode: aModuleDefinition [ ^ module ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitNamedBitNode: aNamedBitNode [ ^ ASN1NamedValue new name: aNamedBitNode name; @@ -283,14 +284,14 @@ ASN1ModelBuilderVisitor >> visitNamedBitNode: aNamedBitNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitNamedNumberNode: aNode [ ^ ASN1NamedNumber new name: aNode name; number: aNode number ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitNamedTypeNode: aNode [ | assoc | assoc := Association new @@ -299,25 +300,25 @@ ASN1ModelBuilderVisitor >> visitNamedTypeNode: aNode [ ^ assoc ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitNullTypeNode: aNode [ ^ ASN1NullType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitObjectIdentifierNode: anObjectId [ ^ (ASN1ObjectIdentifier contents: anObjectId oidString) module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitObjectIdentifierTypeNode: aNode [ ^ ASN1ObjectIdentifierType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitObjectSetNode: anObjectSetNode [ ^ ASN1SetType new elements: (self visit: anObjectSetNode elementsSpec); @@ -325,13 +326,13 @@ ASN1ModelBuilderVisitor >> visitObjectSetNode: anObjectSetNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitOpenTypeNode: aNode [ ^ ASN1OpenType new module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitPrimitiveNode: aNode [ "resolve the name of the node to a implementation class of the primitive" @@ -339,12 +340,12 @@ ASN1ModelBuilderVisitor >> visitPrimitiveNode: aNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitPrimitiveValueNode: aPrimitiveValueNode [ Error signal: 'this method should never be called' ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitReferenceNode: aReferenceNode [ ^ aReferenceNode isDeclaration @@ -355,7 +356,7 @@ ASN1ModelBuilderVisitor >> visitReferenceNode: aReferenceNode [ during: [ self visit: aReferenceNode definition ] ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitRoot: aRoot [ "the default module containing the implicit classes object identifier and abstract syntax is always on first place so we take the second module which is the first @@ -363,7 +364,7 @@ ASN1ModelBuilderVisitor >> visitRoot: aRoot [ ^ self visitAll: (aRoot modules reject: [ :each | each identifier name = 'default' ]) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitSelectionTypeNode: aNode [ "a selection type selects one slot of a collection type. We need to resolve the type first and then find the the element with corresponding name" @@ -373,7 +374,7 @@ ASN1ModelBuilderVisitor >> visitSelectionTypeNode: aNode [ ^ element value ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitSequenceNode: aNode [ | node | node := aNode normalized. @@ -387,7 +388,7 @@ ASN1ModelBuilderVisitor >> visitSequenceNode: aNode [ dict ] ]) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitSequenceValueNode: aNode [ ^ ASN1SequenceValue new module: module; @@ -395,7 +396,7 @@ ASN1ModelBuilderVisitor >> visitSequenceValueNode: aNode [ resolved key -> (self visit: resolved value) ]) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitSetNode: aNode [ | node | node := aNode normalized. @@ -404,7 +405,7 @@ ASN1ModelBuilderVisitor >> visitSetNode: aNode [ module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTagNode: aTag [ ^ ASN1Tag new clazz: aTag tagClass; @@ -412,7 +413,7 @@ ASN1ModelBuilderVisitor >> visitTagNode: aTag [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTaggedTypeNode: aNode [ ^ ASN1TaggedType new module: module; @@ -421,7 +422,7 @@ ASN1ModelBuilderVisitor >> visitTaggedTypeNode: aNode [ tagEnvironment: aNode tagEnvironment ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTypeFieldNode: aNode [ | result | result := aNode resolveType. @@ -431,7 +432,7 @@ ASN1ModelBuilderVisitor >> visitTypeFieldNode: aNode [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTypeFromObjectNode: aTypeFromObject [ | object | object := aTypeFromObject object dereferenced. @@ -440,27 +441,27 @@ ASN1ModelBuilderVisitor >> visitTypeFromObjectNode: aTypeFromObject [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTypedSequenceNode: aNode [ ^ ASN1TypedSequenceType new type: (self visit: aNode type); module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitTypedSetNode: aNode [ ^ ASN1TypedSetType new type: (self visit: aNode type); module: module ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitUnionNode: aNode [ ^ ASN1Union new elements: (self visitAll: aNode elements ) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ModelBuilderVisitor >> visitValueSetNode: aNode [ ^ ASN1SetType new elements: (self visit: aNode elementsSpec ); diff --git a/ASN1-Builder/ASN1ModuleLibrary.class.st b/ASN1-Builder/ASN1ModuleLibrary.class.st index ae4d4fe..9f0d075 100644 --- a/ASN1-Builder/ASN1ModuleLibrary.class.st +++ b/ASN1-Builder/ASN1ModuleLibrary.class.st @@ -1,16 +1,17 @@ Class { - #name : #ASN1ModuleLibrary, - #superclass : #Object, - #category : 'ASN1-Builder' + #name : 'ASN1ModuleLibrary', + #superclass : 'Object', + #category : 'ASN1-Builder', + #package : 'ASN1-Builder' } -{ #category : #copying } +{ #category : 'copying' } ASN1ModuleLibrary >> copyModulesTo: aModuleLibrary [ self allModuleNames do: [ :moduleName | aModuleLibrary storeModule: (self moduleNamed: moduleName) named: moduleName ] ] -{ #category : #copying } +{ #category : 'copying' } ASN1ModuleLibrary >> copyTo: aModuleLibrary [ self copyModulesTo: aModuleLibrary. aModuleLibrary @@ -19,29 +20,29 @@ ASN1ModuleLibrary >> copyTo: aModuleLibrary [ rootModules: self rootModules. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleLibrary >> dependencies [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleLibrary >> name [ self subclassResponsibility ] -{ #category : #printing } +{ #category : 'printing' } ASN1ModuleLibrary >> printOn: aStream [ aStream nextPutAll: self name; nextPutAll: ' module library' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleLibrary >> rootModuleNames [ ^ self rootModules ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ModuleLibrary >> rootModules [ self subclassResponsibility ] diff --git a/ASN1-Builder/package.st b/ASN1-Builder/package.st index 94077bc..53be53a 100644 --- a/ASN1-Builder/package.st +++ b/ASN1-Builder/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Builder' } +Package { #name : 'ASN1-Builder' } diff --git a/ASN1-Codec/ASN1.extension.st b/ASN1-Codec/ASN1.extension.st index e386431..687b4a3 100644 --- a/ASN1-Codec/ASN1.extension.st +++ b/ASN1-Codec/ASN1.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1 } +Extension { #name : 'ASN1' } -{ #category : #'*asn1-codec' } +{ #category : '*asn1-codec' } ASN1 class >> codecStreamClass [ ^ BERTLVStream ] -{ #category : #'*asn1-codec' } +{ #category : '*asn1-codec' } ASN1 class >> readEncodedValuesFrom: aStream [ | encodedValue | encodedValue := self @@ -16,7 +16,7 @@ ASN1 class >> readEncodedValuesFrom: aStream [ ^ encodedValue ] -{ #category : #'*asn1-codec' } +{ #category : '*asn1-codec' } ASN1 class >> readEncodedValuesFrom: aStream usingCodecStream: aClass [ ^ (aClass on: aStream) next ] diff --git a/ASN1-Codec/ASN1EncodedConstructedValue.class.st b/ASN1-Codec/ASN1EncodedConstructedValue.class.st index 68f95e0..3be6f12 100644 --- a/ASN1-Codec/ASN1EncodedConstructedValue.class.st +++ b/ASN1-Codec/ASN1EncodedConstructedValue.class.st @@ -1,33 +1,34 @@ Class { - #name : #ASN1EncodedConstructedValue, - #superclass : #ASN1EncodedValue, + #name : 'ASN1EncodedConstructedValue', + #superclass : 'ASN1EncodedValue', #instVars : [ 'collection' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> add: aType [ self elements add: aType ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedConstructedValue >> contents [ ^ self ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> do: aBlock [ ^ collection do: aBlock ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> elements [ ^ collection ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> findValueWithTag: aTag [ (self tag = aTag) ifTrue: [ ^ self ]. collection do: [ :each| @@ -35,23 +36,23 @@ ASN1EncodedConstructedValue >> findValueWithTag: aTag [ ^ value ] ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> firstElement [ ^ collection first ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedConstructedValue >> hasError [ ^ collection anySatisfy: [ :each | each hasError ] ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1EncodedConstructedValue >> initialize [ super initialize. collection := OrderedCollection new ] -{ #category : #initialization } +{ #category : 'initialization' } ASN1EncodedConstructedValue >> initializeFrom: anObject [ | stream | stream := BERTLVStream on: anObject readStream. @@ -63,24 +64,24 @@ ASN1EncodedConstructedValue >> initializeFrom: anObject [ collection add: stream next] ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedConstructedValue >> isConstructed [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedConstructedValue >> size [ ^ (self elements collect: [ :elem| elem size ]) sum ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> valueWithTag: aTag [ ^ collection detect: [ :each| each tag = aTag ] ifNone: [ nil ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedConstructedValue >> writeOn: aStream [ aStream nextPutConstructed: self ] diff --git a/ASN1-Codec/ASN1EncodedError.class.st b/ASN1-Codec/ASN1EncodedError.class.st index 13283fd..28b6b1a 100644 --- a/ASN1-Codec/ASN1EncodedError.class.st +++ b/ASN1-Codec/ASN1EncodedError.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1EncodedError, - #superclass : #ASN1StreamValue, - #category : 'ASN1-Codec' + #name : 'ASN1EncodedError', + #superclass : 'ASN1StreamValue', + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedError >> hasError [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedError >> isError [ ^ true ] diff --git a/ASN1-Codec/ASN1EncodedPrimitiveValue.class.st b/ASN1-Codec/ASN1EncodedPrimitiveValue.class.st index be3cbc2..4250c5d 100644 --- a/ASN1-Codec/ASN1EncodedPrimitiveValue.class.st +++ b/ASN1-Codec/ASN1EncodedPrimitiveValue.class.st @@ -1,54 +1,55 @@ Class { - #name : #ASN1EncodedPrimitiveValue, - #superclass : #ASN1EncodedValue, + #name : 'ASN1EncodedPrimitiveValue', + #superclass : 'ASN1EncodedValue', #instVars : [ 'contents' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedPrimitiveValue >> contents [ ^ contents ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedPrimitiveValue >> contents: anObject [ contents := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedPrimitiveValue >> findValueWithTag: aTag [ (self tag = aTag) ifTrue: [ ^ self ]. ^ nil ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedPrimitiveValue >> hasContent [ ^ contents notNil ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedPrimitiveValue >> hasError [ ^ false ] -{ #category : #initialization } +{ #category : 'initialization' } ASN1EncodedPrimitiveValue >> initializeFrom: anObject [ contents := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedPrimitiveValue >> isConstructed [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedPrimitiveValue >> size [ ^ contents size ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedPrimitiveValue >> writeOn: aStream [ aStream nextPutPrimitive: self ] diff --git a/ASN1-Codec/ASN1EncodedValue.class.st b/ASN1-Codec/ASN1EncodedValue.class.st index 5c3611b..9dbc9a8 100644 --- a/ASN1-Codec/ASN1EncodedValue.class.st +++ b/ASN1-Codec/ASN1EncodedValue.class.st @@ -1,51 +1,52 @@ Class { - #name : #ASN1EncodedValue, - #superclass : #ASN1StreamValue, + #name : 'ASN1EncodedValue', + #superclass : 'ASN1StreamValue', #instVars : [ 'tag' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedValue class >> newFrom: anObject [ ^ self new initializeFrom: anObject ] -{ #category : #converting } +{ #category : 'converting' } ASN1EncodedValue >> asByteArray [ ^ ByteArray streamContents: [:stream| (ASN1 codecStreamClass on: stream) nextPut: self ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedValue >> baseValue [ ^ self ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedValue >> isAsn1EncodedValue [ ^ true ] -{ #category : #testing } +{ #category : 'testing' } ASN1EncodedValue >> isConstructed [ self subclassResponsibility ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedValue >> tag [ ^ tag ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedValue >> tag: anObject [ tag := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedValue >> tagByteValue [ ^(Array streamContents: [:str | self tag writeOn: str constructed: self isConstructed] ) first ] diff --git a/ASN1-Codec/ASN1EncodedValueError.class.st b/ASN1-Codec/ASN1EncodedValueError.class.st index 4cf775c..e5ad14d 100644 --- a/ASN1-Codec/ASN1EncodedValueError.class.st +++ b/ASN1-Codec/ASN1EncodedValueError.class.st @@ -1,24 +1,25 @@ Class { - #name : #ASN1EncodedValueError, - #superclass : #Error, + #name : 'ASN1EncodedValueError', + #superclass : 'Error', #instVars : [ 'content', 'encodedValue' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedValueError >> content: anObject [ content := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1EncodedValueError >> encodedValue [ ^ encodedValue ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1EncodedValueError >> encodedValue: aCollection [ encodedValue := aCollection ] diff --git a/ASN1-Codec/ASN1PrimitiveCodec.class.st b/ASN1-Codec/ASN1PrimitiveCodec.class.st index ba0609c..7b4b0c3 100644 --- a/ASN1-Codec/ASN1PrimitiveCodec.class.st +++ b/ASN1-Codec/ASN1PrimitiveCodec.class.st @@ -1,24 +1,25 @@ Class { - #name : #ASN1PrimitiveCodec, - #superclass : #Object, + #name : 'ASN1PrimitiveCodec', + #superclass : 'Object', #classInstVars : [ 'utcTimeParser' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #decoding } +{ #category : 'decoding' } ASN1PrimitiveCodec class >> decodePrintablestring: anOrderedCollection [ self shouldBeImplemented. ] -{ #category : #decoding } +{ #category : 'decoding' } ASN1PrimitiveCodec class >> decodeUtctime: aString [ self halt. ^ self utcTimeParser parse: aString. ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PrimitiveCodec class >> utcTimeParser [ ^ utcTimeParser ifNil: [ utcTimeParser := ASN1UTCTimeParser new ] diff --git a/ASN1-Codec/ASN1StreamValue.class.st b/ASN1-Codec/ASN1StreamValue.class.st index 30a682d..7583a5c 100644 --- a/ASN1-Codec/ASN1StreamValue.class.st +++ b/ASN1-Codec/ASN1StreamValue.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1StreamValue, - #superclass : #Object, - #category : 'ASN1-Codec' + #name : 'ASN1StreamValue', + #superclass : 'Object', + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #testing } +{ #category : 'testing' } ASN1StreamValue >> isError [ ^ false ] diff --git a/ASN1-Codec/ASN1UTCTimeParser.class.st b/ASN1-Codec/ASN1UTCTimeParser.class.st index ca409f3..5982785 100644 --- a/ASN1-Codec/ASN1UTCTimeParser.class.st +++ b/ASN1-Codec/ASN1UTCTimeParser.class.st @@ -1,6 +1,6 @@ Class { - #name : #ASN1UTCTimeParser, - #superclass : #PPCompositeParser, + #name : 'ASN1UTCTimeParser', + #superclass : 'PPCompositeParser', #instVars : [ 'utctime', 'year', @@ -11,34 +11,35 @@ Class { 'second', 'offset' ], - #category : 'ASN1-Codec' + #category : 'ASN1-Codec', + #package : 'ASN1-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> day [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| node asNumber ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> hour [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| node asNumber ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> minute [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| node asNumber ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> month [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| node asNumber ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> offset [ ^ ($+ asParser / $- asParser), hour, minute ==> [:nodes| | duration | duration := Duration minutes: (60 * (nodes at: 2) asNumber) + (nodes at: 3) asNumber. @@ -47,18 +48,18 @@ ASN1UTCTimeParser >> offset [ ifFalse: [ duration ]] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> second [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| node asNumber ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> start [ ^ utctime end ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> utctime [ ^ year, month, day, hour, minute, second optional, ( $Z asParser / offset ) ==> [:nodes| DateAndTime @@ -73,7 +74,7 @@ ASN1UTCTimeParser >> utctime [ ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1UTCTimeParser >> year [ ^ (#digit asParser, #digit asParser) flatten ==> [:node| | y | y := node asNumber. diff --git a/ASN1-Codec/BERIdentifier.class.st b/ASN1-Codec/BERIdentifier.class.st index 2c1643a..2671996 100644 --- a/ASN1-Codec/BERIdentifier.class.st +++ b/ASN1-Codec/BERIdentifier.class.st @@ -1,19 +1,21 @@ Class { - #name : #BERIdentifier, - #superclass : #BERStreamFormat, + #name : 'BERIdentifier', + #superclass : 'BERStreamFormat', #instVars : [ 'tag', 'constructed' ], - #category : 'ASN1-Codec-BER' + #category : 'ASN1-Codec-BER', + #package : 'ASN1-Codec', + #tag : 'BER' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifier class >> isConstructed: anOctet [ ^ (anOctet bitAnd: 16r20) > 0 ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifier class >> parseFrom: aStream [ | octet | octet := (self nextFrom: aStream) asInteger. @@ -26,12 +28,12 @@ BERIdentifier class >> parseFrom: aStream [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifier class >> readHighTagNumber: aStream [ ^ self readMultipleOctetsWithHighBitSet: aStream ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifier class >> readNumberFrom: anOctet stream: aStream [ | number | number := anOctet bitAnd: 16r1F. @@ -40,22 +42,22 @@ BERIdentifier class >> readNumberFrom: anOctet stream: aStream [ ^ number ] -{ #category : #accessing } +{ #category : 'accessing' } BERIdentifier >> constructed [ ^ constructed ] -{ #category : #accessing } +{ #category : 'accessing' } BERIdentifier >> constructed: anObject [ constructed := anObject ] -{ #category : #testing } +{ #category : 'testing' } BERIdentifier >> isConstructed [ ^ constructed ] -{ #category : #printing } +{ #category : 'printing' } BERIdentifier >> printOn: aStream [ tag printOn: aStream. aStream @@ -65,17 +67,17 @@ BERIdentifier >> printOn: aStream [ ifFalse: [ ' primitive' ]) ] -{ #category : #accessing } +{ #category : 'accessing' } BERIdentifier >> tag [ ^ tag ] -{ #category : #accessing } +{ #category : 'accessing' } BERIdentifier >> tag: anObject [ tag := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifier >> writeOn: aStream [ self tag writeOn: aStream constructed: constructed ] diff --git a/ASN1-Codec/BERLength.class.st b/ASN1-Codec/BERLength.class.st index aaa5ff9..7f29ecd 100644 --- a/ASN1-Codec/BERLength.class.st +++ b/ASN1-Codec/BERLength.class.st @@ -4,16 +4,18 @@ of myself if I should be class or instance based or even be a SmallInteger or an extension to a SmallInteger. Should I have a method called isIndefinite. Time will tell. " Class { - #name : #BERLength, - #superclass : #BERStreamFormat, + #name : 'BERLength', + #superclass : 'BERStreamFormat', #instVars : [ 'definiteForm', 'contentLength' ], - #category : 'ASN1-Codec-BER' + #category : 'ASN1-Codec-BER', + #package : 'ASN1-Codec', + #tag : 'BER' } -{ #category : #decoding } +{ #category : 'decoding' } BERLength class >> parseFrom: aStream [ "create a BERLength instance by reading its values from a stream" | berLength octet number | @@ -29,33 +31,33 @@ BERLength class >> parseFrom: aStream [ ^ berLength ] -{ #category : #accessing } +{ #category : 'accessing' } BERLength >> contentLength [ ^ contentLength ] -{ #category : #accessing } +{ #category : 'accessing' } BERLength >> contentLength: anObject [ contentLength := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BERLength >> definiteForm: anObject [ definiteForm := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } BERLength >> hasDefiniteForm [ ^ definiteForm ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } BERLength >> initialize [ super initialize. definiteForm := true ] -{ #category : #printing } +{ #category : 'printing' } BERLength >> printOn: aStream [ self hasDefiniteForm ifTrue: [ @@ -67,7 +69,7 @@ BERLength >> printOn: aStream [ nextPutAll: 'indefinite length'] ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } BERLength >> readFrom: aStream [ "we are an instance of a length specification. This method reads the computate length of bytes from a stream and returns them" @@ -84,7 +86,7 @@ BERLength >> readFrom: aStream [ aStream next ]] ] -{ #category : #private } +{ #category : 'private' } BERLength >> writeDefiniteLongForm: aStream [ | data | data := self contentLength asByteArray. @@ -95,7 +97,7 @@ BERLength >> writeDefiniteLongForm: aStream [ aStream nextPutAll: data. ] -{ #category : #writing } +{ #category : 'writing' } BERLength >> writeOn: aStream [ (self hasDefiniteForm) ifTrue: [(self contentLength <= 16r7f) diff --git a/ASN1-Codec/BERStreamFormat.class.st b/ASN1-Codec/BERStreamFormat.class.st index b3522e6..95e2239 100644 --- a/ASN1-Codec/BERStreamFormat.class.st +++ b/ASN1-Codec/BERStreamFormat.class.st @@ -1,16 +1,18 @@ Class { - #name : #BERStreamFormat, - #superclass : #Object, - #category : 'ASN1-Codec-BER' + #name : 'BERStreamFormat', + #superclass : 'Object', + #category : 'ASN1-Codec-BER', + #package : 'ASN1-Codec', + #tag : 'BER' } -{ #category : #reading } +{ #category : 'reading' } BERStreamFormat class >> nextFrom: aStream [ ^ aStream next ifNil: [ ASN1PrematureEndOfStream signal ] ] -{ #category : #reading } +{ #category : 'reading' } BERStreamFormat class >> readMultipleOctets: aNumber from: aStream [ | value | value := 0. @@ -19,7 +21,7 @@ BERStreamFormat class >> readMultipleOctets: aNumber from: aStream [ ^ value ] -{ #category : #reading } +{ #category : 'reading' } BERStreamFormat class >> readMultipleOctetsWithHighBitSet: aStream [ | octet val | val := 0. diff --git a/ASN1-Codec/BERTLVStream.class.st b/ASN1-Codec/BERTLVStream.class.st index ab7907e..aae7271 100644 --- a/ASN1-Codec/BERTLVStream.class.st +++ b/ASN1-Codec/BERTLVStream.class.st @@ -3,16 +3,18 @@ I am a Tag Value Length (TLV) Stream for Basic Encoding Rules (BER) of X.690 and provide very basic reading of a stream. " Class { - #name : #BERTLVStream, - #superclass : #Object, + #name : 'BERTLVStream', + #superclass : 'Object', #instVars : [ 'stream', 'definiteForm' ], - #category : 'ASN1-Codec-BER' + #category : 'ASN1-Codec-BER', + #package : 'ASN1-Codec', + #tag : 'BER' } -{ #category : #creation } +{ #category : 'creation' } BERTLVStream class >> on: aStream [ ^ self new stream: aStream; @@ -20,36 +22,36 @@ BERTLVStream class >> on: aStream [ ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> atEnd [ ^ stream atEnd ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> beIndefinite [ definiteForm := false ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> flush [ stream flush ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } BERTLVStream >> initialize [ super initialize. definiteForm := true ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> next [ ^ [ self nextTaggedValue ] on: ASN1PrematureEndOfStream do: [ :error | ASN1EncodedError new ] ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextAll [ | ret | ret := OrderedCollection new. @@ -60,12 +62,12 @@ BERTLVStream >> nextAll [ ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextByte [ ^ stream next ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextPut: anEncodedType [ | length array | (BERIdentifier new @@ -83,19 +85,19 @@ BERTLVStream >> nextPut: anEncodedType [ stream nextPutAll: array ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextPutConstructed: aConstructedTaggedValue [ aConstructedTaggedValue do: [:each| self nextPut: each ] ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextPutPrimitive: aPrimitiveTaggedValue [ aPrimitiveTaggedValue hasContent ifTrue: [ stream nextPutAll: aPrimitiveTaggedValue contents asByteArray ] ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> nextTaggedValue [ | identifier length clazz source | identifier := self readIdentifier. @@ -116,22 +118,22 @@ BERTLVStream >> nextTaggedValue [ tag: identifier tag ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> peek [ ^ stream peek ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> readIdentifier [ ^ BERIdentifier parseFrom: stream. ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> readLength [ ^ BERLength parseFrom: stream. ] -{ #category : #accessing } +{ #category : 'accessing' } BERTLVStream >> stream: aStream [ stream := aStream. diff --git a/ASN1-Codec/BERTag.class.st b/ASN1-Codec/BERTag.class.st index 24f937c..2d99cd1 100644 --- a/ASN1-Codec/BERTag.class.st +++ b/ASN1-Codec/BERTag.class.st @@ -2,59 +2,61 @@ I am a TAG as of X.690 " Class { - #name : #BERTag, - #superclass : #Object, + #name : 'BERTag', + #superclass : 'Object', #instVars : [ 'classType', 'tagValue', 'constructed' ], - #category : 'ASN1-Codec-BER' + #category : 'ASN1-Codec-BER', + #package : 'ASN1-Codec', + #tag : 'BER' } -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> boolean [ ^ self fromTuple: #(0 false 1) ] -{ #category : #class } +{ #category : 'class' } BERTag class >> classApplication [ ^ 1 ] -{ #category : #class } +{ #category : 'class' } BERTag class >> classContext [ ^ 2 ] -{ #category : #class } +{ #category : 'class' } BERTag class >> classPrivate [ ^ 3 ] -{ #category : #class } +{ #category : 'class' } BERTag class >> classUniversal [ ^ 0 ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> endOfContents [ ^ self fromTuple: #(0 false 0) ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> enumerated [ ^ self fromTuple: #(0 false 10) ] -{ #category : #creation } +{ #category : 'creation' } BERTag class >> fromTuple: aTuple [ ^ self new fromTuple: aTuple; @@ -62,31 +64,31 @@ BERTag class >> fromTuple: aTuple [ ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> integer [ ^ self fromTuple: #(0 false 2) ] -{ #category : #'instance creation' } +{ #category : 'instance creation' } BERTag class >> new [ ^ super new initialize ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> null [ ^ self fromTuple: #(0 false 5) ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> octetString [ ^ self fromTuple: #(0 false 4) ] -{ #category : #creation } +{ #category : 'creation' } BERTag class >> parseFrom: aStream [ ^ self new parseFrom: aStream; @@ -94,38 +96,38 @@ BERTag class >> parseFrom: aStream [ ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> sequence [ ^ self fromTuple: #(0 true 16) ] -{ #category : #'x690 types' } +{ #category : 'x690 types' } BERTag class >> set [ ^ self fromTuple: #(0 true 17) ] -{ #category : #comparing } +{ #category : 'comparing' } BERTag >> = aOther [ (aOther isKindOf: self class) ifTrue: [^self asTuple = aOther asTuple]. ^ self asTuple = aOther. ] -{ #category : #conversion } +{ #category : 'conversion' } BERTag >> asTuple [ ^ Array with: self classType with: self isConstructed with: self tagValue. ] -{ #category : #accessing } +{ #category : 'accessing' } BERTag >> classType [ ^ classType ] -{ #category : #decoding } +{ #category : 'decoding' } BERTag >> fromTuple: aTuple [ classType := aTuple first bitAnd: 16r3. constructed := aTuple second. @@ -133,7 +135,7 @@ BERTag >> fromTuple: aTuple [ ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } BERTag >> initialize [ classType := self class classUniversal. tagValue := 0. @@ -141,25 +143,25 @@ BERTag >> initialize [ ] -{ #category : #accessing } +{ #category : 'accessing' } BERTag >> isConstructed [ ^ constructed ] -{ #category : #accessing } +{ #category : 'accessing' } BERTag >> isPrimitive [ ^ self isConstructed not ] -{ #category : #decoding } +{ #category : 'decoding' } BERTag >> parseExtendedTag: aStream [ ^ self error: 'Extended tags are not implemented yet'. ] -{ #category : #decoding } +{ #category : 'decoding' } BERTag >> parseFrom: aStream [ | tmp | tmp := aStream next asInteger. @@ -174,7 +176,7 @@ BERTag >> parseFrom: aStream [ ] -{ #category : #printing } +{ #category : 'printing' } BERTag >> printOn: aStream [ ^ aStream nextPutAll: self class printString; @@ -182,19 +184,19 @@ BERTag >> printOn: aStream [ nextPutAll: self asTuple printString ] -{ #category : #accessing } +{ #category : 'accessing' } BERTag >> tagValue [ ^ tagValue ] -{ #category : #encoding } +{ #category : 'encoding' } BERTag >> writeExtendedTag: aStream [ self error: 'Cannot encode extended tag.' ] -{ #category : #encoding } +{ #category : 'encoding' } BERTag >> writeOn: aStream [ tagValue >= 16r1F ifTrue: [self writeExtendedTag: aStream.] diff --git a/ASN1-Codec/Object.extension.st b/ASN1-Codec/Object.extension.st index 01e6c1d..6d66e7c 100644 --- a/ASN1-Codec/Object.extension.st +++ b/ASN1-Codec/Object.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Object } +Extension { #name : 'Object' } -{ #category : #'*asn1-codec' } +{ #category : '*asn1-codec' } Object >> isAsn1EncodedValue [ ^ false ] diff --git a/ASN1-Codec/package.st b/ASN1-Codec/package.st index 98c51b3..8962727 100644 --- a/ASN1-Codec/package.st +++ b/ASN1-Codec/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Codec' } +Package { #name : 'ASN1-Codec' } diff --git a/ASN1-Common/ASN1.class.st b/ASN1-Common/ASN1.class.st index c876793..f52886d 100644 --- a/ASN1-Common/ASN1.class.st +++ b/ASN1-Common/ASN1.class.st @@ -1,19 +1,20 @@ Class { - #name : #ASN1, - #superclass : #Object, + #name : 'ASN1', + #superclass : 'Object', #instVars : [ 'properties' ], - #category : 'ASN1-Common' + #category : 'ASN1-Common', + #package : 'ASN1-Common' } -{ #category : #initialize } +{ #category : 'initialize' } ASN1 >> initialize [ super initialize. properties := SmallDictionary new ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1 >> properties [ ^ properties ] diff --git a/ASN1-Common/ASN1ExplicitTags.class.st b/ASN1-Common/ASN1ExplicitTags.class.st index 3d7c9cf..55881bb 100644 --- a/ASN1-Common/ASN1ExplicitTags.class.st +++ b/ASN1-Common/ASN1ExplicitTags.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ExplicitTags, - #superclass : #ASN1TagEnvironment, - #category : 'ASN1-Common' + #name : 'ASN1ExplicitTags', + #superclass : 'ASN1TagEnvironment', + #category : 'ASN1-Common', + #package : 'ASN1-Common' } -{ #category : #testing } +{ #category : 'testing' } ASN1ExplicitTags class >> isExplicit [ ^ true ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExplicitTags class >> label [ ^ 'EXPLICIT' ] diff --git a/ASN1-Common/ASN1ImplicitTags.class.st b/ASN1-Common/ASN1ImplicitTags.class.st index a4ce7db..0277add 100644 --- a/ASN1-Common/ASN1ImplicitTags.class.st +++ b/ASN1-Common/ASN1ImplicitTags.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ImplicitTags, - #superclass : #ASN1TagEnvironment, - #category : 'ASN1-Common' + #name : 'ASN1ImplicitTags', + #superclass : 'ASN1TagEnvironment', + #category : 'ASN1-Common', + #package : 'ASN1-Common' } -{ #category : #testing } +{ #category : 'testing' } ASN1ImplicitTags class >> isExplicit [ ^ false ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ImplicitTags class >> label [ ^ 'IMPLICIT' ] diff --git a/ASN1-Common/ASN1Tag.class.st b/ASN1-Common/ASN1Tag.class.st index 0ae6a98..03264a0 100644 --- a/ASN1-Common/ASN1Tag.class.st +++ b/ASN1-Common/ASN1Tag.class.st @@ -1,14 +1,15 @@ Class { - #name : #ASN1Tag, - #superclass : #Object, + #name : 'ASN1Tag', + #superclass : 'Object', #instVars : [ 'clazz', 'number' ], - #category : 'ASN1-Common' + #category : 'ASN1-Common', + #package : 'ASN1-Common' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Tag class >> classLabelOf: aNumber [ | label | label := aNumber bitAnd: 3. @@ -23,7 +24,7 @@ ASN1Tag class >> classLabelOf: aNumber [ Error signal: 'invalid tag class number' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Tag class >> classNumberOf: aString [ (aString = 'UNIVERSAL') ifTrue: [ ^ 0 ]. @@ -36,60 +37,60 @@ ASN1Tag class >> classNumberOf: aString [ Error signal: 'class identifier cannot be found' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Tag class >> clazz: aString number: aNumber [ ^ self new clazz: aString; number: aNumber ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1Tag >> = aTag [ ^ (clazz = aTag clazz) and: [ number = aTag number ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> clazz [ ^ clazz ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> clazz: anObject [ clazz := anObject ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> clazzIdentifier [ ^ self class classNumberOf: clazz ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> clazzString [ ^ clazz ifNil: [ 'CONTEXT' ] ] -{ #category : #comparing } +{ #category : 'comparing' } ASN1Tag >> hash [ ^ clazz hash bitXor: number hash ] -{ #category : #testing } +{ #category : 'testing' } ASN1Tag >> isLabelled: aString [ ^ ($: split: aString) asArray = { self clazzString . number asString } ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> number [ ^ number ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Tag >> number: anObject [ number := anObject ] -{ #category : #printing } +{ #category : 'printing' } ASN1Tag >> printOn: aStream [ aStream nextPutAll: (self clazz ifNil: [ 'CONTEXT' ]); @@ -97,7 +98,7 @@ ASN1Tag >> printOn: aStream [ nextPutAll: self number printString ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Tag >> writeOn: aStream constructed: constructed [ | byte | byte := self clazzIdentifier bitShift: 6. diff --git a/ASN1-Common/ASN1TagEnvironment.class.st b/ASN1-Common/ASN1TagEnvironment.class.st index d34bfc5..3a48f57 100644 --- a/ASN1-Common/ASN1TagEnvironment.class.st +++ b/ASN1-Common/ASN1TagEnvironment.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1TagEnvironment, - #superclass : #Object, - #category : 'ASN1-Common' + #name : 'ASN1TagEnvironment', + #superclass : 'Object', + #category : 'ASN1-Common', + #package : 'ASN1-Common' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1TagEnvironment class >> labelled: aString [ ^ self subclasses detect: [:cls| cls label = aString ] diff --git a/ASN1-Common/package.st b/ASN1-Common/package.st index cd52164..dae1feb 100644 --- a/ASN1-Common/package.st +++ b/ASN1-Common/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Common' } +Package { #name : 'ASN1-Common' } diff --git a/ASN1-Syntax/ASN1.extension.st b/ASN1-Syntax/ASN1.extension.st index 7d6d882..c131766 100644 --- a/ASN1-Syntax/ASN1.extension.st +++ b/ASN1-Syntax/ASN1.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1 } +Extension { #name : 'ASN1' } -{ #category : #'*asn1-syntax' } +{ #category : '*asn1-syntax' } ASN1 class >> parseSyntax: aStringOrStream [ ^ ASN1Syntax parse: aStringOrStream ] diff --git a/ASN1-Syntax/ASN1Configuration.class.st b/ASN1-Syntax/ASN1Configuration.class.st index a1b9050..99b37b2 100644 --- a/ASN1-Syntax/ASN1Configuration.class.st +++ b/ASN1-Syntax/ASN1Configuration.class.st @@ -1,32 +1,33 @@ Class { - #name : #ASN1Configuration, - #superclass : #Object, + #name : 'ASN1Configuration', + #superclass : 'Object', #instVars : [ 'failOnReservedWords' ], #classInstVars : [ 'default' ], - #category : 'ASN1-Syntax' + #category : 'ASN1-Syntax', + #package : 'ASN1-Syntax' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1Configuration class >> default [ ^ default ifNil: [ default := self new ] ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Configuration >> failOnReservedWords [ ^ failOnReservedWords ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Configuration >> failOnReservedWords: anObject [ failOnReservedWords := anObject ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1Configuration >> initialize [ super initialize. failOnReservedWords := true. diff --git a/ASN1-Syntax/ASN1LongestChoiceParser.class.st b/ASN1-Syntax/ASN1LongestChoiceParser.class.st index d0ff996..5020448 100644 --- a/ASN1-Syntax/ASN1LongestChoiceParser.class.st +++ b/ASN1-Syntax/ASN1LongestChoiceParser.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1LongestChoiceParser, - #superclass : #PPListParser, - #category : 'ASN1-Syntax' + #name : 'ASN1LongestChoiceParser', + #superclass : 'PPListParser', + #category : 'ASN1-Syntax', + #package : 'ASN1-Syntax' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LongestChoiceParser >> /> aRule [ ^ self copyWith: aRule ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1LongestChoiceParser >> parseOn: aStream [ | start element longestEnd longestElement | start := aStream position. diff --git a/ASN1-Syntax/ASN1Syntax.class.st b/ASN1-Syntax/ASN1Syntax.class.st index 002cd23..b214005 100644 --- a/ASN1-Syntax/ASN1Syntax.class.st +++ b/ASN1-Syntax/ASN1Syntax.class.st @@ -1,6 +1,6 @@ Class { - #name : #ASN1Syntax, - #superclass : #PPCompositeParser, + #name : 'ASN1Syntax', + #superclass : 'PPCompositeParser', #instVars : [ 'type', 'builtinType', @@ -254,10 +254,11 @@ Class { 'usefulType', 'anyType' ], - #category : 'ASN1-Syntax' + #category : 'ASN1-Syntax', + #package : 'ASN1-Syntax' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Syntax class >> abstractSyntax [ ^ 'ABSTRACT-SYNTAX ::= CLASS { @@ -269,7 +270,7 @@ ASN1Syntax class >> abstractSyntax [ [HAS PROPERTY &property] }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Syntax class >> reservedLiteralWords [ ^ #('BIT' 'BOOLEAN' 'CHARACTER' 'CHOICE' 'DATE' 'DATE-TIME' 'DURATION' 'EMBEDDED' 'END' 'ENUMERATED' 'EXTERNAL' 'FALSE' 'INSTANCE' 'INTEGER' 'INTERSECTION' 'MINUS-INFINITY' @@ -277,7 +278,7 @@ ASN1Syntax class >> reservedLiteralWords [ 'TIME' 'TIME-OF-DAY' 'TRUE' 'UNION') ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Syntax class >> reservedWords [ ^ #('ABSENT' 'ABSTRACT-SYNTAX' 'ALL' 'APPLICATION' 'AUTOMATIC' 'BEGIN' 'BIT' 'BMPString' 'BOOLEAN' 'BY' 'CHARACTER' 'CHOICE' 'CLASS' 'COMPONENT' 'COMPONENTS' 'CONSTRAINED' @@ -293,7 +294,7 @@ ASN1Syntax class >> reservedWords [ 'UTCTime' 'UTF8String' 'VideotexString' 'VisibleString' 'WITH') ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1Syntax class >> typeIdentifier [ ^ 'TYPE-IDENTIFIER ::= CLASS { @@ -304,7 +305,7 @@ ASN1Syntax class >> typeIdentifier [ ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> actualParameterList [ | actualParameter | "Spec: @@ -317,7 +318,7 @@ ASN1Syntax >> actualParameterList [ $} asParser trim ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> alternativeTypeList [ "Spec: AlternativeTypeList ::= @@ -326,14 +327,14 @@ ASN1Syntax >> alternativeTypeList [ ^ (namedType separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'x.680 grammer 1998' } +{ #category : 'x.680 grammer 1998' } ASN1Syntax >> anyType [ "spec 1994" "AnyType ::= ANY | ANY DEFINED BY identifier" ^ 'ANY' asParser trim, ('DEFINED' asParser trim, 'BY' asParser trim, identifier) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> assignedIdentifier [ "spec: AssignedIdentifier ::= @@ -343,7 +344,7 @@ ASN1Syntax >> assignedIdentifier [ ^ (objectIdentifierValue / definedValue) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> assignmentList [ "spec: AssignmentList ::= @@ -362,7 +363,7 @@ ASN1Syntax >> assignmentList [ parameterizedAssignment ) trim plus optional ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> atNotation [ "Spec: AtNotation ::= '@' ComponentIdList | '@.' Level ComponentIdList @@ -372,7 +373,7 @@ ASN1Syntax >> atNotation [ / ('@.' asParser, $. asParser star, (identifier separatedBy: $. asParser)) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> bString [ "Spec: A 'bstring' shall consist of an arbitrary number (possibly zero) of the characters: @@ -383,7 +384,7 @@ ASN1Syntax >> bString [ ($' asParser, $B asParser ) ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> bitStringType [ "Spec: BitStringType ::= @@ -395,7 +396,7 @@ ASN1Syntax >> bitStringType [ $} asParser trim) optional) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> bitStringValue [ "Spec: BitStringValue ::= @@ -410,21 +411,21 @@ ASN1Syntax >> bitStringValue [ ('CONTAINING' asParser trim, value) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> booleanType [ "Spec: BooleanType ::=BOOLEAN" ^ 'BOOLEAN' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> booleanValue [ "Spec: BooleanValue::= TRUE|FALSE" ^ ('TRUE' asParser / 'FALSE' asParser) trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> builtinType [ "Reordered parsers in way that the generic character string type is parsed at last" "BuiltinType ::= @@ -448,7 +449,7 @@ ASN1Syntax >> builtinType [ timeOfDayType ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> builtinValue [ "spec: BuiltinValue ::= @@ -467,7 +468,7 @@ ASN1Syntax >> builtinValue [ setValue setOfValue timeValue "enumeratedValue") ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> cString [ "allow any character between double quotes. Double quotes are escaped by using a double double quote" ^(($" asParser, @@ -475,7 +476,7 @@ ASN1Syntax >> cString [ $" asParser)) ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> charSyms [ "spec: CharSyms ::= @@ -484,14 +485,14 @@ ASN1Syntax >> charSyms [ ^ charsDefn separatedBy: $, asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> characterStringList [ "spec: CharacterStringList ::= '{' CharSyms '}'" ^ ${ asParser trim, charSyms, $} asParser trim ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> characterStringType [ "spec: CharacterStringType ::= @@ -501,7 +502,7 @@ ASN1Syntax >> characterStringType [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> characterStringValue [ "Spec: CharacterStringValue ::= @@ -512,7 +513,7 @@ ASN1Syntax >> characterStringValue [ ^ restrictedCharacterStringValue / sequenceValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> charsDefn [ "spec: CharsDefn ::= @@ -523,14 +524,14 @@ ASN1Syntax >> charsDefn [ ^ cString / quadruple / tuple / definedValue ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Syntax >> choiceOf: aCollection [ ^ aCollection allButFirst inject: (self perform: aCollection first) into: [: p : rule| p / (self perform: rule ) ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> choiceType [ "Spec: ChoiceType ::= CHOICE '{' AlternativeTypeLists '}' " @@ -547,7 +548,7 @@ ASN1Syntax >> choiceType [ $} asParser trim) ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> choiceValue [ "Spec: ChoiceValue ::= @@ -555,14 +556,14 @@ ASN1Syntax >> choiceValue [ ^ identifier , $: asParser trim , value ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> componentRelationConstraint [ "ComponentRelationConstraint ::= '{' DefinedObjectSet '}' '{' AtNotation ',' + '}' " ^ ${ asParser trim, definedObjectSet, $} asParser trim, ${ asParser trim, (atNotation separatedBy: $, asParser), $} asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> componentType [ "spec: ComponentType ::= @@ -576,7 +577,7 @@ ASN1Syntax >> componentType [ ('COMPONENTS OF' asParser trim, type) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> componentTypeList [ "spec: ComponentTypeList ::= @@ -585,7 +586,7 @@ ASN1Syntax >> componentTypeList [ ^ (componentType separatedBy: $, asParser asn1Token) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> componentTypeLists [ "spec: ComponentTypeLists ::= @@ -606,7 +607,7 @@ ASN1Syntax >> componentTypeLists [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> componentValueList [ "spec: ComponentValueList ::= @@ -615,7 +616,7 @@ ASN1Syntax >> componentValueList [ ^ (namedValue separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> constraint [ "Spec: Constraint ::= '(' ConstraintSpec ExceptionSpec ')' " @@ -631,14 +632,14 @@ ASN1Syntax >> constraint [ $) asParser trim ==> [:nodes| Array with: nodes second with: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> containedSubtype [ "Spec: ContainedSubtype ::= Includes Type" ^ includes, type ==> #second ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> contentsConstraint [ "Spec: ContentsConstraint ::= CONTAINING Type @@ -650,21 +651,21 @@ ASN1Syntax >> contentsConstraint [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> dateTimeType [ "Spec: DateTimeType ::= DATE-TIME" ^ 'DATE-TIME' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> dateType [ "Spec: DateType ::= DATE" ^ 'DATE' asParser trim ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> defaultSyntax [ "Spec: DefaultSyntax ::= '{' FieldSetting ',' * '}' " @@ -673,7 +674,7 @@ ASN1Syntax >> defaultSyntax [ $} asParser trim ) ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> definedObject [ "Spec: DefinedObject ::= @@ -682,7 +683,7 @@ ASN1Syntax >> definedObject [ ^ externalObjectReference / objectReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> definedObjectClass [ "Spec: DefinedObjectClass ::= @@ -695,7 +696,7 @@ ASN1Syntax >> definedObjectClass [ ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> definedObjectSet [ "Spec: DefinedObjectSet ::= @@ -704,7 +705,7 @@ ASN1Syntax >> definedObjectSet [ ^ externalObjectSetReference / objectSetReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> definedSyntax [ "Spec: DefinedSyntax ::= '{' DefinedSyntaxToken empty * '}' " @@ -713,14 +714,14 @@ ASN1Syntax >> definedSyntax [ $} asParser asn1Token ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> definedSyntaxToken [ "Spec: DefinedSyntaxToken ::= Literal | Setting" ^ (literal / setting) trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definedType [ "spec: DefinedType ::= @@ -733,7 +734,7 @@ ASN1Syntax >> definedType [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definedValue [ "spec: DefinedValue ::= @@ -743,7 +744,7 @@ ASN1Syntax >> definedValue [ ^ parameterizedValue / externalValueReference / valueReference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definitiveIdentification [ "Spec: DefinitiveIdentification ::= @@ -758,7 +759,7 @@ ASN1Syntax >> definitiveIdentification [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definitiveNameAndNumberForm [ "Spec: DefinitiveNameAndNumberForm ::= identifier '(' DefinitiveNumberForm ')' " @@ -768,7 +769,7 @@ ASN1Syntax >> definitiveNameAndNumberForm [ ==> [:nodes| Array with: nodes first with: nodes third] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definitiveObjIdComponent [ "Spec: DefinitiveObjIdComponent ::= @@ -783,7 +784,7 @@ ASN1Syntax >> definitiveObjIdComponent [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> definitiveOid [ "Spec: DefinitiveOID ::= '{' DefinitiveObjIdComponentList '}' " @@ -796,21 +797,21 @@ ASN1Syntax >> definitiveOid [ $} asParser trim) ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> durationType [ "Spec: DurationType ::= DURATION" ^ 'DURATION' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> elementSetSpec [ "Spec: ElementSetSpec ::= Unions | ALL Exclusions" ^ unions / ('ALL' asParser trim, exclusions) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> elementSetSpecs [ "Spec: ElementSetSpecs ::= @@ -824,7 +825,7 @@ ASN1Syntax >> elementSetSpecs [ ($, asParser trim, elementSetSpec) optional) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> elements [ "Spec: Elements ::= @@ -836,21 +837,21 @@ ASN1Syntax >> elements [ (( $( asParser trim, elementSetSpec, $) asParser trim ) ==> #second) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> embeddedPDVType [ "Spec: EmbeddedPDVType ::= EMBEDDED PDV" ^ 'EMBEDDED PDV' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> embeddedPdvValue [ "Spec: EmbeddedPDVValue ::= SequenceValue" ^ sequenceValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingControlSection [ "Spec: EncodingControlSection ::= @@ -865,7 +866,7 @@ ASN1Syntax >> encodingControlSection [ encodingInstructionsAssignmentList ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingControlSections [ "Spec: EncodingControlSections ::= @@ -875,14 +876,14 @@ ASN1Syntax >> encodingControlSections [ ^ (encodingControlSection separatedBy: $, asParser trim) withoutSeparators optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingInstructionsAssignmentList [ self flag: #incomplete. self flag: #nottested. ^ 'encodingInstructionsAssignmentList' asParser star ==> [:n| n ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingPrefixedType [ "spec: EncodingPrefixedType ::= @@ -897,7 +898,7 @@ ASN1Syntax >> encodingPrefixedType [ $] asParser) , type ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingReference [ "spec: EncodingReference ::= @@ -913,7 +914,7 @@ ASN1Syntax >> encodingReference [ )) flatten), $: asParser) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> encodingReferenceDefault [ "Spec: EncodingReferenceDefault ::= @@ -922,7 +923,7 @@ ASN1Syntax >> encodingReferenceDefault [ ^ (encodingReference , 'INSTRUCTIONS' asParser trim) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> enumeratedType [ "Spec: EnumeratedType ::= ENUMERATED '{' Enumerations '}' " @@ -930,14 +931,14 @@ ASN1Syntax >> enumeratedType [ ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> enumeratedValue [ "Spec: EnumeratedValue ::= identifier" ^ identifier ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> enumeration [ "Spec: Enumeration ::= @@ -950,7 +951,7 @@ ASN1Syntax >> enumeration [ ^ ((namedNumber / identifier) separatedBy: $, asParser asn1Token) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> enumerations [ "Spec: Enumerations ::= @@ -968,7 +969,7 @@ ASN1Syntax >> enumerations [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> exceptionIdentification [ "spec: ExceptionIdentification ::= @@ -978,7 +979,7 @@ ASN1Syntax >> exceptionIdentification [ ^ signedNumber / definedValue / ( type , $: asParser, value) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> exceptionSpec [ "spec: ExceptionSpec ::= '!' ExceptionIdentification | empty" @@ -986,14 +987,14 @@ ASN1Syntax >> exceptionSpec [ ^ ('!' asParser trim, exceptionIdentification) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> exclusions [ "Spec: Exclusions ::= EXCEPT Elements" ^ 'EXCEPT' asParser trim, elements ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> exports [ "spec: Exports ::= @@ -1009,7 +1010,7 @@ ASN1Syntax >> exports [ nodes ifNotNil: [ nodes second ] ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAddition [ "spec: ExtensionAddition ::= @@ -1018,7 +1019,7 @@ ASN1Syntax >> extensionAddition [ ^ componentType / extensionAdditionGroup ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionAlternative [ "Spec: ExtensionAdditionAlternative ::= @@ -1027,7 +1028,7 @@ ASN1Syntax >> extensionAdditionAlternative [ ^ extensionAdditionAlternativesGroup / namedType ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionAlternatives [ "Spec: ExtensionAdditionAlternatives ::= @@ -1036,7 +1037,7 @@ ASN1Syntax >> extensionAdditionAlternatives [ ^ ($, asParser trim, extensionAdditionAlternativesList ) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionAlternativesGroup [ "Spec: ExtensionAdditionAlternativesGroup ::= @@ -1046,7 +1047,7 @@ ASN1Syntax >> extensionAdditionAlternativesGroup [ alternativeTypeList, ']]' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionAlternativesList [ "Spec: ExtensionAdditionAlternativesList ::= @@ -1055,7 +1056,7 @@ ASN1Syntax >> extensionAdditionAlternativesList [ ^(extensionAdditionAlternative separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionGroup [ "spec: ExtensionAdditionGroup ::= '[[' VersionNumber ComponentTypeList ']]'" @@ -1065,7 +1066,7 @@ ASN1Syntax >> extensionAdditionGroup [ ']]' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditionList [ "spec: ExtensionAdditionList ::= @@ -1074,7 +1075,7 @@ ASN1Syntax >> extensionAdditionList [ ^ (extensionAddition separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAdditions [ "spec: ExtensionAdditions ::= @@ -1084,14 +1085,14 @@ ASN1Syntax >> extensionAdditions [ nodes ifNotNil: [ nodes second ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionAndException [ "spec: ExtensionAndException ::= '...' | '...' ExceptionSpec" ^ '...' asParser asn1Token, (exceptionSpec optional) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionDefault [ "Spec: ExtensionDefault ::= @@ -1100,21 +1101,21 @@ ASN1Syntax >> extensionDefault [ ^ ('EXTENSIBILITY IMPLIED' asParser trim) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> extensionEndMarker [ "spec: ExtensionEndMarker ::= ',' '..'" ^ $, asParser trim, '...' asParser trim ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> externalObjectClassReference [ "Spec: ExternalObjectClassReference ::= modulereference '.' objectclassreference" ^ moduleReference, $. asParser, objectClassReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> externalObjectReference [ "Spec: ExternalObjectReference ::= @@ -1122,21 +1123,21 @@ ASN1Syntax >> externalObjectReference [ ^ moduleReference, $. asParser, objectReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> externalObjectSetReference [ "Spec: ExternalObjectSetReference ::= modulereference '.' objectsetreference" ^ moduleReference, $. asParser, objectSetReference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> externalType [ "Spec: ExternalType ::= EXTERNAL" ^ 'EXTERNAL' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> externalTypeReference [ "spec: ExternalTypeReference ::= @@ -1146,14 +1147,14 @@ ASN1Syntax >> externalTypeReference [ ^ moduleReference , $. asParser, typeReference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> externalValue [ "Spec: ExternalValue ::= SequenceValue" ^ sequenceValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> externalValueReference [ "spec: ExternalValueReference ::= @@ -1163,7 +1164,7 @@ ASN1Syntax >> externalValueReference [ ^ moduleReference , $. asParser, valueReference ] -{ #category : #actions } +{ #category : 'actions' } ASN1Syntax >> failOnReservedLiteralWords: aParser [ ^ aParser >=> [:stream :cc| | string position | position := stream position. @@ -1175,7 +1176,7 @@ ASN1Syntax >> failOnReservedLiteralWords: aParser [ ifFalse: [ string]] ] -{ #category : #actions } +{ #category : 'actions' } ASN1Syntax >> failOnReservedWords: aParser [ ^ ASN1Configuration default failOnReservedWords ifTrue: [ @@ -1190,14 +1191,14 @@ ASN1Syntax >> failOnReservedWords: aParser [ ifFalse: [ aParser ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> fieldName [ "Spec: FieldName ::= PrimitiveFieldName '.' +" ^ (primitiveFieldName separatedBy: $. asParser) withoutSeparators ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> fieldSetting [ "Spec: FieldSetting ::= @@ -1205,7 +1206,7 @@ ASN1Syntax >> fieldSetting [ ^ primitiveFieldName trim, setting ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> fieldSpec [ "Spec: FieldSpec ::= @@ -1222,21 +1223,21 @@ ASN1Syntax >> fieldSpec [ typeFieldSpec ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> fixedTypeValueFieldSpec [ "Spec: FixedTypeValueFieldSpec ::= valuefieldreference Type UNIQUE ? ValueOptionalitySpec ?" ^ valueFieldReference, type trim, 'UNIQUE' asParser optional trim, valueOptionalitySpec optional trim ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> fixedTypeValueSetFieldSpec [ "Spec: FixedTypeValueSetFieldSpec ::= valuesetfieldreference Type ValueSetOptionalitySpec ?" ^ valueSetFieldReference, type trim, valueSetOptionalitySpec optional trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> fullSpecification [ "Spec: FullSpecification ::= '{' TypeConstraints '}' " @@ -1245,14 +1246,14 @@ ASN1Syntax >> fullSpecification [ $} asParser trim) ==> #second ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> generalConstraint [ "Spec: GeneralConstraint ::= UserDefinedConstraint | TableConstraint | ContentsConstraint" ^ userDefinedConstraint / tableConstraint / contentsConstraint ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> globalModuleReference [ "spec: GlobalModuleReference ::= @@ -1260,14 +1261,14 @@ ASN1Syntax >> globalModuleReference [ ^ (moduleReference trim, assignedIdentifier) ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> governor [ "Spec: Governor ::= Type | DefinedObjectClass" ^ type / definedObjectClass ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> hString [ "Spec: An 'hstring' shall consist of an arbitrary number (possibly zero) of the characters: @@ -1278,7 +1279,7 @@ ASN1Syntax >> hString [ ($' asParser, $H asParser) trim ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> identifier [ "spec: An 'identifier' shall consist of an arbitrary number (one or more) of letters, digits, @@ -1290,7 +1291,7 @@ ASN1Syntax >> identifier [ )) flatten asn1Token ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> identifierList [ "Spec: IdentifierList ::= @@ -1299,7 +1300,7 @@ ASN1Syntax >> identifierList [ ^ (identifier separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> imports [ "spec: Imports ::= @@ -1318,14 +1319,14 @@ ASN1Syntax >> imports [ $; asParser asn1Token) optional ==> [:nodes| nodes ifNotNil: [ nodes second ]] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> includes [ "Spec: Includes ::= INCLUDES | empty" ^ 'INCLUDES' asParser trim optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> innerTypeConstraints [ "Spec: InnerTypeConstraints ::= @@ -1336,20 +1337,20 @@ ASN1Syntax >> innerTypeConstraints [ ^ 'WITH COMPONENTS' asParser trim, (multipleTypeConstraint / constraint ) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> instanceOfType [ "Spec: InstanceOfType ::= INSTANCE OF DefinedObjectClass" ^ 'INSTANCE OF' asParser trim, definedObjectClass ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> instanceOfValue [ self flag: #notimplemented. ^ 'INSTANCE OF NOT FOUND' asParser ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> integerType [ "spec: IntegerType ::= @@ -1363,14 +1364,14 @@ ASN1Syntax >> integerType [ ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> integerUnicodeLabel [ self flag: #incomplete. self flag: #nottested. ^ #digit asParser optional ==> [:n| self notYetImplemented ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> integerValue [ "Spec: IntegerValue ::= @@ -1380,7 +1381,7 @@ ASN1Syntax >> integerValue [ / identifier trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> intersections [ "Spec: Intersections ::= @@ -1398,7 +1399,7 @@ ASN1Syntax >> intersections [ ^ ((elements, exclusions optional) separatedBy: ( $^ asParser trim / 'INTERSECTION' asParser trim)) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> iriType [ "Spec: IRIType ::= OID-IRI" @@ -1406,7 +1407,7 @@ ASN1Syntax >> iriType [ ^ 'OID-IRI' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> iriValue [ "Spec: IRIValue ::= '""' @@ -1424,7 +1425,7 @@ ASN1Syntax >> iriValue [ $" asParser trim ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> literal [ "Spec: Literal ::= word | @@ -1439,7 +1440,7 @@ ASN1Syntax >> literal [ / ',' asParser) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> lowerEndPoint [ "Spec: LowerEndpoint ::= LowerEndValue | LowerEndValue '<' " @@ -1448,7 +1449,7 @@ ASN1Syntax >> lowerEndPoint [ ^ (value / 'MIN' asParser trim), $< asParser trim optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> moduleBody [ "spec: ModuleBody ::= @@ -1457,7 +1458,7 @@ ASN1Syntax >> moduleBody [ ^ exports, imports, assignmentList ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> moduleDefinition [ "Spec: ModuleDefinition ::= @@ -1482,7 +1483,7 @@ ASN1Syntax >> moduleDefinition [ Array with: n first with: n third with: n fourth with: n fifth with: n eighth with: n ninth ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> moduleIdentifier [ "Spec: ModuleIdentifier ::= @@ -1490,13 +1491,13 @@ ASN1Syntax >> moduleIdentifier [ ^ moduleReference asn1Token, definitiveIdentification ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> moduleReference [ "spec says it is the same as type reference. Difference is in the used context" ^ typeReference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> multipleTypeConstraint [ "Spec: MultipleTypeConstraints ::= @@ -1505,7 +1506,7 @@ ASN1Syntax >> multipleTypeConstraint [ ^ fullSpecification / partialSpecification ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> nameAndNumberForm [ "spec: NameAndNumberForm ::= identifier '(' NumberForm ')'" @@ -1513,7 +1514,7 @@ ASN1Syntax >> nameAndNumberForm [ ==> [:nodes| Array with: nodes first with: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedBit [ "Spec: NamedBit ::= @@ -1525,7 +1526,7 @@ ASN1Syntax >> namedBit [ $) asParser trim) ==> [:nodes| Array with: nodes first with: nodes third] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedBitList [ "Spec: NamedBitList ::= @@ -1534,7 +1535,7 @@ ASN1Syntax >> namedBitList [ ^ (namedBit separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedConstraint [ "Spec: NamedConstraint ::= identifier ComponentConstraint" @@ -1545,7 +1546,7 @@ ASN1Syntax >> namedConstraint [ ^ identifier, (constraint optional, presenceConstraint) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedNumber [ "spec: NamedNumber ::= @@ -1555,7 +1556,7 @@ ASN1Syntax >> namedNumber [ ==> [:nodes| Array with: nodes first with: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedNumberList [ "spec: NamedNumberList ::= @@ -1564,21 +1565,21 @@ ASN1Syntax >> namedNumberList [ ^ (namedNumber separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedType [ "spec: NamedType ::= identifier Type" ^ identifier, type ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedValue [ "spec: NamedValue ::= identifier Value" ^ identifier , value ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> namedValueList [ "spec: NamedValueList ::= @@ -1587,19 +1588,19 @@ ASN1Syntax >> namedValueList [ ^ (namedValue separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> nonIntegerUnicodeLabel [ self flag: #incomplete. ^ 'imnotparable' asParser optional ==> [:n| self notYetImplemented ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> nullType [ "Spec: NullType ::= NULL" ^ 'NULL' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> nullValue [ "Spec: NullValue ::= NULL" @@ -1607,19 +1608,19 @@ ASN1Syntax >> nullValue [ ^ 'NULL' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> number [ ^ #digit asParser plus flatten ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> numberForm [ "spec: NumberForm ::= number | DefinedValue" ^ (number / definedValue) flatten trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> numericRealValue [ "Spec: NumericRealValue ::= @@ -1631,7 +1632,7 @@ ASN1Syntax >> numericRealValue [ sequenceValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> objIdComponents [ "spec: ObjIdComponents ::= @@ -1644,7 +1645,7 @@ ASN1Syntax >> objIdComponents [ ^ nameAndNumberForm / identifier / numberForm / definedValue ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> object [ "Spec: Object ::= @@ -1655,7 +1656,7 @@ ASN1Syntax >> object [ ^ parameterizedObject / objectDefn / objectFromObject / definedObject ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectAssignment [ "Spec: ObjectAssignment ::= objectreference DefinedObjectClass '::=' Object" @@ -1663,21 +1664,21 @@ ASN1Syntax >> objectAssignment [ '::=' asParser trim, object ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectClass [ "Spec: ObjectClass ::= DefinedObjectClass | ObjectClassDefn | ParameterizedObjectClass" ^ objectClassDefn / definedObjectClass / parameterizedObjectClass ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectClassAssignment [ "Spec: ObjectClassAssignment ::= objectclassreference '::=' ObjectClass " ^ objectClassReference , '::=' asParser trim, objectClass ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectClassDefn [ "Spec: ObjectClassDefn ::= CLASS '{' FieldSpec ',' + '}' WithSyntaxSpec?" @@ -1688,14 +1689,14 @@ ASN1Syntax >> objectClassDefn [ withSyntaxSpec optional trim) ==> [:nodes| Array with: nodes third with: nodes fifth ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectClassFieldType [ "Spec: ObjectClassFieldType ::= DefinedObjectClass '.' FieldName" ^ definedObjectClass, $. asParser, fieldName ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectClassReference [ "spec: An 'objectclassreference' shall consist of a sequence of characters as @@ -1705,7 +1706,7 @@ ASN1Syntax >> objectClassReference [ (#uppercase asParser plus separatedBy: $- asParser), (#lowercase asParser not)) asn1Token ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectDefn [ "Spec: ObjectDefn ::= @@ -1714,7 +1715,7 @@ ASN1Syntax >> objectDefn [ ^ defaultSyntax / definedSyntax ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectFieldReference [ "Spec: An 'objectfieldreference' shall consist of an ampersand ('&') immediately followed by a sequence of @@ -1722,21 +1723,21 @@ ASN1Syntax >> objectFieldReference [ ^ $& asParser, objectReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectFieldSpec [ "Spec: ObjectFieldSpec ::= objectfieldreference DefinedObjectClass ObjectOptionalitySpec?" ^ objectFieldReference trim, definedObjectClass, objectOptionalitySpec optional ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectFromObject [ "Spec: ObjectFromObject ::= ReferencedObjects '.' FieldName" ^ referencedObjects, $. asParser, fieldName ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> objectIdentifierType [ "Spec: ObjectIdentifierType ::= @@ -1744,7 +1745,7 @@ ASN1Syntax >> objectIdentifierType [ ^ 'OBJECT IDENTIFIER' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> objectIdentifierValue [ "spec: ObjectIdentifierValue ::= @@ -1760,14 +1761,14 @@ ASN1Syntax >> objectIdentifierValue [ $} asParser trim ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectOptionalitySpec [ "Spec: ObjectOptionalitySpec ::= OPTIONAL | DEFAULT Object" ^ 'OPTIONAL' asParser trim / ('DEFAULT' asParser trim , object) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectReference [ "spec: An 'objectreference' shall consist of a sequence of characters as @@ -1775,7 +1776,7 @@ ASN1Syntax >> objectReference [ ^ valueReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSet [ "Spec: ObjectSet ::= '{' ObjectSetSpec '}' " @@ -1784,7 +1785,7 @@ ASN1Syntax >> objectSet [ $} asParser asn1Token ==> [:nodes| nodes second ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetAssignment [ "Spec: ObjectSetAssignment ::= objectsetreference DefinedObjectClass '::=' ObjectSet" @@ -1792,7 +1793,7 @@ ASN1Syntax >> objectSetAssignment [ ==> [:nodes| Array with: nodes first with: nodes second with: nodes fourth ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetElements [ "Spec: ObjectSetElements ::= @@ -1803,7 +1804,7 @@ ASN1Syntax >> objectSetElements [ ^ object / parameterizedObjectSet / definedObjectSet / objectSetFromObjects ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetFieldReference [ "Spec: An objectsetfieldreference shall consist of an ampersand (&) immediately followed by a sequence of @@ -1811,28 +1812,28 @@ ASN1Syntax >> objectSetFieldReference [ ^ $& asParser, objectSetReference ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetFieldSpec [ "Spec: ObjectSetFieldSpec ::= objectsetfieldreference DefinedObjectClass ObjectSetOptionalitySpec ?" ^ (objectSetFieldReference, definedObjectClass, objectSetOptionality optional) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetFromObjects [ "Spec: ObjectSetFromObjects ::= ReferencedObjects '.' FieldName" ^ referencedObjects, $. asParser, fieldName ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetOptionality [ "Spec: ObjectSetOptionalitySpec ::= OPTIONAL | DEFAULT ObjectSet" ^ 'OPTIONAL' asParser trim / ('DEFAULT' asParser trim, objectSet) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetReference [ "spec: An 'objectsetreference' shall consist of a sequence of characters as @@ -1840,7 +1841,7 @@ ASN1Syntax >> objectSetReference [ ^ typeReferenceToken ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> objectSetSpec [ "Spec: ObjectSetSpec ::= @@ -1867,14 +1868,14 @@ ASN1Syntax >> objectSetSpec [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> octetStringType [ "Spec: OctetStringType ::= OCTET STRING" ^ 'OCTET STRING' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> octetStringValue [ "Spec: OctetStringValue ::= @@ -1884,14 +1885,14 @@ ASN1Syntax >> octetStringValue [ ^ bString / hString / ('CONTAINING' asParser trim, value) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> openTypeFieldVal [ "Spec: OpenTypeFieldVal ::= Type ':' Value" ^ type, $: asParser, value ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> optionalExtensionMarker [ "spec: OptionalExtensionMarker ::= ',' '...' | empty" @@ -1899,14 +1900,14 @@ ASN1Syntax >> optionalExtensionMarker [ nodes second ]) optional ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> optionalGroup [ "Spec: OptionalGroup ::= '[' TokenOrGroupSpec empty + ']' " ^ ($[ asParser trim, tokenOrGroupSpec trim plus, $] asParser trim) ==> #second ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> paramGovernor [ "Spec: ParamGovernor ::= Governor | DummyGovernor" @@ -1917,7 +1918,7 @@ ASN1Syntax >> paramGovernor [ ^ governor / reference ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameter [ "Spec: Parameter ::= ParamGovernor ':' DummyReference | DummyReference" @@ -1926,7 +1927,7 @@ ASN1Syntax >> parameter [ ^ (paramGovernor, $: asParser) optional, reference ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterList [ "Spec: ParameterList ::= '{' Parameter ',' + '}' " @@ -1935,7 +1936,7 @@ ASN1Syntax >> parameterList [ $} asParser asn1Token ==> #second ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedAssignment [ "Spec: ParameterizedAssignment ::= @@ -1953,7 +1954,7 @@ ASN1Syntax >> parameterizedAssignment [ parameterizedObjectSetAssignment ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObject [ "Spec: ParameterizedObject ::= @@ -1961,7 +1962,7 @@ ASN1Syntax >> parameterizedObject [ ^ definedObject, actualParameterList ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObjectAssignment [ "Spec: ParameterizedObjectAssignment ::= @@ -1969,7 +1970,7 @@ ASN1Syntax >> parameterizedObjectAssignment [ ^ objectReference, parameterList trim, definedObjectClass, '::=' asParser trim, object ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObjectClass [ "Spec: ParameterizedObjectClass ::= @@ -1977,21 +1978,21 @@ ASN1Syntax >> parameterizedObjectClass [ ^definedObjectClass, actualParameterList ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObjectClassAssignment [ "Spec: ParameterizedObjectClassAssignment ::= objectclassreference ParameterList '::=' ObjectClass" ^ objectClassReference, parameterList trim, '::=' asParser trim, objectClass ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObjectSet [ "Spec: ParameterizedObjectSet ::= DefinedObjectSet ActualParameterList" ^ definedObjectSet trim, actualParameterList ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedObjectSetAssignment [ "Spec: ParameterizedObjectSetAssignment ::= @@ -1999,7 +2000,7 @@ ASN1Syntax >> parameterizedObjectSetAssignment [ ^ objectSetReference, parameterList trim, definedObjectClass, '::=' asParser trim, objectSet ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedReference [ "Spec: ParameterizedReference ::= @@ -2008,14 +2009,14 @@ ASN1Syntax >> parameterizedReference [ ^ reference, (${ asParser trim, $} asParser trim) optional ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedType [ "Spec: ParameterizedType ::= SimpleDefinedType ActualParameterList" ^ simpleDefinedType, actualParameterList ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedTypeAssignment [ "Spec: ParameterizedTypeAssignment ::= @@ -2023,49 +2024,49 @@ ASN1Syntax >> parameterizedTypeAssignment [ ^ typeReferenceToken, parameterList , '::=' asParser trim, type ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedValue [ "Spec: ParameterizedValue ::= SimpleDefinedValue ActualParameterList" ^ simpleDefinedValue, actualParameterList ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedValueAssignment [ "Spec: ParameterizedValueAssignment ::= valuereference ParameterList Type '::=' Value" ^ valueReference trim, parameterList trim, type, '::=' asParser trim, value ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedValueSetType [ "Spec: ParameterizedValueSetType ::= SimpleDefinedType ActualParameterList" ^ simpleDefinedType, actualParameterList trim ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> parameterizedValueSetTypeAssignment [ "Spec: ParameterizedValueSetTypeAssignment ::= typereference ParameterList Type '::=' ValueSet" ^ typeReferenceToken, parameterList trim, type, '::=' asParser trim, valueSet ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> partialSpecification [ "Spec: PartialSpecification ::= '{' '...' ',' TypeConstraints '}' " ^ ${ asParser trim, '...' asParser trim, $, asParser trim, typeConstraints, $} asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> patternConstraint [ "Spec: PatternConstraint ::= PATTERN Value" ^ 'PATTERN' asParser trim, value ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> prefixedType [ "spec: PrefixedType ::= @@ -2075,14 +2076,14 @@ ASN1Syntax >> prefixedType [ ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> presenceConstraint [ "Spec: PresenceConstraint ::=PRESENT|ABSENT|OPTIONAL|empty" ^ ( 'PRESENT' asParser / 'ABSENT' asParser / 'OPTIONAL' asParser) trim optional ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> primitiveFieldName [ "Spec: PrimitiveFieldName ::= @@ -2094,7 +2095,7 @@ ASN1Syntax >> primitiveFieldName [ ^ typeFieldReference / valueFieldReference / valueSetFieldReference / objectFieldReference / objectSetFieldReference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> propertySettings [ "Spec: PropertySettings ::= SETTINGS simplestring" @@ -2108,7 +2109,7 @@ ASN1Syntax >> propertySettings [ ^ 'SETTINGS' asParser trim, cString ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> quadruple [ "spec: Quadruple ::= '{' Group ',' Plane ',' Row ',' Cell '}'" "spec: Group ::= number" @@ -2123,7 +2124,7 @@ ASN1Syntax >> quadruple [ $} asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> realNumber [ "Spec: A 'realnumber' shall consist of an integer part that is a series of one or more digits, and optionally @@ -2136,14 +2137,14 @@ ASN1Syntax >> realNumber [ (($e asParser / $E asParser), signedNumber) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> realType [ "Spec: RealType ::= REAL" ^ 'REAL' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> realValue [ "Spec: RealValue ::= @@ -2152,7 +2153,7 @@ ASN1Syntax >> realValue [ ^ numericRealValue / specialRealValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> reference [ "spec: Reference ::= @@ -2165,7 +2166,7 @@ ASN1Syntax >> reference [ objectClassReference / objectReference / objectSetReference ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> referencedObjects [ "Spec: ReferencedObjects ::= @@ -2176,7 +2177,7 @@ ASN1Syntax >> referencedObjects [ ^ parameterizedObject / parameterizedObjectSet / definedObject / definedObjectSet ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> referencedType [ "spec: ReferencedType ::= @@ -2188,7 +2189,7 @@ ASN1Syntax >> referencedType [ ^ selectionType / typeFromObject / valueSetFromObjects / definedType / usefulType ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> referencedValue [ "spec: ReferencedValue ::= @@ -2197,21 +2198,21 @@ ASN1Syntax >> referencedValue [ ^ valueFromObject / definedValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> relativeIriType [ "Spec: RelativeIRIType ::= RELATIVE-OID-IRI" ^ 'RELATIVE-OID-IRI' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> relativeIriValue [ "Spec: RelativeIRIType ::= RELATIVE-OID-IRI" ^ 'RELATIVE-OID-IRI' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> relativeOidComponents [ "Spec: RelativeOIDComponents ::= @@ -2221,14 +2222,14 @@ ASN1Syntax >> relativeOidComponents [ ^ nameAndNumberForm / numberForm / definedValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> relativeOidType [ "Spec: RelativeOIDType ::= RELATIVE-OID" ^ 'RELATIVE-OID' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> relativeOidValue [ "Spec: RelativeOIDValue ::= '{' RelativeOIDComponentsList '}'" @@ -2241,19 +2242,19 @@ ASN1Syntax >> relativeOidValue [ $} asParser trim) ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> requiredToken [ "Spec: RequiredToken ::= Literal | PrimitiveFieldName" ^ literal / primitiveFieldName ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> reservedWords [ ^ (PPChoiceParser new setParsers: (self class reservedWords collect: [:each| each asParser])) trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> restrictedCharacterStringType [ "spec: RestrictedCharacterStringType ::= @@ -2268,7 +2269,7 @@ ASN1Syntax >> restrictedCharacterStringType [ 'VideotexString' asParser / 'VisibleString' asParser) asn1Token ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> restrictedCharacterStringValue [ "Spec: RestrictedCharacterStringValue ::= @@ -2279,21 +2280,21 @@ ASN1Syntax >> restrictedCharacterStringValue [ ^ cString / characterStringList / quadruple / tuple ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> selectionType [ "Spec: SelectionType ::= identifier '<' Type" ^ identifier, $< asParser trim, type ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> sequenceOfType [ "spec: SequenceOfType ::= SEQUENCE OF Type | SEQUENCE OF NamedType" ^ 'SEQUENCE' asParser trim, 'OF' asParser trim, (type / namedType) ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> sequenceOfValue [ "Spec: SequenceOfValue ::= @@ -2305,7 +2306,7 @@ ASN1Syntax >> sequenceOfValue [ $} asParser trim ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> sequenceType [ "spec: SequenceType ::= @@ -2320,7 +2321,7 @@ ASN1Syntax >> sequenceType [ $} asParser asn1Token ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> sequenceValue [ "Spec: SequenceValue ::= @@ -2331,7 +2332,7 @@ ASN1Syntax >> sequenceValue [ $} asParser trim) ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> setOfType [ "Spec: SetOfType ::= @@ -2340,7 +2341,7 @@ ASN1Syntax >> setOfType [ ^ 'SET' asParser trim, 'OF' asParser trim, (type / namedType) ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> setOfValue [ "Spec: SetOfValue ::= @@ -2352,7 +2353,7 @@ ASN1Syntax >> setOfValue [ $} asParser trim ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> setType [ "spec: SetType ::= @@ -2366,7 +2367,7 @@ ASN1Syntax >> setType [ $} asParser trim ==> #third ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> setValue [ "spec: SetValue ::= @@ -2377,7 +2378,7 @@ ASN1Syntax >> setValue [ $} asParser ==> #second ] -{ #category : #grammar } +{ #category : 'grammar' } ASN1Syntax >> setting [ "Spec: Setting ::= @@ -2385,7 +2386,7 @@ ASN1Syntax >> setting [ ^ type / valueSet / objectSet / value / object ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> signedNumber [ "spec: SignedNumber ::= @@ -2394,27 +2395,27 @@ ASN1Syntax >> signedNumber [ ^ $- asParser optional, number ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> simpleDefinedType [ "Spec: SimpleDefinedType ::= ExternalTypeReference | typereference" ^ externalTypeReference / typeReferenceToken ] -{ #category : #'X.683 grammar' } +{ #category : 'X.683 grammar' } ASN1Syntax >> simpleDefinedValue [ "Spec: SimpleDefinedValue ::= ExternalValueReference | valuereference" ^ externalValueReference / valueReference ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> sizeConstraint [ "Spec: SizeConstraint ::= SIZE Constraint" ^ 'SIZE' asParser asn1Token, constraint ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> specialRealValue [ "Spec: SpecialRealValue ::= @@ -2426,12 +2427,12 @@ ASN1Syntax >> specialRealValue [ 'NOT-A-NUMBER' asParser trim ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Syntax >> start [ ^ moduleDefinition end ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> subTypeElements [ | permittedAlphabet | "Spec: @@ -2452,7 +2453,7 @@ ASN1Syntax >> subTypeElements [ valueRange "durationRange" / valueRange "timePointRange" / valueRange "recurrenceRange" / value "singleValue" / type "typeConstraint" ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> symbol [ "spec: Symbol ::= @@ -2461,7 +2462,7 @@ ASN1Syntax >> symbol [ ^ parameterizedReference / reference ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> symbolList [ "spec: SymbolList ::= @@ -2470,7 +2471,7 @@ ASN1Syntax >> symbolList [ ^ (symbol separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> symbolsFromModule [ "spec: SymbolsFromModule ::= @@ -2479,7 +2480,7 @@ ASN1Syntax >> symbolsFromModule [ ==> [:nodes| Array with: nodes first with: nodes third] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> syntaxList [ "Spec: SyntaxList ::= '{' TokenOrGroupSpec empty + '}'" @@ -2487,7 +2488,7 @@ ASN1Syntax >> syntaxList [ ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tString [ "Spec: A 'tstring' shall consist of one or more of the characters: @@ -2500,7 +2501,7 @@ ASN1Syntax >> tString [ $" asParser ==> #second ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> tableConstraint [ "Spec: TableConstraint ::= SimpleTableConstraint | ComponentRelationConstraint @@ -2508,7 +2509,7 @@ ASN1Syntax >> tableConstraint [ ^ componentRelationConstraint / objectSet ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tag [ "spec: Tag ::= '[' EncodingReference Class ClassNumber ']' " @@ -2519,7 +2520,7 @@ ASN1Syntax >> tag [ $] asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tagClass [ "spec: Class ::= @@ -2530,7 +2531,7 @@ ASN1Syntax >> tagClass [ ^ ('UNIVERSAL' asParser / 'APPLICATION' asParser / 'PRIVATE' asParser) optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tagDefault [ "Spec: TagDefault ::= @@ -2541,7 +2542,7 @@ ASN1Syntax >> tagDefault [ ^ ('EXPLICIT TAGS' asParser / 'IMPLICIT TAGS' asParser / 'AUTOMATIC TAGS' asParser ) trim optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tagNumber [ "spec: ClassNumber ::= @@ -2550,7 +2551,7 @@ ASN1Syntax >> tagNumber [ ^ number / definedValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> taggedType [ "spec: TaggedType ::= @@ -2562,35 +2563,35 @@ ASN1Syntax >> taggedType [ type ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> timeOfDayType [ "Spec: TimeOfDayType ::= TIME-OF-DAY" ^ 'TIME-OF-DAY' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> timeType [ "Spec: TimeType ::= TIME" ^ 'TIME' asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> timeValue [ "Spec: TimeValue ::= tstring." ^ tString ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> tokenOrGroupSpec [ "Spec: TokenOrGroupSpec ::= RequiredToken | OptionalGroup" ^ requiredToken / optionalGroup ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> tuple [ "spec: Tuple ::= '{' TableColumns ',' TableRow '}' " @@ -2599,7 +2600,7 @@ ASN1Syntax >> tuple [ ^ ${ asParser trim, number, $, asParser trim, number, $} asParser trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> type [ "spec: Type ::= BuiltinType | ReferencedType | ConstrainedType @@ -2610,7 +2611,7 @@ ASN1Syntax >> type [ ^ (typeWithConstraint / builtinType / anyType / referencedType ) , (constraint star) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeAssignment [ "spec: TypeAssignment ::= @@ -2620,7 +2621,7 @@ ASN1Syntax >> typeAssignment [ ^ typeReferenceToken, '::=' asParser trim , type ==> [:nodes| Array with: nodes first with: nodes third ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeConstraints [ "Spec: TypeConstraints ::= @@ -2629,7 +2630,7 @@ ASN1Syntax >> typeConstraints [ ^ (namedConstraint separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> typeFieldReference [ "Spec: A 'typefieldreference' shall consist of an ampersand ('&') immediately followed by a sequence of @@ -2637,33 +2638,33 @@ ASN1Syntax >> typeFieldReference [ ^ $& asParser, typeReference ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> typeFieldSpec [ "Spec: TypeFieldSpec ::= typefieldreference TypeOptionalitySpec?" ^ (typeFieldReference, typeOptionalitySpec optional) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeFromObject [ "SPec: TypeFromObject ::= ReferencedObjects '.' FieldName" ^ referencedObjects, $. asParser, fieldName ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> typeOptionalitySpec [ "Spec: TypeOptionalitySpec ::= OPTIONAL | DEFAULT Type" ^ 'OPTIONAL' asParser trim / ('DEFAULT' asParser trim, type) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeReference [ ^self typeReferenceRule ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeReferenceRule [ "spec: 12.2.1 A 'typereference' shall consist of an arbitrary number (one or more) of letters, @@ -2674,12 +2675,12 @@ ASN1Syntax >> typeReferenceRule [ )) flatten ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeReferenceToken [ ^ self typeReferenceRule asn1Token ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> typeWithConstraint [ "Spec: TypeWithConstraint ::= @@ -2699,7 +2700,7 @@ ASN1Syntax >> typeWithConstraint [ (namedType / type) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> unions [ "Spec: Unions ::= @@ -2711,7 +2712,7 @@ ASN1Syntax >> unions [ ^ (intersections separatedBy: (($| asParser / 'UNION' asParser) asn1Token )) withoutSeparators ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> upperEndPoint [ "Spec: UpperEndpoint ::= UpperEndValue | '<' UpperEndValue" @@ -2720,7 +2721,7 @@ ASN1Syntax >> upperEndPoint [ ^ $< asParser trim optional, (value / 'MAX' asParser trim) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> usefulObjectClassReference [ "Spec: UsefulObjectClassReference ::= @@ -2729,14 +2730,14 @@ ASN1Syntax >> usefulObjectClassReference [ ^ ('TYPE-IDENTIFIER' asParser / 'ABSTRACT-SYNTAX' asParser) trim ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> usefulType [ "spec: UsefulType ::= typereference" "Usefultypes are further specified as the following types" ^ 'GeneralizedTime' asParser / 'UTCTime' asParser / 'ObjectDescriptior' asParser ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> userDefinedConstraint [ "Spec: UserDefinedConstraint ::= CONSTRAINED BY '{' UserDefinedConstraintParameter ',' * '}' " @@ -2746,7 +2747,7 @@ ASN1Syntax >> userDefinedConstraint [ $} asParser asn1Token trim ] -{ #category : #'X.682 grammar' } +{ #category : 'X.682 grammar' } ASN1Syntax >> userDefinedConstraintParameter [ "Spec: UserDefinedConstraintParameter ::= Governor ':' Value @@ -2760,7 +2761,7 @@ ASN1Syntax >> userDefinedConstraintParameter [ / definedObjectClass ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> value [ "spec: Value ::= @@ -2775,7 +2776,7 @@ ASN1Syntax >> value [ ^ openTypeFieldVal / builtinValue /> referencedValue ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueAssignment [ "Spec: ValueAssignment ::= @@ -2783,7 +2784,7 @@ ASN1Syntax >> valueAssignment [ ^ valueReferenceToken, type, '::=' asParser trim, value ==> [:nodes| Array with: nodes first with: nodes second with: nodes fourth ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> valueFieldReference [ "Spec: A 'valuefieldreference' shall consist of an ampersand ('&') immediately followed by a sequence of @@ -2791,7 +2792,7 @@ ASN1Syntax >> valueFieldReference [ ^ $& asParser, valueReference ==> #second ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueFromObject [ "Spec: ValueFromObject ::= ReferencedObjects '.' FieldName" @@ -2799,7 +2800,7 @@ ASN1Syntax >> valueFromObject [ ==> [:nodes| Array with: nodes first with: nodes third. ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueList [ "Spec: ValueList ::= @@ -2808,21 +2809,21 @@ ASN1Syntax >> valueList [ ^ (value separatedBy: $, asParser trim) withoutSeparators ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> valueOptionalitySpec [ "Spec: ValueOptionalitySpec ::= OPTIONAL | DEFAULT Value" ^ 'OPTIONAL' asParser trim / ('DEFAULT' asParser trim, value ) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueRange [ "Spec: ValueRange ::= LowerEndpoint '..' UpperEndpoint" ^ lowerEndPoint, '..' asParser trim, upperEndPoint ==> [:nodes| nodes copyWithout: nodes second ] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueReference [ "spec: A 'valuereference' shall consist of the sequence of characters specified for @@ -2831,12 +2832,12 @@ ASN1Syntax >> valueReference [ ^ identifier ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueReferenceToken [ ^ valueReference ==> [:node| node value] ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueSet [ "Spec: ValueSet ::= '{' ElementSetSpecs '}' " @@ -2844,7 +2845,7 @@ ASN1Syntax >> valueSet [ ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> valueSetFieldReference [ "Spec: A 'valuesetfieldreference' shall consist of an ampersand ('&') immediately followed by a sequence of @@ -2852,21 +2853,21 @@ ASN1Syntax >> valueSetFieldReference [ ^ $& asParser, typeReference ==> #second ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> valueSetFromObjects [ "Spec: ValueSetFromObjects ::= ReferencedObjects '.' FieldName" ^ referencedObjects, $. asParser, fieldName ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> valueSetOptionalitySpec [ "Spec: ValueSetOptionalitySpec ::= OPTIONAL | DEFAULT ValueSet" ^ 'OPTIONAL' asParser / ('DEFAULT' asParser, valueSet) ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> valueSetTypeAssignment [ "Spec: ValueSetTypeAssignment ::= @@ -2875,28 +2876,28 @@ ASN1Syntax >> valueSetTypeAssignment [ ==> [:nodes| Array with: nodes first with: nodes second with: nodes fourth ] ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> variableTypeValueFieldSpec [ "Spec: VariableTypeValueFieldSpec ::= valuefieldreference FieldName ValueOptionalitySpec ?" ^ (valueFieldReference, fieldName, valueOptionalitySpec optional ) ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> variableTypeValueSetFieldSpec [ "Spec: VariableTypeValueSetFieldSpec ::= valuesetfieldreference FieldName ValueSetOptionalitySpec?" ^ valueSetFieldReference, fieldName trim , valueSetOptionalitySpec optional ] -{ #category : #'X.680 grammar' } +{ #category : 'X.680 grammar' } ASN1Syntax >> versionNumber [ "spec: VersionNumber ::= empty | number ':'" ^ (number, $: asParser) optional ] -{ #category : #'X.681 grammar' } +{ #category : 'X.681 grammar' } ASN1Syntax >> withSyntaxSpec [ "Spec: WithSyntaxSpec ::= WITH SYNTAX SyntaxList" diff --git a/ASN1-Syntax/ASN1Token.class.st b/ASN1-Syntax/ASN1Token.class.st index 42c99aa..2b06a94 100644 --- a/ASN1-Syntax/ASN1Token.class.st +++ b/ASN1-Syntax/ASN1Token.class.st @@ -1,23 +1,24 @@ Class { - #name : #ASN1Token, - #superclass : #PPToken, + #name : 'ASN1Token', + #superclass : 'PPToken', #instVars : [ 'comments' ], - #category : 'ASN1-Syntax' + #category : 'ASN1-Syntax', + #package : 'ASN1-Syntax' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1Token >> comments [ ^ comments ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1Token >> comments: anArray [ comments := anArray ] -{ #category : #compatiblity } +{ #category : 'compatiblity' } ASN1Token >> length [ ^ self size ] diff --git a/ASN1-Syntax/ASN1TokenParser.class.st b/ASN1-Syntax/ASN1TokenParser.class.st index 851d3f3..9c64273 100644 --- a/ASN1-Syntax/ASN1TokenParser.class.st +++ b/ASN1-Syntax/ASN1TokenParser.class.st @@ -1,23 +1,24 @@ Class { - #name : #ASN1TokenParser, - #superclass : #PPTokenParser, + #name : 'ASN1TokenParser', + #superclass : 'PPTokenParser', #classVars : [ 'SeparatorPredicate' ], - #category : 'ASN1-Syntax' + #category : 'ASN1-Syntax', + #package : 'ASN1-Syntax' } -{ #category : #'class initialization' } +{ #category : 'class initialization' } ASN1TokenParser class >> initialize [ SeparatorPredicate := PPCharSetPredicate on: [ :char | char isWhiteSpace ] ] -{ #category : #private } +{ #category : 'private' } ASN1TokenParser >> defaultTokenClass [ ^ ASN1Token ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TokenParser >> findSingleLineEndMarkerOn: aStream [ | char | [ @@ -34,7 +35,7 @@ ASN1TokenParser >> findSingleLineEndMarkerOn: aStream [ ] -{ #category : #parsing } +{ #category : 'parsing' } ASN1TokenParser >> parseComments: anArray on: aStream [ "There are two types of comments: 1. single line comment. it starts with -- and ends with a second pair of -- or at the end of line @@ -58,7 +59,7 @@ ASN1TokenParser >> parseComments: anArray on: aStream [ ^ comments ] -{ #category : #parsing } +{ #category : 'parsing' } ASN1TokenParser >> parseOn: aStream [ | start comments token | start := aStream position. diff --git a/ASN1-Syntax/Character.extension.st b/ASN1-Syntax/Character.extension.st index 1656f95..10448f5 100644 --- a/ASN1-Syntax/Character.extension.st +++ b/ASN1-Syntax/Character.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Character } +Extension { #name : 'Character' } -{ #category : #'*asn1-syntax' } +{ #category : '*asn1-syntax' } Character >> isWhiteSpace [ self asciiValue = 32 ifTrue: [^true]. "space" self asciiValue = 9 ifTrue: [^true]. "tab" diff --git a/ASN1-Syntax/PPParser.extension.st b/ASN1-Syntax/PPParser.extension.st index 3ac63bf..b498873 100644 --- a/ASN1-Syntax/PPParser.extension.st +++ b/ASN1-Syntax/PPParser.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #PPParser } +Extension { #name : 'PPParser' } -{ #category : #'*asn1-syntax' } +{ #category : '*asn1-syntax' } PPParser >> /> aParser [ "Answer a new parser that parses the receiver and aParser that returns the longest successful match." diff --git a/ASN1-Syntax/package.st b/ASN1-Syntax/package.st index 5b54d93..2f56c51 100644 --- a/ASN1-Syntax/package.st +++ b/ASN1-Syntax/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Syntax' } +Package { #name : 'ASN1-Syntax' } diff --git a/ASN1-Tests-AST/ASN1ASTParserTest.class.st b/ASN1-Tests-AST/ASN1ASTParserTest.class.st index becc649..161375a 100644 --- a/ASN1-Tests-AST/ASN1ASTParserTest.class.st +++ b/ASN1-Tests-AST/ASN1ASTParserTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1ASTParserTest, - #superclass : #PPCompositeParserTest, - #category : 'ASN1-Tests-AST' + #name : 'ASN1ASTParserTest', + #superclass : 'PPCompositeParserTest', + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTParserTest class >> methodsNotToBeImplemented [ ^ #( alternativeTypeList @@ -111,7 +112,7 @@ ASN1ASTParserTest class >> methodsNotToBeImplemented [ withSyntaxSpec ) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTParserTest class >> methodsToBeImplemented [ (self methodsNotToBeImplemented intersection: self methodsToBeImplementedLater) ifNotEmpty: [:col| Error signal: 'methods defined to be not implemented and later at the same time: ', col asString ]. @@ -122,7 +123,7 @@ ASN1ASTParserTest class >> methodsToBeImplemented [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ASTParserTest class >> methodsToBeImplementedLater [ ^ #( atNotation @@ -188,17 +189,17 @@ ASN1ASTParserTest class >> methodsToBeImplementedLater [ ) ] -{ #category : #testing } +{ #category : 'testing' } ASN1ASTParserTest >> expectedFailures [ ^ #( testNoMethodsToBeImplemented ) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ASTParserTest >> parserClass [ ^ ASN1ASTParser ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testAbsoluteOid [ | parsed | parsed := self parse: 'mobileDomainId OBJECT IDENTIFIER ::= @@ -206,7 +207,7 @@ ASN1ASTParserTest >> testAbsoluteOid [ self assert: (parsed first right oidString = '0.4.0.0') ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testAssignmentList [ | parsed | parsed := self parse: 'foo Bar ::= 1 @@ -215,14 +216,14 @@ ASN1ASTParserTest >> testAssignmentList [ self assert: (parsed first right value = 1) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testBitStringAssignment [ | parsed | parsed := self parse: 'alertingLevel-0 AlertingPattern ::= ''00000000''B' rule: #assignmentList. self assert: (parsed first right type class = ASN1BitStringTypeNode ) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testBitStringType [ | parsed | parsed := self parse: 'BIT STRING { @@ -234,28 +235,28 @@ ASN1ASTParserTest >> testBitStringType [ self assert: (parsed bits first name = 'msc-s') ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testBooleanAssignment [ | parsed | parsed := self parse: 'foo TestType ::= TRUE' rule: #assignmentList. self assert: (parsed first right type class = ASN1BooleanTypeNode ) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testBooleanType [ | parsed | parsed := self parse: 'BOOLEAN' rule: #booleanType. self assert: (parsed name = 'BOOLEAN'). ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testBooleanValue [ | parsed | parsed := self parse: 'TRUE' rule: #builtinValue. self assert: (parsed value = 'TRUE'). ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testChoiceType [ | parsed | parsed := self parse: 'CHOICE { @@ -267,7 +268,7 @@ ASN1ASTParserTest >> testChoiceType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testChoiceValue [ | parsed | parsed := self parse: 'noInvokeId InvokeId ::= absent:NULL' rule: #assignmentList. @@ -275,7 +276,7 @@ ASN1ASTParserTest >> testChoiceValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testChoiceValueAssignment [ | parsed | parsed := self parse: 'noInvokeId InvokeId ::= absent:NULL' rule: #assignmentList. @@ -283,7 +284,7 @@ ASN1ASTParserTest >> testChoiceValueAssignment [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testChoiceWithImplicitContextTags [ | nodes | nodes := self parse: ' CHOICE {present [0] IMPLICIT present < InvokeId, @@ -293,7 +294,7 @@ ASN1ASTParserTest >> testChoiceWithImplicitContextTags [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testComponentType [ | parsed | parsed := self parse: 'reroutingNumber [0] IMPLICIT IsdnNumber' rule: #componentType. @@ -301,7 +302,7 @@ ASN1ASTParserTest >> testComponentType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testComponentTypeComponentsOf [ | parsed | parsed := self parse: 'COMPONENTS OF Foodata' rule: #componentType. @@ -310,7 +311,7 @@ ASN1ASTParserTest >> testComponentTypeComponentsOf [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testComponentTypeLists [ | parsed | parsed := self parse: 'one Two, three Four' rule: #componentTypeLists. @@ -319,12 +320,12 @@ ASN1ASTParserTest >> testComponentTypeLists [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testConstraint [ self flag: #todo ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefaultSyntax [ | parsed | parsed := self parse: '{ @@ -336,14 +337,14 @@ ASN1ASTParserTest >> testDefaultSyntax [ self assert: (parsed size = 4) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinedObjectClass [ | parsed | parsed := self parse: 'FOO-BAR' rule: #definedObjectClass. self assert: parsed isAsn1ReferenceNode ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinedSyntax [ | parsed | parsed := self parse: 'CLASS { @@ -359,7 +360,7 @@ WITH SYNTAX { self assert: parsed fields size = 4 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinitiveIdentification [ | parsed | parsed := self parse: '{itu-t recommendation q 775 modules(2) examples(2) version1(1)}' rule: #definitiveIdentification. @@ -368,7 +369,7 @@ ASN1ASTParserTest >> testDefinitiveIdentification [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinitiveNameAndNumberForm [ | parsed | parsed := self parse: 'modules(2)' rule: #definitiveNameAndNumberForm. @@ -377,7 +378,7 @@ ASN1ASTParserTest >> testDefinitiveNameAndNumberForm [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinitiveObjIdComponent [ | parsed | parsed := self parse: 'itu-t' rule: #definitiveObjIdComponent. @@ -385,7 +386,7 @@ ASN1ASTParserTest >> testDefinitiveObjIdComponent [ self assert: (parsed number = 0) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDefinitiveOid [ | parsed | parsed := self parse: '{itu-t recommendation q 775 modules(2) examples(2) version1(1)}' rule: #definitiveOid. @@ -394,7 +395,7 @@ ASN1ASTParserTest >> testDefinitiveOid [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testDurationType [ | parsed | parsed := self parse: 'DURATION' rule: #durationType. @@ -402,7 +403,7 @@ ASN1ASTParserTest >> testDurationType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testExternalType [ | parsed | parsed := self parse: 'EXTERNAL' rule: #externalType. @@ -410,7 +411,7 @@ ASN1ASTParserTest >> testExternalType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testExternalTypeReference [ | parsed | parsed := self parse: 'Foo.Bar' rule: #externalTypeReference. @@ -420,7 +421,7 @@ ASN1ASTParserTest >> testExternalTypeReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testExternalValueReference [ | parsed | parsed := self parse: 'Foo.bar' rule: #externalValueReference. @@ -430,7 +431,7 @@ ASN1ASTParserTest >> testExternalValueReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testFieldName [ | parsed | parsed := self parse: '&Foo.&Far.&Zork' rule: #fieldName. @@ -438,7 +439,7 @@ ASN1ASTParserTest >> testFieldName [ self assert: (parsed allSatisfy: [:each| each isAsn1ReferenceNode ]) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testFieldSetting [ | parsed | parsed := self parse: '&Foo Bar' rule: #fieldSetting. @@ -446,7 +447,7 @@ ASN1ASTParserTest >> testFieldSetting [ self assert: (parsed allSatisfy: [:each| each isAsn1ReferenceNode ]) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testFixedTypeValueFieldSpec [ | parsed | parsed := self parse: '&componentGrouping BOOLEAN DEFAULT TRUE' rule: #fixedTypeValueFieldSpec. @@ -458,7 +459,7 @@ ASN1ASTParserTest >> testFixedTypeValueFieldSpec [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testFixedTypeValueSetFieldSpec [ | parsed | parsed := self parse: '&Errors ERROR OPTIONAL' rule: #fixedTypeValueSetFieldSpec. @@ -468,7 +469,7 @@ ASN1ASTParserTest >> testFixedTypeValueSetFieldSpec [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testGlobalDeclarations [ | parsed | parsed := self parse: ASN1DefaultModuleLibrary globalDeclarations rule: #assignmentList. @@ -483,7 +484,7 @@ ASN1ASTParserTest >> testGlobalDeclarations [ self assert: parsed third right components first number = 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testHString [ | parsed | parsed := self parse: '''DEADBEEF''H' rule: #hString. @@ -491,14 +492,14 @@ ASN1ASTParserTest >> testHString [ self assert: parsed value = 'DEADBEEF' ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testIdentifier [ | parsed | parsed := self parse: 'foo' rule: #identifier. self assert: parsed = 'foo' ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testIdentifierList [ | parsed | parsed := self parse: 'foo, bar, zork' rule: #identifierList. @@ -506,7 +507,7 @@ ASN1ASTParserTest >> testIdentifierList [ self assert: parsed = #( 'foo' 'bar' 'zork' ) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testIntegerType [ | parsed | parsed := self parse: 'INTEGER { one(1), two(2) }' rule: #integerType. @@ -514,26 +515,26 @@ ASN1ASTParserTest >> testIntegerType [ self assert: parsed namedNumbers size = 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testNoMethodsToBeImplemented [ self assert: self class methodsToBeImplementedLater isEmpty ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testObjectIdWithReference [ | parsed | parsed := self parse: 'map-ac OBJECT IDENTIFIER ::= {gsm-NetworkId ac-Id}' rule: #assignmentList. self assert: parsed first right alternatives first components size = 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testObjectIdWithTwoNodes [ | parsed | parsed := self parse: 'id-at-name OBJECT IDENTIFIER ::= { id-at 41 }' rule: #assignmentList. self assert: parsed first right alternatives first components size = 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testObjectSetResolution [ | parsed | parsed := self parse: '{ a | b | c, ..., d | e | f }' rule: #objectSet. @@ -541,7 +542,7 @@ ASN1ASTParserTest >> testObjectSetResolution [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testRelativeOid [ | parsed components | parsed := self parse: 'gsm-MessagingId OBJECT IDENTIFIER ::= @@ -551,7 +552,7 @@ ASN1ASTParserTest >> testRelativeOid [ self assert: (components second number = 4) ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testSequenceOnlyList [ | nodes | @@ -565,7 +566,7 @@ ASN1ASTParserTest >> testSequenceOnlyList [ self assert: nodes size = 6 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testSequenceWithExtensions [ | nodes | @@ -596,12 +597,12 @@ ASN1ASTParserTest >> testSequenceWithExtensions [ self assert: nodes size = 23 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testSyntaxMethodInheritance [ self assert: self class methodsToBeImplemented isEmpty ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testValueAssignment [ | parsed | parsed := self parse: 'noInvokeId InvokeId ::= absent:NULL' rule: #assignmentList. @@ -609,7 +610,7 @@ ASN1ASTParserTest >> testValueAssignment [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testValueSetAssignment [ | parsed | parsed := self parse: 'Supported-MAP-Operations OPERATION ::= {updateLocation | cancelLocation | purgeMS | @@ -620,7 +621,7 @@ processAccessSignalling self assert: parsed first right class = ASN1ValueSetNode ] -{ #category : #tests } +{ #category : 'tests' } ASN1ASTParserTest >> testValueSetResolution [ | parsed | parsed := self parse: '{updateLocation | cancelLocation | purgeMS }' rule: #valueSet. diff --git a/ASN1-Tests-AST/ASN1ExampleGrammarASTTest.class.st b/ASN1-Tests-AST/ASN1ExampleGrammarASTTest.class.st index bbbc0ce..970aebc 100644 --- a/ASN1-Tests-AST/ASN1ExampleGrammarASTTest.class.st +++ b/ASN1-Tests-AST/ASN1ExampleGrammarASTTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1ExampleGrammarASTTest, - #superclass : #ASN1ExampleGrammarTest, - #category : 'ASN1-Tests-AST' + #name : 'ASN1ExampleGrammarASTTest', + #superclass : 'ASN1ExampleGrammarTest', + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testComplexChoice [ | type | type := self astBindingValue: 'ComplexChoice'. @@ -12,7 +13,7 @@ ASN1ExampleGrammarASTTest >> testComplexChoice [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testDefinedSyntaxLookup [ | ast module | ast := ASN1ASTParser parse: ' @@ -46,7 +47,7 @@ Code ::= CHOICE {local INTEGER, ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testDefinedSyntaxObject [ | obj | obj := self astBindingValue: 'mapSpecificAS' . @@ -54,28 +55,28 @@ ASN1ExampleGrammarASTTest >> testDefinedSyntaxObject [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testErrorsParameter [ | object | object := self astBindingValue: 'Errors' . self assert: object elementsSpec elements first entity constraint object definition notNil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testObjectIdentifierOnlyNumbers [ | type | type := self astBindingValue: 'id-domainComponent'. self assert: (type oidString = '0.9.2342.19200300.100.1.25') ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testOperationDefinition [ | class | class := self astBindingValue: 'OPERATION' . self assert: class syntax size = 10 ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testOperationInstantiation [ | object | object := self astBindingValue: 'purgeMS' . @@ -83,7 +84,7 @@ ASN1ExampleGrammarASTTest >> testOperationInstantiation [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarASTTest >> testSimpleChoice [ | type | type := self astBindingValue: 'SimpleChoice'. diff --git a/ASN1-Tests-AST/ASN1ExampleGrammarTest.class.st b/ASN1-Tests-AST/ASN1ExampleGrammarTest.class.st index be1fb04..efb6fa2 100644 --- a/ASN1-Tests-AST/ASN1ExampleGrammarTest.class.st +++ b/ASN1-Tests-AST/ASN1ExampleGrammarTest.class.st @@ -1,20 +1,21 @@ Class { - #name : #ASN1ExampleGrammarTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-AST' + #name : 'ASN1ExampleGrammarTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExampleGrammarTest >> ast [ ^ self resource ast ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExampleGrammarTest >> astBindingValue: aString [ ^ (self ast bindingNamed: aString) right ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ExampleGrammarTest >> resource [ ^ ASN1ExampleGrammarTestResource new ] diff --git a/ASN1-Tests-AST/ASN1ExampleGrammarTestResource.class.st b/ASN1-Tests-AST/ASN1ExampleGrammarTestResource.class.st index 96069e3..510e49d 100644 --- a/ASN1-Tests-AST/ASN1ExampleGrammarTestResource.class.st +++ b/ASN1-Tests-AST/ASN1ExampleGrammarTestResource.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ExampleGrammarTestResource, - #superclass : #TestResource, + #name : 'ASN1ExampleGrammarTestResource', + #superclass : 'TestResource', #instVars : [ 'modules', 'ast', 'model' ], - #category : 'ASN1-Tests-AST' + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> applicationContextClass [ ^ 'APPLICATION-CONTEXT ::= CLASS { @@ -26,7 +27,7 @@ WITH SYNTAX { ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> ast [ ^ ast ifNil: [ ast := ASN1ASTRoot new. @@ -34,14 +35,14 @@ ASN1ExampleGrammarTestResource >> ast [ ast ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> choiceWithImplicitTaggedTypes [ ^ 'ChoiceWithImplicitTaggedTypes ::= CHOICE {present [0] IMPLICIT INTEGER, absent [1] IMPLICIT NULL }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> complexChoice [ ^ 'ComplexChoice ::= CHOICE { @@ -51,7 +52,7 @@ ASN1ExampleGrammarTestResource >> complexChoice [ four [APPLICATION 4] INTEGER }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> complexSequence [ ^ 'ComplexSequence ::= SEQUENCE { @@ -65,7 +66,7 @@ ASN1ExampleGrammarTestResource >> complexSequence [ TypedComplexSequence ::= SEQUENCE SIZE (1..MAX) OF ComplexSequence ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> constructedComplexChoice [ ^'UnconstructedChoice1 ::= OCTET STRING (SIZE (1..5)) @@ -82,25 +83,25 @@ UnconstructedChoice2 ::= OCTET STRING (SIZE (1..5)) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> definitionsFor: aSymbol [ ^ ((Pragma allNamed: #definition: in: self class) select: [:each| each arguments first = aSymbol ]) collect: [:each| self perform: each method selector ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> emptySequence [ ^ 'EmptySequence ::= SEQUENCE {}' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> exampleDefinitions [ ^ self definitionsFor: #example ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> exampleGrammarHead [ ^ ' @@ -112,13 +113,13 @@ IMPORTS; ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> exampleGrammarTail [ ^ 'END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> grammar: aSymbol [ ^ String streamContents: [:stream| stream nextPutAll: (self headFor: aSymbol). @@ -128,25 +129,25 @@ ASN1ExampleGrammarTestResource >> grammar: aSymbol [ stream nextPutAll: (self tailFor: aSymbol) ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> gsmMessagingId [ ^ 'gsm-MessagingId OBJECT IDENTIFIER ::= {mobileDomainId gsm-Messaging (4)}' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> headFor: aSymbol [ ^ self perform: (self methodWithPragma: #head asMutator andArgument: aSymbol). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> implicitTaggedSequence [ ^ 'ImplicitTaggedSequence ::= [APPLICATION:0] IMPLICIT SEQUENCE { number [0] INTEGER, othernumber [1] INTEGER }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> mapSpecificAS [ ^ 'mapSpecificAS ABSTRACT-SYNTAX ::= { @@ -155,14 +156,14 @@ ASN1ExampleGrammarTestResource >> mapSpecificAS [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> methodWithPragma: aSymbol andArgument: anotherSymbol [ ^ ((Pragma allNamed: aSymbol in: self class) detect: [:pragma| pragma arguments first = anotherSymbol ]) method selector ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> mobileDomainId [ ^ 'mobileDomainId OBJECT IDENTIFIER ::= @@ -170,7 +171,7 @@ ASN1ExampleGrammarTestResource >> mobileDomainId [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> objectFromDefinedSyntax [ ^ ' @@ -216,7 +217,7 @@ SendAuthenticationInfoRes ::= [3] SEQUENCE { ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> objectIdentifierOnlyNumbers [ ^ ' @@ -226,7 +227,7 @@ id-domainComponent AttributeType ::= { 0 9 2342 19200300 100 1 25 } ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> operationClass [ ^ 'OPERATION ::= CLASS { @@ -280,7 +281,7 @@ Priority ::= INTEGER(0..MAX) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> operationPackageClass [ ^ 'OPERATION-PACKAGE ::= CLASS { @@ -301,41 +302,41 @@ WITH SYNTAX { ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parameterizedErrors [ ^ 'Errors{OPERATION:Operations} ERROR ::= {Operations.&Errors}' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parseGrammar: aSymbol [ ^ self parseGrammar: (self grammar: aSymbol) rule: #start ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parseGrammar: aString rule: aSymbol [ ^ self parserClass parse: aString startingAt: aSymbol ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parseModelFrom: aString [ ^ ASN1 new ast addModule: (self parseGrammar: aString); yourself ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parseModelFrom: aString rule: aSymbol [ ^ self createModelFromAst: ( self parseGrammar: aString rule: aSymbol) ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> parserClass [ ^ ASN1ASTParser ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> prepareAst [ self ast modules ifEmpty: [ self ast addModule: (ASN1DefaultModuleLibrary new moduleNamed: 'default'). @@ -346,7 +347,7 @@ ASN1ExampleGrammarTestResource >> prepareAst [ ^ self ast ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> purgeMS [ ^ ' @@ -453,7 +454,7 @@ MAP-EXTENSION ::= CLASS { ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> referencedGrammarHead [ ^ ' @@ -465,13 +466,13 @@ IMPORTS; ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> referencedGrammarTail [ ^ 'END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> relativeOid [ ^ 'gsm-NetworkId OBJECT IDENTIFIER ::= @@ -484,12 +485,12 @@ ASN1ExampleGrammarTestResource >> relativeOid [ as-Id CommonComponentId ::= 1' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> reset [ model := nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> resolveableDefinedSyntax [ ^ ' @@ -515,7 +516,7 @@ firstExtension EXTENSION ::= { ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> sequenceWithExtension [ ^'SequenceWithExtension ::= SEQUENCE { @@ -530,13 +531,13 @@ ASN1ExampleGrammarTestResource >> sequenceWithExtension [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> simpleChoice [ ^ 'SimpleChoice ::= CHOICE { number [0] INTEGER, nothing [1] NULL }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> simpleSequence [ ^ 'SimpleSequence ::= SEQUENCE { @@ -544,12 +545,12 @@ ASN1ExampleGrammarTestResource >> simpleSequence [ second OCTET STRING }' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> tailFor: aSymbol [ ^ self perform: (self methodWithPragma: #tail asMutator andArgument: aSymbol). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ExampleGrammarTestResource >> typedSetFromCamel [ ^ ' diff --git a/ASN1-Tests-AST/ASN1TestParser.class.st b/ASN1-Tests-AST/ASN1TestParser.class.st index d54fd3c..5066f18 100644 --- a/ASN1-Tests-AST/ASN1TestParser.class.st +++ b/ASN1-Tests-AST/ASN1TestParser.class.st @@ -1,30 +1,31 @@ Class { - #name : #ASN1TestParser, - #superclass : #PPCompositeParser, + #name : 'ASN1TestParser', + #superclass : 'PPCompositeParser', #instVars : [ 'foo', 'fooToken', 'fooDoubleToken' ], - #category : 'ASN1-Tests-AST' + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1TestParser >> foo [ ^ 'foo' asParser ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TestParser >> fooDoubleToken [ ^ fooToken asn1Token ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TestParser >> fooToken [ ^ foo asn1Token ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TestParser >> start [ ^ foo end ] diff --git a/ASN1-Tests-AST/ASN1TestParserTest.class.st b/ASN1-Tests-AST/ASN1TestParserTest.class.st index 915e2d9..19c926b 100644 --- a/ASN1-Tests-AST/ASN1TestParserTest.class.st +++ b/ASN1-Tests-AST/ASN1TestParserTest.class.st @@ -1,26 +1,27 @@ Class { - #name : #ASN1TestParserTest, - #superclass : #PPCompositeParserTest, - #category : 'ASN1-Tests-AST' + #name : 'ASN1TestParserTest', + #superclass : 'PPCompositeParserTest', + #category : 'ASN1-Tests-AST', + #package : 'ASN1-Tests-AST' } -{ #category : #testing } +{ #category : 'testing' } ASN1TestParserTest >> expectedFailures [ ^ #( testFooDoubleToken ) ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1TestParserTest >> parserClass [ ^ ASN1TestParser ] -{ #category : #tests } +{ #category : 'tests' } ASN1TestParserTest >> testFoo [ self parse: 'foo' rule: #foo. self fail: 'foo ' rule: #foo ] -{ #category : #tests } +{ #category : 'tests' } ASN1TestParserTest >> testFooDoubleToken [ "double token invokes two times the token parser. Double usage of token parser leads to a space character at the end of the token" @@ -28,7 +29,7 @@ ASN1TestParserTest >> testFooDoubleToken [ self assert: (self parse: 'foo ' rule: #fooDoubleToken) value = 'foo' ] -{ #category : #tests } +{ #category : 'tests' } ASN1TestParserTest >> testFooToken [ self parse: 'foo' rule: #fooToken. self assert: (self parse: 'foo ' rule: #fooToken) value = 'foo' diff --git a/ASN1-Tests-AST/package.st b/ASN1-Tests-AST/package.st index 67f7cf7..4031ae2 100644 --- a/ASN1-Tests-AST/package.st +++ b/ASN1-Tests-AST/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-AST' } +Package { #name : 'ASN1-Tests-AST' } diff --git a/ASN1-Tests-Builder/ASN1BuilderTest.class.st b/ASN1-Tests-Builder/ASN1BuilderTest.class.st index 2505a32..81867f0 100644 --- a/ASN1-Tests-Builder/ASN1BuilderTest.class.st +++ b/ASN1-Tests-Builder/ASN1BuilderTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1BuilderTest, - #superclass : #ASN1ExampleGrammarTest, - #category : 'ASN1-Tests-Builder' + #name : 'ASN1BuilderTest', + #superclass : 'ASN1ExampleGrammarTest', + #category : 'ASN1-Tests-Builder', + #package : 'ASN1-Tests-Builder' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testChoiceWithImplicitContextTags [ | model | model := self modelBindingValue: 'ChoiceWithImplicitTaggedTypes'. @@ -12,7 +13,7 @@ ASN1BuilderTest >> testChoiceWithImplicitContextTags [ self assert: model elements associations second value tag = (ASN1Tag new clazz: nil; number: 1). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testComplexChoice [ | type | type := self modelBindingValue: 'ComplexChoice'. @@ -21,7 +22,7 @@ ASN1BuilderTest >> testComplexChoice [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testConstructedComplexChoice [ | sequence basicService | sequence := (self modelBindingValue: 'SequenceWithConstruction') type. @@ -29,7 +30,7 @@ ASN1BuilderTest >> testConstructedComplexChoice [ self assert: basicService type tag = (ASN1Tag new number: 5; yourself). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testDefinedObjectFromDefinedSyntax [ | object | object:= self modelBindingValue: 'purgeMS' . @@ -38,28 +39,28 @@ ASN1BuilderTest >> testDefinedObjectFromDefinedSyntax [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testDefinedSyntax [ | model | model := self modelBindingValue: 'objectFromDefinedSyntax'. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testQueryOidBindingName [ | name | name := self model bindingNameOfOid: '0.4.0.0.1.1.1.1'. self assert: name = 'map-DialogueAS' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testRelativeOidResolving [ | type | type := self modelBindingValue: 'map-DialogueAS'. self assert: type contents = '0.4.0.0.1.1.1.1' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1BuilderTest >> testResource [ self assert: self resource model class = ASN1CachedModelRoot ] diff --git a/ASN1-Tests-Builder/ASN1ExampleGrammarTest.extension.st b/ASN1-Tests-Builder/ASN1ExampleGrammarTest.extension.st index f0ef929..7c2e8f3 100644 --- a/ASN1-Tests-Builder/ASN1ExampleGrammarTest.extension.st +++ b/ASN1-Tests-Builder/ASN1ExampleGrammarTest.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1ExampleGrammarTest } +Extension { #name : 'ASN1ExampleGrammarTest' } -{ #category : #'*ASN1-Tests-Builder' } +{ #category : '*ASN1-Tests-Builder' } ASN1ExampleGrammarTest >> model [ ^ self resource model ] -{ #category : #'*ASN1-Tests-Builder' } +{ #category : '*ASN1-Tests-Builder' } ASN1ExampleGrammarTest >> modelBindingValue: aString [ ^ (self model bindingNamed: aString) value ] diff --git a/ASN1-Tests-Builder/ASN1ExampleGrammarTestResource.extension.st b/ASN1-Tests-Builder/ASN1ExampleGrammarTestResource.extension.st index eb905ea..b1af527 100644 --- a/ASN1-Tests-Builder/ASN1ExampleGrammarTestResource.extension.st +++ b/ASN1-Tests-Builder/ASN1ExampleGrammarTestResource.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #ASN1ExampleGrammarTestResource } +Extension { #name : 'ASN1ExampleGrammarTestResource' } -{ #category : #'*ASN1-Tests-Builder' } +{ #category : '*ASN1-Tests-Builder' } ASN1ExampleGrammarTestResource >> model [ ^ model ifNil: [ model := self ast buildModel: ASN1CachedModelRoot ] ] -{ #category : #'*ASN1-Tests-Builder' } +{ #category : '*ASN1-Tests-Builder' } ASN1ExampleGrammarTestResource >> modelBindingValue: aString [ ^ (self model bindingNamed: aString) value ] diff --git a/ASN1-Tests-Builder/package.st b/ASN1-Tests-Builder/package.st index decf9b2..086f93e 100644 --- a/ASN1-Tests-Builder/package.st +++ b/ASN1-Tests-Builder/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-Builder' } +Package { #name : 'ASN1-Tests-Builder' } diff --git a/ASN1-Tests-Codec/ASN1CodecTests.class.st b/ASN1-Tests-Codec/ASN1CodecTests.class.st index dd8ced5..8550226 100644 --- a/ASN1-Tests-Codec/ASN1CodecTests.class.st +++ b/ASN1-Tests-Codec/ASN1CodecTests.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1CodecTests, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'ASN1CodecTests', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #tests } +{ #category : 'tests' } ASN1CodecTests >> testReadMultipleOctetsWithHighBitSet [ | array result | array := ByteArray streamContents: [:stream| diff --git a/ASN1-Tests-Codec/ASN1PrimitiveCodecTest.class.st b/ASN1-Tests-Codec/ASN1PrimitiveCodecTest.class.st index 366344f..c14f2a4 100644 --- a/ASN1-Tests-Codec/ASN1PrimitiveCodecTest.class.st +++ b/ASN1-Tests-Codec/ASN1PrimitiveCodecTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1PrimitiveCodecTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'ASN1PrimitiveCodecTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1PrimitiveCodecTest >> roundTrip: aType value: anObject [ | cls | cls := Smalltalk at: ('ASN1',aType,'Type') asSymbol. @@ -12,12 +13,12 @@ ASN1PrimitiveCodecTest >> roundTrip: aType value: anObject [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeBMPString [ self assert: (ASN1BMPStringType decode: #[0 104 0 97 0 108 0 108 0 111]) = 'hallo' ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeBitString [ self assert: (ASN1BitStringType decode: { 00 . 16r1. 16r2}) = '0000000100000010'. self assert: (ASN1BitStringType decode: { 01 . 16r80}) = '1000000'. @@ -25,27 +26,27 @@ ASN1PrimitiveCodecTest >> testDecodeBitString [ self assert: (ASN1BitStringType decode: { 0 }) = '' ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeBoolean [ self assert: (ASN1BooleanType decode: #[16rFF]) = true. self assert: (ASN1BooleanType decode: #[16r23]) = true. self assert: (ASN1BooleanType decode: #[16r00]) = false. ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeGeneralizedTime [ self assert: (ASN1GeneralizedTimeType decode: '19010101000000.123456Z') = (DateAndTime epoch + (Duration nanoSeconds: 123456000 )). self assert: (ASN1GeneralizedTimeType decode: '19010101020000.123456+0200') = ((DateAndTime epoch + (Duration nanoSeconds: 123456000 )) offset: 2 hours). ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeInteger [ self assert: (ASN1IntegerType decode: { 0 . 16r9B }) = 155 ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeOctetString [ | data | data := #[222 173 190 239]. @@ -56,7 +57,7 @@ ASN1PrimitiveCodecTest >> testDecodeOctetString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodePrintableString [ self assert: (ASN1PrintableStringType decode: #[104 97 108 108 111]) = 'hallo'. self @@ -65,24 +66,24 @@ ASN1PrimitiveCodecTest >> testDecodePrintableString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeUTCTime [ self assert: (ASN1UTCTimeType decode: '010101000000Z') = (DateAndTime year: 2001 month: 1 day: 1 offset: 0 hours). self assert: (ASN1UTCTimeType decode: '700101000000Z') = (DateAndTime unixEpoch) ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeUTF8String [ self assert: (ASN1UTF8StringType decode: #[97 115 99 105 105 32 197 139]) = ('ascii ', (Character value: 16r14B) asString) ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testDecodeUniversalString [ self assert: (ASN1UniversalStringType decode: #[0 0 0 97 0 0 0 115 0 0 0 99 0 0 0 105 0 0 0 105 0 0 0 32 0 0 1 75]) = ('ascii ', 16r14B asCharacter asString) ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeBMPString [ self assert: (ASN1BMPStringType encode: 'hallo') = #[0 104 0 97 0 108 0 108 0 111]. self assert: (ASN1BMPStringType encode: ('ascii ', (Character value: 16r14B) asString)) = #[0 97 0 115 0 99 0 105 0 105 0 32 1 75]. @@ -91,7 +92,7 @@ ASN1PrimitiveCodecTest >> testEncodeBMPString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeBitString [ self assert: (ASN1BitStringType encode: '10') = { 16r6 . 16r80 } asByteArray . "test a bit string that is a multiple of 8 if it does not encode an extra byte" @@ -99,20 +100,20 @@ ASN1PrimitiveCodecTest >> testEncodeBitString [ self assert: (ASN1BitStringType encode: '00100000001') = { 16r5 . 16r20. 16r20 } asByteArray . ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeBoolean [ self assert: (ASN1BooleanType encode: true) = #[16rFF]. self assert: (ASN1BooleanType encode: false) = #[16r0]. ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeGeneralizedTime [ self assert: (ASN1GeneralizedTimeType encode: (DateAndTime epoch + (Duration nanoSeconds: 123456000 ))) = '19010101000000.123456Z'. self assert: (ASN1GeneralizedTimeType encode: ((DateAndTime epoch + (Duration nanoSeconds: 123456000 )) offset: 2 hours)) = '19010101020000.123456+0200' ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeInteger [ self assert: (ASN1IntegerType encode: 0) = { 16r0 } asByteArray . self assert: (ASN1IntegerType encode: -1) = { 16rff } asByteArray . @@ -127,7 +128,7 @@ ASN1PrimitiveCodecTest >> testEncodeInteger [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeOctetString [ self assert: (ASN1OctetStringType encode: 'deadbeef') = #[100 101 97 100 98 101 101 102]. @@ -135,7 +136,7 @@ ASN1PrimitiveCodecTest >> testEncodeOctetString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeOid [ | oid data | oid := '0.0.17.773.1.1.1'. @@ -143,7 +144,7 @@ ASN1PrimitiveCodecTest >> testEncodeOid [ self assert: data = #[0 17 134 5 1 1 1] ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeOidSpec [ | oid octets | oid := '2.100.3'. @@ -151,7 +152,7 @@ ASN1PrimitiveCodecTest >> testEncodeOidSpec [ self assert: octets = #[ 16r81 16r34 16r03 ] ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodePrintableString [ self assert: (ASN1PrintableStringType encode: 'hallo') = #[104 97 108 108 111]. self @@ -160,33 +161,33 @@ ASN1PrimitiveCodecTest >> testEncodePrintableString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeUTCTime [ self assert: (ASN1UTCTimeType encode: (DateAndTime epoch + (Duration nanoSeconds: 123456000 ))) = '010101000000Z' ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeUTF8String [ self assert: (ASN1UTF8StringType encode: ('ascii ', 16r14B asCharacter asString)) = #[97 115 99 105 105 32 197 139] . ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testEncodeUniversalString [ self assert: (ASN1UniversalStringType encode: ('ascii ', 16r14B asCharacter asString)) = #[0 0 0 97 0 0 0 115 0 0 0 99 0 0 0 105 0 0 0 105 0 0 0 32 0 0 1 75] ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testRoundtripBitString [ self assert: (ASN1BitStringType decode: (ASN1BitStringType encode: '0000000100000010')) equals: '0000000100000010' . self assert: (ASN1BitStringType decode: (ASN1BitStringType encode: '1000000')) equals: '1000000' . self assert: (ASN1BitStringType decode: (ASN1BitStringType encode: '1')) equals: '1' ] -{ #category : #tests } +{ #category : 'tests' } ASN1PrimitiveCodecTest >> testRoundtripInteger [ self roundTrip: #Integer value: 0. self roundTrip: #Integer value: 1. diff --git a/ASN1-Tests-Codec/BERIdentifierTest.class.st b/ASN1-Tests-Codec/BERIdentifierTest.class.st index ceb0aff..8e4bae2 100644 --- a/ASN1-Tests-Codec/BERIdentifierTest.class.st +++ b/ASN1-Tests-Codec/BERIdentifierTest.class.st @@ -1,20 +1,21 @@ Class { - #name : #BERIdentifierTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'BERIdentifierTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifierTest >> testClazzNumber [ self assert: (ASN1Tag clazz: 'UNIVERSAL' number: 10) clazzIdentifier = 0 ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifierTest >> testClazzNumberBogus [ self should: [ (ASN1Tag clazz: 'ABC' number: 10) clazzIdentifier ] raise: Error ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifierTest >> testParse [ | identifier | identifier := BERIdentifier parseFrom: { 106 } readStream. @@ -23,7 +24,7 @@ BERIdentifierTest >> testParse [ self assert: identifier tag number = 10. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifierTest >> testParseExtendedNumber [ | identifier | identifier := BERIdentifier parseFrom: { 63 . 129 . 3 } readStream. @@ -32,7 +33,7 @@ BERIdentifierTest >> testParseExtendedNumber [ self assert: identifier tag number = 131. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERIdentifierTest >> testRoundTripExtended [ | ident | diff --git a/ASN1-Tests-Codec/BERLengthTest.class.st b/ASN1-Tests-Codec/BERLengthTest.class.st index 18254c3..68c26f2 100644 --- a/ASN1-Tests-Codec/BERLengthTest.class.st +++ b/ASN1-Tests-Codec/BERLengthTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #BERLengthTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'BERLengthTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testReadLongDefiniteForm [ | length | length := (BERLength parseFrom: { 130 . 1 . 2 } readStream). @@ -20,7 +21,7 @@ BERLengthTest >> testReadLongDefiniteForm [ self assert: length contentLength = 128. ] -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testReadLongIndefiniteForm [ | length | @@ -35,7 +36,7 @@ BERLengthTest >> testReadLongIndefiniteForm [ ] -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testReadLongIndefiniteFormContent [ | length value | length := (BERLength parseFrom: { 128 } readStream). @@ -43,7 +44,7 @@ BERLengthTest >> testReadLongIndefiniteFormContent [ self assert: value = #[ 1 2 3 ] ] -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testReadShortForm [ | length | length := (BERLength parseFrom: { 38 } readStream). @@ -51,7 +52,7 @@ BERLengthTest >> testReadShortForm [ self assert: length contentLength = 38. ] -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testWriteLongDefiniteForm [ | array | array := ByteArray streamContents: [ :stream| @@ -67,7 +68,7 @@ BERLengthTest >> testWriteLongDefiniteForm [ self assert: array = #[129 128] ] -{ #category : #tests } +{ #category : 'tests' } BERLengthTest >> testWriteOn [ | stream | "Test writing definitive form with a single byte and multi byte" diff --git a/ASN1-Tests-Codec/BERStreamTest.class.st b/ASN1-Tests-Codec/BERStreamTest.class.st index fa4acd5..01de896 100644 --- a/ASN1-Tests-Codec/BERStreamTest.class.st +++ b/ASN1-Tests-Codec/BERStreamTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #BERStreamTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'BERStreamTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERStreamTest >> assert: anObject hasTagClass: aClassNumber number: aNumber constructed: aBoolean [ self assert: anObject tag clazz = aClassNumber . self assert: anObject tag number = aNumber. @@ -12,7 +13,7 @@ BERStreamTest >> assert: anObject hasTagClass: aClassNumber number: aNumber cons ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERStreamTest >> assert: anObject hasTagClassNumber: aClassNumber number: aNumber constructed: aBoolean [ self assert: anObject tag clazzIdentifier = aClassNumber . self assert: anObject tag number = aNumber. @@ -20,7 +21,7 @@ BERStreamTest >> assert: anObject hasTagClassNumber: aClassNumber number: aNumbe ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } BERStreamTest >> assertTagClass: aClassNumber number: aNumber constructed: aBoolean [ ] diff --git a/ASN1-Tests-Codec/BERTLVStreamTest.class.st b/ASN1-Tests-Codec/BERTLVStreamTest.class.st index 90a52ef..216cbc6 100644 --- a/ASN1-Tests-Codec/BERTLVStreamTest.class.st +++ b/ASN1-Tests-Codec/BERTLVStreamTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #BERTLVStreamTest, - #superclass : #BERStreamTest, - #category : 'ASN1-Tests-Codec' + #name : 'BERTLVStreamTest', + #superclass : 'BERStreamTest', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #bla } +{ #category : 'bla' } BERTLVStreamTest >> testMoreGSM [ | data | data := #(16rA1 16r20 16r02 16r01 16r01 16r02 16r01 16r3B @@ -16,7 +17,7 @@ BERTLVStreamTest >> testMoreGSM [ ] -{ #category : #bla } +{ #category : 'bla' } BERTLVStreamTest >> testParseLength [ | data stream value | "I parse a simple example." @@ -30,7 +31,7 @@ BERTLVStreamTest >> testParseLength [ ] -{ #category : #bla } +{ #category : 'bla' } BERTLVStreamTest >> testParseSequence [ | data stream value inner | data := #(16r30 16r0A @@ -47,7 +48,7 @@ BERTLVStreamTest >> testParseSequence [ self assert: value elements first contents asString = 'Smith' ] -{ #category : #bla } +{ #category : 'bla' } BERTLVStreamTest >> testSimpleGSM [ | data stream value | "I should parse a simple GSM payload but the test is too basic. We diff --git a/ASN1-Tests-Codec/UTCTimeParserTest.class.st b/ASN1-Tests-Codec/UTCTimeParserTest.class.st index 5014fdc..b055ecf 100644 --- a/ASN1-Tests-Codec/UTCTimeParserTest.class.st +++ b/ASN1-Tests-Codec/UTCTimeParserTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #UTCTimeParserTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Codec' + #name : 'UTCTimeParserTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Codec', + #package : 'ASN1-Tests-Codec' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } UTCTimeParserTest >> testYYMMDDHHMM [ | dat | dat := ASN1UTCTimeParser parse: '1201021200-0200'. @@ -13,7 +14,7 @@ UTCTimeParserTest >> testYYMMDDHHMM [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } UTCTimeParserTest >> testYYMMDDHHMMSS [ | dat | dat := ASN1UTCTimeParser parse: '820102120013Z'. diff --git a/ASN1-Tests-Codec/package.st b/ASN1-Tests-Codec/package.st index bdaf205..2b59930 100644 --- a/ASN1-Tests-Codec/package.st +++ b/ASN1-Tests-Codec/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-Codec' } +Package { #name : 'ASN1-Tests-Codec' } diff --git a/ASN1-Tests-Model/ASN1AdaptiveModelTest.class.st b/ASN1-Tests-Model/ASN1AdaptiveModelTest.class.st index 0f0d6b7..b46d840 100644 --- a/ASN1-Tests-Model/ASN1AdaptiveModelTest.class.st +++ b/ASN1-Tests-Model/ASN1AdaptiveModelTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1AdaptiveModelTest, - #superclass : #Phexample, - #category : 'ASN1-Tests-Model' + #name : 'ASN1AdaptiveModelTest', + #superclass : 'Phexample', + #category : 'ASN1-Tests-Model', + #package : 'ASN1-Tests-Model' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> model [ ^ ASN1SequenceType new elements: { @@ -16,7 +17,7 @@ ASN1AdaptiveModelTest >> model [ 'secondElement' -> ASN1OctetStringType new } asDictionary ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldAddBottomPrimitiveString [ | val | val := self given: #shouldAddTopPrimitive. @@ -25,7 +26,7 @@ ASN1AdaptiveModelTest >> shouldAddBottomPrimitiveString [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldAddTopPrimitive [ | val | val := self given: #shouldCreateValue. @@ -33,7 +34,7 @@ ASN1AdaptiveModelTest >> shouldAddTopPrimitive [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldCreateValue [ | val | val := self model newValue. @@ -42,7 +43,7 @@ ASN1AdaptiveModelTest >> shouldCreateValue [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldGetBasicBottomPrimitiveString [ | val | val := self given: #shouldProvideValue. @@ -50,7 +51,7 @@ ASN1AdaptiveModelTest >> shouldGetBasicBottomPrimitiveString [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldGetBasicTopPrimitive [ | val | val := self given: #shouldProvideValue. @@ -58,7 +59,7 @@ ASN1AdaptiveModelTest >> shouldGetBasicTopPrimitive [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldGetBottomPrimitiveInteger [ | val | val := self given: #shouldProvideValue. @@ -66,7 +67,7 @@ ASN1AdaptiveModelTest >> shouldGetBottomPrimitiveInteger [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldGetBottomPrimitiveString [ | val | val := self given: #shouldProvideValue. @@ -74,7 +75,7 @@ ASN1AdaptiveModelTest >> shouldGetBottomPrimitiveString [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldGetTopPrimitive [ | val | val := self given: #shouldProvideValue. @@ -82,7 +83,7 @@ ASN1AdaptiveModelTest >> shouldGetTopPrimitive [ ^ val ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1AdaptiveModelTest >> shouldProvideValue [ | val | val := self given: #shouldAddBottomPrimitiveString. diff --git a/ASN1-Tests-Model/ASN1ModelTest.class.st b/ASN1-Tests-Model/ASN1ModelTest.class.st index be83dbd..7c8b2d4 100644 --- a/ASN1-Tests-Model/ASN1ModelTest.class.st +++ b/ASN1-Tests-Model/ASN1ModelTest.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ModelTest, - #superclass : #TestCase, - #category : 'ASN1-Tests-Model' + #name : 'ASN1ModelTest', + #superclass : 'TestCase', + #category : 'ASN1-Tests-Model', + #package : 'ASN1-Tests-Model' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> bitStringType [ ^ ASN1BitStringType new ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> bitStringTypeWithNamedBits [ ^ ASN1BitStringType new namedBits: { @@ -19,7 +20,7 @@ ASN1ModelTest >> bitStringTypeWithNamedBits [ ASN1NamedValue name: 'four' value: 3 } ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringAddNamedBitNoContents [ | bitStringValue | @@ -31,7 +32,7 @@ ASN1ModelTest >> testBitStringAddNamedBitNoContents [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringAddNamedBitWithContents [ | bitStringValue | bitStringValue := self bitStringTypeWithNamedBits newValue. @@ -44,7 +45,7 @@ ASN1ModelTest >> testBitStringAddNamedBitWithContents [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringValueCollection [ | bitStringValue | @@ -56,7 +57,7 @@ ASN1ModelTest >> testBitStringValueCollection [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringValueCollectionBogusBits [ | bitStringValue | @@ -67,7 +68,7 @@ ASN1ModelTest >> testBitStringValueCollectionBogusBits [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringValueString [ | bitStringValue | @@ -78,7 +79,7 @@ ASN1ModelTest >> testBitStringValueString [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testBitStringValueStringAdding [ | bitStringValue | @@ -91,7 +92,7 @@ ASN1ModelTest >> testBitStringValueStringAdding [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testEnumeratedValue [ | type value encoded | @@ -112,7 +113,7 @@ ASN1ModelTest >> testEnumeratedValue [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testEnumeratedWithExtension [ "constrcut a enumerated type containing an extension and try to read it. The enumerated type should skip the extension " @@ -129,7 +130,7 @@ ASN1ModelTest >> testEnumeratedWithExtension [ self assert: result contents equals: 'bar' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ModelTest >> testNumericString [ self assert: (ASN1NumericStringType decode: #[48 48 48 48]) equals: '0000'. self assert: (ASN1NumericStringType encode: '0000') equals: #[48 48 48 48]. diff --git a/ASN1-Tests-Model/ASN1TestModel.class.st b/ASN1-Tests-Model/ASN1TestModel.class.st index 83e5653..3b7c5cf 100644 --- a/ASN1-Tests-Model/ASN1TestModel.class.st +++ b/ASN1-Tests-Model/ASN1TestModel.class.st @@ -1,18 +1,19 @@ Class { - #name : #ASN1TestModel, - #superclass : #Object, + #name : 'ASN1TestModel', + #superclass : 'Object', #classInstVars : [ 'instance' ], - #category : 'ASN1-Tests-Model' + #category : 'ASN1-Tests-Model', + #package : 'ASN1-Tests-Model' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> build [ ^ self build: self libraryNames ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> build: aCollection [ | asn1 | asn1 := ASN1 new. @@ -20,33 +21,33 @@ ASN1TestModel class >> build: aCollection [ ^ asn1 model ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> instance [ ^ instance ifNil: [ instance := self build ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> instance: anObject [ instance := anObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> readFromFileNamed: aString [ ^ FLMaterializer materializeFromFileNamed: aString ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> reset [ instance := nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> resetAll [ self allSubclasses do: #reset ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestModel class >> storeInFileNamed: aString [ FLSerializer serialize: self build toFileNamed: aString ] diff --git a/ASN1-Tests-Model/package.st b/ASN1-Tests-Model/package.st index 56f65fc..6b903d2 100644 --- a/ASN1-Tests-Model/package.st +++ b/ASN1-Tests-Model/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-Model' } +Package { #name : 'ASN1-Tests-Model' } diff --git a/ASN1-Tests-Syntax/ASN1CustomSyntaxTest.class.st b/ASN1-Tests-Syntax/ASN1CustomSyntaxTest.class.st index 0e71971..e1b1fe9 100644 --- a/ASN1-Tests-Syntax/ASN1CustomSyntaxTest.class.st +++ b/ASN1-Tests-Syntax/ASN1CustomSyntaxTest.class.st @@ -1,20 +1,21 @@ Class { - #name : #ASN1CustomSyntaxTest, - #superclass : #PPCompositeParserTest, - #category : 'ASN1-Tests-Syntax' + #name : 'ASN1CustomSyntaxTest', + #superclass : 'PPCompositeParserTest', + #category : 'ASN1-Tests-Syntax', + #package : 'ASN1-Tests-Syntax' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1CustomSyntaxTest >> parserClass [ ^ ASN1Syntax ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testBuiltinTypeWithReservedWord [ self parse: 'TeletexString' rule: #builtinType ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testExampleAssignment [ self parse: '-- Start - Added by Eranga @@ -24,7 +25,7 @@ mapSpecificAS ABSTRACT-SYNTAX ::= { }' rule: #assignmentList ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testExampleImports [ self parse: '-- EXPORTS everything -- Transaction Portion fields. @@ -65,18 +66,18 @@ IMPORTS ;' rule: #imports ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testNamedTypeUsingReservedWord [ self parse: 'teletexString TeletexString (SIZE (1..ub-name))' rule: #namedType ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testSingleCommentBefore [ self parse: '-- hello TCAPMessages {itu-t recommendation q 773 modules(2) messages(1) version3(3)}' rule: #moduleIdentifier ] -{ #category : #tests } +{ #category : 'tests' } ASN1CustomSyntaxTest >> testValueWithSpaceAppended [ | pattern | pattern := self parse: 'dialogue-as-id OBJECT IDENTIFIER ::= diff --git a/ASN1-Tests-Syntax/ASN1SyntaxExamplesTest.class.st b/ASN1-Tests-Syntax/ASN1SyntaxExamplesTest.class.st index b004da3..b84e7c4 100644 --- a/ASN1-Tests-Syntax/ASN1SyntaxExamplesTest.class.st +++ b/ASN1-Tests-Syntax/ASN1SyntaxExamplesTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1SyntaxExamplesTest, - #superclass : #PPCompositeParserTest, - #category : 'ASN1-Tests-Syntax' + #name : 'ASN1SyntaxExamplesTest', + #superclass : 'PPCompositeParserTest', + #category : 'ASN1-Tests-Syntax', + #package : 'ASN1-Tests-Syntax' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> etsiExample [ ^ 'ExampleProtocol DEFINITIONS ::= @@ -35,7 +36,7 @@ BEGIN END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> personnelNotation [ ^ 'PersonnelRecord ::= [APPLICATION 0] SET { @@ -64,7 +65,7 @@ EmployeeNumber ::= [APPLICATION 2] INTEGER Date ::= [APPLICATION 3] VisibleString -- YYYY MMDD ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> personnelNotationNoComment [ ^ 'PersonnelRecord ::= [APPLICATION 0] SET { @@ -94,7 +95,7 @@ Date ::= [APPLICATION 3] VisibleString ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> pkcs12 [ ^ 'PKCS-12 {iso(1) member-body(2) us(840) rsadsi(113549) pkcs(1) pkcs-12(12) modules(0) pkcs-12(1)} @@ -273,7 +274,7 @@ END ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> remoteOperationsExample [ ^ 'Remote-Operations-Information-Objects {joint-iso-itu-t remote-operations(4) @@ -394,7 +395,7 @@ Priority ::= INTEGER(0..MAX) END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> remoteOperationsUsefulExample [ ^ 'Remote-Operations-Useful-Definitions {joint-iso-itu-t remote-operations(4) @@ -492,7 +493,7 @@ ROS-SupplierAS{InvokeId:InvokeIdSet, OPERATION-PACKAGE:package} ::= END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> simpleExample [ ^ 'TelephonyString ::= IA5String @@ -500,7 +501,7 @@ ASN1SyntaxExamplesTest class >> simpleExample [ "#"))(SIZE (1..15))' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapExample [ ^ '-- Generated by Asnp, the pretty-printer of France Telecom R&D (http://asn1.elibel.tm.fr/asnp/) TCAP-Examples {itu-t recommendation q 775 modules(2) examples(2) version1(1)} @@ -577,7 +578,7 @@ END ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapExampleNoComment [ ^ 'TCAP-Examples {itu-t recommendation q 775 modules(2) examples(2) version1(1)} DEFINITIONS ::= @@ -646,7 +647,7 @@ TelephonyString ::= END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapMessages [ ^ ' -- Generated by Asnp, the pretty-printer of France Telecom R&D (http://asn1.elibel.tm.fr/asnp/) @@ -800,7 +801,7 @@ END -- TCAPMessages ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapMessagesNoComments [ ^ 'TCAPMessages {itu-t recommendation q 773 modules(2) messages(1) version3(3)} @@ -929,7 +930,7 @@ TCInvokeIdSet ::= InvokeId(WITH COMPONENTS { END' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapTools [ ^ '-- Generated by Asnp, the pretty-printer of France Telecom R&D (http://asn1.elibel.tm.fr/asnp/) TCAP-Tools {itu-t recommendation q 775 modules(2) tools(1) version1(1)} @@ -980,7 +981,7 @@ END ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> tcapToolsNoComment [ ^ 'TCAP-Tools {itu-t recommendation q 775 modules(2) tools(1) version1(1)} DEFINITIONS ::= @@ -1023,7 +1024,7 @@ END ' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1SyntaxExamplesTest class >> x509 [ ^ 'PKIX1Explicit88 { iso(1) identified-organization(3) dod(6) internet(1) security(5) mechanisms(5) pkix(7) id-mod(0) id-pkix1-explicit(18) } @@ -1687,73 +1688,73 @@ END ' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SyntaxExamplesTest >> parserClass [ ^ ASN1Syntax ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testEtsiExample [ self parse: self class etsiExample rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testEtsiTypeAssignmentInteger [ self parse: 'FrameOffset ::= INTEGER (0 | 8..20)' rule: #typeAssignment ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testPersonell [ self assert: (self parse: self class personnelNotation rule: #assignmentList) isPetitFailure not ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testPersonellNoComment [ self parse: self class personnelNotationNoComment rule: #assignmentList ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testPkcs12 [ self parse: self class pkcs12 rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testRemoteOperationsNoComment [ self parse: self class remoteOperationsExample rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testRemoteOperationsUsefulNoComment [ self parse: self class remoteOperationsUsefulExample rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testTcapExample [ self parse: self class tcapExample rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testTcapExampleNoComment [ self parse: self class tcapExampleNoComment rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testTcapMessagesNoComment [ self parse: self class tcapMessagesNoComments rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testTcapToolsNoComment [ self parse: self class tcapToolsNoComment rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxExamplesTest >> testX509 [ self parse: self class x509 rule: #moduleDefinition diff --git a/ASN1-Tests-Syntax/ASN1SyntaxTest.class.st b/ASN1-Tests-Syntax/ASN1SyntaxTest.class.st index a37e447..425212d 100644 --- a/ASN1-Tests-Syntax/ASN1SyntaxTest.class.st +++ b/ASN1-Tests-Syntax/ASN1SyntaxTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1SyntaxTest, - #superclass : #PPCompositeParserTest, - #category : 'ASN1-Tests-Syntax' + #name : 'ASN1SyntaxTest', + #superclass : 'PPCompositeParserTest', + #category : 'ASN1-Tests-Syntax', + #package : 'ASN1-Tests-Syntax' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1SyntaxTest class >> moduleDefinition [ ^ '-- Generated by Asnp, the pretty-printer of France Telecom R&D (http://asn1.elibel.tm.fr/asnp/) -- Module TCAPMessages (Q.773:06/1997) @@ -154,23 +155,23 @@ TCInvokeIdSet ::= InvokeId(WITH COMPONENTS { END' ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SyntaxTest class >> packageNamesUnderTest [ ^ #('ASN1') ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1SyntaxTest >> parserClass [ ^ ASN1Syntax ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testActualParameterList [ self parse: '{ {Supported-MAP-Operations}, {Supported-MAP-Operations}}' rule: #actualParameterList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testAlternativeTypeList [ self parse: 'unidirectional [APPLICATION 1] Unidirectional{{Invokable}, {Returnable}}, begin [APPLICATION 2] Begin{{Invokable}, {Returnable}}, @@ -180,7 +181,7 @@ ASN1SyntaxTest >> testAlternativeTypeList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testAssignedIdentifier [ self parse: '' rule: #assignedIdentifier. self parse: 'foobar' rule: #assignedIdentifier. @@ -189,7 +190,7 @@ ASN1SyntaxTest >> testAssignedIdentifier [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testAssignmentList [ self parse: 'TCMessage{OPERATION:Invokable, OPERATION:Returnable} ::= CHOICE { unidirectional [APPLICATION 1] Unidirectional{{Invokable}, {Returnable}}, @@ -213,7 +214,7 @@ Begin{OPERATION:Invokable, OPERATION:Returnable} ::= SEQUENCE { ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testAtNotation [ self parse: '@identifier' rule: #atNotation. self parse: '@.identifier' rule: #atNotation. @@ -221,7 +222,7 @@ ASN1SyntaxTest >> testAtNotation [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testBString [ self parse: '''0010011''B' rule: #bString. self parse: '''001 0011''B' rule: #bString. @@ -234,7 +235,7 @@ ASN1SyntaxTest >> testBString [ self assert: (self parse: '''0010011''B' rule: #bString) size = 7 ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testBitStringType [ self parse: 'BIT STRING { msc-s (0), @@ -250,7 +251,7 @@ ASN1SyntaxTest >> testBitStringType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testBitStringValue [ self parse: '''010101''B' rule: #bitStringValue. self parse: '''DEADBEEF''H' rule: #bitStringValue. @@ -260,7 +261,7 @@ ASN1SyntaxTest >> testBitStringValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testBooleanValue [ self parse: 'TRUE' ruleSelector: #booleanValue. self parse: 'FALSE' ruleSelector: #booleanValue. @@ -269,7 +270,7 @@ ASN1SyntaxTest >> testBooleanValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testCString [ self parse: '"hello world"' rule: #cString. self parse: '"hello""world"' rule: #cString. @@ -279,25 +280,25 @@ ASN1SyntaxTest >> testCString [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testCharSyms [ self parse: '"hello world",{8,9}, abc, Foo.abc' rule: #charSyms. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testCharacterStringList [ self parse: '{ "hello world",{8,9}, abc, Foo.abc }' rule: #characterStringList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testCharacterStringType [ self parse: 'CHARACTER STRING' rule: #characterStringType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testCharsDefn [ self parse: '"hello world"' rule: #charsDefn. self parse: '"hello""world"' rule: #charsDefn. @@ -309,7 +310,7 @@ ASN1SyntaxTest >> testCharsDefn [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testChoiceType [ | alternativeTypeList | self parse: 'CHOICE { @@ -325,12 +326,12 @@ ASN1SyntaxTest >> testChoiceType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testChoiceValue [ self parse: 'local:1' rule: #choiceValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testClassWithMultipleConstraints [ self parse: 'TelephonyString ::= IA5String @@ -338,13 +339,13 @@ ASN1SyntaxTest >> testClassWithMultipleConstraints [ "#"))(SIZE (1..15))' rule: #assignmentList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testComponentRelationConstraint [ self parse: '{Operations}{@opcode}' rule: #componentRelationConstraint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testComponentType [ self parse: 'name Name' rule: #componentType. self parse: 'name Name' rule: #componentType. @@ -353,7 +354,7 @@ ASN1SyntaxTest >> testComponentType [ self parse: 'COMPONENTS OF Foo' rule: #componentType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testComponentTypeList [ self parse: 'name Name, foo Bar' rule: #componentTypeList. self parse: 'name Name ,foo Bar' rule: #componentTypeList. @@ -363,7 +364,7 @@ ASN1SyntaxTest >> testComponentTypeList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testComponentTypeLists [ self parse: 'name Name, foo Bar' rule: #componentTypeLists. self parse: 'name Name, foo Bar, ...' rule: #componentTypeLists. @@ -375,31 +376,31 @@ ASN1SyntaxTest >> testComponentTypeLists [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testComponentValueList [ self parse: 'foo bar, bar foo, foor bar' rule: #componentValueList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testConstrainedType [ self parse: 'INTEGER (0 | 8..20)' rule: #type. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testConstraint [ self parse: '(SIZE(0..4))' rule: #constraint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testContainedSubtype [ self parse: 'INCLUDES Divisors-of-6' rule: #containedSubtype. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testContentsConstraint [ self parse: 'CONTAINING Foo' rule: #contentsConstraint. self parse: 'ENCODED BY local:1' rule: #contentsConstraint. @@ -407,7 +408,7 @@ ASN1SyntaxTest >> testContentsConstraint [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefaultSyntax [ self parse: '{ &ArgumentType Matrix, @@ -417,12 +418,12 @@ ASN1SyntaxTest >> testDefaultSyntax [ }' rule: #defaultSyntax ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinedObjectClass [ self parse: 'FOO-BAR' rule: #definedObjectClass ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinedSyntax [ self parse: '{ ARGUMENT Matrix @@ -431,14 +432,14 @@ ERRORS {determinantIsZero} CODE 7 }' rule: #definedSyntax ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinedType [ self parse: 'TCMessage{{Supported-MAP-Operations}, {Supported-MAP-Operations}}' rule: #definedType. self parse: 'Foo.Bar' rule: #definedType. self parse: 'TCMessage' rule: #definedType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinedValue [ self parse: 'Abc.def' rule: #definedValue. self parse: 'def' rule: #definedValue. @@ -448,19 +449,19 @@ ASN1SyntaxTest >> testDefinedValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinitiveIdentification [ self parse: '{itu-t recommendation q 775 modules(2) examples(2) version1(1)}' rule: #definitiveIdentification ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinitiveNameAndNumberForm [ self parse: 'itu-t(34)' rule: #definitiveNameAndNumberForm. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinitiveObjIdComponent [ self parse: 'itu-t' rule: #definitiveObjIdComponent. self parse: '34' rule: #definitiveObjIdComponent. @@ -468,20 +469,20 @@ ASN1SyntaxTest >> testDefinitiveObjIdComponent [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testDefinitiveOid [ | parsed | parsed := self parse: '{itu-t recommendation q 775 modules(2) examples(2) version1(1)}' rule: #definitiveOid. self assert: parsed size =7 ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testElementSetSpec [ self parse: 'updateLocation | cancelLocation | purgeMS | sendIdentification | updateGprsLocation | prepareHandover | sendEndSignal' rule: #elementSetSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testElementSetSpecs [ | setSpec | setSpec := 'updateLocation | cancelLocation | purgeMS'. @@ -492,7 +493,7 @@ ASN1SyntaxTest >> testElementSetSpecs [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testElements [ self parse: '1..2' rule: #elements. self parse: '( updateLocation | fooBar )' rule: #elements. @@ -500,13 +501,13 @@ ASN1SyntaxTest >> testElements [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEncodingPrefixedType [ self parse: '[ABC:foobar] FooBar' rule: #encodingPrefixedType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEncodingReference [ self parse: 'ABC:' rule: #encodingReference. self parse: 'FOO-3BAR:' rule: #encodingReference. @@ -517,7 +518,7 @@ ASN1SyntaxTest >> testEncodingReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEncodingReferenceDefault [ self parse: 'ABC:INSTRUCTIONS' rule: #encodingReferenceDefault. self parse: 'FOO-3BAR:INSTRUCTIONS' rule: #encodingReferenceDefault. @@ -525,19 +526,19 @@ ASN1SyntaxTest >> testEncodingReferenceDefault [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEnumeratedType [ self parse: 'ENUMERATED {fdd(0), tdd(1)}' rule: #enumeratedType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEnumeration [ self parse: 'foo,bar(2),hello' rule: #enumeration. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testEnumerations [ self parse: 'foo,bar(2),hello' rule: #enumerations. self parse: 'foo,bar(2),hello, ...' rule: #enumerations. @@ -548,7 +549,7 @@ ASN1SyntaxTest >> testEnumerations [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExceptionIdentification [ self parse: '-234' rule: #exceptionIdentification. self parse: 'abc' rule: #exceptionIdentification. @@ -557,20 +558,20 @@ ASN1SyntaxTest >> testExceptionIdentification [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExceptionSpec [ self parse: '! -234' rule: #exceptionSpec. self parse: '! Foobar:xyz' rule: #exceptionSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExclusions [ self parse: 'EXCEPT 1..3' rule: #exclusions. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExports [ self parse: 'EXPORTS cancel, @@ -580,7 +581,7 @@ ASN1SyntaxTest >> testExports [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAddition [ self parse: 'name Name' rule: #extensionAddition. self parse: '[[ name Name, foo Bar]]' rule: #extensionAddition. @@ -588,7 +589,7 @@ ASN1SyntaxTest >> testExtensionAddition [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionAlternative [ self parse: 'name Name' rule: #extensionAddition. self parse: '[[ name Name, foo Bar]]' rule: #extensionAddition. @@ -596,7 +597,7 @@ ASN1SyntaxTest >> testExtensionAdditionAlternative [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionAlternatives [ self parse: ',name Name, foo Bar' rule: #extensionAdditionAlternatives. self parse: ',[[ name Name, foo Bar]]' rule: #extensionAdditionAlternatives. @@ -604,14 +605,14 @@ ASN1SyntaxTest >> testExtensionAdditionAlternatives [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionAlternativesGroup [ self parse: '[[ name Name, foo Bar]]' rule: #extensionAdditionGroup. self parse: '[[ 456: name Name, foo Bar ]]' rule: #extensionAdditionGroup. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionAlternativesList [ self parse: 'name Name, foo Bar' rule: #extensionAdditionAlternativesList. self parse: '[[ name Name, foo Bar]]' rule: #extensionAdditionAlternativesList. @@ -619,14 +620,14 @@ ASN1SyntaxTest >> testExtensionAdditionAlternativesList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionGroup [ self parse: '[[ name Name, foo Bar]]' rule: #extensionAdditionGroup. self parse: '[[ 456: name Name, foo Bar ]]' rule: #extensionAdditionGroup. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditionList [ self parse: 'name Name, foo Bar' rule: #extensionAdditionList. self parse: '[[ name Name, foo Bar]]' rule: #extensionAdditionList. @@ -634,7 +635,7 @@ ASN1SyntaxTest >> testExtensionAdditionList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAdditions [ self parse: ', name Name' rule: #extensionAdditions. self parse: ', [[ name Name, foo Bar]]' rule: #extensionAdditions. @@ -643,37 +644,37 @@ ASN1SyntaxTest >> testExtensionAdditions [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionAndException [ self parse: '...' rule: #extensionAndException. self parse: '... ! Foo:bar' rule: #extensionAndException. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExtensionEndMarker [ self parse: ', ...' rule: #extensionEndMarker. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExternalObjectClassReference [ self parse: 'Foobar.FOOBAR' rule: #externalObjectClassReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExternalObjectSetReference [ self parse: 'Foobar.FOOBAR' rule: #externalObjectSetReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExternalTypeReference [ self parse: 'Foobar.FOOBAR' rule: #externalTypeReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testExternalValueReference [ self parse: 'Abc.def' rule: #externalValueReference. self parse: 'Abc-def.hig-plo2' rule: #externalValueReference. @@ -683,7 +684,7 @@ ASN1SyntaxTest >> testExternalValueReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testFieldName [ self parse: '&ArgumentType' rule: #fieldName. self parse: '&Errors.&Parameter' rule: #fieldName. @@ -694,44 +695,44 @@ ASN1SyntaxTest >> testFieldName [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testFieldSpec [ self parse: '&Errors ERROR OPTIONAL' rule: #fieldSpec. self parse: '&argumentTypeOptional BOOLEAN OPTIONAL' rule: #fieldSpec. self parse: '&ArgumentType OPTIONAL' rule: #fieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testFixedTypeValueFieldSpec [ self parse: '&operationCode Code UNIQUE OPTIONAL' rule: #fixedTypeValueFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testFixedTypeValueSetFieldSpec [ self parse: '&Errors ERROR OPTIONAL' rule: #fixedTypeValueSetFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testFullSpecification [ self parse: '{ foobar OPTIONAL, bogus PRESENT }' rule: #fullSpecification. self parse: '{ foobar (1..2) ABSENT, vague (SIZE(16)) OPTIONAL }' rule: #fullSpecification. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testGlobalModuleReference [ self parse: 'Foo { one two three }' rule: #globalModuleReference ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testGovernor [ self parse: 'Foo' rule: #governor. self parse: 'FOO' rule: #governor. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testHString [ self parse: '''0010011''H' rule: #hString. self parse: '''001 00 @@ -744,7 +745,7 @@ ASN1SyntaxTest >> testHString [ self assert: (self parse: '''DEADBEEF''H' rule: #hString) = 'DEADBEEF' ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testIdentifier [ self parse: 'a' rule: #identifier. self parse: 'local' rule: #identifier. @@ -766,7 +767,7 @@ ASN1SyntaxTest >> testIdentifier [ self assert: (self parse: 'abc-Def34' rule: #identifier) value = 'abc-Def34' ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testIdentifierList [ self parse: 'a' rule: #identifierList. self parse: 'abc' rule: #identifierList. @@ -777,7 +778,7 @@ ASN1SyntaxTest >> testIdentifierList [ self assert: (self parse: 'abc,def,ghj' rule: #identifierList) = #( 'abc' 'def' 'ghj' ) ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testImports [ self parse: 'IMPORTS OPERATION, ERROR @@ -786,17 +787,17 @@ ASN1SyntaxTest >> testImports [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testInnerTypeConstraints [ self parse: 'WITH COMPONENTS (1..8)' rule: #innerTypeConstraints ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testInstanceOfType [ self parse: 'INSTANCE OF FOO' rule: #instanceOfType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testIntegerType [ self parse: 'INTEGER { a(2) }' rule: #integerType. self parse: 'INTEGER{ b(3), h(a) }' rule: #integerType. @@ -805,20 +806,20 @@ ASN1SyntaxTest >> testIntegerType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testIntegerValue [ self parse: '-15' rule: #integerValue. self parse: 'foobar' rule: #integerValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testIntersections [ self parse: '1 ^ 2' rule: #intersections. self parse: '1 ^ 2 .. 83' rule: #intersections. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testLiteral [ self parse: 'A' rule: #literal. self parse: 'ABC' rule: #literal. @@ -831,7 +832,7 @@ ASN1SyntaxTest >> testLiteral [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testLowerEndPoint [ self parse: '2' rule: #lowerEndPoint. self parse: 'foobar' rule: #lowerEndPoint. @@ -839,7 +840,7 @@ ASN1SyntaxTest >> testLowerEndPoint [ self parse: '2<' rule: #lowerEndPoint ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testModuleBody [ self parse: '' rule: #moduleBody. self parse: 'IMPORTS @@ -975,12 +976,12 @@ TCInvokeIdSet ::= InvokeId(WITH COMPONENTS { })' rule: #moduleBody ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testModuleDefinition [ self parse: self class moduleDefinition rule: #moduleDefinition ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testModuleIdentifier [ self parse: 'TCAP-Examples {itu-t recommendation q 775 modules(2) examples(2) version1(1)}' rule: #moduleIdentifier. self parse: '-- Generated by Asnp, the pretty-printer of France Telecom R&D (http://asn1.elibel.tm.fr/asnp/) @@ -991,25 +992,25 @@ TCAPMessages {itu-t recommendation q 773 modules(2) messages(1) version3(3)} ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNameAndNumberForm [ self assert: (self parse: 'modules(3)' rule: #nameAndNumberForm) = #( 'modules' '3' ) ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedBit [ self parse: 'hello (0)' rule: #namedBit. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedBitList [ self parse: 'foobar(15), barfoo(16), lolo(18)' rule: #namedBitList ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedConstraint [ self parse: 'foobar OPTIONAL' rule: #namedConstraint. self parse: 'foobar (1..2) ABSENT' rule: #namedConstraint. @@ -1017,7 +1018,7 @@ ASN1SyntaxTest >> testNamedConstraint [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedNumber [ self parse: 'abc ( 153 )' rule: #namedNumber. self parse: 'abc ( -32 )' rule: #namedNumber. @@ -1027,7 +1028,7 @@ ASN1SyntaxTest >> testNamedNumber [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedNumberList [ self parse: 'abc ( 153 ), def(178)' rule: #namedNumberList. self parse: 'abc ( -32 ) ,xyz(178178),foobar( hallo )' rule: #namedNumberList. @@ -1037,19 +1038,19 @@ ASN1SyntaxTest >> testNamedNumberList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedValue [ self parse: 'foo bar' rule: #namedValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNamedValueList [ self parse: 'foo bar, bar foo, foor bar' rule: #namedValueList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNumber [ self parse: '1' rule: #number. self parse: '1362763728' rule: #number. @@ -1059,14 +1060,14 @@ ASN1SyntaxTest >> testNumber [ self fail: '' rule: #number ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testNumericRealValue [ self parse: '1.456789e-10' rule: #numericRealValue. self parse: '-1.E-10' rule: #numericRealValue. self parse: '{}' rule: #numericRealValue ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObject [ self parse: '{ ARGUMENT INTEGER @@ -1076,7 +1077,7 @@ ASN1SyntaxTest >> testObject [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectAssignment [ self parse: 'mapSpecificAS ABSTRACT-SYNTAX ::= { MapSpecificPDUs @@ -1085,13 +1086,13 @@ ASN1SyntaxTest >> testObjectAssignment [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectClassAssignment [ self parse: 'FOOBAR ::= CLASS {&ArgumentType OPTIONAL}' rule: #objectClassAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectClassDefn [ self parse: 'CLASS { &ArgumentType OPTIONAL, @@ -1100,13 +1101,13 @@ ASN1SyntaxTest >> testObjectClassDefn [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectClassFieldType [ self parse: 'FOOBAR.&fooBar' rule: #objectClassFieldType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectClassReference [ self parse: 'FOOBAR' rule: #objectClassReference. @@ -1115,37 +1116,37 @@ ASN1SyntaxTest >> testObjectClassReference [ self fail: 'FooBAR' rule: #objectClassReference ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectFieldReference [ self parse: '&fooBar' rule: #objectFieldReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectFieldSpec [ self parse: '&fooBar FOOBAR' rule: #objectFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectFromObject [ self parse: 'fooBar.&fooBar' rule: #objectFromObject. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectIdentifierType [ self parse: 'OBJECT IDENTIFIER' rule: #objectIdentifierType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectIdentifierValue [ self parse: '{ joint-iso-itu-t module(3) }' rule: #objectIdentifierValue ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectOptionalitySpec [ self parse: 'OPTIONAL' rule: #objectOptionalitySpec. self parse: 'DEFAULT foobar' rule: #objectOptionalitySpec. @@ -1153,13 +1154,13 @@ ASN1SyntaxTest >> testObjectOptionalitySpec [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectReference [ self parse: 'mapSpecificAS' rule: #objectReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSet [ self parse: '{a | b | c}' rule: #objectSet. self parse: '{ ... }' rule: #objectSet. @@ -1167,44 +1168,44 @@ ASN1SyntaxTest >> testObjectSet [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetAssignment [ self parse: 'Foobar FOOBAR ::= { 1..2 }' rule: #objectSetAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetElements [ self parse: '{ Foobar }' rule: #objectSetElements. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetFieldReference [ self parse: '&Foobar' rule: #objectSetFieldReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetFieldSpec [ self parse: '&Foobar FOOBAR' rule: #objectSetFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetFromObjects [ self parse: 'foobar.&Foobar' rule: #objectSetFromObjects. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetOptionality [ self parse: 'OPTIONAL' rule: #objectSetOptionality. self parse: 'DEFAULT { a | b | c }' rule: #objectSetOptionality. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testObjectSetSpec [ self parse: 'a | b | c' rule: #objectSetSpec. self parse: 'a | b | c, ...' rule: #objectSetSpec. @@ -1214,7 +1215,7 @@ ASN1SyntaxTest >> testObjectSetSpec [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testOctetStringValue [ self parse: '''010101''B' rule: #bitStringValue. self parse: '''DEADBEEF''H' rule: #bitStringValue. @@ -1222,43 +1223,43 @@ ASN1SyntaxTest >> testOctetStringValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testOpenTypeFieldVal [ self parse: 'Foobar:foobar' rule: #openTypeFieldVal. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testOptionalExtensionMarker [ self parse: ',...' rule: #optionalExtensionMarker. self parse: ', ...' rule: #optionalExtensionMarker. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testOptionalGroup [ self parse: '[ FOOBAR ]' rule: #optionalGroup. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParamGovernor [ self parse: 'FooBar' rule: #paramGovernor. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameter [ self parse: 'OPERATION:Invokable' rule: #parameter. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterList [ self parse: '{OPERATION:Invokable}' rule: #parameterList. self parse: '{OPERATION:Invokable,OPERATION:Foo}' rule: #parameterList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedAssignment [ self parse: 'TCMessage{OPERATION:Invokable, OPERATION:Returnable} ::= CHOICE { unidirectional [APPLICATION 1] Unidirectional{{Invokable}, {Returnable}}, @@ -1270,47 +1271,47 @@ ASN1SyntaxTest >> testParameterizedAssignment [ ' rule: #parameterizedAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObject [ self parse: 'foobar{Foobar}' rule: #parameterizedObject ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObjectAssignment [ self parse: 'foobar{Foobar} FOOBAR ::= foobar' rule: #parameterizedObjectAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObjectClass [ self parse: 'FOOBAR{Foobar}' rule: #parameterizedObjectClass ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObjectClassAssignment [ self parse: 'FOOBAR{Foobar} ::= FOOBAR' rule: #parameterizedObjectClassAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObjectSet [ self parse: 'Foobar{Foobar}' rule: #parameterizedObjectSet ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedObjectSetAssignment [ self parse: 'Foobar{Foobar} FOOBAR ::= { 1..2 }' rule: #parameterizedObjectSetAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedReference [ self parse: 'Foobar{}' rule: #parameterizedReference ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedType [ self parse: 'Foobar{Foobar}' rule: #parameterizedType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedTypeAssignment [ self parse: 'ComponentPortion{OPERATION:Invokable, OPERATION:Returnable} ::= CHOICE { bla BLUBB @@ -1323,46 +1324,46 @@ self parse: 'ComponentPortion{OPERATION:Invokable, OPERATION:Returnable} ::= SEQUENCE SIZE (1..MAX) OF Component{{Invokable}, {Returnable}}' rule: #parameterizedAssignment ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedValue [ self parse: 'foo{Bar}' rule: #parameterizedValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedValueAssignment [ self parse: 'foobar{Foobar} Foobar ::= foobar' rule: #parameterizedValueAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedValueSetType [ self parse: 'Foobar{Foobar}' rule: #parameterizedValueSetType ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testParameterizedValueSetTypeAssignment [ self parse: 'Foobar{Foobar} Foobar ::= { 1..2 }' rule: #parameterizedValueSetTypeAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testPartialSpecification [ self parse: '{ ..., foobar ABSENT}' rule: #partialSpecification. self parse: '{ ..., foobar (SIZE(4)) ABSENT}' rule: #partialSpecification ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testPatternConstraint [ self parse: 'PATTERN foobaar' rule: #patternConstraint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testPrefixedType [ self parse: '[APPLICATION 2] IMPLICIT Foobar' rule: #prefixedType. self parse: '[0] IMPLICIT IsdnNumber' rule: #prefixedType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testPrimitiveFieldName [ self parse: '&fooBar' rule: #primitiveFieldName. self parse: '&FooBar' rule: #primitiveFieldName. @@ -1370,25 +1371,25 @@ ASN1SyntaxTest >> testPrimitiveFieldName [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testPropertySettings [ self parse: 'SETTINGS "foobar"' rule: #propertySettings. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testQuadruple [ self parse: '{ 12, 48, 34, 189}' rule: #quadruple. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRealNumber [ self parse: '1.456789e-10' rule: #realNumber. self parse: '1.E-10' rule: #realNumber ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRealValue [ self parse: 'PLUS-INFINITY' rule: #realValue. self parse: 'NOT-A-NUMBER' rule: #realValue. @@ -1396,7 +1397,7 @@ ASN1SyntaxTest >> testRealValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testReference [ self parse: 'Foobar' rule: #reference. self parse: 'foobar' rule: #reference. @@ -1404,14 +1405,14 @@ ASN1SyntaxTest >> testReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testReferencedObjects [ self parse: 'foobar' rule: #referencedObjects. self parse: 'Foobar' rule: #referencedObjects. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testReferencedType [ self parse: 'Foobar' rule: #referencedType. self parse: 'foobar> testReferencedType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testReferencedValue [ self parse: 'foobar' rule: #referencedValue. self parse: 'foobar.&foobar' rule: #referencedValue. @@ -1429,7 +1430,7 @@ ASN1SyntaxTest >> testReferencedValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRelativeOidComponents [ self parse: '1' rule: #relativeOidComponents. self parse: 'foo(1)' rule: #relativeOidComponents. @@ -1437,13 +1438,13 @@ ASN1SyntaxTest >> testRelativeOidComponents [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRelativeOidValue [ self parse: '{ foo foo(3) 4}' rule: #relativeOidValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRequiredToken [ self parse: 'FOO' rule: #requiredToken. self parse: '&Foo' rule: #requiredToken. @@ -1453,7 +1454,7 @@ ASN1SyntaxTest >> testRequiredToken [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRestrictedCharacterStringType [ self parse: 'IA5String' rule: #restrictedCharacterStringType. self parse: 'UTF8String' rule: #restrictedCharacterStringType. @@ -1461,7 +1462,7 @@ ASN1SyntaxTest >> testRestrictedCharacterStringType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testRestrictedCharacterStringValue [ self parse: '"hello world"' rule: #restrictedCharacterStringValue. self parse: '{ "hello world",{8,9}, abc, Foo.abc }' rule: #restrictedCharacterStringValue. @@ -1470,19 +1471,19 @@ ASN1SyntaxTest >> testRestrictedCharacterStringValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSelectionType [ self parse: 'present < TCInvokeIdSet' rule: #selectionType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSequenceOfType [ self parse: 'SEQUENCE OF Foo' rule: #sequenceOfType. self parse: 'SEQUENCE OF foo Foo' rule: #sequenceOfType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSequenceOfValue [ self parse: '{}' rule: #sequenceOfValue. self parse: '{ 1,2,3,4,5,6,7 }' rule: #sequenceOfValue. @@ -1491,7 +1492,7 @@ ASN1SyntaxTest >> testSequenceOfValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSequenceType [ self parse: 'SEQUENCE {}' rule: #sequenceType. self parse: 'SEQUENCE { name Name }' rule: #sequenceType. @@ -1505,14 +1506,14 @@ ASN1SyntaxTest >> testSequenceType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSetOfType [ self parse: 'SET OF Foo' rule: #setOfType. self parse: 'SET OF foo Foo' rule: #setOfType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSetOfValue [ self parse: '{}' rule: #setOfValue. self parse: '{ 1,2,3,4,5,6,7 }' rule: #setOfValue. @@ -1521,7 +1522,7 @@ ASN1SyntaxTest >> testSetOfValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSetType [ self parse: 'SET {}' rule: #setType. self parse: 'SET { name Name }' rule: #setType. @@ -1531,7 +1532,7 @@ ASN1SyntaxTest >> testSetType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSetValue [ self parse: '{}' rule: #setValue. self parse: '{ foo bar }' rule: #setValue. @@ -1540,7 +1541,7 @@ ASN1SyntaxTest >> testSetValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSetting [ self parse: 'Foobar' rule: #setting. self parse: 'foobar' rule: #setting. @@ -1550,7 +1551,7 @@ ASN1SyntaxTest >> testSetting [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSignedNumber [ self parse: '1' rule: #signedNumber. self parse: '1362763728' rule: #signedNumber. @@ -1561,33 +1562,33 @@ ASN1SyntaxTest >> testSignedNumber [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSpecialRealValue [ self parse: 'PLUS-INFINITY' rule: #specialRealValue. self parse: 'NOT-A-NUMBER' rule: #specialRealValue. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSubTypeElements [ self parse: '1..10' rule: #subTypeElements. self parse: 'SIZE(4)' rule: #subTypeElements. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSymbol [ self parse: 'OPERATION' rule: #symbol. self parse: 'ROS{}' rule: #symbol. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSymbolList [ self parse: 'OPERATION,ERROR' rule: #symbolList. self parse: 'ROS{}, InvokeId' rule: #symbolList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSymbolsFromModule [ self parse: 'ROS{}, InvokeId FROM Remote-Operations-Generic-ROS-PDUs {joint-iso-itu-t @@ -1595,7 +1596,7 @@ ASN1SyntaxTest >> testSymbolsFromModule [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testSyntaxList [ self parse: '{ ABC }' rule: #syntaxList. self parse: '{ @@ -1607,18 +1608,18 @@ ASN1SyntaxTest >> testSyntaxList [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTString [ self parse: '"2011-05-29T21:00:00Z"' rule: #tString. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTableConstraint [ self parse: '{ExtensionSet}{@extId}' rule: #tableConstraint ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTag [ self parse: '[ TAG:APPLICATION 0]' rule: #tag. self parse: '[APPLICATION 1]' rule: #tag. @@ -1630,7 +1631,7 @@ ASN1SyntaxTest >> testTag [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTagClass [ self parse: '' rule: #tagClass. self parse: 'UNIVERSAL' rule: #tagClass. @@ -1640,7 +1641,7 @@ ASN1SyntaxTest >> testTagClass [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTagDefault [ self parse: 'IMPLICIT TAGS' rule: #tagDefault. self parse: 'EXPLICIT TAGS' rule: #tagDefault. @@ -1649,7 +1650,7 @@ ASN1SyntaxTest >> testTagDefault [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTagNumber [ self parse: '153' rule: #tagNumber. self parse: 'abc' rule: #tagNumber. @@ -1657,20 +1658,20 @@ ASN1SyntaxTest >> testTagNumber [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTaggedType [ self parse: '[APPLICATION 2] IMPLICIT Foobar' rule: #taggedType. self parse: '[0] IMPLICIT IsdnNumber' rule: #taggedType. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTuple [ self parse: '{ 12, 48}' rule: #tuple. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testType [ self parse: 'Foobar' rule: #type. self parse: 'Foobar(Foobar)' rule: #type. @@ -1678,7 +1679,7 @@ ASN1SyntaxTest >> testType [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeAssignment [ self parse: 'PersonnelRecord ::= [APPLICATION 0] SET { name Name, @@ -1696,33 +1697,33 @@ ASN1SyntaxTest >> testTypeAssignment [ self parse: 'OrigTransactionID ::= [APPLICATION 8] OCTET STRING(SIZE (1..4))' rule: #typeAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeConstraints [ self parse: 'foobar OPTIONAL, bogus PRESENT' rule: #typeConstraints. self parse: 'foobar (1..2) ABSENT, vague (SIZE(16)) OPTIONAL' rule: #typeConstraints. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeFieldReference [ self parse: '&Errors' rule: #typeFieldReference. self fail: '&argumentTypeOptional' rule: #typeFieldReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeFieldSpec [ self parse: '&ArgumentType OPTIONAL' rule: #typeFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeFromObject [ self parse: 'OPERATION.&operationCode' rule: #typeFromObject. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeReference [ self parse: 'A' rule: #typeReference. self parse: 'Abc' rule: #typeReference. @@ -1737,44 +1738,44 @@ ASN1SyntaxTest >> testTypeReference [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testTypeWithConstraint [ self parse: 'SEQUENCE (SIZE(32)) OF PairOfCarrierFrequencies' rule: #typeWithConstraint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testUnions [ self parse: '1 | 2' rule: #unions. self parse: '1 UNION 2 .. 83' rule: #unions. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testUpperEndPoint [ self parse: 'MAX' rule: #upperEndPoint. self parse: '<14' rule: #upperEndPoint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testUsefulObjectClassReference [ self parse: 'ABSTRACT-SYNTAX' rule: #usefulObjectClassReference ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testUserDefinedConstraint [ self parse: 'CONSTRAINED BY { -- must be in the &Linked field of the associated operation -- }' rule: #userDefinedConstraint. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testUserDefinedConstraintParameter [ self parse: 'Foobar:foobar' rule: #userDefinedConstraintParameter. self parse: 'Foobar' rule: #userDefinedConstraintParameter. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValue [ self parse: '1' rule: #value. self parse: 'foobar' rule: #value. @@ -1783,31 +1784,31 @@ ASN1SyntaxTest >> testValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueAssignment [ self parse: 'foobar Foobar ::= foobar' rule: #valueAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueFieldReference [ self parse: '&argumentTypeOptional' rule: #valueFieldReference. self fail: '&Errors' rule: #valueFieldReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueList [ self parse: '1,2,3,4,5,6,7' rule: #valueList. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueRange [ self parse: '10..20' rule: #valueRange. self parse: '10< .. < 200' rule: #valueRange. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueSet [ self parse: '{updateLocation | cancelLocation | purgeMS | sendIdentification | updateGprsLocation | prepareHandover | sendEndSignal }' rule: #valueSet. self parse: '{updateLocation | cancelLocation | purgeMS | sendIdentification, ... }' rule: #valueSet. @@ -1816,20 +1817,20 @@ ASN1SyntaxTest >> testValueSet [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueSetFieldReference [ self parse: '&ArgumentTypeOptional' rule: #valueSetFieldReference. self fail: '&errors' rule: #valueSetFieldReference. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueSetFromObjects [ self parse: 'updateLocation.&foobar' rule: #valueSetFromObjects. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueSetOptionalitySpec [ self parse: 'OPTIONAL' rule: #valueSetOptionalitySpec. self parse: 'DEFAULT {foobar}' rule: #valueSetOptionalitySpec. @@ -1837,28 +1838,28 @@ ASN1SyntaxTest >> testValueSetOptionalitySpec [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testValueSetTypeAssignment [ self parse: 'Foobar Foobar ::= { foobar }' rule: #valueSetTypeAssignment. self parse: 'MAPOperations-Invokable OPERATION ::= {sendRoutingInfoForSM | mo-ForwardSM | mt-ForwardSM}' rule: #valueSetTypeAssignment. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testVariableTypeValueFieldSpec [ self parse: '&foobar &foo.&bar DEFAULT {foobar}' rule: #variableTypeValueFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testVariableTypeValueSetFieldSpec [ self parse: '&Foobar &foo.&bar OPTIONAL' rule: #variableTypeValueSetFieldSpec. ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testVersionNumber [ self parse: '' rule: #versionNumber. self parse: '1:' rule: #versionNumber. @@ -1866,7 +1867,7 @@ ASN1SyntaxTest >> testVersionNumber [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1SyntaxTest >> testWithSyntaxSpec [ self parse: 'WITH SYNTAX { [ARGUMENT &ArgumentType diff --git a/ASN1-Tests-Syntax/PPCompositeParserTest.extension.st b/ASN1-Tests-Syntax/PPCompositeParserTest.extension.st index dbc97e2..5a46847 100644 --- a/ASN1-Tests-Syntax/PPCompositeParserTest.extension.st +++ b/ASN1-Tests-Syntax/PPCompositeParserTest.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #PPCompositeParserTest } +Extension { #name : 'PPCompositeParserTest' } -{ #category : #'*asn1-tests-syntax' } +{ #category : '*asn1-tests-syntax' } PPCompositeParserTest >> parse: aString ruleSelector: aSymbol [ | production | production := self parserInstance. diff --git a/ASN1-Tests-Syntax/package.st b/ASN1-Tests-Syntax/package.st index 1b11439..5cfbfbd 100644 --- a/ASN1-Tests-Syntax/package.st +++ b/ASN1-Tests-Syntax/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-Syntax' } +Package { #name : 'ASN1-Tests-Syntax' } diff --git a/ASN1-Tests-Tool/ASN1PacketTest.class.st b/ASN1-Tests-Tool/ASN1PacketTest.class.st index 692481f..ce0a391 100644 --- a/ASN1-Tests-Tool/ASN1PacketTest.class.st +++ b/ASN1-Tests-Tool/ASN1PacketTest.class.st @@ -1,23 +1,24 @@ Class { - #name : #ASN1PacketTest, - #superclass : #TestCase, + #name : 'ASN1PacketTest', + #superclass : 'TestCase', #instVars : [ 'asn1' ], - #category : 'ASN1-Tests-Tool' + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1PacketTest >> readFrom: anObject [ ^ self tcapModule readFrom: anObject readStream inContext: self asn1Model ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1PacketTest >> readResolvedFrom: anObject [ ^ self tcapModule readFrom: anObject readStream inContext: self asn1Model ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1PacketTest >> roundTripTestFor: anObject [ | object data | self asn1Model resolveOidsWhile: [ diff --git a/ASN1-Tests-Tool/ASN1ReadWriteTest.class.st b/ASN1-Tests-Tool/ASN1ReadWriteTest.class.st index c36f1cb..36119a4 100644 --- a/ASN1-Tests-Tool/ASN1ReadWriteTest.class.st +++ b/ASN1-Tests-Tool/ASN1ReadWriteTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1ReadWriteTest, - #superclass : #ASN1ToolTest, - #category : 'ASN1-Tests-Tool' + #name : 'ASN1ReadWriteTest', + #superclass : 'ASN1ToolTest', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadWriteTest >> testExplicitModeChoiceWithCustomTagsExplicit [ | result array | result := self @@ -18,7 +19,7 @@ ASN1ReadWriteTest >> testExplicitModeChoiceWithCustomTagsExplicit [ self assert: (array = #[ 160 3 2 1 24 ] ). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadWriteTest >> testImplicitModeChoiceWithCustomTags [ | result array | result := self diff --git a/ASN1-Tests-Tool/ASN1ReaderTest.class.st b/ASN1-Tests-Tool/ASN1ReaderTest.class.st index 25e2a0a..0af5bb4 100644 --- a/ASN1-Tests-Tool/ASN1ReaderTest.class.st +++ b/ASN1-Tests-Tool/ASN1ReaderTest.class.st @@ -1,15 +1,16 @@ Class { - #name : #ASN1ReaderTest, - #superclass : #ASN1ToolTest, - #category : 'ASN1-Tests-Tool' + #name : 'ASN1ReaderTest', + #superclass : 'ASN1ToolTest', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> simpleChoice [ ^ ASN1ExampleGrammarTestResource new modelBindingValue: 'SimpleChoice' ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testConstructedComplexChoiceExplicit [ | result | result := self @@ -20,7 +21,7 @@ ASN1ReaderTest >> testConstructedComplexChoiceExplicit [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testConstructedComplexChoiceImplicit [ | result | result := self @@ -32,7 +33,7 @@ ASN1ReaderTest >> testConstructedComplexChoiceImplicit [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExplicitModeChoiceWithCustomTags [ | result | result := self @@ -42,7 +43,7 @@ ASN1ReaderTest >> testExplicitModeChoiceWithCustomTags [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExplicitModeSequenceWithCustomTags [ | result | result := self @@ -52,7 +53,7 @@ ASN1ReaderTest >> testExplicitModeSequenceWithCustomTags [ self assert: result othernumber = 34 ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExtensionExtendedValue [ "at the location of the extension two tags have been injected:[3] and [4]. The code should skip those but don't abort the processing" @@ -70,7 +71,7 @@ ASN1ReaderTest >> testExtensionExtendedValue [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExtensionFirstMandatory [ "simple test to read the first mandatory field of a sequence with extension" | result | @@ -87,7 +88,7 @@ ASN1ReaderTest >> testExtensionFirstMandatory [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExtensionMissingFirstMandatory [ self @@ -99,7 +100,7 @@ ASN1ReaderTest >> testExtensionMissingFirstMandatory [ raise: ASN1MandatoryElementNotFound ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExtensionMissingSecondMandatory [ self @@ -111,7 +112,7 @@ ASN1ReaderTest >> testExtensionMissingSecondMandatory [ raise: ASN1MandatoryElementNotFound ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testExtensionSecondOverwriteDefault [ "simple test to read the first mandatory field of a sequence with extension" | result | @@ -128,7 +129,7 @@ ASN1ReaderTest >> testExtensionSecondOverwriteDefault [ ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReaderTest >> testImplicitModeSequenceWithCustomTags [ | result | result := self diff --git a/ASN1-Tests-Tool/ASN1TestWriteVisitor.class.st b/ASN1-Tests-Tool/ASN1TestWriteVisitor.class.st index e6632c2..8cac93b 100644 --- a/ASN1-Tests-Tool/ASN1TestWriteVisitor.class.st +++ b/ASN1-Tests-Tool/ASN1TestWriteVisitor.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1TestWriteVisitor, - #superclass : #ASN1WriteVisitor, - #category : 'ASN1-Tests-Tool' + #name : 'ASN1TestWriteVisitor', + #superclass : 'ASN1WriteVisitor', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1TestWriteVisitor >> mandatoryElementNotFound [ ^ self ] diff --git a/ASN1-Tests-Tool/ASN1ToolModelTest.class.st b/ASN1-Tests-Tool/ASN1ToolModelTest.class.st index 41d41e0..4bd169b 100644 --- a/ASN1-Tests-Tool/ASN1ToolModelTest.class.st +++ b/ASN1-Tests-Tool/ASN1ToolModelTest.class.st @@ -1,19 +1,20 @@ Class { - #name : #ASN1ToolModelTest, - #superclass : #ASN1ToolTest, + #name : 'ASN1ToolModelTest', + #superclass : 'ASN1ToolTest', #instVars : [ 'type' ], - #category : 'ASN1-Tests-Tool' + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ToolModelTest >> object [ ^ ASN1AdaptiveTypeObject type: (self bindingAt: 'ComplexSequence') ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testAddElementToTypedCollection [ | col | col := self typedCollection. @@ -22,7 +23,7 @@ ASN1ToolModelTest >> testAddElementToTypedCollection [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testReadExistingFieldNoValue [ | object | object := self object. @@ -30,7 +31,7 @@ ASN1ToolModelTest >> testReadExistingFieldNoValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testReadExistingFieldWithValue [ | object | object := self object. @@ -39,7 +40,7 @@ ASN1ToolModelTest >> testReadExistingFieldWithValue [ ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testReadNonExistingField [ | object | object := self object. @@ -48,21 +49,21 @@ ASN1ToolModelTest >> testReadNonExistingField [ raise: ASN1InvalidFieldName ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testWriteExpandingExistingMultiNestedField [ | object | object := self object. object beSelfExpanding sub sub3 first: 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testWriteExpandingExistingNestedField [ | object | object := self object. object beSelfExpanding sub sub1: 2 ] -{ #category : #tests } +{ #category : 'tests' } ASN1ToolModelTest >> testWriteNonExistingField [ | object | object := self object. @@ -72,7 +73,7 @@ ASN1ToolModelTest >> testWriteNonExistingField [ ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ToolModelTest >> typedCollection [ ^ ASN1AdaptiveTypeCollection type: (self bindingAt: 'TypedComplexSequence') diff --git a/ASN1-Tests-Tool/ASN1ToolTest.class.st b/ASN1-Tests-Tool/ASN1ToolTest.class.st index 4a2573c..f86a278 100644 --- a/ASN1-Tests-Tool/ASN1ToolTest.class.st +++ b/ASN1-Tests-Tool/ASN1ToolTest.class.st @@ -1,16 +1,17 @@ Class { - #name : #ASN1ToolTest, - #superclass : #ASN1ExampleGrammarTest, - #category : 'ASN1-Tests-Tool' + #name : 'ASN1ToolTest', + #superclass : 'ASN1ExampleGrammarTest', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ToolTest >> bindingAt: aString [ ^ (ASN1ExampleGrammarTestResource new model bindingNamed: aString) value. ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ToolTest >> encodeToByteArray: anObject withBinding: aString tagEnvironment: aTagEnvironment [ | binding | binding := self bindingAt: aString. @@ -23,7 +24,7 @@ ASN1ToolTest >> encodeToByteArray: anObject withBinding: aString tagEnvironment: usingType: binding ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ToolTest >> readStream: aStream withBinding: aString [ ^ self readStream: aStream @@ -31,7 +32,7 @@ ASN1ToolTest >> readStream: aStream withBinding: aString [ tagEnvironment: ASN1ExplicitTags ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ToolTest >> readStream: aStream withBinding: aString tagEnvironment: aTagEnvironment [ | binding | binding := self bindingAt: aString. @@ -44,7 +45,7 @@ ASN1ToolTest >> readStream: aStream withBinding: aString tagEnvironment: aTagEnv usingType: binding ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ToolTest >> useTagEnvironment: aTagEnvironment for: aBinding during: aBlock [ | oldTagEnvironment | [ @@ -54,7 +55,7 @@ ASN1ToolTest >> useTagEnvironment: aTagEnvironment for: aBinding during: aBlock ensure: [ aBinding tagEnvironment: oldTagEnvironment ] ] -{ #category : #creating } +{ #category : 'creating' } ASN1ToolTest >> valueFor: aString [ ^ (self bindingAt: aString) newValue ] diff --git a/ASN1-Tests-Tool/ASN1WriterTest.class.st b/ASN1-Tests-Tool/ASN1WriterTest.class.st index 40cf80b..4fefc10 100644 --- a/ASN1-Tests-Tool/ASN1WriterTest.class.st +++ b/ASN1-Tests-Tool/ASN1WriterTest.class.st @@ -1,10 +1,11 @@ Class { - #name : #ASN1WriterTest, - #superclass : #ASN1ToolTest, - #category : 'ASN1-Tests-Tool' + #name : 'ASN1WriterTest', + #superclass : 'ASN1ToolTest', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testComplexChoiceExplicit [ | data array | data := (self bindingAt: 'ComplexChoice') newValue beSelfExpanding. @@ -18,7 +19,7 @@ ASN1WriterTest >> testComplexChoiceExplicit [ self assert: (array = #[97 15 48 13 2 1 13 4 8 68 69 65 68 66 69 69 70]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testComplexChoiceImplicit [ | data array | data := (self bindingAt: 'ComplexChoice') newValue beSelfExpanding. @@ -32,7 +33,7 @@ ASN1WriterTest >> testComplexChoiceImplicit [ self assert: (array = #[97 13 2 1 13 4 8 68 69 65 68 66 69 69 70]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testConstructedComplexChoice [ | data array | data := (self bindingAt: 'SequenceWithConstruction') newValue. @@ -46,7 +47,7 @@ ASN1WriterTest >> testConstructedComplexChoice [ self assert: (array = #[164 6 165 4 131 2 49 49]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testEmptySequence [ | array | array := self @@ -56,7 +57,7 @@ ASN1WriterTest >> testEmptySequence [ self assert: (array = #[48 0]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testExplicitModeChoiceWithCustomTags [ | array data | data := (self bindingAt: 'SimpleChoice') newValue. @@ -69,7 +70,7 @@ ASN1WriterTest >> testExplicitModeChoiceWithCustomTags [ self assert: (array = #[ 160 3 2 1 24 ]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testSimpleSequence [ | data array | data := (self bindingAt: 'SimpleSequence') newValue. @@ -83,7 +84,7 @@ ASN1WriterTest >> testSimpleSequence [ self assert: (array = #[48 13 2 1 13 4 8 68 69 65 68 66 69 69 70]). ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriterTest >> testTypedSetGenericNumbers [ | array value | value := self valueFor: 'ConnectArgV1'. diff --git a/ASN1-Tests-Tool/TestASN1.class.st b/ASN1-Tests-Tool/TestASN1.class.st index ef2239e..e0b8e82 100644 --- a/ASN1-Tests-Tool/TestASN1.class.st +++ b/ASN1-Tests-Tool/TestASN1.class.st @@ -1,10 +1,11 @@ Class { - #name : #TestASN1, - #superclass : #ASN1, - #category : 'ASN1-Tests-Tool' + #name : 'TestASN1', + #superclass : 'ASN1', + #category : 'ASN1-Tests-Tool', + #package : 'ASN1-Tests-Tool' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } TestASN1 class >> writeVisitorClass [ ^ ASN1TestWriteVisitor ] diff --git a/ASN1-Tests-Tool/package.st b/ASN1-Tests-Tool/package.st index 4adb3a2..6cb3f41 100644 --- a/ASN1-Tests-Tool/package.st +++ b/ASN1-Tests-Tool/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tests-Tool' } +Package { #name : 'ASN1-Tests-Tool' } diff --git a/ASN1-Tool/ASN1.extension.st b/ASN1-Tool/ASN1.extension.st index 99aa3dc..efcd142 100644 --- a/ASN1-Tool/ASN1.extension.st +++ b/ASN1-Tool/ASN1.extension.st @@ -1,17 +1,17 @@ -Extension { #name : #ASN1 } +Extension { #name : 'ASN1' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> defaultModule [ self subclassResponsibility ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> encodeToByteArray: anObject usingModule: aModule [ ^ aModule encodeToByteArray: anObject ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> encodeToByteArray: aValue usingType: aType [ ^ ByteArray streamContents: [:stream| self @@ -20,24 +20,24 @@ ASN1 class >> encodeToByteArray: aValue usingType: aType [ usingType: aType] ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> octetStringFrom: anEncodedValue withTagNumber: aNumber [ ^ (anEncodedValue valueWithTag: ( ASN1Tag clazz: 'APPLICATION' number: aNumber)) ifNotNil: [ :value | ASN1OctetStringType decode: value contents ] ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingModule: aModule [ ^ aModule read: anEncodedValue ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingModule: aModule inContext: aContext [ ^ aModule read: anEncodedValue inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType [ ^ self read: anEncodedValue @@ -45,7 +45,7 @@ ASN1 class >> read: anEncodedValue usingType: aType [ inContext: nil ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType as: aClass [ ^ self read: anEncodedValue @@ -54,7 +54,7 @@ ASN1 class >> read: anEncodedValue usingType: aType as: aClass [ as: aClass ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext [ ^ self read: anEncodedValue @@ -63,7 +63,7 @@ ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext [ as: nil ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext as: aClass [ ^self read: anEncodedValue @@ -73,7 +73,7 @@ ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext as: aCla as: aClass ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErrors: aBoolean [ ^ self read: anEncodedValue @@ -83,7 +83,7 @@ ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErro as: nil ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErrors: aBoolean as: aClass [ ^ self read: anEncodedValue @@ -95,7 +95,7 @@ ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErro ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErrors: aBoolean as: aClass reader: aVisitor [ ^ [ aVisitor skipErrors: (aBoolean ifNil: [ false ]); @@ -106,14 +106,14 @@ ASN1 class >> read: anEncodedValue usingType: aType inContext: aContext skipErro ifNotNil: [ aContext moduleDefiningOid: err oid ] ) ] ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream [ ^ self readFrom: aStream readStream usingModule: self defaultModule ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream inContext: aContext [ ^ self readFrom: aStream readStream @@ -121,17 +121,17 @@ ASN1 class >> readFrom: aStream inContext: aContext [ inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream usingModule: aModule [ ^ aModule readFrom: aStream ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream usingModule: aModule inContext: aContext [ ^ aModule readFrom: aStream inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream usingType: aType [ ^ self readFrom: aStream @@ -140,7 +140,7 @@ ASN1 class >> readFrom: aStream usingType: aType [ ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readFrom: aStream usingType: aType inContext: aContext [ ^ self read: (self readEncodedValuesFrom: aStream) @@ -148,35 +148,35 @@ ASN1 class >> readFrom: aStream usingType: aType inContext: aContext [ inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> readVisitorClass [ ^ ASN1ReadVisitor ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> write: anObject on: aStream usingType: aType [ self writeEncodedValues: ( self write: anObject usingType: aType ) on: aStream ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> write: anObject usingModule: aModule [ ^ aModule write: anObject ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> write: anObject usingType: aType [ ^ self writeVisitorClass new write: anObject using: aType. ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> writeEncodedValues: aTaggedValue on: aStream [ (self codecStreamClass on: aStream) nextPut: aTaggedValue ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1 class >> writeVisitorClass [ ^ ASN1WriteVisitor ] diff --git a/ASN1-Tool/ASN1ChoiceType.extension.st b/ASN1-Tool/ASN1ChoiceType.extension.st index 3274b67..934203e 100644 --- a/ASN1-Tool/ASN1ChoiceType.extension.st +++ b/ASN1-Tool/ASN1ChoiceType.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #ASN1ChoiceType } +Extension { #name : 'ASN1ChoiceType' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ChoiceType >> decodeTaggedValue: aTaggedValue tagEnvironment: aTagEnvironment [ "choices are always explicit" ^ ASN1ExplicitTags readEncodedValue: aTaggedValue ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ChoiceType >> encodeTaggedValue: aTaggedValue tagEnvironment: aTagEnvironment outerTag: aTag [ "choices are always explicit" diff --git a/ASN1-Tool/ASN1DefinitionObject.extension.st b/ASN1-Tool/ASN1DefinitionObject.extension.st index 1ef8f21..4f1b54b 100644 --- a/ASN1-Tool/ASN1DefinitionObject.extension.st +++ b/ASN1-Tool/ASN1DefinitionObject.extension.st @@ -1,20 +1,20 @@ -Extension { #name : #ASN1DefinitionObject } +Extension { #name : 'ASN1DefinitionObject' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1DefinitionObject >> encodeToByteArray: anEncodedObject [ ^ ASN1 encodeToByteArray: anEncodedObject usingType: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1DefinitionObject >> read: anEncodedValue [ ^ ASN1 read: anEncodedValue usingType: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1DefinitionObject >> read: anEncodedValue as: aClass [ ^ ASN1 read: anEncodedValue @@ -23,14 +23,14 @@ ASN1DefinitionObject >> read: anEncodedValue as: aClass [ as: aClass ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1DefinitionObject >> readFrom: aStream [ ^ ASN1 readFrom: aStream usingType: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1DefinitionObject >> write: anEncodedObject [ ^ ASN1 write: anEncodedObject diff --git a/ASN1-Tool/ASN1ElementNotFound.class.st b/ASN1-Tool/ASN1ElementNotFound.class.st index 1ffbecd..8ada240 100644 --- a/ASN1-Tool/ASN1ElementNotFound.class.st +++ b/ASN1-Tool/ASN1ElementNotFound.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1ElementNotFound, - #superclass : #ASN1StructureError, - #category : 'ASN1-Tool-Exception' + #name : 'ASN1ElementNotFound', + #superclass : 'ASN1StructureError', + #category : 'ASN1-Tool-Exception', + #package : 'ASN1-Tool', + #tag : 'Exception' } -{ #category : #testing } +{ #category : 'testing' } ASN1ElementNotFound >> isResumable [ ^ true ] diff --git a/ASN1-Tool/ASN1EncodedType.extension.st b/ASN1-Tool/ASN1EncodedType.extension.st index 32037eb..2b794d4 100644 --- a/ASN1-Tool/ASN1EncodedType.extension.st +++ b/ASN1-Tool/ASN1EncodedType.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1EncodedType } +Extension { #name : 'ASN1EncodedType' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1EncodedType >> decodeTaggedValue: aTaggedValue tagEnvironment: aTagEnvironment [ ^ aTagEnvironment readEncodedValue: aTaggedValue ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1EncodedType >> encodeTaggedValue: aTaggedValue tagEnvironment: aTagEnvironment outerTag: aTag [ ^ aTagEnvironment writeEncodedValue: aTaggedValue withTag: aTag ] diff --git a/ASN1-Tool/ASN1ExplicitTags.extension.st b/ASN1-Tool/ASN1ExplicitTags.extension.st index fc3ee8f..a04924d 100644 --- a/ASN1-Tool/ASN1ExplicitTags.extension.st +++ b/ASN1-Tool/ASN1ExplicitTags.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1ExplicitTags } +Extension { #name : 'ASN1ExplicitTags' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ExplicitTags class >> readEncodedValue: anEncodedValue [ ^ anEncodedValue firstElement ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ExplicitTags class >> writeEncodedValue: anEncodedValue withTag: aTag [ "in explicit mode we add another tag around the current tagged value" ^ ASN1EncodedConstructedValue new diff --git a/ASN1-Tool/ASN1ImplicitTags.extension.st b/ASN1-Tool/ASN1ImplicitTags.extension.st index 01de270..077acee 100644 --- a/ASN1-Tool/ASN1ImplicitTags.extension.st +++ b/ASN1-Tool/ASN1ImplicitTags.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1ImplicitTags } +Extension { #name : 'ASN1ImplicitTags' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ImplicitTags class >> readEncodedValue: anEncodedValue [ ^ anEncodedValue ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ImplicitTags class >> writeEncodedValue: aEncodedValue withTag: aTag [ "in an implicit tag environment the outer tag overwrites the inner tag " diff --git a/ASN1-Tool/ASN1MandatoryElementNotFound.class.st b/ASN1-Tool/ASN1MandatoryElementNotFound.class.st index be5a463..39beadf 100644 --- a/ASN1-Tool/ASN1MandatoryElementNotFound.class.st +++ b/ASN1-Tool/ASN1MandatoryElementNotFound.class.st @@ -1,10 +1,12 @@ Class { - #name : #ASN1MandatoryElementNotFound, - #superclass : #ASN1StructureError, - #category : 'ASN1-Tool-Exception' + #name : 'ASN1MandatoryElementNotFound', + #superclass : 'ASN1StructureError', + #category : 'ASN1-Tool-Exception', + #package : 'ASN1-Tool', + #tag : 'Exception' } -{ #category : #testing } +{ #category : 'testing' } ASN1MandatoryElementNotFound >> isResumable [ ^ true ] diff --git a/ASN1-Tool/ASN1ModelRoot.extension.st b/ASN1-Tool/ASN1ModelRoot.extension.st index 6bd6490..b1697fd 100644 --- a/ASN1-Tool/ASN1ModelRoot.extension.st +++ b/ASN1-Tool/ASN1ModelRoot.extension.st @@ -1,34 +1,34 @@ -Extension { #name : #ASN1ModelRoot } +Extension { #name : 'ASN1ModelRoot' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ModelRoot >> read: aTaggedValue [ ^ self modules first read: aTaggedValue inContext: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ModelRoot >> readFrom: anObject usingModule: aModule [ ^ aModule readFrom: anObject readStream inContext: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ModelRoot >> readFrom: anObject usingModule: aModule inContext: aContext [ ^ aModule readFrom: anObject readStream inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ModelRoot >> readFrom: anObject usingModuleNamed: aString [ ^ (self moduleNamed: aString) readFrom: anObject readStream inContext: self ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1ModelRoot >> resolveOidsWhile: aBlock [ ^ aBlock on: ASN1UnresolvedOid diff --git a/ASN1-Tool/ASN1Module.extension.st b/ASN1-Tool/ASN1Module.extension.st index e316672..e20f2a1 100644 --- a/ASN1-Tool/ASN1Module.extension.st +++ b/ASN1-Tool/ASN1Module.extension.st @@ -1,18 +1,18 @@ -Extension { #name : #ASN1Module } +Extension { #name : 'ASN1Module' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> encodeToByteArray: anObject [ ^ ASN1 encodeToByteArray: anObject usingType: self pdu ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> read: aTaggedValue [ ^ self read: aTaggedValue inContext: nil ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> read: aTaggedValue inContext: aContext [ ^ ASN1 read: aTaggedValue @@ -20,12 +20,12 @@ ASN1Module >> read: aTaggedValue inContext: aContext [ inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> readFrom: aStream [ ^ self readFrom: aStream inContext: nil ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> readFrom: aStream inContext: aContext [ ^ ASN1 readFrom: aStream @@ -33,14 +33,14 @@ ASN1Module >> readFrom: aStream inContext: aContext [ inContext: aContext ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> write: anObject [ ^ ASN1 write: anObject usingType: self pdu ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1Module >> write: anObject on: aStream [ ^ASN1 write: anObject diff --git a/ASN1-Tool/ASN1ObjectFactory.class.st b/ASN1-Tool/ASN1ObjectFactory.class.st index fc70697..93e3d70 100644 --- a/ASN1-Tool/ASN1ObjectFactory.class.st +++ b/ASN1-Tool/ASN1ObjectFactory.class.st @@ -1,38 +1,40 @@ Class { - #name : #ASN1ObjectFactory, - #superclass : #Object, + #name : 'ASN1ObjectFactory', + #superclass : 'Object', #instVars : [ 'asn1Model' ], - #category : 'ASN1-Tool-Visitor' + #category : 'ASN1-Tool-Visitor', + #package : 'ASN1-Tool', + #tag : 'Visitor' } -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectFactory >> asn1Model [ ^ asn1Model ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectFactory >> asn1Model: aModel [ asn1Model := aModel ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectFactory >> moduleDefiningOid: anOid [ ^ self asn1Model moduleDefiningOid: anOid ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ObjectFactory >> newTypedCollection [ ^ ASN1AdaptiveTypeCollection new ] -{ #category : #creating } +{ #category : 'creating' } ASN1ObjectFactory >> newValueForTypeNamed: aString [ ^ (self asn1Model typeNamed: aString) newValue ] -{ #category : #lookup } +{ #category : 'lookup' } ASN1ObjectFactory >> typeNamed: aString [ ^ self asn1Model typeNamed: aString ] diff --git a/ASN1-Tool/ASN1PrimitiveType.extension.st b/ASN1-Tool/ASN1PrimitiveType.extension.st index 0e3963c..b86d3c2 100644 --- a/ASN1-Tool/ASN1PrimitiveType.extension.st +++ b/ASN1-Tool/ASN1PrimitiveType.extension.st @@ -1,11 +1,11 @@ -Extension { #name : #ASN1PrimitiveType } +Extension { #name : 'ASN1PrimitiveType' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1PrimitiveType >> decodedValue: aByteArray [ ^ self newValue: ( self class decode: aByteArray ) ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1PrimitiveType >> encodedValue: anObject [ ^ ASN1EncodedPrimitiveValue new contents: (self class encode: anObject); diff --git a/ASN1-Tool/ASN1ReadVisitor.class.st b/ASN1-Tool/ASN1ReadVisitor.class.st index 5468952..3851778 100644 --- a/ASN1-Tool/ASN1ReadVisitor.class.st +++ b/ASN1-Tool/ASN1ReadVisitor.class.st @@ -1,15 +1,17 @@ Class { - #name : #ASN1ReadVisitor, - #superclass : #ASN1ModelVisitor, + #name : 'ASN1ReadVisitor', + #superclass : 'ASN1ModelVisitor', #instVars : [ 'skipErrors', 'currentTaggedValue', 'objectFactory' ], - #category : 'ASN1-Tool-Visitor' + #category : 'ASN1-Tool-Visitor', + #package : 'ASN1-Tool', + #tag : 'Visitor' } -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> checkOptionalAndDefault: anElement with: aCollection [ "check if the element is optional and add default value if available" anElement value isOptional ifFalse: [ @@ -24,50 +26,50 @@ ASN1ReadVisitor >> checkOptionalAndDefault: anElement with: aCollection [ aCollection privAt: anElement key put: anElement value defaultValue value ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> collectionClass [ ^ ASN1AdaptiveTypeCollection ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReadVisitor >> defaultObjectFactory [ ^ ASN1ObjectFactory new ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReadVisitor >> defaultValueClass [ ^ ASN1AdaptiveTypeObject ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> error: anError on: anObject [ skipErrors ifTrue: [ ^ anObject ] ifFalse: [ anError signal ] ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> externalClass [ ^ ASN1AdaptiveTypeExternal ] -{ #category : #'initialize-release' } +{ #category : 'initialize-release' } ASN1ReadVisitor >> initialize [ super initialize. skipErrors := false ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReadVisitor >> objectFactory [ ^ objectFactory ] -{ #category : #acessing } +{ #category : 'acessing' } ASN1ReadVisitor >> objectFactory: anObjectFactory [ objectFactory := anObjectFactory ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> push: taggedValue during: aBlock [ | formerTaggedValue result | taggedValue ifNil: [ Error signal: 'cannot use nil as taggedValue' ]. @@ -78,12 +80,12 @@ ASN1ReadVisitor >> push: taggedValue during: aBlock [ ^ result ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> read: anEncodedType using: aType [ ^ self read: anEncodedType using: aType as: nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> read: anEncodedValue using: aType as: aClass [ ^ self @@ -91,27 +93,27 @@ ASN1ReadVisitor >> read: anEncodedValue using: aType as: aClass [ during: [ self visit: aType ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> read: anEncodedType usingModule: aModule [ ^ self read: anEncodedType using: aModule pdu as: nil ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1ReadVisitor >> read: anEncodedType usingModule: aModule as: aClass [ ^ self read: anEncodedType using: aModule pdu as: aClass ] -{ #category : #accessing } +{ #category : 'accessing' } ASN1ReadVisitor >> skipErrors: aBoolean [ skipErrors := aBoolean ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitAnyType: anAnyType [ ^ currentTaggedValue contents ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitChoiceType: aChoice [ | slot result value | value := aChoice newValue. @@ -129,7 +131,7 @@ ASN1ReadVisitor >> visitChoiceType: aChoice [ yourself ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitCollection: aCollection [ | value contentStream elementStream isExtended | isExtended := false. @@ -192,7 +194,7 @@ ASN1ReadVisitor >> visitCollection: aCollection [ ^ value ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitEnumeratedType: anEnumerated [ | number namedNumber | self flag: #hack. @@ -208,7 +210,7 @@ ASN1ReadVisitor >> visitEnumeratedType: anEnumerated [ ^ anEnumerated newValue contents: namedNumber name ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitExternalType: anExternalType [ | oid value | value := anExternalType newValue. @@ -235,24 +237,24 @@ ASN1ReadVisitor >> visitExternalType: anExternalType [ ^ value ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitObjectIdentifierType: anObjectIdentifier [ ^ self visitPrimitiveType: anObjectIdentifier ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitOpenType: anOpenType [ "an open type does not specify its kind. So we return the anonymous data. The data needs to be parsed in a second pass" ^ currentTaggedValue ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitPrimitiveType: aPrimitive [ ^ aPrimitive decodedValue: currentTaggedValue contents ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitTaggedType: aTaggedType [ "resolve the tagging environment over the tagged type because it is defined in the module defining the tagging environment (the type of the tagged type might be imported from another @@ -268,7 +270,7 @@ ASN1ReadVisitor >> visitTaggedType: aTaggedType [ value: basicValue ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1ReadVisitor >> visitTypedCollection: aCollection [ | seq | seq := self collectionClass new diff --git a/ASN1-Tool/ASN1StructureError.class.st b/ASN1-Tool/ASN1StructureError.class.st index 9a95699..e0aad3f 100644 --- a/ASN1-Tool/ASN1StructureError.class.st +++ b/ASN1-Tool/ASN1StructureError.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1StructureError, - #superclass : #Error, - #category : 'ASN1-Tool-Exception' + #name : 'ASN1StructureError', + #superclass : 'Error', + #category : 'ASN1-Tool-Exception', + #package : 'ASN1-Tool', + #tag : 'Exception' } diff --git a/ASN1-Tool/ASN1TagEnvironment.extension.st b/ASN1-Tool/ASN1TagEnvironment.extension.st index f3cf698..a5b441e 100644 --- a/ASN1-Tool/ASN1TagEnvironment.extension.st +++ b/ASN1-Tool/ASN1TagEnvironment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1TagEnvironment } +Extension { #name : 'ASN1TagEnvironment' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1TagEnvironment class >> encode: anObject using: aType [ self subclassResponsibility ] diff --git a/ASN1-Tool/ASN1TaggedType.extension.st b/ASN1-Tool/ASN1TaggedType.extension.st index b477eff..4b7f9d4 100644 --- a/ASN1-Tool/ASN1TaggedType.extension.st +++ b/ASN1-Tool/ASN1TaggedType.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ASN1TaggedType } +Extension { #name : 'ASN1TaggedType' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1TaggedType >> encodeTaggedValue: aTaggedValue [ "a tagged type consists of an inner tag and an outer tag. While encoding the tag environment indicates if both tags are encoded (explicit) or if @@ -11,7 +11,7 @@ ASN1TaggedType >> encodeTaggedValue: aTaggedValue [ outerTag: tag ] -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } ASN1TaggedType >> readEncodedValue: aTaggedValue [ ^ self type decodeTaggedValue: aTaggedValue diff --git a/ASN1-Tool/ASN1UnexpectedType.class.st b/ASN1-Tool/ASN1UnexpectedType.class.st index 50f1fa4..ce65a78 100644 --- a/ASN1-Tool/ASN1UnexpectedType.class.st +++ b/ASN1-Tool/ASN1UnexpectedType.class.st @@ -1,5 +1,7 @@ Class { - #name : #ASN1UnexpectedType, - #superclass : #ASN1StructureError, - #category : 'ASN1-Tool-Exception' + #name : 'ASN1UnexpectedType', + #superclass : 'ASN1StructureError', + #category : 'ASN1-Tool-Exception', + #package : 'ASN1-Tool', + #tag : 'Exception' } diff --git a/ASN1-Tool/ASN1WriteVisitor.class.st b/ASN1-Tool/ASN1WriteVisitor.class.st index 9f4f27f..b4be9fd 100644 --- a/ASN1-Tool/ASN1WriteVisitor.class.st +++ b/ASN1-Tool/ASN1WriteVisitor.class.st @@ -1,18 +1,20 @@ Class { - #name : #ASN1WriteVisitor, - #superclass : #ASN1ModelVisitor, + #name : 'ASN1WriteVisitor', + #superclass : 'ASN1ModelVisitor', #instVars : [ 'currentValue' ], - #category : 'ASN1-Tool-Visitor' + #category : 'ASN1-Tool-Visitor', + #package : 'ASN1-Tool', + #tag : 'Visitor' } -{ #category : #exceptions } +{ #category : 'exceptions' } ASN1WriteVisitor >> mandatoryElementNotFound [ ASN1MandatoryElementNotFound signal ] -{ #category : #'as yet unclassified' } +{ #category : 'as yet unclassified' } ASN1WriteVisitor >> push: anObject during: aBlock [ | formerValue | anObject ifNil: [ Error signal: 'cannot push nil onto stack' ]. @@ -21,7 +23,7 @@ ASN1WriteVisitor >> push: anObject during: aBlock [ ^aBlock ensure: [ currentValue := formerValue ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visit: aType [ (aType isNil ifTrue: [ Error signal: 'type cannot be nil' ]). "we need either a ASN.1 value object or an already encoded value" @@ -32,7 +34,7 @@ ASN1WriteVisitor >> visit: aType [ ^ super visit: aType ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitChoiceType: aChoice [ | key type | key := currentValue keys first. @@ -42,13 +44,13 @@ ASN1WriteVisitor >> visitChoiceType: aChoice [ during: [ self visit: type ]. ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitEnumeratedType: anEnumerated [ ^ currentValue encodedValue ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitExternalType: anExternalType [ | encoded module | encoded := ASN1EncodedConstructedValue new @@ -67,13 +69,13 @@ ASN1WriteVisitor >> visitExternalType: anExternalType [ ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitObjectIdentifierType: anObjectIdentifier [ ^ anObjectIdentifier encodedValue: currentValue contents. ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitOpenType: anOpenType [ self flag: #hack. "oid := ASN1OpenTypeDefinition signal." @@ -84,13 +86,13 @@ ASN1WriteVisitor >> visitOpenType: anOpenType [ during: [self visit: currentValue type ] ] ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitPrimitiveType: aPrimitiveType [ (currentValue type class = aPrimitiveType class) ifFalse: [ Error signal: 'primitive types do not match' ]. ^ currentValue encodedValue "aPrimitive encodedValue: currentValue value" ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitSequenceType: aSequence [ | encoded object | encoded := ASN1EncodedConstructedValue new @@ -114,7 +116,7 @@ ASN1WriteVisitor >> visitSequenceType: aSequence [ ^ encoded ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitTaggedType: aTaggedType [ "tag the type based on the existance of an explicit tag and itsaTaggedType tag environment" @@ -124,7 +126,7 @@ ASN1WriteVisitor >> visitTaggedType: aTaggedType [ during: [ self visit: aTaggedType type ]) ] -{ #category : #visiting } +{ #category : 'visiting' } ASN1WriteVisitor >> visitTypedCollection: aTypedSequence [ "All elements that are on the top of the stack are encoded with the type of the typed sequence" @@ -138,14 +140,14 @@ ASN1WriteVisitor >> visitTypedCollection: aTypedSequence [ ^ encoded ] -{ #category : #writing } +{ #category : 'writing' } ASN1WriteVisitor >> write: anObject using: anAsn1Type [ currentValue := anObject. ^ self visit: anAsn1Type ] -{ #category : #writing } +{ #category : 'writing' } ASN1WriteVisitor >> write: anObject usingModule: aModule [ currentValue := anObject. ^ self visit: aModule pdu diff --git a/ASN1-Tool/Object.extension.st b/ASN1-Tool/Object.extension.st index 20d081c..7774404 100644 --- a/ASN1-Tool/Object.extension.st +++ b/ASN1-Tool/Object.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Object } +Extension { #name : 'Object' } -{ #category : #'*asn1-tool' } +{ #category : '*asn1-tool' } Object >> basicValue [ ^ self ] diff --git a/ASN1-Tool/package.st b/ASN1-Tool/package.st index bc9851b..1f1ed1e 100644 --- a/ASN1-Tool/package.st +++ b/ASN1-Tool/package.st @@ -1 +1 @@ -Package { #name : #'ASN1-Tool' } +Package { #name : 'ASN1-Tool' } diff --git a/BaselineOfASN1/BaselineOfASN1.class.st b/BaselineOfASN1/BaselineOfASN1.class.st index 00e8a1e..911b196 100644 --- a/BaselineOfASN1/BaselineOfASN1.class.st +++ b/BaselineOfASN1/BaselineOfASN1.class.st @@ -1,10 +1,11 @@ Class { - #name : #BaselineOfASN1, - #superclass : #BaselineOf, - #category : 'BaselineOfASN1' + #name : 'BaselineOfASN1', + #superclass : 'BaselineOf', + #category : 'BaselineOfASN1', + #package : 'BaselineOfASN1' } -{ #category : #baselines } +{ #category : 'baselines' } BaselineOfASN1 >> baseline: spec [ spec for: #'common' do: [ diff --git a/BaselineOfASN1/package.st b/BaselineOfASN1/package.st index 85d84ea..4e935a8 100644 --- a/BaselineOfASN1/package.st +++ b/BaselineOfASN1/package.st @@ -1 +1 @@ -Package { #name : #BaselineOfASN1 } +Package { #name : 'BaselineOfASN1' }