BTreeTestOps.mesa
Last Edited by: Taft, December 7, 1983 11:56 am
DIRECTORY
BTree USING [Tree],
BTreeVM USING [CacheSize, FilePagesPerPage, Handle];
BTreeTestOps: CEDAR DEFINITIONS =
BEGIN
Operation: TYPE = {lookup, validate, insert, delete, replace};
UpdateOperation: TYPE = Operation[insert..replace];
KeyIndex: TYPE = CARDINAL;
Create: PROCEDURE [cacheSize: BTreeVM.CacheSize ← 20, initialize: BOOLEAN ← TRUE, initialFileSize: INT ← 20, filePagesPerPage: BTreeVM.FilePagesPerPage ← 1, maxEntries: KeyIndex ← 10000] RETURNS [tree: BTree.Tree, storage: BTreeVM.Handle];
Destroy: PROCEDURE;
PerformRandomOperation: PROCEDURE RETURNS [operation: Operation, key: KeyIndex];
GetEntryCount: PROCEDURE RETURNS [count: LONG CARDINAL];
END.