///commands/compile Foo.mesa Dragoman Run DirectMapCacheImpl _ &handle _ Dragoman.Start[backingFile: "Dragoman.ts", instr: 2, data: 1] -- number of caches _ Dragoman.SetInstructionCache[handle: &handle, number: 0, cache: DirectMapCache.NewCache[lines: 75, quadsPerLine: 2]] -- first instruction cache _ Dragoman.SetInstructionCache[handle: &handle, number: 1, cache: DirectMapCache.NewCache[lines: 75, quadsPerLine: 2]] -- second instruction cache _ Dragoman.SetDataCache[handle: &handle, number: 0, cache: DirectMapCache.NewCache[lines: 75, quadsPerLine: 2]] -- the only data cache _ Dragoman.MarkGFIs[&handle, LIST ["CompilerClientCommandImpl", "CompilerServerCommandImpl", "CompilerSequencer", "Pass3", "Pass1", "Pass3S", "Pass3B", "Code", "Pass2", "ObjectOut", "Driver", "SymbolPackExt", "FSStreamImpl", "FileStreamCreateImpl", "IOCommonImpl", "FileStreamImpl", "FSMainImpl1", "FileParmPack", "FSOpenFileImpl", "FSFileOpsImpl", "FSDirImpl", "FileImpl", "BTreeDelete", "IOPrintImpl", "BTreeWrite", "BTreeVMImpl", "FilePagesImpl", "DiskImpl", "UserProfileImpl", "RopeImpl", "BTreeRead", "IOClassesImpl"]] _ Dragoman.Run[&handle, "///commands/compile Foo.mesa"] *Example.cm Created by: Serlet, April 12, 1985 3:17:45 pm PST Last Edited by: Sindhu, April 20, 1985 0:08:18 am PST Bertrand Serlet July 28, 1985 10:40:13 pm PDT -- Starting Dragoman -- Initializing the thing -- Specifying the caches -- Marking interesting GFI's -- Running the simulation ΚΘ˜™ J™1J™5Icode™-—J™šœ™Jšœ˜Jšœ˜Jšœ˜—J™™JšœΟbœœ0Οc˜]—J™™Jšœ ΟnœYž˜‘Jšœ ŸœYž˜’Jšœ Ÿ œYž˜†—J™™Jšœœ Οkœκ˜‹J˜—™Jšœ œ)˜7——…—Ž€