<> <> <> <> <> <> <> <> DIRECTORY DBCommon USING[DBPage, Segment], DBStorage USING[Selection, FirstLast, IndexScanHandle], DBIndex USING[Page, RealIndexHandle]; DBIndexScan: CEDAR DEFINITIONS = { 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 <>