<> <> < Coordinator.Handle.>> <> <> <> 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. <> <> <<>>