CamelotRecoverableImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bob Hagmann October 31, 1988 4:44:11 pm PST
DIRECTORY
CamelotRecoverable,
FS;
CamelotRecoverableImpl:
CEDAR
PROGRAM
IMPORTS FS
EXPORTS CamelotRecoverable
=
BEGIN
CamelotRecoverableFile: PUBLIC FS.OpenFile;
Initialization
Init:
PROC = {
CamelotRecoverableFile ←
FS.Open[name: "///CamelotRecoverableFile/TestFile", lock: write];
};
Init[];
END.