DIRECTORY DBEnvironment USING[InternalError], DBStorageVec USING[SlotTypeField, TypeOfSlot, VecPage]; DBStorageVectags: CEDAR DEFINITIONS IMPORTS DBEnvironment, DBStorageVec = BEGIN OPEN DBEnvironment; 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 InternalError; -- BadVecTag };--AssertVecIsLString AssertVecIsEString: PROC[ pagePtr: LONG POINTER TO DBStorageVec.VecPage, slotIndex: CARDINAL] = TRUSTED INLINE { SELECT DBStorageVec.TypeOfSlot[pagePtr, slotIndex] FROM EString => {}; ENDCASE => ERROR InternalError; -- BadVecTag };--AssertVecIsEString AssertVecIsTSDict: PROC[ pagePtr: LONG POINTER TO DBStorageVec.VecPage, slotIndex: CARDINAL] = TRUSTED INLINE { SELECT DBStorageVec.TypeOfSlot[pagePtr, slotIndex] FROM TSDictType => {}; ENDCASE => ERROR 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 4File DBStorageVectags.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last edited by: MBrown on September 26, 1980 11:23 AM Cattell on January 14, 1983 2:17 pm Willie-Sue, February 15, 1985 11:16:49 am PST This interface defines "slot types", i.e. values retrieved by DBStorageVec.TypeOfSlot. Values 0B and 177B are defined in DBStorageVec, since they are of concern only to the Vec allocator. Slots with types IN [1..MaxTuplesetPerPage] point to tuples. The slot points to an indirect tuple **unimplemented. The slot points to a local string extension. The slot points to an external string extension. The slot points to a nonlocal string extension **unimplemented. The slot points to a tupleset dictionary vec. Added AssertVecIsLString, AssertVecIsEString. made Cedar, added tioga formatting Ê[˜šœ™Jšœ Ïmœ1™<—šœ™Jšœ&™&šœ#™#J™-—J˜J˜—šÏk ˜ Jšœžœ˜#Jšœ žœ%˜7J˜J˜—šœž˜#šžœžœžœ˜?JšœV™VJšœU™UJšœ™J˜˜6Jšœ<™<—˜0Jšœ5™5—˜+Jšœ,™,—˜+Jšœ0™0—˜>Jšœ?™?—˜.Jšœ-™-J˜J˜—šÏnœžœ˜Jšœ žœžœžœ˜.šœ žœžœžœ˜'šžœ-ž˜7J˜—JšžœžœÏc ˜,——Jšœ ˜J˜šŸœžœ˜Jšœ žœžœžœ˜.šœ žœžœžœ˜'šžœ-ž˜7J˜—Jšžœžœ  ˜,——Jšœ ˜J˜šŸœžœ˜Jšœ žœžœžœ˜.šœ žœžœžœ˜'šžœ-ž˜7J˜—Jšžœžœ  ˜,——Jšœ ˜J˜J˜——Jšžœ ˜J˜J˜Jšžœž˜ J˜Jšœ+ž˜-J˜Jšœ+ž˜-Jšœ-™-J™Jšœ*˜*J™"J˜—…—¨ 7