[ivy]<Satterthwaite>Modula>M2R.mesa!3

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.