-- GrapevineUser (Cedar) - Private interface from NameInfo
-- This interface is for use by GVNamesImpl Maintain
-- Consult a Wizard before using it.

-- NameInfoPrivate.mesa

-- Andrew Birrell  August 31, 1982 9:20 am

DIRECTORY
BodyDefs	USING[ RName, Timestamp ],
NameInfoDefs	USING[ NameType ],
ProtocolDefs	USING[ Handle, RSOperation ],
PupDefs		USING[ PupAddress ];

NameInfoPrivate: DEFINITIONS =

BEGIN

GetCompound: PROC[name: BodyDefs.RName,
               stamp: BodyDefs.Timestamp,
               op: ProtocolDefs.RSOperation,
               receive: PROC[ProtocolDefs.Handle],
               reporter: PROC[STRING] ← NIL]
        RETURNS[info: NameInfoDefs.NameType, newStamp: BodyDefs.Timestamp];

SetServer: PROC[PupDefs.PupAddress];

END.