INTERFACE TCPNetObj;

IMPORT IP, NetObj;

EXCEPTION Failed;

PROCEDURE Locate (ep: IP.Endpoint) : NetObj.Address;
   (* ep.address = IP.NullAddress implies the local host *)
   (* port = IP.NullPort means use the default agent port *)

PROCEDURE Listen (port: IP.Port) : NetObj.Address RAISES {Failed};
   (* port = IP.NullPort means use the default agent port *)
   (* starts a agent listener at the specified address *)

END TCPNetObj.