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. DBTreeTestOps.mesa Last Edited by: Taft, June 3, 1983 5:27 pm Κώ– "Cedar" style˜Jšœ™J™*unitšΟk ˜ Icodešœœ˜Lšœœ'˜4Lšœœ ˜—šœœ œ˜!Kš˜Kšœ œ/˜>Kšœœ˜3Kšœ œœ˜Kš Οnœ œ1œœvœ-˜ϊKšžœ œ˜Kšžœ œœ'˜PKš ž œ œœ œœ˜8Kšœ˜——…—ΐ