XNSImpl.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Just a place to hold the implementors of the XNS interface. Formerly in CommDriverImpl to save GFI.
JKF August 25, 1988 5:09:38 pm PDT
Willie-s, August 5, 1991 4:22 pm PDT
DIRECTORY
Basics32,
ProcessorFace,
XNS;
XNSImpl: CEDAR PROGRAM
IMPORTS Basics32, ProcessorFace
EXPORTS XNS = {
NSImpl - Host Number Manipulations
GetThisHost: PUBLIC PROC RETURNS [XNS.Host] ~ {
BEWARE. Is this byte-order dependent? Not if ProcessorFace.ProcessorID guaranteed to be stored in the same format as an XNS.Host on the wire, but who knows ...
TRUSTED { RETURN[LOOPHOLE[ProcessorFace.processorID]]; };
};
IsMulticastHost: PUBLIC PROC [host: XNS.Host] RETURNS [BOOL] ~ {
RETURN [Basics32.BITAND[host.a, 1] # 0 ];
};
}...