<> <> <> <> <> <> <> DIRECTORY DB USING [InternalError], DBCommon USING[DBPage, CacheHandle], DBSegment USING[SegmentIDFromDBPage], DBStorage USING[TupleHandle, IndexObjectSize, ReadNWord, WriteNWord], DBStorageField USING[TuplesetFieldHandle], DBStorageInternal USING[TupleTree, TupleTreeRecord, TID], DBStorageTID USING[TID, DecomposeTID], DBStorageTuple USING[ConsTupleObject, TIDOfTuple]; DBStorageInternalImpl: CEDAR PROGRAM IMPORTS DB, DBSegment, DBStorage, DBStorageField, DBStorageTID, DBStorageTuple EXPORTS DBStorageInternal = BEGIN OPEN DBStorageTID; <> ReadIndexObject: PUBLIC PROC[ t: DBStorage.TupleHandle, result: DBStorageInternal.TupleTree] = { <> <> <> IF SIZE[DBStorageInternal.TupleTreeRecord] > DBStorage.IndexObjectSize THEN ERROR DB.InternalError; DBStorage.ReadNWord[t, DBStorageField.TuplesetFieldHandle[], result]; };--ReadIndexObject WriteIndexObject: PUBLIC PROC[ t: DBStorage.TupleHandle, val: DBStorageInternal.TupleTree] = { <> <> <> IF SIZE[DBStorageInternal.TupleTreeRecord] # DBStorage.IndexObjectSize THEN ERROR DB.InternalError; DBStorage.WriteNWord[t, DBStorageField.TuplesetFieldHandle[], val]; };--WriteIndexObject SegmentIDOfTuple: PUBLIC PROC[ t: DBStorage.TupleHandle] RETURNS[--segmentID--DBCommon.DBPage] = { <> dbPage: DBCommon.DBPage; [dbPage,] _ DecomposeTID[TIDOfTuple[t]]; RETURN[DBSegment.SegmentIDFromDBPage[dbPage]]; };--SegmentIDOfTuple TIDOfTuple: PUBLIC PROC[t: DBStorage.TupleHandle] RETURNS[DBStorageInternal.TID] = { <> RETURN[DBStorageTuple.TIDOfTuple[t]]; };--TIDOfTuple MakeTupleHandle: PUBLIC PROC[ tid: DBStorageInternal.TID, cacheHint: DBCommon.CacheHandle _ NIL] RETURNS[DBStorage.TupleHandle] = { <> RETURN[DBStorageTuple.ConsTupleObject[tid: tid, cacheHint: cacheHint]]; };--MakeTupleHandle END.--StorageInternalImpl CHANGE LOG Created by MBrown on 9-May-80 10:54 Changed by MBrown on June 8, 1980 9:35 PM <> Changed by MBrown on June 11, 1980 3:53 PM <> Changed by MBrown on September 26, 1980 4:35 PM <> Changed by MBrown on February 27, 1981 5:25 PM <> Changed by MBrown on 17-Jun-81 10:32:40 <> Changed by Willie-Sue on February 15, 1985 <>