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; CreateTransaction: PROC [server: ROPE] RETURNS [t: AlpineTrans]; FinishTransaction: PROC [t: AlpineTrans, abort: BOOL, continue: BOOL]; VersionNumberFromOpenFile: PROC[f: AlpineOpenFileHandle] RETURNS[versionNumber: INT]; 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. tFile DBFileAlpine.mesa Copyright c 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 Transactions Version numbers Files Κθ˜šœ™Jšœ Οmœ1™<—Jšœ™Jšœ$™$Jšœ,™,Jšœ!™!Jšœ"™"™#Icode™*—˜šΟk ˜ Jšœžœ˜%J˜ Jšœžœžœ˜J˜——šœžœž œž˜'Jšžœžœžœ˜Jšœžœ˜/J˜Jšœ žœžœ˜Jšœžœžœ˜!head1šœ ™ JšΟnœžœ žœžœ˜@J˜JšŸœžœžœ žœ˜F—™šŸœžœ˜8Jšžœžœ˜——šœ™š ŸœžœQžœžœ0žœ˜¬Jšžœ(žœ˜5J˜—JšŸœžœ˜%J˜š Ÿ œžœžœ žœžœ˜RJ˜—š Ÿ œžœžœ žœžœ˜SJ˜—JšŸœžœžœ žœ˜CJ˜JšŸœžœ#žœ˜:—J˜Jšžœ˜J˜——…—x