ArpaRouterPrivate.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Demers, August 21, 1987 10:48:40 am PDT
DIRECTORY
Arpa USING [Address],
ArpaRouter USING [RoutingTableEntry],
CommDriver USING [Buffer, Network];
ArpaRouterPrivate:
CEDAR
DEFINITIONS ~ {
Buffer: TYPE ~ CommDriver.Buffer;
Network: TYPE ~ CommDriver.Network;
Route: PROC [Arpa.Address] RETURNS [network: Network, immediate: Arpa.Address];
Redirect: PROC [dest: Arpa.Address, network: Network, immediate: Arpa.Address];
TakeThis: PROC [network: Network, buffer: Buffer, bytes: NAT] RETURNS [Buffer];
EventReason:
TYPE ~ {
rip, -- change due to routing information protocol message
icmp -- change due to icmp redirect message
};
EventProc: TYPE ~ PROC [net: Arpa.Address, old, new: ArpaRouter.RoutingTableEntry, why: EventReason];
SetEventProc: PROC [proc: EventProc];
ClearEventProc: PROC [proc: EventProc];