DIRECTORY DragomanPrivate, CacheModels, Atom, Commander, IO, Rope; Dragoman: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; Machine: TYPE = DragomanPrivate.Machine; Handle: TYPE = REF HandleRec; -- a REF to the data for a particular instance of the sample tool; multiple instances can be created. HandleRec: TYPE = RECORD [ -- the data for a particular tool instance modelCache: BOOL, m: Machine, line: ROPE, workingDir: Atom.PropList, tsOut: STREAM]; Start: PROC [backingFile: ROPE _ NIL, instr, data: DragomanPrivate.CacheIndex _ 1, traceOps: BOOL _ FALSE, countOps: BOOL _ FALSE, recordXferOut: BOOL _ TRUE, modelCache: BOOL _ TRUE, flushOnCall: BOOL _ FALSE] RETURNS [handle: Handle]; SetInstructionCache: PROC [handle: Handle, number: DragomanPrivate.CacheIndex, cache: CacheModels.Cache]; SetDataCache: PROC [handle: Handle, number: DragomanPrivate.CacheIndex, cache: CacheModels.Cache]; MarkGFI: PROC [handle: Handle, name1, name2, name3, name4, name5, name6: ROPE _ NIL]; MarkGFIs: PROC [handle: Handle, names: LIST OF ROPE _ NIL]; Run: PROC [handle: Handle, name: ROPE, recordXferOut: BOOL _ TRUE]; End: PROC [handle: Handle]; END. ΊDragoman.mesa Created by Bertrand Serlet, October 17, 1985 4:13:48 pm PDT Last Edited by: Serlet, April 26, 1985 11:40:41 pm PST Pradeep Sindhu October 19, 1985 11:40:23 pm PDT Κξ– "cedar" style˜code– "Cedar" stylešœ™K™;K™6K™/—K˜šΟk ˜ Kšœ˜K˜ Kšœ˜—K™šΟbœœ œ˜Kš˜K˜Kšœœœ˜Kšœœœœ˜Kšœ œ˜(Kšœœœ ΟcΠckŸ]˜ƒšœ œœŸ+˜EKšœ œ˜K˜ Kšœœ˜ Kšœ˜Kšœœ˜—K˜KšΟnœœœœ9œœ œœœœœœœœœ˜μK˜Kš‘œœP˜iK˜Kš‘ œœP˜bK˜š‘œœ<œœ˜UK˜—š ‘œœœœœœ˜;K˜—Kš ‘œœœœœ˜CK˜Kš‘œœ˜K˜Kšœ˜—K˜—…— H