home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / taylmod2 / dhry1.def < prev    next >
Text File  |  1988-06-30  |  981b  |  29 lines

  1. (* $Title:'DHRY1.DEF - Dhrystone 1.0 Module 1' *)
  2.  
  3. DEFINITION MODULE Dhrystone1;
  4.  
  5. TYPE  Enumeration = (Ident1, Ident2, Ident3, Ident4, Ident5);
  6.  
  7.       OneToThirty = [1..30];
  8.       OneToFifty  = [1..50];
  9.       CapitalLetter = ['A'..'Z'];
  10.  
  11.       String30 = ARRAY OneToThirty OF CHAR;
  12.       ArrayDim1Int = ARRAY OneToFifty OF CARDINAL;
  13.       ArrayDim2Int = ARRAY OneToFifty, OneToFifty OF CARDINAL;
  14.  
  15.       RecordPointer = POINTER TO RecordType;
  16.       RecordType = RECORD
  17.                      PointerComp: RecordPointer;
  18.                      CASE Discr: Enumeration OF
  19.                        Ident1: EnumComp: Enumeration;
  20.                                IntComp: CARDINAL;
  21.                                StringComp: String30
  22.                      | Ident2: EnumComp2: Enumeration;
  23.                                StringComp2: String30
  24.                        ELSE    CharComp1, CharComp2: CHAR
  25.                      END
  26.                    END;
  27.  
  28. END Dhrystone1.
  29.