DIRECTORYAlpineEnvironment,FilePageMgrPrivateChunk,FilePageMgrPrivateFile;FilePageMgrRedBlackTree: CEDAR DEFINITIONS  =BEGIN OPEN FpmPC: FilePageMgrPrivateChunk, FpmPF: FilePageMgrPrivateFile;FPMFileHandle: TYPE = REF FPMFileObject;FPMFileObject: TYPE = FpmPF.FPMFileObject;RefChunk: TYPE = REF Chunk;Chunk: TYPE = FpmPC.Chunk;LookupProc: TYPE = PROCEDURE[ fpmFileHandle: FPMFileHandle, key:  AlpineEnvironment.PageNumber ] RETURNS [RefChunk];Lookup: LookupProc; LookupNextLarger: LookupProc;LookupNextSmaller: LookupProc;LookupLargest: PROCEDURE[ fpmFileHandle: FPMFileHandle ] RETURNS [RefChunk];LookupSmallest: PROCEDURE[ fpmFileHandle: FPMFileHandle ] RETURNS [RefChunk];Delete: LookupProc;Insert: PROCEDURE[ fpmFileHandle: FPMFileHandle, refChunk: RefChunk, key:  AlpineEnvironment.PageNumber ];END.  Z  FilePageMgrRedBlackTreeCopyright c 1985 by Xerox Corporation.  All rights reserved.Hauser, March 27, 1985 12:04:43 pm PSTA thin interface over RedBlackTree handling the coercions.  Should be called only from FilePageMgrMainImpl with the lock in fpmFileHandle already held.  This is split out only to overcome compile size restriction. Ê þ  ˜ ™Icodešœ
Ïmœ1™<K™&K™ —šÏk	˜	K˜Kšœ˜Kšœ˜K˜—Jšœžœ˜-šž
œ?˜IJšœÕ™ÕJšœžœžœ˜(Jšœžœ˜*J˜ Jšœ
žœžœ˜Jšœžœ˜J˜ JšÏb
œj˜tJšŸœ˜JšŸœ˜JšŸœ˜JšŸœ?˜LJšŸœ?˜MJšŸœ˜JšŸœd˜jJ˜ —Jšžœ˜— …—    <  ”  