<> <> <> <> <> DIRECTORY DBCommon USING[CacheHandle, TID], DBStorage USING[TupleHandle, FieldHandle], DBStoragePage USING[TupleBody]; DBStorageGroup: CEDAR DEFINITIONS = BEGIN OPEN DBCommon; <> <> <> TIDFieldBody: TYPE = MACHINE DEPENDENT RECORD[ headTID: TID, prevTID: TID, nextTID: TID ];--TIDFieldBody TIDFieldPart: TYPE = {headTID, prevTID, nextTID}; <> GroupList: TYPE = ARRAY [0..0) OF GroupListEntry; GroupListEntry: TYPE = MACHINE DEPENDENT RECORD[ groupID: TID, firstTID: TID, lastTID: TID ];--GroupListEntry HeadFieldPart: TYPE = {firstTID, lastTID}; <> <> GroupListFromTuple: PROC[DBStorage.TupleHandle] RETURNS[LONG DESCRIPTOR FOR GroupList, DBCommon.CacheHandle]; <> ReadGroupField: PROC[ x: DBStorage.TupleHandle, f: DBStorage.FieldHandle, part: TIDFieldPart] RETURNS[DBStorage.TupleHandle]; <> WriteGroupField: PROC[ x: DBStorage.TupleHandle, f: DBStorage.FieldHandle, part: TIDFieldPart, val: DBStorage.TupleHandle]; <> ReadHeadField: PROC[ x: DBStorage.TupleHandle, f: DBStorage.FieldHandle, part: HeadFieldPart] RETURNS[DBStorage.TupleHandle]; <> <> WriteHeadField: PROC[ x: DBStorage.TupleHandle, f: DBStorage.FieldHandle, part: HeadFieldPart, val: DBStorage.TupleHandle]; <> <> CreateHeadEntry: PROC[x: DBStorage.TupleHandle, f: DBStorage.FieldHandle]; <> <> DestroyHeadEntry: PROC[x: DBStorage.TupleHandle, f: DBStorage.FieldHandle]; <> <> GroupListFromTupleBase: PROC[LONG POINTER TO DBStoragePage.TupleBody] RETURNS[LONG DESCRIPTOR FOR GroupList]; <> <> END.--DBStorageGroup CHANGE LOG Created by MBrown on June 17, 1980 10:15 AM <> <> Changed by MBrown on June 18, 1980 8:16 PM <> Changed by MBrown on August 13, 1980 11:56 AM <> Changed by Willie-Sue on February 15, 1985 <>