File DBFileAlpine.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by:
MBrown on February 22, 1983 11:30 am
Willie-sue on April 25, 1985 12:49:10 pm PST
Cattell on July 11, 1983 11:04 am
Wert, July 26, 1984 4:34:44 pm PDT
Widom, July 16, 1985 1:56:15 pm PDT
Donahue, November 13, 1985 11:23:09 am PST
DIRECTORY
AlpineEnvironment USING [LockOption],
DBCommon,
Rope USING [ROPE, Text];
DBFileAlpine:
CEDAR
DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
VersionOptions: TYPE = DBCommon.VersionOptions;
AlpineTrans: TYPE = REF;
AlpineOpenFileHandle: TYPE = REF;
Transactions
CreateTransaction: PROC [server: ROPE] RETURNS [t: AlpineTrans];
FinishTransaction: PROC [t: AlpineTrans, abort: BOOL, continue: BOOL];
Version numbers
VersionNumberFromOpenFile:
PROC[f: AlpineOpenFileHandle]
RETURNS[versionNumber: INT];
Files
OpenFile:
PROC [t: AlpineTrans, file: Rope.Text, version: VersionOptions, discardFileContents:
BOOL, nPagesInitial:
INT, lock: AlpineEnvironment.LockOption, readOnly:
BOOL]
RETURNS [f: AlpineOpenFileHandle, createdFile: BOOL];
Close: PROC[f: AlpineOpenFileHandle];
ReadFilePage:
PROC [f: AlpineOpenFileHandle, p:
CARDINAL, corePage:
LONG
POINTER];
WriteFilePage:
PROC [f: AlpineOpenFileHandle, p:
CARDINAL, corePage:
LONG
POINTER];
GetSize: PROC [f: AlpineOpenFileHandle] RETURNS [nPages: CARDINAL];
SetSize: PROC [f: AlpineOpenFileHandle, nPages: CARDINAL];
END.