DIRECTORY CommDriver USING [Buffer], Rope USING [ROPE], IPDefs USING [Datagram, Address, InternetHeader]; IPRouter: CEDAR DEFINITIONS = BEGIN BestAddress: PROC [addresses: LIST OF IPDefs.Address] RETURNS [IPDefs.Address]; GoodAddress: PROC [address: IPDefs.Address] RETURNS [yes: BOOL]; SortAddresses: PROC [list: LIST OF IPDefs.Address] RETURNS[result: LIST OF IPDefs.Address]; DatagramPointer: UNSAFE PROC [b: CommDriver.Buffer] RETURNS [d: LONG POINTER TO IPDefs.InternetHeader]; SendDatagram: PROC [data: IPDefs.Datagram]; Redirect: PROC [dest, gateway: IPDefs.Address, source: IPDefs.Address]; SetStateChangeProc: PROC [proc: PROC [Rope.ROPE] ]; END. μCopyright (C) 1983, 1984, 1985 by Xerox Corporation. All rights reserved. The following program was created in 1983 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance with the terms of said license. IPRouter.mesa Last Edited by: HGM, October 7, 1984 2:00:25 am PDT Last Edited by: Nichols, August 15, 1983 4:34 pm Last Edited by: Taft, January 5, 1984 5:17 pm Hal Murray June 26, 1985 11:56:29 pm PDT John Larson, June 12, 1987 8:45:47 pm PDT Given a buffer from the buffer pool, returns a pointer to where the datagram should begin. Allocate a buffer, do the routing, and send it. Traffic to dest's net should be sent to gateway. ΚU– "cedar" style˜Icode2šœ΅™΅head™ Icode™3J™0J™-J™(J™)šΟk ˜ Kšœ œ ˜Kšœœœ˜Kšœœ%˜1——šΟnœœ œ˜Kš˜Kš ž œœ œœœ˜OKšž œœœœ˜@Kšž œœœœœ œœ˜[šžœœœœœœœ˜gK™Z—šž œœ˜+K™/—šžœœ9˜GKšœ0™0—Kšžœœœœ˜3Kšœ˜——…—’Σ