EthernetOneHeadDLion.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Swinehart on September 23, 1982 1:43 pm; dummy multicast functions
BLyon on March 13, 1981 9:48 AM
Gobbel on January 23, 1981 3:49 PM
Johnsson/Forrest on January 12, 1981 2:13 PM
Forrest on December 7, 1980 11:42 AM
Johnsson/Murray on November 14, 1980 4:51 PM
Russ Atkinson (RRA) February 19, 1985 3:34:49 pm PST
DIRECTORY
EthernetOneFace;
EthernetOneHeadDLion:
PROGRAM
EXPORTS EthernetOneFace = BEGIN OPEN EthernetOneFace;
EXPORTed variables
nullDeviceHandle: PUBLIC DeviceHandle ← LOOPHOLE[123456B];
globalStateSize, controlBlockSize: PUBLIC CARDINAL ← 0;
hearSelf: PUBLIC BOOLEAN ← FALSE;
QueueOutput,
QueueInput:
PUBLIC
PROC [
DeviceHandle, LONG POINTER, CARDINAL, ControlBlock] = {ERROR};
GetStatus, GetRetries, GetPacketLength,
GetPacketsMissed:
PUBLIC
PROC [
UNSPECIFIED]
RETURNS [
UNSPECIFIED] = {
ERROR};
TurnOff, StartIO, AddCleanup,
RemoveCleanup:
PUBLIC
PROC [
UNSPECIFIED] =
LOOPHOLE[GetStatus];
-- don't worry about return mismatch
InputHosts,
InputHost:
PUBLIC
PROC [
UNSPECIFIED,
UNSPECIFIED] =
LOOPHOLE[GetStatus];
-- don't worry about return mismatch
MulticastCapabilities:
PUBLIC
PROC [device: DeviceHandle]
RETURNS [ canDo:
BOOLEAN, multicastsEnabled:
BOOLEAN] = {
RETURN [ canDo: FALSE, multicastsEnabled: FALSE]; };
GetNextDevice:
PUBLIC
PROC [DeviceHandle]
RETURNS [DeviceHandle] =
{
RETURN[nullDeviceHandle]};
TurnOn:
PUBLIC
PROC [DeviceHandle, HostAddress,
WORD,
WORD, GlobalStatePtr] = {
ERROR};
GetEthernet1Address:
PUBLIC
PROC [ EthernetOneFace.DeviceHandle]
RETURNS [net, host: [0 .. 377B]] = {
ERROR};
END....