-- MakeFileIDsImpl.mesa-- Last edited by--   Kolling on October 28, 1983 4:09 pmDIRECTORY      AlpineEnvironment         USING[FileID],      File,      FS         USING[Open],      FilePageMgr         USING[GenerateFileID],      IO         USING[card, Close, Handle, PutF],      Rope	    USING[ROPE];MakeFileIDsImpl: PROGRAM  IMPORTS AE: AlpineEnvironment, FS, FilePageMgr, IO   SHARES File =BEGIN     NFiles: CARDINAL = 50;   PutFileID: PROCEDURE[fileID: AE.FileID] =   BEGIN   uid: SystemInternal.UniversalID _ LOOPHOLE[fileID];   resultsStreamHandle.PutF["*n%5g %5g %5g %10g ",      IO.card[uid.processor.a], IO.card[uid.processor.b],      IO.card[uid.processor.c], IO.card[uid.sequence]];   END;   Main: PROCEDURE =   BEGIN -- set up to call from CoPilot for debugging.   foo: CARDINAL _ 0;   BEGIN   ENABLE ANY => foo _ foo + 1; -- protect us from the tempcedarexec.      fileID: AE.FileID;   resultsStreamHandle _ FS.Open["MakeFileIDs.Results",      overwrite, none];   resultsStreamHandle.PutF["*n%3g", IO.card[NFiles]];   FOR index: CARDINAL IN [0.. NFiles)      DO fileID _ FilePageMgr.GenerateFileID[];      PutFileID[fileID];      ENDLOOP;        resultsStreamHandle.Close[];      END;   END;            -- main line code:resultsStreamHandle: IO.Handle;END.        Э╩ р  Ш JЪ_Ь╧cSЬ╧k	Ь#ЮЬ(ЮЬ#ЮЬЮЬ
ЮЬ-ЮЬЮЬЮЬЮЬЮЬ&ЮЬЮЬ
ЮЬЮЬ╧n	ЬЮ	Ь	ЮЬЮЬ&ЮЬCЮЬЮЬЮЬЮЬЮЬЯЬЮ	ЬЮЬЭ.ЬЮЬ	ЮЬЮЬЮЬЭ&ЬЮЬ~ЮЬЮЬЮЬЮЬЮЬGЮЬ/ЮЬЮЬЭЬЮЬ
ЮЬШ║
Ч ЕЧ    <  "  