DIRECTORY CamelotRecoverable, FS; CamelotRecoverableImpl: CEDAR PROGRAM IMPORTS FS EXPORTS CamelotRecoverable = BEGIN CamelotRecoverableFile: PUBLIC FS.OpenFile; CamelotLogFile: PUBLIC FS.OpenFile; RestartFile: PUBLIC FS.OpenFile; Init: PROC = { CamelotRecoverableFile _ FS.Open[name: "///CamelotRecoverableFile/TestFile", lock: write]; CamelotLogFile _ FS.Open[name: "///CamelotRecoverableFile/LogFile", lock: write]; RestartFile _ FS.Open[name: "///CamelotRecoverableFile/RestartFile", lock: write]; }; Init[]; END. ˜CamelotRecoverableImpl.mesa Copyright Σ 1988 by Xerox Corporation. All rights reserved. Bob Hagmann May 8, 1989 2:32:14 pm PDT Initialization Κπ˜šœ™Icodešœ<™˜QKšœœB˜RK˜K˜—K˜—K˜Kšœ˜K™J˜—…—˜