Copyright (C) 1994, Digital Equipment Corp.
TCPNetObj.i3
INTERFACETCPNetObj ; 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.