
<<FILE: M2R.mesa>>
<<Modula-2 Referencefile and symbolfile handler>>
<<Last Edited by: Gutknecht, September 18, 1985 1:07:16 pm PDT>>
    <<Satterthwaite December 10, 1985 9:58:14 am PST>>

DIRECTORY
IO: TYPE USING [STREAM],
Rope: TYPE USING [ROPE],
M2D: TYPE USING [ObjPtr, HeaderPtr, ModulePtr];

M2R: CEDAR DEFINITIONS =  BEGIN

ModNo: VAR CARDINAL; -- current module number
ModList: VAR M2D.HeaderPtr; -- list of loaded  modules
RefFile: VAR IO.STREAM;

InitRef: PROC;

Create: PROC [modname: CARDINAL, modkey: LONG CARDINAL] RETURNS [mod: M2D.ModulePtr];

InRef: PROC [filename: Rope.ROPE] RETURNS [mod: M2D.ModulePtr, adr, pno: CARDINAL];

OpenRef: PROC;
CloseRef: PROC [adr, pno: CARDINAL];

OutUnit: PROC [unit: M2D.ObjPtr];
OutPos: PROC [sourcepos, pc: CARDINAL]

END.


