DIRECTORYAlpineEnvironment,Coordinator USING [Handle, nullHandle];CoordinatorMap: DEFINITIONS =BEGINTransID: TYPE = AlpineEnvironment.TransID;Handle: TYPE = Coordinator.Handle;nullHandle: Handle = Coordinator.nullHandle;Register: PROC [handle: Handle];GetHandle: PROC [trans: TransID] RETURNS [handle: Handle];Unregister: PROC [handle: Handle];Count: PROC [] RETURNS [INT];EnumProc: TYPE = PROC [Handle] RETURNS [stop: BOOL];LockedEnumerate: PROC [proc: EnumProc];UnlockedEnumerate: PROC [proc: EnumProc];END.   ò  CoordinatorMap.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.TransID -> Coordinator.Handle.Last edited byMBrown on November 8, 1982 3:19 pmHauser, March 7, 1985 2:37:19 pm PSTCreating, finding, and deleting HandlesReturns the number of Handles currently registered.proc is called with CoordinatorMap monitor locked.  All Handles Registeredbefore the start of the enumeration and not Unregistered before the start of theenumeration will be seen exactly once.proc is called with CoordinatorMap monitor unlocked.  All Handles Registeredbefore the start of the enumeration and not Unregistered before the end of theenumeration will be seen at least once.Hauser, March 7, 1985 2:37:06 pm PSTNodified, added copyright. Êr  ˜ šœ™Icodešœ
Ïmœ1™<—Jšœ™šœ™Jšœ"™"K™$—˜ šÏk	˜	J˜Jšœžœ˜'J˜ ——šœžœ˜Jšž˜Jšœ	žœ˜*J˜ Jšœžœ˜"J˜,J˜ J˜ Jšœ'™'J˜ JšÏnœžœ˜ J˜ JšŸ	œžœžœ˜:J˜ JšŸ
œžœ˜"J˜ šŸœžœžœžœ˜Jšœ3™3J˜ —Jš
Ÿœžœžœ
žœžœ˜4šŸœžœ˜'JšœJ™JJšœP™PJšœ&™&—šŸœžœ˜)JšœL™LJšœN™NJšœ'™'J˜ —Jšžœ˜—™$K™—K™ — …—      ~  