pragma Style_Checks ("NM32766");
pragma Wide_Character_Encoding (Brackets);

---------------------------------------------------
--  This file has been generated automatically from
--  /work/a/ports/net/polyorb/work/polyorb-2.9.0/idls/cos/event/CosTypedEventChannelAdmin.idl
--  by IAC (IDL to Ada Compiler) 2.9.0 (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: 
--  /work/a/ports/net/polyorb/work/polyorb-2.9.0/idls/cos/event/CosTypedEventChannelAdmin.idl

--  //File: CosTypedEventChannelAdmin.idl
--  //Part of the Event Service

--  #ifndef _COS_TYPED_EVENT_CHANNEL_ADMIN_IDL_
--  #define _COS_TYPED_EVENT_CHANNEL_ADMIN_IDL_

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

--  module CosTypedEventChannelAdmin { 	 

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

--  	exception InterfaceNotSupported {}; 
--  	exception NoSuchImplementation {}; 
--  	typedef string Key; 

--  	interface TypedProxyPushConsumer : 	
--  			CosEventChannelAdmin::ProxyPushConsumer, 	
--  			CosTypedEventComm::TypedPushConsumer  { }; 

--  	interface TypedProxyPullSupplier :
--   			CosEventChannelAdmin::ProxyPullSupplier, 	
--  			CosTypedEventComm::TypedPullSupplier { }; 

--  	interface TypedSupplierAdmin : 
--  			CosEventChannelAdmin::SupplierAdmin {
--  		TypedProxyPushConsumer obtain_typed_push_consumer(
--   				in Key supported_interface) 		    
--  			raises(InterfaceNotSupported); 
--  		CosEventChannelAdmin::ProxyPullConsumer obtain_typed_pull_consumer ( 
--  				in Key uses_interface) 		   
--  			 raises(NoSuchImplementation); 
--  	}; 

--  	interface TypedConsumerAdmin :
--  			CosEventChannelAdmin::ConsumerAdmin { 
--  		TypedProxyPullSupplier obtain_typed_pull_supplier( 
--  				in Key supported_interface) 		    
--  			raises (InterfaceNotSupported); 
--  		CosEventChannelAdmin::ProxyPushSupplier obtain_typed_push_supplier( 
--  				in Key uses_interface) 		    
--  			raises(NoSuchImplementation); 
--  	}; 

--  	interface TypedEventChannel { 
--  		TypedConsumerAdmin for_consumers(); 		
--  		TypedSupplierAdmin for_suppliers();                
--  		void destroy (); 
--  	}; 
--  };

--  #endif /* ifndef _COS_TYPED_EVENT_CHANNEL_ADMIN_IDL_ */

--  End source: 
--  /work/a/ports/net/polyorb/work/polyorb-2.9.0/idls/cos/event/CosTypedEventChannelAdmin.idl
--   -- 62 lines

--  Source: ./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: ./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

--  Source: ./CosTypedEventComm.idl

--  //File: CosTypedEventComm.idl
--  //Part of the Event Service

--  #ifndef _COS_TYPED_EVENT_COMM_IDL_
--  #define _COS_TYPED_EVENT_COMM_IDL_

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

--  module CosTypedEventComm {

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

--  	interface TypedPushConsumer : CosEventComm::PushConsumer {
--  		Object get_typed_consumer(); 
--  	};

--  	interface TypedPullSupplier : CosEventComm::PullSupplier { 		 
--  		Object get_typed_supplier();
--  	};

--  }; 

--  #endif /* ifndef _COS_TYPED_EVENT_COMM_IDL_ */

--  End source: ./CosTypedEventComm.idl -- 31 lines

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

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

package CosTypedEventChannelAdmin is

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

   InterfaceNotSupported : exception;

   type InterfaceNotSupported_Members is
     new CORBA.Idl_Exception_Members with null record;

   InterfaceNotSupported_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosTypedEventChannelAdmin/InterfaceNotSupported:1.0";

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosTypedEventChannelAdmin.InterfaceNotSupported_Members);

   NoSuchImplementation : exception;

   type NoSuchImplementation_Members is
     new CORBA.Idl_Exception_Members with null record;

   NoSuchImplementation_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosTypedEventChannelAdmin/NoSuchImplementation:1.0";

   procedure Get_Members
     (From : Ada.Exceptions.Exception_Occurrence;
      To : out CosTypedEventChannelAdmin.NoSuchImplementation_Members);

   type Key is
     new CORBA.String;

   Key_Repository_Id : constant PolyORB.Std.String :=
     "IDL:omg.org/CosTypedEventChannelAdmin/Key:1.0";

end CosTypedEventChannelAdmin;
