DIRECTORY
Convert USING [NetFormat, RopeFromXNSHost],
ProcessorFace USING [processorID],
Rope,
ThisMachine USING [],
ThisMachineRegistry;

MiscRegistryImpl: CEDAR MONITOR
IMPORTS Convert, ProcessorFace, Rope
EXPORTS ThisMachine, ThisMachineRegistry ~ BEGIN

ROPE: TYPE = Rope.ROPE;
ThisMachineRef: TYPE = ThisMachineRegistry.ThisMachineRef;

registeredTMProcs: LIST OF ThisMachineRef м NIL;

 
Name: PUBLIC PROC [which: ATOM] RETURNS [rope: ROPE м NIL] = {
thisProcs: ThisMachineRef м FindProcs[which];
IF thisProcs # NIL THEN rope м thisProcs.Name[];
};
Address: PUBLIC PROC [which: ATOM] RETURNS [rope: ROPE м NIL] = {
thisProcs: ThisMachineRef м FindProcs[which];
IF thisProcs # NIL THEN rope м thisProcs.Address[];
};
ProcessorID: PUBLIC PROC [which: ATOM] RETURNS [rope: ROPE м NIL]
~ {
format: Convert.NetFormat м SELECT which FROM
NIL, $Octal => octal,
$Decimal, $ProductSoftware => productSoftware,
$Hex => hex,
ENDCASE => ERROR;
rope м Convert.RopeFromXNSHost[LOOPHOLE[ProcessorFace.processorID], format];
IF (format = octal) THEN {
length: INT м Rope.Length[rope];
IF (length > 0) AND (Rope.Fetch[rope, length-1] = 'B)
THEN rope м Rope.Substr[rope, 0, length-1];
};
};

RegisterThisMachineProcs: PUBLIC ENTRY PROC[newProcs: ThisMachineRef] = {
ENABLE UNWIND => NULL;
registeredTMProcs м CONS[newProcs, registeredTMProcs];
};

GetThisMachineProcs: PUBLIC ENTRY PROC RETURNS[LIST OF ThisMachineRef] = {
ENABLE UNWIND => NULL;
RETURN[registeredTMProcs]
};


FindProcs: ENTRY PROC[which: ATOM] RETURNS[ThisMachineRef] = {
ENABLE UNWIND => NULL;
reallyUse: ATOM м which;
this: ThisMachineRef;
Try: PROC RETURNS[ThisMachineRef] = {
FOR tmL: LIST OF ThisMachineRef м registeredTMProcs, tmL.rest UNTIL tmL=NIL DO
IF reallyUse = tmL.first.which THEN RETURN[tmL.first]; 
ENDLOOP;
RETURN[NIL];
};
SELECT which FROM
$Pup => reallyUse м $pup;
$XNS => reallyUse м $xns;
NIL, $Arpa => reallyUse м $ip;
ENDCASE => NULL;
IF reallyUse  = NIL THEN RETURN[NIL];
IF ( this м Try[] ) # NIL THEN RETURN[this];
IF ( which = NIL ) THEN reallyUse м $ip;
RETURN[ Try[] ];
};

END.


}.


   ж  
MiscRegistryImpl.mesa
Copyright ╙ 1988, 1990, 1991 by Xerox Corporation.  All rights reserved.
Willie-sue, December 3, 1990 11:37 am PST

Exported to ThisMachine


this is done here for now, but we can change it if we want to later
Processor ID and XNS Host number are the same.  Perhaps this is a crock, but it sure makes the code shorter!  ajd
Ugh.  Convert adds the trailing 'B, and ThisMachine doesn't.
Exported to ThisMachineRegistry

Utilities
Here's some old code that works, in case we ever need to separate ProcessorID and XNSHost.

ProcessorID: PUBLIC PROC [which: ATOM] RETURNS [rope: ROPE _ NIL] = {
text: REF TEXT _ RefText.ObtainScratch[maxDigits];
me: ProcessorFace.ProcessorID _ ProcessorFace.processorID;
words: Words;
format: Format;
TRUSTED { words _ LOOPHOLE[@me]; };
SELECT which FROM
NIL, $Octal => format _ octal;
$Decimal, $ProductSoftware => format _ productSoftware;
$Hex => format _ hex;
ENDCASE => RETURN;
text _ AppendField[text, words, SIZE[ProcessorFace.ProcessorID], format];
rope _ Rope.FromRefText[text];
RefText.ReleaseScratch[text];
};

maxDigits: NAT = MAX[16];
Digits: TYPE = ARRAY [0..maxDigits) OF NAT;
Format: TYPE = {octal, productSoftware, hex};
Words: TYPE = POINTER TO ARRAY [0..3) OF WORD;

UnrecognizedFormatOption: ERROR = CODE;

This will break on a 32 bit machine.

AppendField: PROC [text: REF TEXT, words: Words, count: NAT, format: Format] RETURNS [REF TEXT] = {
digits: Digits;
base: NAT;
SELECT format FROM
octal => base _ 8;
productSoftware => base _ 10;
hex => base _ 16;
ENDCASE => ERROR UnrecognizedFormatOption;
TRUSTED {
ConvertToDigits[words, count, base, @digits];
text _ AppendDigits[text, @digits, base = 10]; };
IF base = 16 THEN text _ RefText.AppendChar[text, 'H];
RETURN[text];
};

ConvertToDigits: PROC [words: Words, size, base: NAT, digits: POINTER TO Digits] = TRUSTED {
digits^ _ ALL[0];
FOR i: NAT IN [0..size*Basics.bitsPerWord) DO
bit: CARDINAL _ ShiftFieldLeft[words, size, 1];
FOR j: NAT DECREASING IN [0..maxDigits) DO
digits[j] _ digits[j]*2 + bit;
IF digits[j] >= base THEN { digits[j] _ digits[j] - base; bit _ 1; }
ELSE bit _ 0;
ENDLOOP;
ENDLOOP;
};

ShiftFieldLeft: PROC [words: Words, count: NAT, shift: INTEGER]
RETURNS [left: NAT] = TRUSTED {
right: WORD _ 0;
FOR i: NAT DECREASING IN [0..count) DO
left _ Basics.BITSHIFT[words[i], shift - 16];
words[i] _ Basics.BITOR[Basics.BITSHIFT[words[i], shift], right];
right _ left;
ENDLOOP;
};

AppendDigits: PROC [text: REF TEXT, digits: POINTER TO Digits, dashes: BOOL] RETURNS [REF TEXT] = TRUSTED {
something: BOOL _ FALSE;
FOR i: NAT IN [0..maxDigits) DO
v: NAT _ digits[i];
IF dashes AND something AND (maxDigits - i) MOD 3 = 0 THEN
text _ RefText.AppendChar[text, '-];
IF v # 0 AND ~something THEN {
IF dashes THEN {
SELECT maxDigits - i FROM
1 => text _ RefText.AppendRope[text, "0-00"];
2 => text _ RefText.AppendRope[text, "0-0"];
3 => text _ RefText.AppendRope[text, "0-"];
ENDCASE => NULL; };
IF v > 9 THEN text _ RefText.AppendChar[text, '0];  -- Leading digit for Hex case
something _ TRUE; };
IF something THEN {
c: CHAR _ IF v > 9 THEN v - 10 + 'A ELSE v + '0;
text _ RefText.AppendChar[text, c]; };
ENDLOOP;
IF ~something THEN text _ RefText.AppendChar[text, '0];
RETURN[text];
};
 Э╩╬  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ=ЩHKЩ)KЩ ЧЪ╧k	Ш	KЪЬЮЬШ+KЪЬЮЬШ"KЪЬШKЪЬЮЬШKЪЬШKШ ЧЪ╧nЬЮЬЮШKЪЮЬШ$KЪЮЬ$ЮШ0KШ KЪЮЬЮЬЮЬШKЪЬЮЬ&Ш:KШ KЪЬЮЬЮЬЮЬШ0KШ ЧЩKЪЬШЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШ>KЪЬ-Ш-KЪЮЬЮЬЮЬШ0KШKЩ ЧЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШAKЪЬ-Ш-KЪЮЬЮЬЮЬШ3KШKЩ ЧЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬШAKЪЬШKЩCKЪЬ
ЮЬЮЬ^ЩrЪЬЮЬЮШ-KЪЮЬШKЪЬ.Ш.KЪЬШKЪЮЬЮЬШЧKЪЬЮЬ%ШLЪЮЬЮЬШKЩ<KЪЬЮЬШ ЪЮЬЮЬ"Ш5KЪЮЬ'Ш+ЧKШЧKШKШ ЧЧЩKЩ ЪЯЬЮЬЮЬЮЬШIKЪЮЬЮЬЮЬШKЪЬЮЬШ6KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШJKЪЮЬЮЬЮЬШKЪЮЬШKШЧKШ ЧЩ	KШ Ъ
Я	ЬЮЬЮЬЮЬЮЬШ>KЪЮЬЮЬЮЬШKЪЬЮЬ	ШKЪЬШЪЯЬЮЬЮЬШ%ЪЮЬЮЬЮЬ.ЮЬЮЬЮШNKЪЮЬЮЬЮЬШ7KЪЮЬШЧKЪЮЬЮЬШKШЧЪЮЬЮШKЪЬШKЪЬШKЪЮЬШKЪЮЬЮЬШЧKЪ
ЮЬЮЬЮЬЮЬЮЬШ%KЪЮЬЮЬЮЬЮЬШ,KЪЮЬЮЬЮЬШ(KЪЮЬЮЬШKШЧKШ ЪЮЬШKШ ЧKЩZKЩ ЪЯЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЩEKЪЬЮЬЮЬ$Щ2KЪЬ:Щ:KЩKЪЬЩKЪЮЬЮЬ	Щ#ЪЮЬЮЩKЪЮЬЩKЪЬ7Щ7KЪЬЩKЪЮЬЮЬЩЧKЪЬ ЮЬ%ЩIKЪЬЩKЩKЩKЩ ЧKЪЬЮЬЮЬЩKЪ	ЬЮЬЮЬЮЬЮЬЩ+KЪЬЮЬ!Щ-KЪЬЮЬЮЬЮЬЮЬЮЬЮЬЩ.KЩ KЪЯЬЮЬЮЬЩ'KЩ KЪЬ$Щ$KЩ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЩcKЩKЪЬЮЬЩ
ЪЮЬЮЩKЩKЩKЩKЪЮЬЮЬЩ*ЧЪЮЬЩ	KЪЬ-Щ-KЪЬ1Щ1ЧKЪЮЬЮЬ%Щ6KЪЮЬЩKЩKЩ ЧЪЯЬЮЬЮЬ
ЮЬЮЬЮЬЩ\KЪЬ
ЮЬЩЪЮЬЮЬЮЬЮЩ-KЪЬЮЬ"Щ/Ъ	ЮЬЮЬЮ
ЬЮЬЮЩ*KЩKЪЮЬЮЬ+ЩDKЪЮЬ	ЩKЪЮЬЩЧKЪЮЬЩЧKЪЬЩKЩ ЧЪЯЬЮЬЮЬ	ЮЬЩ?KЪЮЬЮЬЮЬЩKЪЬЮЬЩЪ	ЮЬЮЬЮ
ЬЮЬЮЩ&KЪЬЮЬЩ-KЪЬЮЬЮЬЩAKЩKЪЮЬЩЧKЩKЩ ЧЪЯЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЩkKЪЬЮЬЮЬЩЪЮЬЮЬЮЬЮЩKЪЬЮЬЩЪ	ЮЬЮЬЮЬЮЬЮЩ:KЪЬ$Щ$ЧKЪЮЬЮЬЮЬЩЪЮЬЮЬЩKЪЮЬЮЩЪЬ-Щ-KЪЬ,Щ,KЪЬ+Щ+KЪЮЬЮЬЩЧKЪЮЬЮЬ'╧cЩQKЪЬЮЬЩЧЪЮЬЮЬЩKЪ	ЬЮЬЮЬЮЬЮЬЩ0KЪЬ&Щ&ЧKЪЮЬЩЧKЪЮЬЮЬ%Щ7KЪЮЬЩKЩЧKШ KЪЬШKШ ЧKШ Ч ЕЧ      М  