BTreeTestOps.mesa
Last Edited by: Taft, June 3, 1983 5:27 pm
DIRECTORY
BTree USING [Tree],
BTreeVM USING [CacheSize, FilePagesPerPage, Handle],
File USING [PageCount];
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: File.PageCount ← 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.