<> <> <> <> <> <<>> <> <> <> <> <> DIRECTORY DBCommon USING[DBPage, Segment], DBIndex USING [Core, Page, RealIndexHandle]; DBIndexPage: CEDAR DEFINITIONS = BEGIN BadPage: SIGNAL; -- if page is not a B-Tree page DestroyPageList: PROC [s: DBCommon.Segment]; <> DestroyPage: PROC [segment: DBCommon.DBPage, p: DBIndex.Page, db: DBCommon.DBPage]; <> UnlockPage: PROC [p: DBIndex.Page]; <> WritePage: PROC [p: DBIndex.Page]; <> WriteAndUnlockPage: PROC [p: DBIndex.Page]; <> CreateEmptyPage: PROC [tree: DBIndex.RealIndexHandle, level: CARDINAL, s: DBCommon.DBPage] RETURNS [DBIndex.Page]; <> GetPage: PROC [ tree: DBIndex.RealIndexHandle, db: DBCommon.DBPage, level: CARDINAL] RETURNS [DBIndex.Page]; <> CheckTag: PROC[LONG POINTER TO DBIndex.Core]; END. Change Log By Cattell September 22, 1982 12:57 pm: Changed names to be clearer. Use UnlockPage instead of FreePage, GetPage instead of CreateOldPage, etc. Changed by Willie-Sue on February 15, 1985 <>