DIRECTORY
AtomPrivate USING [UnsafeMakeAtomFromString],
ProcessorFace USING [ProcessorID, ProcessorType];

ProcessorFaceImpl: CEDAR PROGRAM 
IMPORTS AtomPrivate
EXPORTS ProcessorFace
= BEGIN

processorID: PUBLIC ProcessorFace.ProcessorID = GetProcessorID[];


GetProcessorID: PRIVATE PROC RETURNS [processorID: ProcessorFace.ProcessorID]
~ TRUSTED {
GetProcessorIDInner: PROC [pid: POINTER TO ProcessorFace.ProcessorID] = 
TRUSTED MACHINE CODE {
"+extern void XR_getxnshostid();.XR_getxnshostid"
};
GetProcessorIDInner[@processorID];
};


GetProcessorType: PUBLIC PROC RETURNS [ProcessorFace.ProcessorType] = TRUSTED {
Doit: PROC [] RETURNS [ProcessorFace.ProcessorType] ~ TRUSTED MACHINE CODE {
"XR_GetProcessorType"
};
RETURN[ Doit[] ];
};

decAtom, rs6000Atom, sun3Atom, sun4Atom, unknownAtom: ATOM;
lastProcessorType: ProcessorFace.ProcessorType ~ decstation;

GetProcessorTypeName: PUBLIC PROC [type: ProcessorFace.ProcessorType]
RETURNS [ATOM] = {
SELECT type FROM 
sun3 => RETURN [sun3Atom];
sun4 => RETURN [sun4Atom];
rs6000 => RETURN [rs6000Atom];
decstation => RETURN [decAtom];
ENDCASE => RETURN [unknownAtom];
};

ProcessorTypeFromName: PUBLIC PROC [name: ATOM] RETURNS [ProcessorFace.ProcessorType] = {
SELECT name FROM 
sun3Atom => RETURN [sun3];
sun4Atom => RETURN [sun4];
rs6000Atom => RETURN [rs6000];
decAtom => RETURN [decstation];
ENDCASE => RETURN [LAST[ProcessorFace.ProcessorType]];
};

LastProcessorType: PUBLIC PROC RETURNS[ProcessorFace.ProcessorType] ~
{ RETURN[lastProcessorType] };
TRUSTED {
decAtom ¬ AtomPrivate.UnsafeMakeAtomFromString["decstation"];
rs6000Atom ¬ AtomPrivate.UnsafeMakeAtomFromString["rs6000"];
sun3Atom ¬ AtomPrivate.UnsafeMakeAtomFromString["sun3"];
sun4Atom ¬ AtomPrivate.UnsafeMakeAtomFromString["sun4"];
unknownAtom ¬ AtomPrivate.UnsafeMakeAtomFromString["unknown"];
};
END.
   ²  
ProcessorFaceImpl.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation.  All rights reserved.
JKF August 24, 1988 5:16:16 pm PDT
Carl Hauser, September 6, 1988 4:33:06 pm PDT
Willie-s, August 1, 1991 5:19 pm PDT


Processor ID
At any moment in time, no two processors will have the same processor id.  The processor id remains constant as long as a system element remains running, but may change across system restarts.  Programs should make no assumptions about the structure of a processor id. 
Note: processorID=NullProcessorID indicates that the processor has not had a unique processor id assigned.  This is likely to prevent many client systems (e.g. Pilot) from running.


Êæ  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ
Ïeœ=™HK™"K™-K™$K™ K™ —šÏk	˜	Kšœžœ˜-Kšœžœ˜1—K˜ KšÏnœžœž˜!Kšžœ˜Kšžœ˜Kšœž˜headšœ
ž™Kšœ™K˜ Kšœžœ.˜AK˜ ˜ Kšœ´™´K™ —šŸœžœžœ)˜MKšœžœ˜šŸœžœžœžœ˜HKšžœžœžœ˜˜1K˜——Kšœ"˜"K˜K˜ K˜ —š
Ÿœžœžœžœ!žœ˜OšŸœžœžœ!žœžœžœ˜LK˜K˜—Kšžœ˜Kšœ˜K˜ —Kšœ6žœ˜;Kšœ<˜<K˜ š
Ÿœžœžœ%žœžœ˜Xšžœžœ˜Kšœžœ˜Kšœžœ˜Kšœ
žœ˜Kšœžœ˜Kšžœžœ˜ —K˜K˜ —š
Ÿœžœžœžœžœ"˜Yšžœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ
˜Kšœžœ˜Kšžœžœžœ˜6—K˜K˜ —šŸœžœžœžœ˜EKšœžœ˜K™ —šžœ˜	Kšœ=˜=Kšœ<˜<Kšœ8˜8Kšœ8˜8Kšœ>˜>Kšœ˜K™ ——Kšžœ˜— …—    &  ¾  