home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / DHRY / DRY2.DEF < prev    next >
Encoding:
Modula Definition  |  1993-10-19  |  1.5 KB  |  58 lines
  1. DEFINITION MODULE dry2;
  2.  
  3. (* Types *)
  4.  
  5. TYPE
  6.   (* basic types *)
  7.   integer       = INTEGER; (* or CARDINAL *)
  8.  
  9.   (* other types *)
  10.   Enumeration   = (Ident1, Ident2, Ident3, Ident4, Ident5);
  11.   OneThirty     = [0..30];
  12.   OneFifty      = [0..49];
  13.   CapitalLetter = ['A'..'Z'];
  14.   Str30         = ARRAY OneThirty OF CHAR;
  15.   Arr1Dim       = ARRAY OneFifty OF integer;
  16.   Arr2Dim       = ARRAY OneFifty, OneFifty OF integer;
  17.  
  18.   RecPointer    = POINTER TO RecType;
  19.   RecType       = RECORD
  20.     PtrComp     : RecPointer;
  21.     CASE Discr  : Enumeration OF
  22.     |Ident1:
  23.       EnumComp  : Enumeration;
  24.       IntComp   : integer;
  25.       StrComp   : Str30;
  26.     |Ident2:
  27.       EComp2    : Enumeration;
  28.       Str2Comp  : Str30;
  29.     |Ident3:
  30.       Ch1Comp   : CHAR;
  31.       Ch2Comp   : CHAR;
  32.     END;
  33.   END;
  34.  
  35. VAR
  36.  
  37.   PtrGlob,
  38.   NextPtrGlob   : RecPointer;
  39.   IntGlob       : integer;
  40.   BoolGlob      : BOOLEAN;
  41.   Ch1Glob,
  42.   Ch2Glob       : CHAR;
  43.   Arr1Glob      : Arr1Dim;
  44.   Arr2Glob      : Arr2Dim;
  45.  
  46. (* Procedures *)
  47.  
  48. PROCEDURE Proc6 (EnumValPar: Enumeration; VAR EnumRefPar: Enumeration);
  49. PROCEDURE Proc7 (Int1ParVal, Int2ParVal: integer; VAR IntParRef: integer);
  50. PROCEDURE Proc8 (VAR Arr1ParRef: Arr1Dim;
  51.                  VAR Arr2ParRef: Arr2Dim;
  52.                      Int1ParVal, Int2ParVal: integer);
  53. PROCEDURE Func1 (Ch1ParVal, Ch2ParVal: CapitalLetter): Enumeration;
  54. PROCEDURE Func2 (VAR Str1ParRef, Str2ParRef: Str30): BOOLEAN;
  55. PROCEDURE Func3 (EnumParVal: Enumeration): BOOLEAN;
  56.  
  57. END dry2.
  58.