<> <> <> <> <> <> <> DIRECTORY AlpineEnvironment, AlpineLog, LogRep; LogBasicInternal: DEFINITIONS = BEGIN PageNumber: TYPE = AlpineEnvironment.PageNumber; RecordID: TYPE = AlpineLog.RecordID; <> AdvanceChunk: PROC [] RETURNS [version: LogRep.PageVersion, pagesInChunk: INT, firstPagePtr: LONG POINTER]; <> <> <> <> ForceTo: PROC [followingRecord: RecordID]; <> <<(This is NOT the same as LogBasic.Force, which must also ensure that if followingRecord>> <> OpenCoreForPut: PROC [ nextPage: PageNumber, version: LogRep.PageVersion, nextRecord: RecordID] RETURNS [pagesInChunk: INT, firstPagePtr: LONG POINTER]; <> CloseCoreForPut: PROC []; <> <> END. CHANGE LOG Created by MBrown on June 22, 1982 10:59 am Changed by MBrown on October 2, 1982 9:11 pm <> <> <> <> <> <<>>