<> <> <> DIRECTORY IO USING [STREAM], Rope USING [ROPE], MicroDefs USING [ Memory, OutputFile, SymbolType ]; MicroUtils: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; <> AtomAtPointer: PROC[ePtr: LONG POINTER TO WORD, len: INTEGER] RETURNS[symb: ATOM]; 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.