<> <> <> <> DIRECTORY NSAddress USING [HostNumber]; CommunicationInternal: DEFINITIONS = BEGIN <> PilotCommUtil: PROGRAM; <> ChecksumsImpl: PROGRAM; RouterImpl: PROGRAM; RoutingTableImpl: PROGRAM; SocketImpl: PROGRAM; PacketExchangeImpl: PROGRAM; EchoServerImpl: PROGRAM; <> PacketStreamMgr: PROGRAM; NetworkStreamMgr: PROGRAM; <> PrivateHostID: TYPE = RECORD [ab: LONG CARDINAL, c: CARDINAL]; HostIDsAreEqual: PROCEDURE [x, y: NSAddress.HostNumber] RETURNS [BOOLEAN] = INLINE BEGIN xx: PrivateHostID = LOOPHOLE[x]; yy: PrivateHostID = LOOPHOLE[y]; RETURN[(xx.c = yy.c) AND (xx.ab = yy.ab)]; END; END. LOG Time: July 7, 1979 1:44 PM By: Dalal Action: Created file. Time: January 4, 1980 2:51 PM By: Dalal Action: Changed SocketMgr to SocketImpl. Time: January 4, 1980 2:51 PM By: Dalal Action: Changed OISCPRouter to RouterImpl and RoutingTableImpl. Time: January 27, 1980 10:22 AM By: Dalal Action: added PacketStreamMgr. Time: August 20, 1980 10:37 AM By: BLyon Action: added ChecksumsImpl.