<> <> <> <> <> <> <> <> <> <> <> <> <> <> DIRECTORY AlpineEnvironment, AlpineTransMgrRpcControl, BasicTime; AlpineImport: DEFINITIONS LOCKS s.first USING s: Handle = BEGIN <> Register: PROC [server: AlpineEnvironment.FileStore] RETURNS [Handle]; <> <> <> <> <> Equal: PROC [s, t: Handle] RETURNS [BOOLEAN] = INLINE { RETURN [s=t] }; Name: PROC [s: Handle] RETURNS [AlpineEnvironment.FileStore] = INLINE { RETURN [s.first.server] }; GetTransMgrInterface: ENTRY PROC [s: Handle] RETURNS [AlpineTransMgrRpcControl.InterfaceRecord] = INLINE { ENABLE UNWIND => NULL; IF s.first.transMgrInterface = NIL THEN NewInterfaces[s]; RETURN [s.first.transMgrInterface] }; <> <> <> <> <> <> <> <> TransMgrInterfaceCallFailed: PROC [ s: Handle, i: AlpineTransMgrRpcControl.InterfaceRecord]; <> <> <> <> Object: TYPE = MONITORED RECORD [ server: AlpineEnvironment.FileStore, <> local: BOOL _ FALSE, <> mostRecentRegister: BasicTime.GMT, mostRecentBind: BasicTime.GMT, transMgrInterface: AlpineTransMgrRpcControl.InterfaceRecord _ NIL <> ]; Handle: TYPE = LIST OF Object; nullHandle: Handle = NIL; NewInterfaces: PRIVATE PROC [s: Handle]; <> END.--AlpineImport <> <> <<>>