home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / M2RM.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  569 b   |  22 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2RM; (* JG 24.10.85 / NW 17.12.85 *)
  2.  
  3.   FROM M2DM IMPORT ObjPtr;
  4.   FROM FileSystem IMPORT File;
  5.  
  6.   VAR ModNo: INTEGER; (*current module number*)
  7.       ModList: ObjPtr; (*list of loaded modules*)
  8.       RefFile: File;
  9.  
  10.   PROCEDURE InitRef;
  11.  
  12.   PROCEDURE InRef (VAR filename: ARRAY OF CHAR; VAR mod: ObjPtr;
  13.                    VAR adr, pno: INTEGER);
  14.  
  15.   PROCEDURE OpenRef;
  16.   PROCEDURE CloseRef(adr, pno: INTEGER);
  17.  
  18.   PROCEDURE OutUnit(unit: ObjPtr);
  19.   PROCEDURE RefPoint;
  20.  
  21. END M2RM. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  22.