ChangeLogTag:Fri Nov 10 12:41:32 2000 Darrell Brunsch <brunsch@uci.edu>

1 files changed, 128 insertions, 0 deletions

diff --git a/TAO/orbsvcs/ImplRepo_Service/Forwarder.cpp b/TAO/orbsvcs/ImplRepo_Service/Forwarder.cpp
new file mode 100644
index 00000000000..53f40394a6a
--- /dev/null
+++ b/TAO/orbsvcs/ImplRepo_Service/Forwarder.cpp
@@ -0,0 +1,128 @@
+//=============================================================================
+/**
+ *  @file   Forwarder.cpp
+ *
+ *  $Id$
+ *
+ *  @brief  Definition of ImR_Forwarder
+ *
+ *  @author Darrell Brunsch <brunsch@cs.wustl.edu>
+ */
+//=============================================================================
+
+#include "Forwarder.h"
+#include "ImplRepo_i.h"
+#include "Options.h"
+
+#include "tao/PortableServer/Object_Adapter.h"
+
+/**
+ * This constructor takes in orb and ImplRepo_i pointers to store for later 
+ * use.  It also grabs a reference to the POACurrent object for use in
+ * preinvoke.
+ */
+ImR_Forwarder::ImR_Forwarder (ImplRepo_i *imr_impl)
+  : imr_impl_ (imr_impl)
+{
+  CORBA::ORB_var orb = OPTIONS::instance ()->orb ();
+
+  ACE_ASSERT (imr_impl != 0);
+
+  ACE_TRY_NEW_ENV
+    {
+      CORBA::Object_var tmp =
+        orb->resolve_initial_references ("POACurrent", ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      this->poa_current_var_ =
+        PortableServer::Current::_narrow (tmp.in (), ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+    }
+  ACE_CATCHANY
+    {
+      // Ignore
+    }
+  ACE_ENDTRY;
+
+  ACE_ASSERT (!CORBA::is_nil (this->poa_current_var_.in ()));
+}
+
+
+
+/**
+ * We figure out the intended recipient from the POA name.  After activating
+ * the server, we throw a forwarding exception to the correct server.
+ *
+ * The big complicated thing here is that we have to create the forwarding
+ * ior based on what we already have.  So we combine the endpoint received
+ * from activate_server_i and append the objectid from the request to it.
+ *
+ * @todo Should we base the name on the entire POA hierarchy?
+ * @todo Use ACE_TString for the IOR?  Can it always be a char?
+ */
+PortableServer::Servant 
+ImR_Forwarder::preinvoke (const PortableServer::ObjectId &,
+                          PortableServer::POA_ptr poa,
+                          const char *,
+                          PortableServer::ServantLocator::Cookie &
+                          TAO_ENV_ARG_DECL)
+    ACE_THROW_SPEC ((CORBA::SystemException, PortableServer::ForwardRequest))
+{
+  TAO_ENV_ARG_DEFN;
+  CORBA::ORB_var orb = OPTIONS::instance ()->orb ();
+
+  // Activate.
+
+  ACE_TString ior;
+
+  ior = this->imr_impl_->activate_server_i (poa->the_name (),
+                                            1,
+                                            ACE_TRY_ENV);
+  ACE_CHECK_RETURN (0);
+
+  // Add the key
+
+  char *key_str = 0;
+
+  // Unlike POA Current, this implementation cannot be cached.
+  TAO_POA_Current *tao_current = 
+    ACE_dynamic_cast(TAO_POA_Current*, this->poa_current_var_.in ());
+  TAO_POA_Current_Impl *impl = tao_current->implementation ();
+  TAO_ObjectKey::encode_sequence_to_string (key_str,
+                                            impl->object_key ());
+
+  ior += key_str;
+  CORBA::string_free (key_str);
+
+  if (OPTIONS::instance()->debug () >= 2)
+    ACE_DEBUG ((LM_DEBUG, "Forwarding to %s\n", ior.c_str ()));
+
+  CORBA::Object_ptr forward_obj =
+    orb->string_to_object (ior.c_str (), ACE_TRY_ENV);
+  ACE_CHECK_RETURN (0);
+
+  if (!CORBA::is_nil (forward_obj))
+    ACE_THROW_RETURN (PortableServer::ForwardRequest (forward_obj), 0);
+  else
+    ACE_ERROR ((LM_ERROR,
+                "Error: Forward_to reference is nil.\n"));
+
+  ACE_THROW_RETURN (CORBA::OBJECT_NOT_EXIST (), 0);
+}
+
+/**
+ * The postinvoke method just deletes the passed in servant.
+ */
+void 
+ImR_Forwarder::postinvoke (const PortableServer::ObjectId &,
+                           PortableServer::POA_ptr ,
+                           const char * ,
+                           PortableServer::ServantLocator::Cookie ,
+                           PortableServer::Servant servant
+                           TAO_ENV_ARG_DECL_NOT_USED)
+    ACE_THROW_SPEC ((CORBA::SystemException))
+{
+  delete servant;
+}
+
+