DIRECTORYAlpineEnvironmentUSING[PageNumber, wordsPerPage],CountedVMUSING[Handle],FileMapUSING[Handle],VMUSING[PageCount, PageNumber, wordsPerPage];FilePageMgrPrivateChunk: CEDAR DEFINITIONS =BEGINRefChunk: TYPE = REF Chunk;Chunk: TYPE = RECORD[chunkType: ChunkType,defWritePending: BOOLEAN,state: ChunkState,useCount: NAT,fileHandle: FileMap.Handle,startFilePageNumber: AlpineEnvironment.PageNumber,startVMPageNumber: VM.PageNumber,nVMPages: NAT,leaderVMHandle: CountedVM.Handle,prev: RefChunk,next: RefChunk ];ChunkType: TYPE = {normal, log, leader, treeHeader, lruHeader, ostGeneral};ClientChunkType: TYPE = FilePageMgrPrivateChunk.ChunkType[normal..leader];ListChunkType: TYPE = FilePageMgrPrivateChunk.ChunkType[normal..leader];ChunkState: TYPE = {undefined, valid, readInProgress, writeInProgress};ChunkVMPageCount: ARRAY ListChunkType OF VM.PageCount =[normal: 4, log: 4, leader: 0];ChunkFilePageCount: ARRAY ListChunkType OF VM.PageCount =[normal: 4, log: 4, leader: 0];  -- note all of leader fits exactly in one chunk, of size to be determined later.CompileTimeCheck1: [VM.wordsPerPage..VM.wordsPerPage] =AlpineEnvironment.wordsPerPage;ChunkAllocator: PROCEDURE [chunkType: ChunkType, permanent: BOOLEAN] RETURNS[refChunk: RefChunk];ChunkIsDirty: PROCEDURE[refChunk: RefChunk] RETURNS [dirty: BOOLEAN];Sweeper: PROCEDURE[chunkType: FilePageMgrPrivateChunk.ChunkType];InternalFilePageMgrLogicError: ERROR;END.Edit LogInitial: Kolling: 22-Feb-82 16:18:32: a private defs file for the File Page Manager which sits between the rest of Alpine and Pilot.  ¶  FilePageMgrPrivateChunk.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last edited by:Kolling on January 31, 1984 2:13:05 pm PSTHauser, March 26, 1985 6:41:17 pm PSTThese should not be necessary.rbColor: BOOL,rbLLink, rbRLink: RefChunkbecause not every place is right yet.because File promised an integral number of vm pages and page aligned(latter checked elsewhere).For information about the significance of the Chunk fields, see FilePageMgrPrivateFileObject.non system-fatal errors:  running out of vm is system fatal.non system-fatal errors:  none.non system-fatal errors:  none.misc.:Hauser, March 8, 1985 10:30:04 am PSTNodified, added copyright. Êh  ˜ šœ™Icodešœ
Ïmœ1™<—šœ™Jšœ*™*K™%J˜ J˜ —JšÏk	˜	˜ ˜Jšžœ˜ ˜	Jšžœ	˜——˜Jšžœ	˜—šž˜Jšžœ&˜+J˜ J˜ ——Jšœžœžœ˜,J˜ Jšž˜J˜ J˜ Jšœ
žœžœ˜J˜ šœžœžœ˜J˜Jšœžœ˜J˜Jšœ
žœ˜J˜J˜2Jšœžœ˜!Jšœ
žœ˜J˜!J˜J˜J™Jšœ	žœ™J™J˜J˜ —šœžœ<˜KJšœžœ5˜JJšœžœ5˜HJ˜ —Jšœžœ7˜GJ˜ šœžœžœžœ˜7J˜—šœžœžœžœ˜9Jšœ!ÏcP˜qJ˜ —Jšœ%™%šœžœžœ˜7J˜—Jšœ`™`Jšœ]™]J˜ J˜ šÏnœž	œ#žœž˜LJ˜Jšœ<™<J˜ —š œž	œžœ	žœ˜EJšœ™J˜ —š œž	œ/˜AJšœ™J˜ J˜ —Jšœ™J˜ Jšœžœ˜%J˜ J˜ J˜ Jšžœ˜˜ J˜J˜ —J˜„J˜ J˜ ™%K™—K™ — …—    \  z  