<> <> <> <> DIRECTORY DBCommon USING[DBPage], DBStorageTID USING[TID], DBStorageVec USING[SlotIndexField, VecPage, VecHeader]; DBStorageTSDict: CEDAR DEFINITIONS = BEGIN OPEN DBCommon, DBStorageTID; <> <> <> <> <> <> TSDictSlotIndex: DBStorageVec.SlotIndexField = 1; <> TSDict: TYPE = MACHINE DEPENDENT RECORD[ header: DBStorageVec.VecHeader, <> allocLink: DBPage, <> seq: ARRAY [1..1) OF TSDictEntry <> <> ];--TSDict TSDictEntry: TYPE = MACHINE DEPENDENT RECORD[ tuplesetID: TID, next: DBPage, prev: DBPage <> ];--TSDictEntry <<>> <> <> <> <> SizeOfInitialTSDict: CARDINAL = SIZE[TSDict] + SIZE[TSDictEntry]; SizeOfNullTSDict: CARDINAL = SIZE[TSDict]; NEntries: PROC[LONG POINTER TO TSDict] RETURNS[CARDINAL]; <> <> GetIndex: PROC[--p--LONG POINTER TO DBStorageVec.VecPage, --tsID--TID] RETURNS[--index--CARDINAL, --found it--BOOLEAN]; <> <> <> GetEntry: PROC[--p--LONG POINTER TO DBStorageVec.VecPage, --tsID--TID] RETURNS[LONG POINTER TO TSDictEntry]; <> <> EntryFromIndex: PROC[--p--LONG POINTER TO DBStorageVec.VecPage, --index--CARDINAL] RETURNS[LONG POINTER TO TSDictEntry]; <> <> END.--DBStorageTSDict CHANGE LOG Created by MBrown on June 14, 1980 9:10 PM <> Changed by MBrown on July 24, 1980 9:18 PM <> Changed by MBrown on August 12, 1980 4:03 PM <> <<>> Changed by Willie-Sue on February 15, 1985 <>