regression_test/compileonly/openType/X.asn

   1 --/////////////////////////////////////////////////////////////////////////////
   2 -- Copyright (c) 2000-2015 Ericsson Telecom AB
   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