diff options
Diffstat (limited to 'TAO/orbsvcs/lib/RtecEventChannelAdminS.cpp')
-rw-r--r-- | TAO/orbsvcs/lib/RtecEventChannelAdminS.cpp | 480 |
1 files changed, 0 insertions, 480 deletions
diff --git a/TAO/orbsvcs/lib/RtecEventChannelAdminS.cpp b/TAO/orbsvcs/lib/RtecEventChannelAdminS.cpp deleted file mode 100644 index a4fdcfc2b6d..00000000000 --- a/TAO/orbsvcs/lib/RtecEventChannelAdminS.cpp +++ /dev/null @@ -1,480 +0,0 @@ -// ****** Code generated by the The ACE ORB (TAO) IDL Compiler ******* -// TAO ORB and the TAO IDL Compiler have been developed by Washington -// University Computer Science's Distributed Object Computing Group. -// -// Information on TAO is available at -// http://www.cs.wustl.edu/~schmidt/TAO.html - -#include "RtecEventChannelAdminS.h" - -#if !defined (__ACE_INLINE__) -#include "RtecEventChannelAdminS.i" -#endif // !defined INLINE - -void POA_RtecEventComm_PushConsumer_push_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventComm::PushConsumer_ptr impl; - RtecEventComm::EventSet data; - CORBA::NamedValue_ptr nv_data; - CORBA::Any any_data (RtecEventComm::_tc_EventSet, &data); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_data = nvlist->add_value ("data", any_data, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ProxyPushConsumer_ptr) _tao_object_reference->get_subclass (); - impl->push(data, _tao_environment); - - -} - -void POA_RtecEventComm_PushConsumer_disconnect_push_consumer_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventComm::PushConsumer_ptr impl; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ProxyPushConsumer_ptr) _tao_object_reference->get_subclass (); - impl->disconnect_push_consumer(_tao_environment); - - -} - -static const TAO_operation_db_entry ProxyPushConsumer_operations [] = { - {"push", &POA_RtecEventComm_PushConsumer_push_skel}, - {"disconnect_push_consumer", &POA_RtecEventComm_PushConsumer_disconnect_push_consumer_skel}, - {"connect_push_supplier", &POA_RtecEventChannelAdmin::ProxyPushConsumer::connect_push_supplier_skel}, - {"_is_a", &POA_RtecEventChannelAdmin::ProxyPushConsumer::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_ProxyPushConsumer_optable (ProxyPushConsumer_operations, 4, 8); -// skeleton constructor -POA_RtecEventChannelAdmin::ProxyPushConsumer::ProxyPushConsumer (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecEventChannelAdmin/ProxyPushConsumer:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_ProxyPushConsumer_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecEventChannelAdmin::ProxyPushConsumer::connect_push_supplier_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::ProxyPushConsumer_ptr impl; - RtecEventComm::PushSupplier_ptr push_supplier; - CORBA::Object_ptr _tao_base_push_supplier; - CORBA::NamedValue_ptr nv_push_supplier; - CORBA::Any any_push_supplier (RtecEventComm::_tc_PushSupplier, &_tao_base_push_supplier); // ORB does not own - RtecEventChannelAdmin::SupplierQOS qos; - CORBA::NamedValue_ptr nv_qos; - CORBA::Any any_qos (RtecEventChannelAdmin::_tc_SupplierQOS, &qos); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_push_supplier = nvlist->add_value ("push_supplier", any_push_supplier, CORBA::ARG_IN, _tao_environment); - nv_qos = nvlist->add_value ("qos", any_qos, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - push_supplier = RtecEventComm::PushSupplier::_narrow (_tao_base_push_supplier, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ProxyPushConsumer_ptr) _tao_object_reference->get_subclass (); - impl->connect_push_supplier(push_supplier, qos, _tao_environment); - - -} - -void POA_RtecEventChannelAdmin::ProxyPushConsumer::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecEventChannelAdmin/ProxyPushConsumer:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - -void POA_RtecEventComm_PushSupplier_disconnect_push_supplier_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventComm::PushSupplier_ptr impl; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ProxyPushSupplier_ptr) _tao_object_reference->get_subclass (); - impl->disconnect_push_supplier(_tao_environment); - - -} - -static const TAO_operation_db_entry ProxyPushSupplier_operations [] = { - {"disconnect_push_supplier", &POA_RtecEventComm_PushSupplier_disconnect_push_supplier_skel}, - {"connect_push_consumer", &POA_RtecEventChannelAdmin::ProxyPushSupplier::connect_push_consumer_skel}, - {"_is_a", &POA_RtecEventChannelAdmin::ProxyPushSupplier::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_ProxyPushSupplier_optable (ProxyPushSupplier_operations, 3, 6); -// skeleton constructor -POA_RtecEventChannelAdmin::ProxyPushSupplier::ProxyPushSupplier (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecEventChannelAdmin/ProxyPushSupplier:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_ProxyPushSupplier_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecEventChannelAdmin::ProxyPushSupplier::connect_push_consumer_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::ProxyPushSupplier_ptr impl; - RtecEventComm::PushConsumer_ptr push_consumer; - CORBA::Object_ptr _tao_base_push_consumer; - CORBA::NamedValue_ptr nv_push_consumer; - CORBA::Any any_push_consumer (RtecEventComm::_tc_PushConsumer, &_tao_base_push_consumer); // ORB does not own - RtecEventChannelAdmin::ConsumerQOS qos; - CORBA::NamedValue_ptr nv_qos; - CORBA::Any any_qos (RtecEventChannelAdmin::_tc_ConsumerQOS, &qos); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_push_consumer = nvlist->add_value ("push_consumer", any_push_consumer, CORBA::ARG_IN, _tao_environment); - nv_qos = nvlist->add_value ("qos", any_qos, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - push_consumer = RtecEventComm::PushConsumer::_narrow (_tao_base_push_consumer, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ProxyPushSupplier_ptr) _tao_object_reference->get_subclass (); - impl->connect_push_consumer(push_consumer, qos, _tao_environment); - - -} - -void POA_RtecEventChannelAdmin::ProxyPushSupplier::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecEventChannelAdmin/ProxyPushSupplier:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - -static const TAO_operation_db_entry ConsumerAdmin_operations [] = { - {"obtain_push_supplier", &POA_RtecEventChannelAdmin::ConsumerAdmin::obtain_push_supplier_skel}, - {"_is_a", &POA_RtecEventChannelAdmin::ConsumerAdmin::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_ConsumerAdmin_optable (ConsumerAdmin_operations, 2, 4); -// skeleton constructor -POA_RtecEventChannelAdmin::ConsumerAdmin::ConsumerAdmin (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecEventChannelAdmin/ConsumerAdmin:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_ConsumerAdmin_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecEventChannelAdmin::ConsumerAdmin::obtain_push_supplier_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::ConsumerAdmin_ptr impl; - CORBA::Any *result; - CORBA::Object_ptr *retval = new CORBA::Object_ptr; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::ConsumerAdmin_ptr) _tao_object_reference->get_subclass (); - *retval = impl->obtain_push_supplier(_tao_environment); - -result = new CORBA::Any (RtecEventChannelAdmin::_tc_ProxyPushSupplier, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecEventChannelAdmin::ConsumerAdmin::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecEventChannelAdmin/ConsumerAdmin:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - -static const TAO_operation_db_entry SupplierAdmin_operations [] = { - {"obtain_push_consumer", &POA_RtecEventChannelAdmin::SupplierAdmin::obtain_push_consumer_skel}, - {"_is_a", &POA_RtecEventChannelAdmin::SupplierAdmin::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_SupplierAdmin_optable (SupplierAdmin_operations, 2, 4); -// skeleton constructor -POA_RtecEventChannelAdmin::SupplierAdmin::SupplierAdmin (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecEventChannelAdmin/SupplierAdmin:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_SupplierAdmin_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecEventChannelAdmin::SupplierAdmin::obtain_push_consumer_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::SupplierAdmin_ptr impl; - CORBA::Any *result; - CORBA::Object_ptr *retval = new CORBA::Object_ptr; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::SupplierAdmin_ptr) _tao_object_reference->get_subclass (); - *retval = impl->obtain_push_consumer(_tao_environment); - -result = new CORBA::Any (RtecEventChannelAdmin::_tc_ProxyPushConsumer, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecEventChannelAdmin::SupplierAdmin::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecEventChannelAdmin/SupplierAdmin:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - -static const TAO_operation_db_entry EventChannel_operations [] = { - {"for_consumers", &POA_RtecEventChannelAdmin::EventChannel::for_consumers_skel}, - {"for_suppliers", &POA_RtecEventChannelAdmin::EventChannel::for_suppliers_skel}, - {"destroy", &POA_RtecEventChannelAdmin::EventChannel::destroy_skel}, - {"_is_a", &POA_RtecEventChannelAdmin::EventChannel::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_EventChannel_optable (EventChannel_operations, 4, 8); -// skeleton constructor -POA_RtecEventChannelAdmin::EventChannel::EventChannel (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecEventChannelAdmin/EventChannel:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_EventChannel_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecEventChannelAdmin::EventChannel::for_consumers_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::EventChannel_ptr impl; - CORBA::Any *result; - CORBA::Object_ptr *retval = new CORBA::Object_ptr; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::EventChannel_ptr) _tao_object_reference->get_subclass (); - *retval = impl->for_consumers(_tao_environment); - -result = new CORBA::Any (RtecEventChannelAdmin::_tc_ConsumerAdmin, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecEventChannelAdmin::EventChannel::for_suppliers_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::EventChannel_ptr impl; - CORBA::Any *result; - CORBA::Object_ptr *retval = new CORBA::Object_ptr; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::EventChannel_ptr) _tao_object_reference->get_subclass (); - *retval = impl->for_suppliers(_tao_environment); - -result = new CORBA::Any (RtecEventChannelAdmin::_tc_SupplierAdmin, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecEventChannelAdmin::EventChannel::destroy_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecEventChannelAdmin::EventChannel_ptr impl; - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecEventChannelAdmin::EventChannel_ptr) _tao_object_reference->get_subclass (); - impl->destroy(_tao_environment); - - -} - -void POA_RtecEventChannelAdmin::EventChannel::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecEventChannelAdmin/EventChannel:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - |