<> <> <> <> <<>> DIRECTORY SVStoragePools; SVStoragePoolsImpl: CEDAR MONITOR LOCKS pool USING pool: StoragePool EXPORTS SVStoragePools = BEGIN MakeStorageProc: TYPE = SVStoragePools.MakeStorageProc; InitializePoolProc: TYPE = SVStoragePools.InitializePoolProc; AllocateProc: TYPE = SVStoragePools.AllocateProc; FreeProc: TYPE = SVStoragePools.FreeProc; StoragePoolClass: TYPE = REF StoragePoolClassObj; StoragePoolClassObj: TYPE = SVStoragePools.StoragePoolClassObj; StoragePool: TYPE = REF StoragePoolObj; StoragePoolObj: TYPE = SVStoragePools.StoragePoolObj; CreateClass: PUBLIC PROC [name: ATOM, init: InitializePoolProc, allocate: AllocateProc, free: FreeProc] RETURNS [class: StoragePoolClass] = { class _ NEW[StoragePoolClassObj _ [name, init, allocate, free]]; }; CreatePool: PUBLIC PROC [class: StoragePoolClass, makeStorage: MakeStorageProc] RETURNS [pool: StoragePool] = { <> pool _ NEW[StoragePoolObj _ [class: class, data: NIL]]; pool.class.init[pool]; }; <<>> Initialize: PUBLIC ENTRY PROC [pool: StoragePool] = { <> pool.class.init[pool]; }; Allocate: PUBLIC ENTRY PROC [pool: StoragePool] RETURNS [item: REF ANY] = { item _ pool.class.allocate[pool]; }; Free: PUBLIC ENTRY PROC [pool: StoragePool, item: REF ANY] = { pool.class.free[pool, item]; }; END.