pragma Style_Checks ("NM32766");
pragma Wide_Character_Encoding (Brackets);
pragma Warnings (Off, "use of an anonymous access type allocator");

---------------------------------------------------
--  This file has been generated automatically from
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/notification/CosNotifyChannelAdmin.idl
--  by IAC (IDL to Ada Compiler) 25.0w (rev. unknown).
---------------------------------------------------
--  NOTE: If you modify this file by hand, your
--  changes will be lost when you re-run the
--  IDL to Ada compiler.
---------------------------------------------------

with CosNotifyChannelAdmin.ProxySupplier;
with PolyORB.Std;
with CosNotifyComm;
with CosNotifyComm.SequencePullConsumer;
with CORBA;
pragma Elaborate_All (CORBA);
with CosNotification;

package CosNotifyChannelAdmin.SequenceProxyPullSupplier is

   type Ref is
     new CosNotifyChannelAdmin.ProxySupplier.Ref with null record;

   Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNotifyChannelAdmin/SequenceProxyPullSupplier:1.0";

   procedure connect_sequence_pull_consumer
     (Self : Ref;
      pull_consumer : CosNotifyComm.SequencePullConsumer.Ref);

   connect_sequence_pull_consumer_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosNotifyChannelAdmin/SequenceProxyPullSupplier/connect_sequence_pull_consumer:1.0";

   --  pull_structured_events : inherited from 
   --  CosNotifyComm.SequencePullSupplier

   function pull_structured_events
     (Self : Ref;
      max_number : CORBA.Long)
     return CosNotification.EventBatch;

   --  try_pull_structured_events : inherited from 
   --  CosNotifyComm.SequencePullSupplier

   procedure try_pull_structured_events
     (Self : Ref;
      max_number : CORBA.Long;
      has_event : out CORBA.Boolean;
      Returns : out CosNotification.EventBatch);

   --  disconnect_sequence_pull_supplier : inherited from 
   --  CosNotifyComm.SequencePullSupplier

   procedure disconnect_sequence_pull_supplier
     (Self : Ref);

   --  subscription_change : inherited from CosNotifyComm.NotifySubscribe

   procedure subscription_change
     (Self : Ref;
      added : CosNotification.EventTypeSeq;
      removed : CosNotification.EventTypeSeq);

   function Is_A
     (Self : Ref;
      Logical_Type_Id : PolyORB.Std.String)
     return CORBA.Boolean;

private
   function Is_A
     (Logical_Type_Id : PolyORB.Std.String)
     return CORBA.Boolean;

end CosNotifyChannelAdmin.SequenceProxyPullSupplier;
