diff options
author | Björn Gustavsson <[email protected]> | 2015-01-12 12:25:52 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2015-01-12 12:25:52 +0100 |
commit | 8ee2d5f59f0e3ceee6895b5af41e563a29a22be2 (patch) | |
tree | e6a25247f76d72cefaacbce0d5affc1033e7adb0 /lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1 | |
parent | 71b35f78c12f31ae33cf51fd948c22483c77ff7c (diff) | |
parent | 17ec629959088f0b213a5559ab2e793e9ec0f124 (diff) | |
download | otp-8ee2d5f59f0e3ceee6895b5af41e563a29a22be2.tar.gz otp-8ee2d5f59f0e3ceee6895b5af41e563a29a22be2.tar.bz2 otp-8ee2d5f59f0e3ceee6895b5af41e563a29a22be2.zip |
Merge branch 'bjorn/asn1/rfc-5912/OTP-12395'
* bjorn/asn1/rfc-5912/OTP-12395: (79 commits)
Remove the old unused yecc-based parser
Improve error handling for illegal object definitions
Reimplement storeindb/2 to avoid excessive process communication
Remove useless fields in #state{}
Remove vestiges of obsolete {TypeName,Value} notation
Remove old error handling
Modernize the remaining cases
Further improve error handling for instatiation of parameterized types
asn1ct_tok: Clean up
Add a test case for EXTENSIBILITY IMPLIED
asn1ct_parser2: Remove expensive lookahead_assignment/1 function
asn1ct_parser2: Clean up error handling and reporting
asn1ct, asn1ct_parser2: Refactor the upper levels of error handling
asn1ct_parser2: Eliminate all uses of old-style 'catch'
asn1ct_parser2: Clean up parse_or/3 and parse_or_tag/3
asn1ct_parser2: Correct extraction of line number from token
asn1ct_parser2: Throw an {asn1_error,...} for *all* parse errors
asn1ct_parser2: Simplify parse_Type/1
asn1ct_parser2: Remove unsuccessful parsing of ValueSetFromObjects
Move checking of UNIQUE & DEFAULT error to asn1ct_check
...
Diffstat (limited to 'lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1')
-rw-r--r-- | lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1 | 150 |
1 files changed, 150 insertions, 0 deletions
diff --git a/lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1 b/lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1 new file mode 100644 index 0000000000..f66d117f35 --- /dev/null +++ b/lib/asn1/test/asn1_SUITE_data/rfcs/MTSAbstractService88.asn1 @@ -0,0 +1,150 @@ +-- Module MTSAbstractService88 (X.411:06/1999) +MTSAbstractService88 {joint-iso-itu-t mhs(6) mts(3) modules(0) + mts-abstract-service(1) version-1988(1988)} DEFINITIONS IMPLICIT TAGS ::= +BEGIN + +-- Prologue +-- Exports everything +IMPORTS + -- Remote Operations + CONTRACT + --== + FROM Remote-Operations-Information-Objects {joint-iso-itu-t + remote-operations(4) informationObjects(5) version1(0)} + -- MTS Abstract Service Parameters + operationObject1, ABSTRACT-OPERATION, change-credentials, ContentLength, + ContentTypes, Controls, control-violates-registration, + DefaultDeliveryControls, EncodedInformationTypes, message-delivery, + MHS-OBJECT, mts-connect, PORT, RecipientAssignedAlternateRecipient, + register-rejected, report-delivery, SecurityLabel, security-error, + submission, UserAddress, UserName, Waiting + --== + FROM MTSAbstractService {joint-iso-itu-t mhs(6) mts(3) modules(0) + mts-abstract-service(1) version-1999(1)} + -- Object Identifiers + id-ct-mts-access, id-ct-mts-forced-access, id-ot-mts, id-ot-mts-user, + id-pt-administration, id-pt-delivery + --== + FROM MTSObjectIdentifiers {joint-iso-itu-t mhs(6) mts(3) modules(0) + object-identifiers(0) version-1999(1)} + -- Operation Codes + op-delivery-control, op-register + --== + FROM MTSAccessProtocol {joint-iso-itu-t mhs(6) protocols(0) modules(0) + mts-access-protocol(1) version-1999(1)} + -- Upper Bounds + ub-content-types, ub-labels-and-redirections + --== + FROM MTSUpperBounds {joint-iso-itu-t mhs(6) mts(3) modules(0) + upper-bounds(3) version-1999(1)}; + +-- Objects +mts-88 MHS-OBJECT ::= { + INITIATES {mts-forced-access-contract-88} + RESPONDS {mts-access-contract-88} + ID {id-ot-mts 88} +} + +mts-user-88 MHS-OBJECT ::= { + INITIATES {mts-access-contract-88} + RESPONDS {mts-forced-access-contract-88} + ID {id-ot-mts-user 88} +} + +-- Contracts +mts-access-contract-88 CONTRACT ::= { + CONNECTION mts-connect + INITIATOR CONSUMER OF {submission | delivery-88 | administration-88} + ID {id-ct-mts-access 88} +} + +mts-forced-access-contract-88 CONTRACT ::= { + CONNECTION mts-connect + RESPONDER CONSUMER OF {submission | delivery-88 | administration-88} + ID {id-ct-mts-forced-access 88} +} + +-- Ports +delivery-88 PORT ::= { + OPERATIONS + {operationObject1, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + CONSUMER INVOKES + {delivery-control-88, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + SUPPLIER INVOKES + {message-delivery | report-delivery, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + ID {id-pt-delivery 88} +} + +administration-88 PORT ::= { + OPERATIONS + {change-credentials, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + CONSUMER INVOKES + {register-88, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + SUPPLIER INVOKES + {operationObject1, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + ID {id-pt-administration 88} +} + +-- Delivery Port +delivery-control-88 ABSTRACT-OPERATION ::= { + ARGUMENT DeliveryControls88 + RESULT Waiting + ERRORS {control-violates-registration | security-error} + LINKED + {operationObject1, + ...} -- This IOS needs to be extensible for Forward{} of X.880 + INVOKE PRIORITY {3} + CODE op-delivery-control +} + +DeliveryControls88 ::= SET { + COMPONENTS OF + Controls + (WITH COMPONENTS { + ..., + permissible-encoded-information-types ABSENT + }), + permissible-encoded-information-types-88 EncodedInformationTypes OPTIONAL +} + +-- Administration Port +register-88 ABSTRACT-OPERATION ::= { + ARGUMENT Register88 + RESULT NULL + ERRORS {register-rejected} + LINKED {operationObject1, ...} + INVOKE PRIORITY {5} + CODE op-register +} + +Register88 ::= SET { + user-name UserName OPTIONAL, + user-address [0] UserAddress OPTIONAL, + deliverable-encoded-information-types EncodedInformationTypes OPTIONAL, + deliverable-maximum-content-length [1] EXPLICIT ContentLength OPTIONAL, + default-delivery-controls + [2] EXPLICIT DefaultDeliveryControls OPTIONAL, + deliverable-content-types [3] ContentTypes OPTIONAL, + labels-and-redirections + [4] SET SIZE (1..ub-labels-and-redirections) OF LabelAndRedirection + OPTIONAL +} + +LabelAndRedirection ::= SET { + user-security-label [0] UserSecurityLabel OPTIONAL, + recipient-assigned-alternate-recipient + [1] RecipientAssignedAlternateRecipient OPTIONAL +} + +UserSecurityLabel ::= SecurityLabel + +END -- of MTSAbstractService88 + +-- Generated by Asnp, the ASN.1 pretty-printer of France Telecom R&D + |