SecuritySNACCRuntime/tcl-example/edex1.asn1

   1 -- file: edex1.asn1
   2 --
   3 -- snacced example, structured types module
   4 --
   5 -- $Header: /cvs/Darwin/Security/SecuritySNACCRuntime/tcl-example/edex1.asn1,v 1.1.1.1 2001/05/18 23:14:10 mb Exp $
   6 -- $Log: edex1.asn1,v $
   7 -- Revision 1.1.1.1  2001/05/18 23:14:10  mb
   8 -- Move from private repository to open source repository
   9 --
  10 -- Revision 1.1.1.1  1999/03/16 18:06:55  aram
  11 -- Originals from SMIME Free Library.
  12 --
  13 -- Revision 1.2  1997/02/28 13:39:56  wan
  14 -- Modifications collected for new version 1.3: Bug fixes, tk4.2.
  15 --
  16 -- Revision 1.1  1997/01/01 22:57:13  rj
  17 -- first check-in
  18 --
  19
  20 EdEx-Structured DEFINITIONS ::=
  21 BEGIN
  22
  23 IMPORTS RainbowColor, DayOfTheWeek, Hand FROM EdEx-Simple;
  24
  25 RGBColor ::= SEQUENCE
  26 {
  27   red INTEGER,
  28   green INTEGER,
  29   blue INTEGER
  30 }
  31
  32 Coordinate ::= CHOICE
  33 {
  34   cartesian [0] SEQUENCE { x REAL, y REAL },
  35   polar [1] SEQUENCE { angle REAL, distance REAL }
  36 }
  37
  38 File ::= SET
  39 {
  40   name [0] PrintableString,
  41   contents [1] OCTET STRING,
  42   checksum [2] INTEGER OPTIONAL,
  43   read-only [3] BOOLEAN DEFAULT FALSE
  44 }
  45
  46 Directory ::= SET
  47 {
  48   name PrintableString,
  49   files SET OF File
  50 }
  51
  52 Simple ::= SET
  53 {
  54   null   [0] NULL,
  55   boolv  [1] BOOLEAN,
  56   day    [2] DayOfTheWeek,
  57   intv   [3] INTEGER,
  58   color  [4] RainbowColor,
  59   real   [5] REAL,
  60   bits   [6] Hand,
  61   str    [7] OCTET STRING,
  62   optstr [8] OCTET STRING OPTIONAL
  63 }
  64
  65 Structured ::= SET
  66 {
  67   coord [0] Coordinate,
  68   color [1] CHOICE { rainbow RainbowColor, rgb RGBColor }
  69 }
  70
  71 Various ::= SET
  72 {
  73   simple [0] Simple,
  74   struct [1] Structured,
  75   recursion [2] Various OPTIONAL
  76 }
  77
  78 END