Copyright © 1985 by Xerox Corporation. All rights reserved.

Willie-sue, February 26, 1986 11:00:44 am PST

IO USING [STREAM],

Rope USING [ROPE],

MicroDefs USING [ Memory, OutputFile, SymbolType ];

= BEGIN

ROPE: TYPE = Rope.ROPE;

AtomAtPointer: PROC[ePtr: LONG POINTER TO WORD, len: INTEGER]

GetCharAtPointer: PROC[aPtr: LONG POINTER TO WORD] RETURNS[ch: CHAR];

GetSymbolMemSink: PROC[symIndex: INTEGER] RETURNS[INTEGER];

GetSymbolMemSource: PROC[symIndex: INTEGER] RETURNS[INTEGER];

MoveBlock: PROC[to, from: LONG POINTER TO WORD, num: INTEGER];

PutCharAtPointer: PROC[aPtr: LONG POINTER TO WORD, ch: CHAR];

RopeAtPointer: PROC[aPtr: LONG POINTER TO WORD, lx: INTEGER] RETURNS[ROPE];

LookupAtom: PROC[symb: ATOM] RETURNS[symIndex: INTEGER];

TypeName: PROC[rTyp: MicroDefs.SymbolType] RETURNS[ROPE];

PutWord: PROC[strm: IO.STREAM, val: WORD];

PutInteger: PROC[strm: IO.STREAM, val: INTEGER];

GetWord: PROC[strm: IO.STREAM] RETURNS[val: WORD];

GetInteger: PROC[strm: IO.STREAM] RETURNS[val: INTEGER];

OpenOutputStream: PROC[rec: MicroDefs.OutputFile];

FullNameWithExt: PROC[preferred, other, wDir, ext: ROPE] RETURNS[fullName: ROPE];

MemoryFromNum: PROC[memNum: INTEGER] RETURNS [MicroDefs.Memory];

SetMemoryFromNum: PROC[memNum: INTEGER, mem: MicroDefs.Memory];

RestartAcc: PROC;

RestartBuiltins: PROC;

END.