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];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  |  File: DBIndexScan.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Created by: Suzuki,  November 20, 1980  10:29 AMLast edited by:Suzuki, November 24, 1980  11:01 AMCattell,  7-Jul-81 10:18:39Willie-Sue, February 15, 1985 3:40:24 pm PSTWidom, September 4, 1985 9:19:33 pm PDTMaintains the LIFO queue"r" was an empty tree, and just became to have one entry.  "p" points to the first page.If there is a IndexScanHandle, change values.The tree pointed to by q because empty.  Change all the IndexRealHandleso that if they point to this index, their page fields are Nullmade Cedar, added tioga formatting Êt  ˜ šœ™Jšœ
Ïmœ1™<—Jšœ0™0Jšœ™Jšœ#™#šœ™J™,J™'—˜ šÏk	˜	Jšœ	žœ˜ Jšœ
žœ(˜7Jšœžœ˜%J˜ ——Jšœžœžœ˜"˜ JšÏnœžœ˜J˜ JšŸœžœ˜'J˜ šŸœžœ ˜4Jšœ™J˜ —šŸœžœ˜J˜fJšœžœžœ˜5J˜ —JšŸœžœžœžœ˜cJ˜ JšŸœžœ.˜@JšœX™XJšœ-™-J˜ JšŸœžœ˜3JšœG™GJšœ?™?J˜ —J˜J˜ J˜ J˜
J˜ ˜&Jšœ!ž˜#—J˜ ˜*J™"—˜ J˜ J˜ —— …—    >  .  