<> <> <> <> <> <> <> DIRECTORY DB USING [InternalError], DBStorageVec USING[SlotTypeField, TypeOfSlot, VecPage]; DBStorageVectags: CEDAR DEFINITIONS IMPORTS DBStorageVec = BEGIN <> <> <> MaxTuplesetPerPage: DBStorageVec.SlotTypeField = 171B; <> IndTupleType: DBStorageVec.SlotTypeField = 172B; <> LString: DBStorageVec.SlotTypeField = 173B; <> EString: DBStorageVec.SlotTypeField = 174B; <> NonlocalStringExtensonType: DBStorageVec.SlotTypeField = 175B; <> TSDictType: DBStorageVec.SlotTypeField = 176B; <> AssertVecIsLString: PROC[ pagePtr: LONG POINTER TO DBStorageVec.VecPage, slotIndex: CARDINAL] = TRUSTED INLINE { SELECT DBStorageVec.TypeOfSlot[pagePtr, slotIndex] FROM LString => {}; ENDCASE => ERROR DB.InternalError; -- BadVecTag };--AssertVecIsLString AssertVecIsEString: PROC[ pagePtr: LONG POINTER TO DBStorageVec.VecPage, slotIndex: CARDINAL] = TRUSTED INLINE { SELECT DBStorageVec.TypeOfSlot[pagePtr, slotIndex] FROM EString => {}; ENDCASE => ERROR DB.InternalError; -- BadVecTag };--AssertVecIsEString AssertVecIsTSDict: PROC[ pagePtr: LONG POINTER TO DBStorageVec.VecPage, slotIndex: CARDINAL] = TRUSTED INLINE { SELECT DBStorageVec.TypeOfSlot[pagePtr, slotIndex] FROM TSDictType => {}; ENDCASE => ERROR DB.InternalError; -- BadVecTag };--AssertVecIsTSDict END.--DBStorageVectags CHANGE LOG Created by MBrown on August 12, 1980 3:37 PM Changed by MBrown on August 13, 1980 4:49 PM <> <<>> Changed by Willie-Sue on February 15, 1985 <>