-- VMMgr>STree.mesa (last edited by: McJones on: March 6, 1979 11:31 AM)

DIRECTORY

CachedSpace: FROM "CachedSpace" USING [Handle],

STLeaf: FROM "STLeaf" USING [Desc, Kind],

VM: FROM "VM" USING [PageCount, PageNumber];

STree: DEFINITIONS =

BEGIN

Key: TYPE = RECORD [SELECT OVERLAID STLeaf.Kind FROM

hierarchy => [handleH: CachedSpace.Handle],

projection => [pageP: VM.PageNumber],

ENDCASE];

Desc: TYPE = STLeaf.Desc;

PDesc: TYPE = LONG POINTER TO Desc;

Get: PROCEDURE [pDescResult: PDesc, key: Key] RETURNS [keyNext: Key];

Insert: PROCEDURE [pDesc: PDesc];

Delete: PROCEDURE [key: Key];

Update: PROCEDURE [pDesc: PDesc];

STreeImpl: PROGRAM [countVM: VM.PageCount, kind: STLeaf.Kind];

END.

LOG

Time: May 16, 1978 6:17 PMBy: McJonesAction: Created file

Time: June 21, 1978 9:36 AMBy: McJonesAction: Added STreeImpl