(*
    Title: 	For binding purposes
    LastEdit:	"Wed Jan  6 10:00:38 1988"
    Author: 	Derek McAuley,Oms1,4663,329629
		Cambridge University Computer Laboratory
*)

DEFINITION MODULE NetMember;


IMPORT RPC;

FROM SystemTypes IMPORT String;


EXPORT QUALIFIED
  Version, 
  
  Procedures,
  
  Find, Offer, Retract, FindAt, Init;
  

CONST
  Version = 1;


TYPE
  Procedures = (FindProc, OfferProc, RetractProc, FindAtProc);


PROCEDURE Find(
      name: String;
      dist: RPC.Distance;
  VAR place:RPC.Place    (* Out *)
 ):RPC.MemberRC;

PROCEDURE Offer(
      name: String;
      dist: RPC.Distance;
      place:RPC.Place
 ):RPC.MemberRC;

PROCEDURE Retract(
      name: String;
      place:RPC.Place;
      dist: RPC.Distance
 );

PROCEDURE FindAt(
      b:    RPC.Binder;
      name: String;
  VAR place:RPC.Place  (* Out *)
 ):RPC.MemberRC;

PROCEDURE Init();

END NetMember.
