
<<XNSServerLocation.mesa>>
<<Demers, October 2, 1986 5:09:07 pm PDT>>

    DIRECTORY
        XNS USING [Address, Socket];

    XNSServerLocation: CEDAR DEFINITIONS
        ~ {
        EachAddressProc: TYPE ~ PROC [addr: XNS.Address];

        LocateServers: PROC [
        socket: XNS.Socket,    -- destination socket for broadcast
        maxHops: CARDINAL,    -- radius of broadcast
        remotePgm: CARD,
        remotePgmVersion: CARDINAL,
        eachAddress: EachAddressProc,    -- called with address of each responding server
        firstResponseOnly: BOOL _ TRUE
        ];
        }.