ThisMachineRegistry.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Willie-Sue, November 11, 1988 4:08:39 pm PST
This interface returns only ROPEs and ATOMs. Using an atom (rather than an enumerated type) as the parameter allows for extensions without recompiling.
The preferred versions of "our" protocols are: $pup, $xns, $ip
but for backward compatability, $Pup, $XNS, $Arpa are also "understood"
DIRECTORY
Rope USING [ROPE];
ThisMachineRegistry: CEDAR DEFINITIONS = BEGIN
ROPE: TYPE ~ Rope.ROPE;
ThisMachineRef: TYPE = REF ThisMachineProcsRec;
ThisMachineProcsRec: TYPE = RECORD [
which: ATOM,
Name: PROC RETURNS [ROPE],
Address: PROC RETURNS [ROPE],
ProcessorID: PROC [format: ATOM ¬ NIL] RETURNS [ROPE]
];
RegisterThisMachineProcs: PROC[newProcs: REF ThisMachineProcsRec];
GetThisMachineProcs: PROC RETURNS[LIST OF REF ThisMachineProcsRec];
in case anyone wants them
END.