separate (RPC)

procedure RPC_Binding_Set_Auth_Info(
  Binding_Handle    : in     RPC_Binding_Handle_Type;
  Server_Princ_Name : in     Principal_Name_Type;
  Protect_Level     : in     DCE_Base.RPC_Protect_Level_Type;
  Authn_Service     : in     DCE_Base.RPC_Authentication_Service_Type;
  Auth_Identity     : in     RPC_Auth_Identity_Type;
  Authz_Service     : in     DCE_Base.RPC_Authorization_Service_Type;
  Status            :    out DCE_Status.Status_Type;
  Default_Identity  : in     boolean := FALSE) is
-- ****************************************************************************

  procedure rpc_binding_set_auth_info(
          binding_handle    : RPC_Binding_Handle_Type;
          server_princ_name : System.Address;
          protect_level     : DCE_Base.RPC_Protect_Level_Type;
          authn_svc         : DCE_Base.RPC_Authentication_Service_Type;
          auth_identity     : RPC_Auth_Identity_Type;
          authz_svc         : DCE_Base.RPC_Authorization_Service_Type;
          status            : System.Address);
  pragma INTERFACE (C, rpc_binding_set_auth_info);

  Local_Auth_Identity : RPC_Auth_Identity_Type := Auth_Identity;
  Local_Status        : DCE_Status.Status_Type;

begin
  if Default_Identity then
    Local_Auth_Identity := NULL;
  end if;
  
  rpc_binding_set_auth_info(Binding_Handle,
                            Server_Princ_Name'ADDRESS,
                            Protect_Level,
                            Authn_Service,
                            Local_Auth_Identity,
                            Authz_Service,
                            Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Binding_Set_Auth_Info;