<> <> <> <> <> <> <> <> <> DIRECTORY DBCommon USING[DBPage, Segment, TID], DBStorage USING[Selection, FirstLast, IndexHandle, IndexScanHandle], DBIndex USING[Page, RealIndexHandle]; DBIndexScan: CEDAR DEFINITIONS = { <> CreateNewRealIndexHandle: PROC [tid: DBCommon.TID]; <> GetOldRealIndexHandle: PROC [x: DBStorage.IndexHandle] RETURNS [DBIndex.RealIndexHandle]; DestroyIndexHandle: PROC [q: DBIndex.RealIndexHandle]; DeleteHandle: PUBLIC PROC [q: DBIndex.RealIndexHandle]; <> FinalizeIndexHandle: PROC [s: DBCommon.Segment]; <> <<>> InitScan: PROC; FreeScan: PROC [seg: DBCommon.Segment]; FreeScanHandle: PROC [s: DBStorage.IndexScanHandle]; <> CreateScanHandle: PROC [r: DBIndex.RealIndexHandle, y: DBStorage.Selection, start: DBStorage.FirstLast, page: DBCommon.DBPage, index: CARDINAL] RETURNS [DBStorage.IndexScanHandle]; ManipulateScanIndex: PROC[page: DBIndex.Page, after: CARDINAL, f: PROC[DBStorage.IndexScanHandle]]; PutScanIndex: PROC[r: DBIndex.RealIndexHandle, p: DBIndex.Page]; <<"r" was an empty tree, and just became to have one entry. "p" points to the first page.>> <> ScanForNullTree: PROC [q: DBIndex.RealIndexHandle]; <> }. Change Log Added PutScanIndex and ScanForNullTree Suzuki: November 24, 1980 11:01 AM Changed by Willie-Sue on February 15, 1985 <>