SunYPFind.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Demers, November 28, 1988 10:05:59 am PST
Find Yellow Pages server.
DIRECTORY
Arpa USING [Address, nullAddress],
ArpaUDP USING [Port],
Rope USING [ROPE]
;
SunYPFind: CEDAR DEFINITIONS
~ {
Procedures
GetDefaultDomain: PROC RETURNS [domainName: Rope.ROPE];
SetDefaultDomain: PROC [domainName: Rope.ROPE];
Manipulate default YP domain name (used by default if a NIL domainName is passed to ObtainHandle).
There is (supposed to be) an initial default domain that is reasonable for the system site.
! Error [$noDefaultDomain, ...]
GetServerAddressAndPortForDomain: PROC [domainName: Rope.ROPE ¬ NIL, addressHint: Arpa.Address ¬ Arpa.nullAddress] RETURNS [address: Arpa.Address, port: ArpaUDP.Port];
Get address and port of YP server for given domain.
NIL domainName means use GetDefaultDomain[].
If addressHint is specified, the effect is to look up the YP port on that host and check that it serves the desired domain.
! Error [$noDefaultDomain, $noServer, $noYP, ...]
Error
Error: ERROR [code: ATOM];
$noDefaultDomain
$noServer  -- can't determine a server host address
$noYP  -- no YP server on host
$domainNotFound -- domain not available on specified YP server
codes from SunRPC, SunRPCAuth, ...
}.