(* m2stub V100: at 25-Feb-88 17:43:17 *)

DEFINITION MODULE CSSecServ;

IMPORT
  RPC, Strings, Sec;

EXPORT QUALIFIED
   Version, Procedures,
   Find,
   AssociationCreate, Alive, Registerlocalstub, Mapname, Mapaddress, Myname, Addservice, Deleteservice;

CONST
  Version = 9;

TYPE
  Procedures = (AssociationCreateProc, AliveProc, RegisterlocalstubProc, MapnameProc, MapaddressProc, MynameProc, AddserviceProc, DeleteserviceProc);

PROCEDURE AssociationCreate(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR initiatorStation:CARDINAL; (* In *)
VAR initiatorPort:CARDINAL; (* In *)
VAR initiatorName:Strings.String; (* In *)
VAR initiatorAttributes:Strings.String; (* In *)
VAR initiatorLocation:Strings.String; (* In *)
VAR recipientStation:CARDINAL; (* Out *)
VAR recipientPort:CARDINAL; (* Out *)
VAR recipientName:Strings.String; (* InOut *)
VAR recipientAttributes:Strings.String; (* InOut *)
VAR recipientLocation:Strings.String; (* InOut *)
VAR userdata:ARRAY OF CARDINAL; (* InOut *)
VAR userlength:CARDINAL; (* Local *)
VAR bandwidth:CARDINAL; (* InOut *)
VAR priorityflag:BOOLEAN; (* InOut *)
VAR rejectmessage:Strings.String (* Out *)
  ):RPC.RC;

PROCEDURE Alive(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL (* In *)
  ):RPC.RC;

PROCEDURE Registerlocalstub(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* Out *)
VAR task:CARDINAL (* In *)
  ):RPC.RC;

PROCEDURE Mapname(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR address:CARDINAL; (* In *)
VAR name:Strings.String (* Out *)
  ):RPC.RC;

PROCEDURE Mapaddress(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR name:Strings.String; (* In *)
VAR address:CARDINAL (* Out *)
  ):RPC.RC;

PROCEDURE Myname(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR name:Strings.String (* Out *)
  ):RPC.RC;

PROCEDURE Addservice(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR servicename:Strings.String; (* In *)
VAR unique:BOOLEAN (* In *)
  ):RPC.RC;

PROCEDURE Deleteservice(
VAR rc:CARDINAL; (* Out *)
VAR session:CARDINAL; (* In *)
VAR servicename:Strings.String (* In *)
  ):RPC.RC;

PROCEDURE Find(name:Strings.String; dist:RPC.Distance):RPC.MemberRC;

END CSSecServ.
