-- Copyright (C) 1984, 1985  by Xerox Corporation. All rights reserved. 
-- GrapevineUser (Cedar) - Private interface from NameInfo
-- This interface is for use by GVNamesImpl Maintain
-- Consult a Wizard before using it.

-- NameInfoPrivate.mesa

-- HGM, 14-Sep-85 22:30:01
-- 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 [LONG STRING] ¬ NIL]
    RETURNS [info: NameInfoDefs.NameType, newStamp: BodyDefs.Timestamp];

  SetServer: PROC [PupDefs.PupAddress];

  END.