projects / deliverable / titan.core.git / blame
| Commit | Line | Data |
|---|---|---|
| 970ed795 | 1 | --///////////////////////////////////////////////////////////////////////////// |
| 3abe9331 | 2 | -- Copyright (c) 2000-2015 Ericsson Telecom AB |
| 970ed795 EL |
3 | -- All rights reserved. This program and the accompanying materials |
| 4 | -- are made available under the terms of the Eclipse Public License v1.0 | |
| 5 | -- which accompanies this distribution, and is available at | |
| 6 | -- http://www.eclipse.org/legal/epl-v10.html | |
| 7 | --///////////////////////////////////////////////////////////////////////////// | |
| 8 | X DEFINITIONS ::= | |
| 9 | BEGIN | |
| 10 | ||
| 11 | IMPORTS ; -- nothing | |
| 12 | ||
| 13 | OC ::= CLASS { | |
| 14 | &id INTEGER UNIQUE, | |
| 15 | &Type | |
| 16 | } WITH SYNTAX { | |
| 17 | ID &id | |
| 18 | TYPE &Type | |
| 19 | } | |
| 20 | ||
| 21 | ||
| 22 | PDU{OC : ObjectSet} ::= SEQUENCE { | |
| 23 | id OC.&id ({ObjectSet}), | |
| 24 | data OC.&Type ({ObjectSet}{@id}) | |
| 25 | } | |
| 26 | ||
| 27 | o0 OC ::= { | |
| 28 | ID 0 | |
| 29 | TYPE OCTET STRING | |
| 30 | } | |
| 31 | ||
| 32 | opard{INTEGER : id, Type} OC ::= { | |
| 33 | ID id | |
| 34 | TYPE Type | |
| 35 | } | |
| 36 | ||
| 37 | o3 OC ::= opard{3, REAL} | |
| 38 | ||
| 39 | Os OC ::= {o0 | {ID 1 TYPE NULL} | opard{2, INTEGER} | o3} | |
| 40 | ||
| 41 | MyPDU ::= PDU{{Os | opard{4, OC.&id} | opard{5, BIT STRING} | | |
| 42 | opard{6, SEQUENCE{}}}} | |
| 43 | ||
| 44 | END |