INTERFACE TCPExtras;

IMPORT Ctypes, IP, TCP;

PROCEDURE LocalEndpoint(conn: TCP.T): IP.Endpoint RAISES {IP.Error};

return the local endpoint of a TCP connection

PROCEDURE htons(s: Ctypes.unsigned_short_int): Ctypes.unsigned_short_int;
PROCEDURE ntohs(s: Ctypes.unsigned_short_int): Ctypes.unsigned_short_int;

convert between host (h) and network (n) byte orders.

END TCPExtras.