File DBStorageVectags.mesa
Copyright © 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
Widom, July 16, 1985 3:41:00 pm PDT
DIRECTORY
DB USING [InternalError],
DBStorageVec USING[SlotTypeField, TypeOfSlot, VecPage];
DBStorageVectags: CEDAR DEFINITIONS
IMPORTS DBStorageVec = BEGIN
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.
MaxTuplesetPerPage: DBStorageVec.SlotTypeField = 171B;
Slots with types IN [1..MaxTuplesetPerPage] point to tuples.
IndTupleType: DBStorageVec.SlotTypeField = 172B;
The slot points to an indirect tuple **unimplemented.
LString: DBStorageVec.SlotTypeField = 173B;
The slot points to a local string extension.
EString: DBStorageVec.SlotTypeField = 174B;
The slot points to an external string extension.
NonlocalStringExtensonType: DBStorageVec.SlotTypeField = 175B;
The slot points to a nonlocal string extension **unimplemented.
TSDictType: DBStorageVec.SlotTypeField = 176B;
The slot points to a tupleset dictionary vec.
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
Added AssertVecIsLString, AssertVecIsEString.
Changed by Willie-Sue on February 15, 1985
made Cedar, added tioga formatting