diff options
Diffstat (limited to 'CIAO/docs/templates/CIAO_Glue_Session_Template.cpp')
| -rw-r--r-- | CIAO/docs/templates/CIAO_Glue_Session_Template.cpp | 1234 |
1 files changed, 0 insertions, 1234 deletions
diff --git a/CIAO/docs/templates/CIAO_Glue_Session_Template.cpp b/CIAO/docs/templates/CIAO_Glue_Session_Template.cpp deleted file mode 100644 index b692eb6a859..00000000000 --- a/CIAO/docs/templates/CIAO_Glue_Session_Template.cpp +++ /dev/null @@ -1,1234 +0,0 @@ -// $Id$ - -// The generated filename for files using this template shoule be -// [idl-basename]GS.cpp GS --> GlueSession - -// @@ Notice: [ciao module name] can expand to either CIAO_GLUE or -// CIAO_GLUE_[module name] as defined in the header file. - -/// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ -/// @@@ Notice that all component and interface names need to be -/// fully qualified as we are creating a new namespace for the CIAO's -/// container glue code. -/// @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ - -#include "[idl-basename]_svnt.h" -#include "Cookies.h" - -#if !defined (__ACE_INLINE__) -# include "[idl-basename]_svnt.inl" -#endif /* __ACE_INLINE__ */ - -////////////////////////////////////////////////////////////////// -// Facet Glue Code implementation -// @@ We are assuming that these facets are declared under the same -// module as the component (thus, we are placing this glue code -// here under the same namespace. If they are not, we will -// either be generating them in separate namespaces, or include -// some other CIDL generated files to get the glue code -// implementation. -////////////////////////////////////////////////////////////////// - -##foreach [facet type] in (all facet interface types in the original IDL) - -// get_component implementation. -CORBA::Object_ptr -[ciao module name]::[facet type]_Servant::_get_component (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::SessionContext_var sc = - ::Components::SessionContext::_narrow (this->ctx_.in ()); - - if (! CORBA::is_nil(sc.in ())) - return sc->get_CCM_object (ACE_ENV_SINGLE_ARG_PARAMETER); - - ::Components::EntityContext_var ec = - ::Components::EntityContext::_narrow (this->ctx_.in ()); - - if (! CORBA::is_nil(ec.in ())) - return ec->get_CCM_object (ACE_ENV_SINGLE_ARG_PARAMETER); - - ACE_THROW_RETURN (CORBA::INTERNAL (), 0); -} - -##end foreach [facet type] - - - -////////////////////////////////////////////////////////////////// -// Component specific context implementation -////////////////////////////////////////////////////////////////// - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: -## if ([receptacle name] is a multiplex ('uses multiple') receptacle) - // [receptacle name]Connections typedef'ed as a sequence of - // struct [receptacle name]Connection. -[receptacle name]Connections * -[ciao module name]::[component name]_Context::get_connections_[receptacle name] (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - // @@ Strategized locking here. - - [receptacle name]Connections_var retv = - new [receptacle name]Connections (this->ciao_muses_[receptacle name]_.current_size ()); - - CORBA::ULong i = 0; - ACE_Active_Map_Manager<[uses type]_var>::iterator - end = this->ciso_muses_[receptacle name]_.end (); - for (ACE_Active_Map_Manager<[uses type]_var>::iterator - iter = this->ciso_muses_[receptacle name]_.begin (); - iter != end; - ++iter) - { - ACE_Active_Map_Manager<[uses type]_var>::ENTRY &entry = *iter; - retv[i]->objref = [uses type]::_narrow (entry.int_id_.in ()); - retv[i]->ck = new CIAO::Map_Key_Cookie (entry.ext_id_); - ++i; - } - - return retv._retn (); -} -## endif [receptacle name] -##end foreach [receptacle name] with [uses type] - -##foreach [event name] with [eventtype] in (list of all event sources) generate: -void -[ciao module name]::[component name]_Context::push_[event name] ([eventtype] *ev - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ -## if [event name] belongs to an 'emits' port - this->ciao_emits_[event name]_consumer_->push_[event name] (ev - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - -## else [event name] belongs to a 'publishes' port - ACE_Active_Map_Manager<[eventtype]Consumer_var>::iterator - end = this->ciao_publishes_[event name]_map_.end (); - for (ACE_Active_Map_Manager<[eventtype]Consumer_var>::iterator - iter = this->ciao_publishes_[event name]_map_.begin (); - iter != end; - ++iter) - { - ACE_Active_Map_Manager<[eventtype]Consumer_var>::ENTRY &entry = *iter; - [eventtype]Consumer_var c - = [eventtype]Consumer::_narrow (entry.int_id_.in ()); - c->push_[eventtype] (ev - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - } -## endif [event name] -} - -##end foreach [event name] with [eventtype] - - -// Operations for publishes interfaces. -##foreach [publish name] with [eventtype] in (list of all publishers) generate: -::Components::Cookie * -[ciao module name]::[component name]_Context::subscribe_[publish name] ([eventtype]Consumer_ptr c - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::ExceededConnectionLimit)) -{ - if (CORBA::is_nil (c)) - ACE_THROW_RETURN (CORBA::BAD_PARAM (), 0); - - [eventtype]Consumer_var sub - = [eventtype]Consumer::_duplicate (c); - - ACE_Active_Map_Manager_Key key; - this->ciao_publishes_[publish name]_map_.bind (sub.in (), - key); - - sub._retn (); // Release ownership to map. - - ::Components::Cookie_var retv = new CIAO::Map_Key_Cookie (key); - return retv._retn (); -} - -[eventtype]Consumer_ptr -[ciao module name]::[component name]_Context::unsubscribe_[publish name] (::Components::Cookie *ck - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::InvalidConnection)) -{ - [eventtype]Consumer_var retv; - - ACE_Active_Map_Manager_Key key; - if (ck == 0 || - CIAO::Map_Key_Cookie::extract (ck, key) == -1) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - - if (this->ciao_publishes_[publish name]_map_.unbind (key, - retv) != 0) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - - return retv._retn (); -} - -##end foreach [publish name] with [eventtype] - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - -## if [receptacle name] is a simplex receptacle ('uses') - -[uses type]_ptr -[ciao module name]::[component name]_Context::get_connection_[receptacle name] (ACE_ENV_SINGLE_ARG_DECL_NOT_USED) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - return [uses type]::_duplicate (this->ciao_uses_[receptacle name]_.in ()); -} - -// Simplex [receptacle name] connection management operations -void -[ciao module name]::[component name]_Context::connect_[receptacle name] ([uses type]_ptr c - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::AlreadyConnected, - ::Components::InvalidConnection)) -{ - if (! CORBA::is_nil (this->ciao_uses_[receptacle name]_.in ())) - ACE_THROW (::Components::AlreadyConnected ()); - - if (CORBA::is_nil (c)) - ACE_THROW (::Components::InvalidConnection ()); - - // When do we throw InvalidConnection exception? - this->ciao_uses_[receptacle name]_ = [uses type]::_duplicate (c); -} - -[uses type]_ptr -[ciao module name]::[component name]_Context::disconnect_[receptacle name] (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::NoConnection)) -{ - if (CORBA::is_nil (this->ciao_uses_[receptacle name]_.in ())) - ACE_THROW (::Components::NoConnection ()); - - return this->ciao_uses_[receptacle name]_._retn (); -} - -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) -// Multiplex [receptacle name] connection management operations -::Components::Cookie * -[ciao module name]::[component name]_Context::connect_[receptacle name] ([uses type]_ptr c - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::ExceedConnectionLimit, - ::Components::InvalidConnection)) -{ - if (CORBA::is_nil (c)) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - - [uses type]_var conn - = [uses type]::_duplicate (c); - - ACE_Active_Map_Manager_Key key; - this->ciao_muses_[receptacle name]_.bind (conn.in (), - key); - - conn._retn (); // Releases ownership to the map. - - ::Components::Cookie_var retv = new CIAO::Map_Key_Cookie (key); - return retv._retn (); -} - -[uses type]_ptr -[ciao module name]::[component name]_Context::disconnect_[receptacle name] (::Components::Cookie *ck - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::InvalidConnection)) -{ - [uses type]_var retv; - - ACE_Active_Map_Manager_Key key; - if (ck == 0 || - CIAO::Map_Key_Cookie::extract (ck, key) == -1) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - - if (this->ciao_muses_[receptacle name]_.unbind (key, - retv) != 0) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - - return retv._retn (); -} - -## endif [receptacle name] -##end foreach [receptacle name] with [uses type] - -// Operations for ::Components::SessionContext interface -CORBA::Object_ptr -[ciao module name]::[component name]_Context::get_CCM_object (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::IllegalState)) -{ - // @@ How do I check for IllegalState here? When it's not in a - // callback operation... - // ACE_THROW_RETURN (::Components::IllegalState (), 0); - - if (CORBA::is_nil (this->component_.in ())) - { - CORBA::Object_var obj = this->container_->get_objref (this->servant_ - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - this->component_ = [component name]::_narrow (obj.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (CORBA::is_nil (this->component_.in ())) - ACE_THROW_RETURN (CORBA::INTERNAL (), 0); // This should not happen... - } - return [component name]::_duplicate (this->component_.in ()); -} - -////////////////////////////////////////////////////////////////// -// Component Servant Glue code implementation -////////////////////////////////////////////////////////////////// - -[ciao module name]::[component name]_Servant::[component name]_Servant (CCM_[component name]_ptr exe, - ::Components::CCMHome_ptr h, - ::CIAO::Session_Container *c) - : executor_ (CCM_[component name]::_duplicate (exe)), - container_ (c) -{ - this->context_ = new [ciao module name]::[component name]_Context (h, c, this); - - ACE_TRY_NEW_ENV - { - Components::SessionComponent_var scom = - Components::SessionComponent::_narrow (exe - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (! CORBA::is_nil (scom.in ())) - scom->set_session_context (this->context_ - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - } - ACE_CATCHANY - { - // @@ Ignore any exceptions? What happens if - // set_session_context throws an CCMException? - } - ACE_ENDTRY; -} - -[ciao module name]::[component name]_Servant::~[component name]_Servant (void) -{ - ACE_TRY_NEW_ENV - { - Components::SessionComponent_var scom = - Components::SessionComponent::_narrow (this->executor_.in () - ACE_ENV_ARG_PARAMETER); - ACE_TRY_CHECK; - - if (! CORBA::is_nil (scom.in ())) - scom->ccm_remove (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_TRY_CHECK; - } - ACE_CATCHANY - { - // @@ Ignore any exceptions? What happens if - // set_session_context throws an CCMException? - } - ACE_ENDTRY; - this->context_->_remove_ref (); -} - -// Operations for provides interfaces. -##foreach [facet name] with [facet type] in (list of all provided interfaces) generate: - -[facet type]_ptr -[ciao module name]::[component name]_Servant::provide_[facet name] (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - if (CORBA::is_nil (this->provide_[facet name]_.in ())) - { - CCM_[facet type]_var fexe = this->executor_->get_[facet name] (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (CORBA::is_nil (fexe.in ())) - ACE_THROW_RETURN (CORBA::INTERNAL (), 0); - - [ciao module name]::[facet type]_Servant *svt = - new [ciao module name]::[facet type]_Servant (fexe.in (), - this->context_); - PortableServer::ServantBase_var safe_servant (svt); - - CORBA::Object_var obj = this->container_->install_servant (svt - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - [facet type]_var fo = [facet type]::_narrow (obj.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - this->provide_[facet name]_ = fo; - } - - return [facet type]::_duplicate (this->provide_[facet name]_.in ()); -} -##end foreach [facet name] with [facet type] - -// Operations for consumers interfaces. -##foreach [consumer name] with [eventtype] in (list of all consumers) generate: - -// EventConsumer Glue Code implementation - -// Inherit from ::Compopnents::EventBConsumerBase -void -[ciao module name]::[component name]_Servant::[eventtype]Consumer_[consumer name]_Servant::push_event (EventBase *ev - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - ::Components::BadEventType)) -{ - [eventtype]_var ev_type = [eventtype]::_downcast (ev); - if (ev_type != 0) - { - this->push_[eventtype] (ev_type.in () - ACE_ENV_ARG_PARAMETER); - return; - } - - // @@ This include the case when we receive a parent eventtype of [eventtype] - - ACE_THROW (::Components::BadEventType ()); -} - -// get_component implementation. -[eventtype]Consumer_ptr -[ciao module name]::[component name]_Servant::get_consumer_[consumer name] (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - if (CORBA::is_nil (this->consumes_[consumer name]_.in ())) - { - [ciao module name]::[component name]_Servant::[eventtype]Consumer_[consumer name]_Servant *svt = - new [ciao module name]::[component name]_Servant::[eventtype]Consumer_[consumer name]_Servant (this->executor_.in (), - this->context_); - PortableServer::ServantBase_var safe_servant (svt); - - CORBA::Object_var obj = this->container_->install_servant (svt - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - [eventtype]Consumer_var eco = [eventtype]Consumer::_narrow (obj.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - this->consumes_[consumer name]_ = eco; - } - - return [eventtype]Consumer::_duplicate (this->consumes_[consumer name]_.in ()); -} - -##end foreach [consumer name] with [eventtype] - -// Operations for Navigation interface -CORBA::Object_ptr -[ciao module name]::[component name]_Servant::provide_facet (const char * name - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException , - Components::InvalidName)) -{ - if (name == 0) - ACE_THROW_RETURN (CORBA::BAD_PARAM (), 0); - - // We simply iterate thru all the facets this component provides - // now. We can also use a hash map along with perfect hashing - // (i.e., gperf) if we need faster performance since all the provided - // interfaces are static to a component definition. - -##foreach [facet name] with [facet type] in (list of all provided interfaces) generate: - if (ACE_OS_String::strcmp (name, "[facet name]") == 0) - return this->provide_[facet name] (ACE_ENV_SINGLE_ARG_PARAMETER); -##end foreach [facet name] with [facet type] - - ACE_THROW_RETURN (::Components::InvalidName (), 0); -} - -::Components::FacetDescriptions * -[ciao module name]::[component name]_Servant::get_all_facets (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::FacetDescriptions_var collection - = new ::Components::FacetDescriptions (#99); // #99 = number of all provided - // facets including those inherited - // from parent component(s). - collection->length (#99); - - ::Components::FacetDescription_var x; - CORBA::ULong i = 0; - -##foreach [facet name] with [facet type] in (list of all provided interfaces) generate: - - x = new ::OBV_Components::FacetDescription; - - x->Name ((const char *)"[facet name]"); - x->type_id ((const char *) "[facet type's repo id]"); // - x->facet_ref (this->provide_[facet name] (ACE_ENV_SINGLE_ARG_PARAMETER)); - ACE_CHECK_RETURN (0); - - collection[i] = x._retn (); - ++i; -##end foreach [facet name] with [facet type] - - return collection._retn (); - -} - -::Components::FacetDescriptions * -[ciao module name]::[component name]_Servant::get_named_facets (const Components::NameList & names - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - ::Components::FacetDescriptions_var collection - = new ::Components::FacetDescriptions (names.length ()); - collection->length (names.length ()); - - ::Components::FacetDescription_var x; - CORBA::ULong i = 0; - for (; i < names.length (); ++i) - { - x = new ::OBV_Components::FacetDescription; - - // We probably need a more efficient way, e.g., a hash map, to handle all these. -##foreach [facet name] with [facet type] in (list of all provided interfaces) generate: - (else) if (ACE_OS_String::strcmp (names[i].in (), "[facet name]") == 0) - { - x->Name ((const char *)"[facet name]"); - x->type_id ((const char *) "[facet type's repo id]"); // - x->facet_ref (this->provide_[facet name] (ACE_ENV_SINGLE_ARG_PARAMETER)); - ACE_CHECK_RETURN (0); - } -##end foreach [facet name] with [facet type] - else - ACE_THROW_RETURN (::Components::InvalidName (), 0); - - collection[i] = x._retn (); - } - return collection._retn (); -} - -CORBA::Boolean -[ciao module name]::[component name]_Servant::same_component (CORBA::Object_ptr object_ref - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - if (CORBA::is_nil (object_ref)) - ACE_THROW_RETURN (CORBA::BAD_PARAM (), 0); - - CORBA::Object_var the_other = object_ref->_get_component (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - CORBA::Object_var me = this->context_->get_CCM_object (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - return me->_is_equivalent (object_ref - ACE_ENV_ARG_PARAMETER); -} - -// Operations for Receptacles interface -::Components::Cookie * -[ciao module name]::[component name]_Servant::connect (const char * name, - CORBA::Object_ptr connection - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::InvalidConnection, - Components::AlreadyConnected, - Components::ExceededConnectionLimit)) -{ - // @@ We can omit this if clause if there's no receptacle in this component. - if (name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - if (ACE_OS_String::strcmp (name, "[receptacle name]") == 0) - { - [uses type]_var _ciao_conn = - [uses type]::_narrow (connection - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (CORBA::is_nil (_ciao_conn.in ())) - ACE_THROW_RETURN (::Components::InvalidConnection (), 0); - -## if [receptacle name] is a simplex receptacle ('uses') - this->connect_[receptacle name] (_caio_conn.in () - ACE_ENV_ARG_PARAMETER); - return 0; -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) - return this->connect_[receptacle name] (_ciao_conn.in () - ACE_ENV_ARG_PARAMETER); -## endif [receptacle name] - } -##end foreach [receptacle name] with [uses type] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -/* -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: -## if [receptacle name] is a simplex receptacle ('uses') -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) -## endif [receptacle name] -##end foreach [receptacle name] with [uses type] -*/ - -CORBA::Object_ptr -[ciao module name]::[component name]_Servant::disconnect (const char * name, - Components::Cookie *ck - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::InvalidConnection, - Components::CookieRequired, - Components::NoConnection)) -{ - // @@ We can omit this if clause if there's no receptacle in this component. - if (name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - if (ACE_OS_String::strcmp (name, "[receptacle name]") == 0) -## if [receptacle name] is a simplex receptacle ('uses') - return this->disconnect_[receptacle name] (ACE_ENV_SINGLE_ARG_PARAMETER); -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) - return this->connect_[receptacle name] (ck - ACE_ENV_ARG_PARAMETER); -## endif [receptacle name] -##end foreach [receptacle name] with [uses type] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -::Components::ConnectionDescriptions * -[ciao module name]::[component name]_Servant::get_connections (const char * name - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - // @@ We can omit this if clause if there's no receptacle in this component. - if (name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - if (ACE_OS_String::strcmp (name, "[receptacle name]") == 0) - { -## if [receptacle name] is a simplex receptacle ('uses') - ::Components::ConnectionDescriptions_var retv = - new ::Components::ConnectionDescriptions (1); - retv->length (1); - - retv[0] = new OBV_Components::ConnectionDescription; - retv[0]->ck = 0; - retv[0]->objref = this->get_connection_[receptacle name] (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - return retv._retn (); -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) - // @@ Return type does not match here. We can not return directly. - return this->get_connections_[receptacle name] (ACE_ENV_SINGLE_ARG_PARAMETER); -## endif [receptacle name] - } -##end foreach [receptacle name] with [uses type] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -::Components::ReceptacleDescriptions * -[ciao module name]::[component name]_Servant::get_all_receptacles (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::ReceptacleDescriptions_var retv = - new ::Components::ReceptacleDescriptions (#99); // #99 is number of receptacles - // this component has. - retv->length (#99); - CORBA::ULong i = 0; - -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - retv[i] = new OBV_Components::ReceptacleDescription; - - retv[i]->Name ((const char *) "[receptacle name]"); - retv[i]->type_id ((const char *) "[uses type repo id]"); -## if [receptacle name] is a simplex receptacle ('uses') - retv[i]->is_multiple (0); -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) - retv[i]->is_multiple (1); -## endif [receptacle name] - retv[i]->connections (*this->get_connections ("[receptacle name]" - ACE_ENV_ARG_PARAMETER)); - ACE_CHECK_RETURN (0); - ++i; -##end foreach [receptacle name] with [uses type] - - return retv._retn (); -} - -::Components::ReceptacleDescriptions * -[ciao module name]::[component name]_Servant::get_named_receptacles (const Components::NameList & names - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - ::Components::ReceptacleDescriptions_var retv = - new ::Components::ReceptacleDescriptions (names.length ()); - retv->length (names.length ()); - - CORBA::ULong i = 0; - for (; i < names.length (); ++i) - { - retv[i] = new ::OBV_Components::ReceptacleDescription; -##foreach [receptacle name] with [uses type] in (list of all 'uses' interfaces) generate: - (else) if (ACE_OS_String::strcmp (names[i].in (), "[receptacle name]") == 0) - { - retv[i]->Name ((const char *) "[receptacle name]"); - retv[i]->type_id ((const char *) "[uses type repo id]"); -## if [receptacle name] is a simplex receptacle ('uses') - retv[i]->is_multiple (0); -## else ([receptacle name] is a multiplex ('uses multiple') receptacle) - retv[i]->is_multiple (1); -## endif [receptacle name] - retv[i]->connections (*this->get_connections ("[receptacle name]" - ACE_ENV_ARG_PARAMETER)); - ACE_CHECK_RETURN (0); - } -##end foreach [receptacle name] with [uses type] - else - ACE_THROW_RETURN (::Components::InvalidName (), 0); - } - return retv._retn (); -} - -// Operations for Events interface -::Components::EventConsumerBase_ptr -[ciao module name]::[component name]_Servant::get_consumer (const char * sink_name - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - // @@ We can omit this if clause if there's no event sinks in this component. - if (sink_name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [consumer name] with [eventtype] in (list of all consumers) generate: - if (ACE_OS_String::strcmp (sink_name, "[consumer name]") == 0) - return this->get_consumer_[consumer name] (ACE_ENV_SINGLE_ARG_PARAMETER); -##end foreach [consumer name] with [eventtype] - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -::Components::Cookie * -[ciao module name]::[component name]_Servant::subscribe (const char * publisher_name, - Components::EventConsumerBase_ptr subscriber - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::InvalidConnection, - Components::ExceededConnectionLimit)) -{ - // @@ We can omit this if clause if there's no publisher in this component. - if (publisher_name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [publish name] with [eventtype] in (list of all publishers) generate: - if (ACE_OS_String::strcmp (publisher_name, "[publish name]") == 0) - { - [eventtype]Consumer_var _ciao_consumer = - [eventtype]Consumer::_narrow (subscriber - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (CORBA::is_nil (_ciao_consumer.in ())) - ACE_THROW_RETURN (Components::InvalidConnection (), 0); - - return this->subscribe_[publish name] (_ciao_consumer.in () - ACE_ENV_ARG_PARAMETER); - } -##end foreach [publish name] with [eventtype] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -::Components::EventConsumerBase_ptr -[ciao module name]::[component name]_Servant::unsubscribe (const char * publisher_name, - Components::Cookie *ck - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::InvalidConnection)) -{ - // @@ We can omit this if clause if there's no publisher in this component. - if (publisher_name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [publish name] with [eventtype] in (list of all publishers) generate: - if (ACE_OS_String::strcmp (publisher_name, "[publish name]") == 0) - { - return this->unsubscribe_[publish name] (ck - ACE_ENV_ARG_PARAMETER); - } -##end foreach [publish name] with [eventtype] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -void -[ciao module name]::[component name]_Servant::connect_consumer (const char * emitter_name, - Components::EventConsumerBase_ptr consumer - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::AlreadyConnected, - Components::InvalidConnection)) -{ - // @@ We can omit this if clause if there's no emitter in this component. - if (emitter_name == 0) - ACE_THROW (Components::InvalidName ()); - -##foreach [emit name] with [eventtype] in (list of all emitters) generate: - if (ACE_OS_String::strcmp (emitter_name, "[emit name]") == 0) - { - [eventtype]Consumer_var _ciao_consumer = - [eventtype]Consumer::_narrow (consumer - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - if (CORBA::is_nil (_ciao_consumer.in ())) - ACE_THROW (Components::InvalidConnection); - - this->connect_[emit name] (_ciao_consumer.in () - ACE_ENV_ARG_PARAMETER); - return; - } -##end foreach [emit name] with [eventtype] - - ACE_THROW (Components::InvalidName ()); -} - -::Components::EventConsumerBase_ptr -[ciao module name]::[component name]_Servant::disconnect_consumer (const char * source_name - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName, - Components::NoConnection)) -{ - // @@ We can omit this if clause if there's no emitter in this component. - if (source_name == 0) - ACE_THROW_RETURN (Components::InvalidName (), 0); - -##foreach [emit name] with [eventtype] in (list of all emitters) generate: - if (ACE_OS_String::strcmp (source_name, "[emit name]") == 0) - { - return this->disconnect_[emit name] (ACE_ENV_SINGLE_ARG_PARAMETER); - } -##end foreach [emit name] with [eventtype] - - ACE_THROW_RETURN (Components::InvalidName (), 0); -} - -::Components::ConsumerDescriptions * -[ciao module name]::[component name]_Servant::get_all_consumers (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::ConsumerDescriptions_var retv = - new ::Components::ConsumerDescriptions (#99); // #99 is the number of consumers - // this component has. - retv->length (#99); - - CORBA::ULong i = 0; -##foreach [consumer name] with [eventtype] in (list of all consumers) generate: - retv[i] = new OBV_Components::ConsumerDescription; - retv[i]->Name ("[consumer name]"); - retv[i]->type_id ("[eventtype]Consumer repo id"); - [eventtype]Consumer_var c - = this->get_consumer_[consumer name] (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - retv[i]->consumer (c.in ()); - - i++; -##end foreach [consumer name] with [eventtype] - - return retv._retn (); -} - -::Components::ConsumerDescriptions * -[ciao module name]::[component name]_Servant::get_named_consumers (const Components::NameList & names - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - ::Components::ConsumerDescriptions_var retv = - new ::Components::ConsumerDescriptions (names.length ()); - retv->length (names.length ()); - - CORBA::ULong i = 0; - for (; i < names.length (); ++i) - { - retv[i] = new OBV_Components::ConsumerDescription; - -##foreach [consumer name] with [eventtype] in (list of all consumers) generate: - (else) if (ACE_OS_String::strcmp (names[i].in (), "[consumer name]") == 0) - { - retv[i]->Name ("[consumer name]"); - retv[i]->type_id ("[eventtype]Consumer repo id"); - [eventtype]Consumer_var c = - this->get_consumer_[consumer name] (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - retv[i]->consumer (c.in ()); - } -##end foreach [consumer name] with [eventtype] - else - ACE_THROW_RETURN (::Components::InvalidName (), 0); - } - return retv._retn (); -} - -::Components::EmitterDescriptions * -[ciao module name]::[component name]_Servant::get_all_emitters (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::EmitterDescriptions_var retv = - new ::Components::EmitterDescriptions (#99); // #99 is the number of emitters - // this component has. - retv->length (#99); - - CORBA::ULong i = 0; -##foreach [emit name] with [eventtype] in (list of all emitters) generate: - retv[i] = new OBV_Components::EmitterDescription; - retv[i]->Name ("[emit name]"); - retv[i]->type_id ("[eventtype]Consumer repo id"); - retv[i]->consumer ([eventtype]Consumer::_duplicate (this->context_->ciao_emits_[emit name]_consumer_)); - - i++; -##end foreach [emitter name] with [eventtype] - - return retv._retn (); -} - -::Components::EmitterDescriptions * -[ciao module name]::[component name]_Servant::get_named_emitters (const Components::NameList & names - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - ::Components::EmitterDescriptions_var retv = - new ::Components::EmitterDescriptions (names.length ()); - retv->length (names.length ()); - - CORBA::ULong i = 0; - for (; i < names.length (); ++i) - { - retv[i] = new OBV_Components::EmitterDescription; - -##foreach [emit name] with [eventtype] in (list of all emitters) generate: - (else) if (ACE_OS_String::strcmp (names[i].in (), "[emit name]") == 0) - { - retv[i]->Name ("[emit name]"); - retv[i]->type_id ("[eventtype]Consumer repo id"); - retv[i]->consumer ([eventtype]Consumer::_duplicate (this->context_->ciao_emits_[emit name]_consumer_.in ())); - } -##end foreach [consumer name] with [eventtype] - else - ACE_THROW_RETURN (::Components::InvalidName (), 0); - } - return retv._retn (); -} - -::Components::PublisherDescriptions * -[ciao module name]::[component name]_Servant::get_all_publishers (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - // @@ to-do - - // Need to add interfaces in the Context class to gather the information. - // Or we can just relay it to the Context object. - ACE_THROW_RETURN (CORBA::NO_IMPLEMENT (), 0); -} - -::Components::PublisherDescriptions * -[ciao module name]::[component name]_Servant::get_named_publishers (const Components::NameList & names - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidName)) -{ - // @@ to-do - - // Need to add interfaces in the Context class to gather the information. - // Or we can just relay it to the Context object. - ACE_THROW_RETURN (CORBA::NO_IMPLEMENT (), 0); -} - -// Operations for CCMObject interface -::CORBA::IRObject_ptr -[ciao module name]::[component name]_Servant::get_component_def (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - // @@ to-do: Connect to an IfR? - ACE_THROW_RETURN (CORBA::NO_IMPLEMENT (), 0); -} - -::Components::CCMHome_ptr -[ciao module name]::[component name]_Servant::get_ccm_home (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - return this->context_->get_CCM_home (ACE_ENV_SINGLE_ARG_PARAMETER); -} - -::Components::PrimaryKeyBase * -[ciao module name]::[component name]_Servant::get_primary_key (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::NoKeyAvailable)) -{ - // This is a keyless component. - ACE_THROW_RETURN (::Components::NoKeyAvailable (), 0); -} - -void -[ciao module name]::[component name]_Servant::configuration_complete (ACE_ENV_SINGLE_ARG_DECL_NOT_USED) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::InvalidConfiguration)) -{ - // @@ to-do - // No-op. Don't know how to pass this info to monolithic executor. -} - -void -[ciao module name]::[component name]_Servant::remove (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::RemoveFailure)) -{ - // @@ to-do - // Need to figure out what to do here. E.g., tear down the all the connections - // this component has? -} - -::Components::ComponentPortDescription * -[ciao module name]::[component name]_Servant::get_all_ports (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::ComponentPortDescription_var retv = - new OBV_Components::ComponentPortDescription; - - ::Components::FacetDescriptions_var facets_desc - = this->get_all_facets (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - ::Components::ReceptacleDescriptions_var receptacle_desc - = get_all_receptacles (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - ::Components::ConsumerDescriptions_var consumer_desc - = this->get_all_consumers (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - ::Components::EmitterDescriptions_var emitter_desc - = this->get_all_emitters (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - ::Components::PublisherDescriptions_var publisher_desc - = this->get_all_publishers (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - retv->facets (facets_desc.in()); - retv->receptacles (receptacle_desc.in()); - retv->consumers (consumer_desc.in()); - retv->emitters (emitter_desc.in()); - retv->publishers (publisher_desc.in()); - - return retv._retn(); -} - -// get_component implementation. -CORBA::Object_ptr -[ciao module name]::[component name]_Servant::_get_component (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::SessionContext_var sc = - ::Components::SessionContext::_narrow (this->context_); - - if (! CORBA::is_nil(sc.in ())) - return sc->get_CCM_object (ACE_ENV_SINGLE_ARG_PARAMETER); - - // @@ Do we need to try the following case here? We are afterall implementing - // a session component here. - ::Components::EntityContext_var ec = - ::Components::EntityContext::_narrow (this->context_); - - if (! CORBA::is_nil(ec.in ())) - return ec->get_CCM_object (ACE_ENV_SINGLE_ARG_PARAMETER); - - ACE_THROW_RETURN (CORBA::INTERNAL (), 0); -} - -void -[ciao module name]::[component name]_Servant::_ciao_activate (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::SessionComponent_var temp = - ::Components::SessionComponent::_narrow (this->executor_.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - if (! CORBA::is_nil (temp.in ())) - temp->ccm_activate (ACE_ENV_SINGLE_ARG_PARAMETER); -} - -void -[ciao module name]::[component name]_Servant::_ciao_passivate (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - ::Components::SessionComponent_var temp = - ::Components::SessionComponent::_narrow (this->executor_.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - if (! CORBA::is_nil (temp.in ())) - temp->ccm_passivate (ACE_ENV_SINGLE_ARG_PARAMETER); -} - -////////////////////////////////////////////////////////////////// -// Component Home Glue code implementation -////////////////////////////////////////////////////////////////// - -[component name]_ptr -[ciao module name]::[home name]_Servant::_ciao_activate_component (CCM_[component name]_ptr exe - ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - CORBA::Object_var hobj - = this->container_->get_objref (this - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - ::Components::CCMHome_var home - = ::Components::CCMHome::_narrow (hobj.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - [ciao module name]::[component name]_Servant *svt = - new [ciao module name]::[component name]_Servant (exe, - home.in (), - this->container_); - PortableServer::ServantBase_var safe (svt); - PortableServer::ObjectId_var oid; - - CORBA::Object_var objref - = this->container_->install_component (svt, - oid.out () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - svt->_ciao_activate (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - [component name]_var ho - = [component name]::_narrow (objref.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (this->component_map_.bind (oid.in (), svt) == 0) - { - // @@ what should happen if bind fail? - safe._retn (); - } - return ho._retn (); -} - -void -[ciao module name]::[home name]_Servant::_ciao_passivate_component ([component name]_ptr comp - ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException)) -{ - PortableServer::ObjectId_var oid; - - this->container_->uninstall_component (comp, - oid.out () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - [ciao module name]::[component name]_Servant *servant = 0; - if (this->component_map_.unbind (oid.in (), servant) == 0) - { - PortableServer::ServantBase_var safe (servant); - servant->_ciao_passivate (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK; - } - // What happen if unbind failed? - -} - -// Operations for Implicit Home interface -[component name]_ptr -[ciao module name]::[home name]_Servant::create (ACE_ENV_SINGLE_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::CreateFailure)) -{ - if (this->executor_.in () == 0) - ACE_THROW_RETURN (CORBA::INTERNAL (), 0); - - Components::EnterpriseComponent_var _ciao_ec = - this->executor_->create (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - CCM_[component name]_var _ciao_comp - = CCM_[component name]::_narrow (_ciao_ec.in () - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - return this->_ciao_activate_component (_ciao_comp.in () - ACE_ENV_ARG_PARAMETER); -} - -// Operations for CCMHome interface -void -[ciao module name]::[home name]_Servant::remove_component (Components::CCMObject_ptr comp - ACE_ENV_ARG_DECL) - ACE_THROW_SPEC ((CORBA::SystemException, - Components::RemoveFailure)) -{ - [component name]_var _ciao_comp - = [component name]::_narrow (comp - ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - if (CORBA::is_nil (_ciao_comp.in ())) - ACE_THROW (CORBA::INTERNAL ()); // What is the right exception to throw here? - - // @@ It seems to me that we need to make sure this is a component - // generated by this home before calling remove on this component. - _ciao_comp->remove (ACE_ENV_ARG_PARAMETER); - ACE_CHECK; - - - // Removing the object reference? get the servant from the POA with - // the objref, and call remove() on the component, deactivate the - // component, and then remove-ref the servant? - this->_ciao_passivate_component (_ciao_comp.in () - ACE_ENV_ARG_PARAMETER); -} - -extern "C" [SERVANT]_Export ::PortableServer::Servant -create[home name]_Servant (::Components::HomeExecutorBase_ptr p, - CIAO::Session_Container *c - ACE_ENV_ARG_DECL); -{ - if (p == 0) - return 0; - - CCM_[home name]_var x - = CCM_[home name]::_narrow (p - ACE_ENV_ARG_PARAMETER); - ACE_CHECK_RETURN (0); - - if (CORBA::is_nil (x.in ())) - return 0; - - return new [ciao module name]::[home name]_Servant (x.in (), - c); -} |