DIRECTORY;SVStoragePools: CEDAR DEFINITIONS =BEGINMakeStorageProc: TYPE = PROC [pool: StoragePool];InitializePoolProc: TYPE = PROC [pool: StoragePool];AllocateProc: TYPE = PROC [pool: StoragePool]  RETURNS [item: REF ANY];FreeProc: TYPE = PROC [pool: StoragePool, item: REF ANY];StoragePoolClass: TYPE = REF StoragePoolClassObj;StoragePoolClassObj: TYPE = RECORD [name: ATOM,init: InitializePoolProc,allocate: AllocateProc,free: FreeProc];StoragePool: TYPE = REF StoragePoolObj;StoragePoolObj: TYPE = MONITORED RECORD [class: StoragePoolClass,data: REF ANY];CreateClass: PROC [name: ATOM, init: InitializePoolProc, allocate: AllocateProc, free: FreeProc] RETURNS [class: StoragePoolClass];CreatePool: PROC [class: StoragePoolClass, makeStorage: MakeStorageProc] RETURNS [pool: StoragePool];Initialize: PROC [pool: StoragePool];Allocate: PROC [pool: StoragePool] RETURNS [item: REF ANY];Free: PROC [pool: StoragePool, item: REF ANY];END.  Î  SVStoragePools.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Last edited by Bier on June 5, 1987 2:02:43 pm PDTContents:  Routines for maintaining various storage pools in Solidviews and synchronizing their use.  Synchronization is the main reason for the existence of this module.  It provides a MONITOR lock for each storage pool.Creates a new pool and allocates some storage for it.Initializes the pool storage before using it. Ê¼  ˜ J˜ Icodešœ™Kšœ
Ïmœ1™<Kšœ/Ïk™2KšÏnœ²žœ™ÝK™ šž	˜	Kšœ˜—K˜ KšŸœžœžœ˜#Kšž˜K˜ Kšœžœžœ˜1Kšœžœžœ˜4Kšœžœžœžœžœžœ˜GKš	œ
žœžœžœžœ˜9K˜ Kšœžœžœ˜1šœžœžœ˜$Kšœžœ˜K˜K˜K˜K˜—K˜ Kšœžœžœ˜'šœžœžœ˜)K˜Kšœžœž˜K˜K˜ —šŸœžœžœDžœ˜ƒK˜ —šŸ
œžœ9žœ˜eK™5—šŸ
œžœ˜%K™-—Kš
Ÿœžœžœžœžœ˜;KšŸœžœžœžœ˜.K˜ Kšžœ˜K˜ — …—    Ì  V  