DIRECTORYYggEnvironmentUSING[PageNumber],YggFileMapUSING[Handle],YggFilePageMgrPrivateChunkUSING[Chunk, ChunkType, ListChunkType, RefChunk],YggFilePageMgrPrivateFileUSING[FPMFileHandle];YggFilePageMgrLru: CEDAR DEFINITIONS =BEGINPutMappedChunkOnLruList: PROCEDURE[refChunk: YggFilePageMgrPrivateChunk.RefChunk,lruListPlace: LruListPlace];LruListPlace: TYPE = {mru, lru};PutUnmappedChunkOnLruList: PROCEDURE[refChunk: YggFilePageMgrPrivateChunk.RefChunk];GetOurChunkFromLruList: PROCEDURE [refChunk: YggFilePageMgrPrivateChunk.RefChunk,tellSweeperToHurry: BOOLEAN];GetOtherChunkFromLruList: PROCEDURE [chunkType:YggFilePageMgrPrivateChunk.ListChunkType] RETURNS[mapped: BOOLEAN, refChunk:YggFilePageMgrPrivateChunk.RefChunk, fileHandle: YggFileMap.Handle, startFilePageNumber:YggEnvironment.PageNumber];RelinkChunkAsLruOnLruList: PROCEDURE[refChunk: YggFilePageMgrPrivateChunk.RefChunk];UsingTooMuchOfCache: PROCEDURE[fPMFileHandle: YggFilePageMgrPrivateFile.FPMFileHandle]RETURNS [yes: BOOLEAN];WaitToSweep: PROCEDURE [oldNeedToHurry: BOOLEAN, currentEpoch: NAT, chunkType: YggFilePageMgrPrivateChunk.ListChunkType] RETURNS[needToHurry: BOOLEAN,sweepList: LIST OF SweepItem];SweepItem: TYPE = RECORD[fileHandle: YggFileMap.Handle, startFilePageNumber: YggEnvironment.PageNumber];InitializeLruLists: PROCEDURE[nChunks: ARRAY YggFilePageMgrPrivateChunk.ListChunkType OFNAT];CheckCacheInCleanState: PROCEDURE RETURNS [clean: BOOLEAN];END.Edit LogInitial: Kolling: 23-Feb-82 17:21:13: private defs file for the lru lists manager part of File Page Manager.Nodified: Hauser: February 20, 1985 3:10:03 pm PST  6  YggFilePageMgrLru.mesaCopyright c 1985, 1988 by Xerox Corporation.  All rights reserved.Last edited by:Kolling on January 24, 1984 12:58:35 pm PSTHauser, March 7, 1985 5:18:42 pm PSTBob Hagmann March 23, 1988 11:17:20 am PSTSee YggFilePageMgrPrivateFile for implementation details.  Things of especial note are:  Mapping and unmapping do not go on while a chunk is on an lru list; therefore, the lru procedures can read Chunk.fileHandle and Chunk.startFilePageNumber.  The FPMFileObject monitor must not be entered by a process holding the FilePageMgrLruImpl monitor.non system-fatal errors:  none.non system-fatal errors:  none.non system-fatal errors:  none.non system-fatal errors:  none.if unmapped, we really got it; if mapped, just returns a hint but has also moved the chunk to the mru end of the list.non system-fatal errors:  none.non system-fatal errors:  none.only called for normal type chunks.non system-fatal errors:  none.non system-fatal errors:  none.non system-fatal errors:  none.Hauser, March 7, 1985 3:07:51 pm PSTAdded copyright Ê‡  ˜ šœ™Icodešœ
Ïmœ7™B—šœ™Jšœ+™+K™$K™*—J˜ J˜ JšÏk	˜	˜ šœ˜Jšžœ˜—šœ
˜
Jšžœ	˜—šœ˜Jšžœ,˜1—šœ˜Jšžœ˜J˜ J˜ ——Jšœžœžœ˜&J˜ Jšž˜J˜ Jšœ×™×J˜ J˜ J˜ šÏnœž	œ/˜QJ˜šœ™Jšœžœ˜ J˜ ——šŸœž	œ0˜TJšœ™J˜ J˜ —šŸœž	œ0˜QJšœžœ˜Jšœ™J˜ —šŸœž	œ˜/Jšœ*žœ	žœ˜LJšœX˜XJšœ˜Jšœ™Jšœv™vJ˜ J˜ —šŸœž	œ0˜TJšœ™J˜ J˜ —šŸœž	œ8˜VJšžœžœ˜Jšœ™Jšœ#™#—J˜ J˜ šŸœž	œžœžœ7žœžœ˜–Jšœžœžœ˜Jšœ™J˜ —šœžœžœP˜hJ˜ J˜ J˜ —šŸœž	œ
žœ*ž˜XJšžœ˜Jšœ™J˜ —šŸœž	œžœ	žœ˜;Jšœ™J˜ J˜ J˜ —Jšžœ˜˜ J˜J˜ —J˜lJ˜2J˜ J˜ ™$K™—K™ — …—    „  A  