Example.cm
Created by: Serlet, April 12, 1985 3:17:45 pm PST
Last Edited by: Serlet, April 15, 1985 10:32:45 am PST
-- Starting WrapDragoman
WrapDragoman; Run StandardCache
-- Initializing the thing
← &handle ← WrapDragoman.Start[instr: 2, data: 1] -- number of caches
-- Specifying the caches
← WrapDragoman.SetInstructionCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- first instruction cache
← WrapDragoman.SetInstructionCache[handle: &handle, number: 1, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- second instruction cache
← WrapDragoman.SetDataCache[handle: &handle, number: 0, cache: StandardCache.NewCache[lines: 50, quadsPerLine: 2, lru: FALSE]] -- the only data cache
-- Marking interesting GFI's
← WrapDragoman.MarkGFI[&handle, "CommandToolUtilitiesImpl", "FileViewerOpsImpl", "FileStreamImpl", "FileNamesImpl", "FileImpl"]
← WrapDragoman.MarkGFI[&handle, "IOPrintImpl", "IOCommonImpl", "IOSimpleStreamsImpl", "IOConvertImpl", "ViewerIOImpl", "IOScanImpl"]
← WrapDragoman.MarkGFI[&handle, "FSLockImpl", "FSFileOpsImpl", "FSReportImpl", "FSOpenFileImpl", "FSStreamImpl", "FSNameImpl"]
← WrapDragoman.MarkGFI[&handle, "RopeImpl", "RopeImplExt", "ListImpl", "AtomImpl", "ConvertUnsafeImpl"]
← WrapDragoman.MarkGFI[&handle, "compiler"]
-- Running the simulation
← WrapDragoman.Run[&handle, "compile Foo.mesa"]