home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC3.3 / M2RA.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  571 b   |  20 lines  |  [TEXT/MEDT]

  1. DEFINITION MODULE M2RA; (* JG 24.10.85 / NW 17.12.85 *)
  2.  
  3.   FROM M2DA 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.  
  11.   PROCEDURE InitRef;
  12.   PROCEDURE InRef (VAR filename: ARRAY OF CHAR; VAR mod: ObjPtr;
  13.                    VAR adr, pno: INTEGER);
  14.   PROCEDURE OpenRef;
  15.   PROCEDURE CloseRef(adr, pno: INTEGER);
  16.   PROCEDURE OutUnit(unit: ObjPtr);
  17.   PROCEDURE RefPoint;
  18.  
  19. END M2RA. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  20.