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/event/CosEventChannelAdmin.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.
---------------------------------------------------

--  Source: 
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/event/CosEventChannelAdmin.idl

--  //File: CosEventChannelAdmin.idl
--  //Part of the Event Service
--  //OMG File: 04-10-06

--  #ifndef _COS_EVENT_CHANNEL_ADMIN_IDL_
--  #define _COS_EVENT_CHANNEL_ADMIN_IDL_

--  #ifdef _PRE_3_0_COMPILER_
--  #include <CosEventComm.idl>
--  #pragma prefix "omg.org"
--  #else
--  import ::CosEventComm;
--  #endif // _PRE_3_0_COMPILER_

--  module CosEventChannelAdmin {

--  #ifndef _PRE_3_0_COMPILER_
--  	typeprefix CosEventChannelAdmin "omg.org";
--  #endif // _PRE_3_0_COMPILER_

--   	exception AlreadyConnected {};
--  	exception TypeError {};

--  	interface ProxyPushConsumer: CosEventComm::PushConsumer {
--  		void connect_push_supplier(
--  				in CosEventComm::PushSupplier push_supplier)
--  			raises(AlreadyConnected);
--  	};

--  	interface ProxyPullSupplier: CosEventComm::PullSupplier {
--  		void connect_pull_consumer(
--  				in CosEventComm::PullConsumer pull_consumer)
--  			raises(AlreadyConnected);
--  	};

--  	interface ProxyPullConsumer: CosEventComm::PullConsumer {
--  		void connect_pull_supplier(
--  				in CosEventComm::PullSupplier pull_supplier)
--  			raises(AlreadyConnected,TypeError);
--  	};

--  	interface ProxyPushSupplier: CosEventComm::PushSupplier {
--  		void connect_push_consumer(
--  				in CosEventComm::PushConsumer push_consumer)
--  			raises(AlreadyConnected, TypeError);
--  	};

--  	interface ConsumerAdmin {
--  		ProxyPushSupplier obtain_push_supplier();
--  		ProxyPullSupplier obtain_pull_supplier();
--  	};

--  	interface SupplierAdmin {
--  		ProxyPushConsumer obtain_push_consumer();
--  		ProxyPullConsumer obtain_pull_consumer();
--  	};

--  	interface EventChannel {
--  		ConsumerAdmin for_consumers();
--  		SupplierAdmin for_suppliers();
--  		void destroy();
--  	};
--  };
--  #endif /* ifndef _COS_EVENT_CHANNEL_ADMIN_IDL_ */

--  End source: 
--  /pbulk/work/net/ada-polyorb/work/PolyORB-25.0/idls/cos/event/CosEventChannelAdmin.idl
--   -- 65 lines

--  Source: ./CosEventComm.idl

--  //File: CosEventComm.idl
--  //Part of the Event Service
--  //OMG File: 04-10-06

--  #ifndef _COS_EVENT_COMM_IDL_
--  #define _COS_EVENT_COMM_IDL_

--  #ifdef _PRE_3_0_COMPILER_
--  #pragma prefix "omg.org"
--  #endif // _PRE_3_0_COMPILER_

--  module CosEventComm {

--  #ifndef _PRE_3_0_COMPILER_
--  	typeprefix CosEventComm "omg.org";
--  #endif // _PRE_3_0_COMPILER_

--  	exception Disconnected{};

--  	interface PushConsumer {
--  		void push (in any data) raises(Disconnected);
--  		void disconnect_push_consumer(); 
--  	};

--  	interface PushSupplier {
--  		void disconnect_push_supplier();
--  	};

--  	interface PullSupplier {
--  		any pull () raises(Disconnected);
--  		any try_pull (out boolean has_event) 
--  			raises(Disconnected);
--  		void disconnect_pull_supplier(); 
--  	};

--  	interface PullConsumer {
--  		void disconnect_pull_consumer();
--  	};

--  };
--  #endif /* ifndef _COS_EVENT_COMM_IDL_ */

--  End source: ./CosEventComm.idl -- 42 lines

---------------------------------------------------

with PolyORB.Std;
with CORBA;
pragma Elaborate_All (CORBA);
with Ada.Exceptions;

package CosEventChannelAdmin is

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

   AlreadyConnected : exception;

   type AlreadyConnected_Members is
     new CORBA.Idl_Exception_Members with null record;

   AlreadyConnected_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosEventChannelAdmin/AlreadyConnected:1.0";

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosEventChannelAdmin.AlreadyConnected_Members);

   TypeError : exception;

   type TypeError_Members is
     new CORBA.Idl_Exception_Members with null record;

   TypeError_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosEventChannelAdmin/TypeError:1.0";

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosEventChannelAdmin.TypeError_Members);

end CosEventChannelAdmin;
