<> <> <> <> DIRECTORY DBStorageTID USING[TID], DBStorageVec USING[SlotIndexField, VecHeader, LengthField]; DBStorageString: CEDAR DEFINITIONS = BEGIN OPEN DBStorageTID; <> <> IString: TYPE = MACHINE DEPENDENT RECORD[ bytesInString: DBStorageVec.LengthField, <> slotOfExtension: DBStorageVec.SlotIndexField, <> <> rest: SELECT OVERLAID * FROM word => [words: ARRAY [0..0) OF WORD _ NULL], text => [text: PACKED ARRAY [0..0) OF CHARACTER _ NULL], ENDCASE ];--IString <<>> <> <> <> <> <> SizeOfNullIString: CARDINAL = SIZE[IString]; LString: TYPE = MACHINE DEPENDENT RECORD[ header: DBStorageVec.VecHeader, <> bytesInRemString: CARDINAL, <> <> eStringID: TID <> <> ];--LString SizeOfNullLString: CARDINAL = SIZE[LString]; EString: TYPE = MACHINE DEPENDENT RECORD[ header: DBStorageVec.VecHeader, <> eStringID: TID, <> < this tuple holds tail of string.>> rest: SELECT OVERLAID * FROM word => [words: ARRAY [0..0) OF WORD _ NULL], text => [text: PACKED ARRAY [0..0) OF CHARACTER _ NULL], ENDCASE ];--EString SizeOfNullEString: CARDINAL = SIZE[EString]; END.--DBStorageString CHANGE LOG Created by MBrown on August 12, 1980 11:03 AM Changed by MBrown on 20-Jun-81 16:14:07 <> <<>> Changed bywillie-Sue on February 15, 1985 <>