CamelotRecoverableImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bob Hagmann May 8, 1989 2:32:14 pm PDT
DIRECTORY
CamelotRecoverable,
FS;
CamelotRecoverableImpl: CEDAR PROGRAM
IMPORTS FS
EXPORTS CamelotRecoverable
= BEGIN
CamelotRecoverableFile: PUBLIC FS.OpenFile;
CamelotLogFile: PUBLIC FS.OpenFile;
RestartFile: PUBLIC FS.OpenFile;
Initialization
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.