
    <<SRCCompilerRuns.mesa >>
        <<Created by Sindhu, April 27, 1985 9:45:39 am PST>>
<<Last Edited by: Sindhu, May 3, 1985 11:35:00 pm PDT>>
    DIRECTORY
        CacheModels, Convert, DirectMapCache, Rope,
        WrapDragoman;
    <<>>
    SRCCompilerRuns: CEDAR PROGRAM 
        IMPORTS Convert, DirectMapCache, Rope, WrapDragoman
        SHARES WrapDragoman =
        BEGIN
        TwoToTheTwo: PROC[n: INT] RETURNS[INT] = {
            IF n=0 THEN RETURN[1] ELSE RETURN[2*TwoToTheTwo[n-1]]};

        FOR i: INT IN [0..3] DO
            cache: CacheModels.Cache _ DirectMapCache.NewCache[lines: 1024*TwoToTheTwo[i], quadsPerLine: 1, wordsPerQuad: 1];
            handle: WrapDragoman.Handle _ WrapDragoman.Start[backingFile: Rope.Cat["SRCCompilerRuns.", Convert.RopeFromInt[TwoToTheTwo[i]], 
            ".ts"], instr: 1, data: 1];
        WrapDragoman.SetInstructionCache[handle: handle, number: 0, cache: cache];
        WrapDragoman.SetDataCache[handle: handle, number: 0, cache: cache]; 
        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"];
        WrapDragoman.Run[handle, "compile dummy dummyimpl"];
            WrapDragoman.End[handle];
            ENDLOOP;


        END.