<> <> <> <> <> <> <> <> DIRECTORY IO, Rope; DBStats: CEDAR DEFINITIONS = BEGIN <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> Initialize: PROC[]; <> CounterEvent: TYPE = { <> CacheReadOrWrite, CacheHTLookup, CacheHTConflictInLookup, CacheMiss, CacheWritePageBack, <> SegmentAllocPage, SegmentFreePage, <> StorageCreateTuple, StorageCreateSystemTuple, StorageDestroyTuple, StorageReadTupleset, StorageReadField, StorageWriteField, StorageInitVecPage, StorageCheckVecPage, StorageAllocVec, StorageFreeVec, StorageModifyVec, StorageModifyDifficultVec, StorageCompactPage, <> DBIndexInsert, DBIndexDelete, DBIndexOpenScan, DBIndexNextScan, DBIndexBiggerKey, DBIndexEqualKey, BTreeSearchPage, BTreeSwapInPage, BTreeSwapOutPage }; Inc: PROC[event: CounterEvent] = INLINE { CounterArray[event] _ CounterArray[event] + 1 }; <> TimerEvent: TYPE = { <> AlpineFileCreateTransaction, AlpineFileFinishTransaction, AlpineFileOpen, AlpineFileReadPage, AlpineFileWritePage, AlpineFileGetSize, AlpineFileSetSize, <> OpenTransaction, CloseTransaction, MarkTransaction, AbortTransaction, DeclareDomain, LookupDomain, DestroyDomain, DeclareRelation, LookupRelation, DestroyRelation, DeclareEntity, LookupEntity, DestroyEntity, DeclareIndex, DestroyIndex, CreateRelship, LookupRelship, LookupProperty, DestroyRelship, SetF, GetF, SetP, GetP, EntityInfo, RelationSubset, NextRelship, PrevRelship, DomainSubset, NextEntity, PrevEntity }; FileTimerEvent: TYPE = TimerEvent [AlpineFileCreateTransaction .. AlpineFileSetSize]; Starting: PROC[event: TimerEvent] = INLINE { StartTimer[event] }; <> <> Stopping: PROC[event: TimerEvent] = INLINE { StopTimer[event] }; <> <> Aborting: PROC[event: TimerEvent] = INLINE { AbortTimer[event] }; <> Print: PROC[heading: Rope.ROPE _ NIL, out: IO.STREAM_ NIL, verbose: BOOLEAN _ FALSE]; <> <> <> CounterArray: PRIVATE ARRAY CounterEvent OF LONG CARDINAL; StartTimer: PRIVATE PROC[event: TimerEvent]; StopTimer: PRIVATE PROC[event: TimerEvent]; AbortTimer: PRIVATE PROC[event: TimerEvent]; END. -- DBStats CHANGE LOG Created by MBrown on September 18, 1980 11:12 PM Changed by MBrown on September 21, 1980 2:50 PM <> Changed by MBrown on September 21, 1980 9:59 PM <> <> Changed by Cattell on September 22, 1980 3:13 PM <> Changed by MBrown on October 31, 1980 10:03 AM <> Changed by MBrown on November 10, 1980 3:35 PM <> Changed by MBrown on November 14, 1980 3:37 PM <> Changed by MBrown on November 14, 1980 5:32 PM <> Changed by MBrown on December 8, 1980 5:41 PM <> Changed by MBrown on December 16, 1980 10:33 AM <> Changed by MBrown on February 26, 1981 10:08 AM <> Changed by MBrown on 17-Jun-81 12:05:42 <> Changed by Cattell on 15-Dec-81 10:16:23 <> Changed by Cattell on April 29, 1982 8:23 pm <> Changed by Willie-Sue on June 24, 1982 12:00 pm < IO>> Changed by Cattell on October 11, 1982 3:25 pm <> Changed by MBrown on November 29, 1982 2:04 pm <> <<>> Changed by Willie-Sue on February 15, 1985 <>