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

DEFINITION MODULE SecStub;

IMPORT
  RPC, Strings, Sec;

EXPORT QUALIFIED
   Version, Procedures,
   Myname, Myaddress, Mapname, Mapaddress, Createchannel, Deletechannel, Offerservice, Withdrawservice, AssociationCreate;

CONST
  Version = 9;

TYPE
  Procedures = (MynameProc, MyaddressProc, MapnameProc, MapaddressProc, CreatechannelProc, DeletechannelProc, OfferserviceProc, WithdrawserviceProc, AssociationCreateProc);

PROCEDURE Myname(
VAR name:Strings.String (* Out *)
  ):RPC.RC;

PROCEDURE Myaddress(
VAR address:CARDINAL (* Out *)
  ):RPC.RC;

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

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

PROCEDURE Createchannel(
VAR rc:CARDINAL; (* Out *)
VAR channel:CARDINAL; (* Out *)
VAR task:CARDINAL; (* In *)
VAR initiatorName:Strings.String; (* In *)
VAR initiatorAttributes:Strings.String; (* In *)
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 Deletechannel(
VAR channel:CARDINAL (* In *)
  ):RPC.RC;

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

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

PROCEDURE AssociationCreate(
VAR returncode: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;

END SecStub.
