File: SVFiles.mesa
Last edited by Bier on June 1, 1984 5:19:46 pm PDT
Author: Eric Bier on July 29, 1984 4:37:48 pm PDT
Contents: Interfaces which make creating scenes look like opening files.
DIRECTORY
IO,
Rope,
SVSceneTypes;
SVFiles: DEFINITIONS =
BEGIN
Scene: TYPE = SVSceneTypes.Scene;
SceneTable: TYPE = LIST OF Scene;
OpenScene: PROC [picName: Rope.ROPE, wdirForAIS: Rope.ROPE] RETURNS [scene: Scene, success: BOOL];
SaveScene: PROC [updatedScene: Scene, picName: Rope.ROPE] RETURNS [success: BOOL];
StoreScene: PROC [unNamedScene: Scene, newPicName: Rope.ROPE] RETURNS [success: BOOL];
FileExists: PROC [fileName: Rope.ROPE] RETURNS [answer: BOOL];
OpenFile: PROC [picName: Rope.ROPE] RETURNS [f: IO.STREAM, success: BOOL];
FilenameMinusExtension: PROC [wholeName: Rope.ROPE] RETURNS [firstPart: Rope.ROPE];
END.