<> <> <> <> <> DIRECTORY DBCommon USING[DBPage], DBCache USING[CacheHandle], DBStorage USING[TupleHandle]; DBStorageInternal: CEDAR DEFINITIONS = BEGIN <> <> <> TupleTree: TYPE = REF TupleTreeRecord; TupleTreeRecord: TYPE = MACHINE DEPENDENT RECORD[ <> rootPA: DBCommon.DBPage, <> depth: CARDINAL, <> tid: TID, <> segment: DBCommon.DBPage, <> padding: ARRAY[0..13) OF CARDINAL_ ALL[0] <> ];--TupleTreeRecord ReadIndexObject: PROCEDURE[t: DBStorage.TupleHandle, result: TupleTree]; <> <> <> WriteIndexObject: PROCEDURE[t: DBStorage.TupleHandle, val: TupleTree]; <> <> <> TID: TYPE = LONG CARDINAL; SegmentIDOfTuple: PROCEDURE[t: DBStorage.TupleHandle] RETURNS[--segmentID--DBCommon.DBPage]; <> TIDOfTuple: PROCEDURE[t: DBStorage.TupleHandle] RETURNS[TID]; <> MakeTupleHandle: PROCEDURE[tid: TID, cacheHint: DBCache.CacheHandle _ NIL] RETURNS[DBStorage.TupleHandle]; <> ReleaseTupleHandle: PROCEDURE[t: DBStorage.TupleHandle] = INLINE { }; END.--DBStorageInternal CHANGE LOG Created by MBrown on May 2, 1980 9:54 AM <> <> Changed by MBrown on May 8, 1980 10:09 AM <> Changed by MBrown on May 8, 1980 1:15 PM <> Changed by Suzuki on May 8, 1980 1:35 PM <> Changed by MBrown on May 9, 1980 10:06 AM <> Changed by Suzuki on August 17, 1980 11:10 AM <> Changed by MBrown on 17-Jun-81 10:35:17 <> Changed by Cattell on September 14, 1983 <> <<>> Changed by Willie-Sue on February 15, 1985 <>