1 files changed, 177 insertions, 0 deletions
diff --git a/trunk/TAO/examples/Quoter/Generic_Factory_i.cpp b/trunk/TAO/examples/Quoter/Generic_Factory_i.cpp
new file mode 100644
index 00000000000..15c9a4034c5
--- /dev/null
+++ b/trunk/TAO/examples/Quoter/Generic_Factory_i.cpp
@@ -0,0 +1,177 @@
+// $Id$
+
+// ============================================================================
+//
+// = FILENAME
+//    Generic_Factory_i.cpp
+//
+// = DESCRIPTION
+//    The implementation of a LifeCycle Service GenericFactory for the
+//    Quoter example.
+//
+// = AUTHOR
+//    Michael Kircher (mk1@cs.wustl.edu)
+// ============================================================================
+
+#include "Generic_Factory_i.h"
+#include "QuoterC.h"
+
+#include "tao/ORB_Core.h"
+
+#include "ace/Get_Opt.h"
+
+ACE_RCSID (Quoter, 
+           Generic_Factory_i, 
+           "$Id$")
+
+// Constructor
+Quoter_Generic_Factory_i::Quoter_Generic_Factory_i (int debug_level)
+: debug_level_ (debug_level)
+{
+}
+
+// Destructor.
+Quoter_Generic_Factory_i::~Quoter_Generic_Factory_i (void)
+{
+}
+
+CORBA::Boolean
+Quoter_Generic_Factory_i::supports (const CosLifeCycle::Key &
+                                    ACE_ENV_ARG_DECL_NOT_USED)
+      ACE_THROW_SPEC ((CORBA::SystemException))
+{
+  return 0;
+}
+
+
+
+CosNaming::NamingContext_ptr
+Quoter_Generic_Factory_i::get_naming_context (const CosLifeCycle::Key &factory_key
+                                              ACE_ENV_ARG_DECL)
+{
+  CosNaming::NamingContext_var quoterNamingContext_var;
+  ACE_TRY
+    {
+      // @@ FIXME Get a reference to the ORB.
+      CORBA::ORB_ptr orb_ptr =
+        TAO_ORB_Core_instance ()->orb ();
+
+      // Get the Naming Service object reference.
+      CORBA::Object_var namingObj_var =
+        orb_ptr->resolve_initial_references ("NameService" ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      if (CORBA::is_nil (namingObj_var.in ()))
+        ACE_ERROR ((LM_ERROR,
+                    "(%P|%t) Unable get the Naming Service.\n"));
+
+      // Narrow the object reference to a Naming Context.
+      CosNaming::NamingContext_var namingContext_var =
+        CosNaming::NamingContext::_narrow (namingObj_var.in ()
+                                           ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      CosNaming::Name quoterContextName (1);  // max = 1
+      quoterContextName.length (1);
+      quoterContextName[0].id = CORBA::string_dup ("IDL_Quoter");
+
+      // Get the IDL_Quoter naming context.
+      CORBA::Object_var quoterNamingObj_var =
+        namingContext_var->resolve (quoterContextName ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      quoterNamingContext_var =
+        CosNaming::NamingContext::_narrow (quoterNamingObj_var.in ()
+                                           ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+    }
+  ACE_CATCHANY
+    {
+      ACE_THROW_RETURN (CosLifeCycle::NoFactory (factory_key),
+                        CosNaming::NamingContext::_nil ());
+    }
+  ACE_ENDTRY;
+  return quoterNamingContext_var._retn ();
+}
+
+
+
+CORBA::Object_ptr
+Quoter_Generic_Factory_i::create_object (const CosLifeCycle::Key &factory_key,
+                                         const CosLifeCycle::Criteria &
+                                         ACE_ENV_ARG_DECL)
+      ACE_THROW_SPEC ((CORBA::SystemException,
+                       CosLifeCycle::NoFactory,
+                       CosLifeCycle::InvalidCriteria,
+                       CosLifeCycle::CannotMeetCriteria))
+{
+  Stock::Quoter_var quoter_var;
+  ACE_TRY
+    {
+      CosNaming::NamingContext_var quoterNamingContext_var =
+        this->get_naming_context (factory_key
+                                  ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // ** now a proper reference to the quoter naming context is
+      // available
+
+      // Fill in the name of the Quoter Factory.
+      // Take the key supplied to search for a Quoter Factory
+      CosNaming::Name factory_Name = (CosNaming::Name) factory_key;
+
+      // Try to get a reference to a Quoter Factory
+      CORBA::Object_var quoterFactoryObject_var =
+        quoterNamingContext_var->resolve (factory_Name ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // We were able to get a reference to Quoter Factory.
+      // Check if it is a valid Quoter Factory reference
+      if (CORBA::is_nil (quoterFactoryObject_var.in()))
+        { // throw a NoFactory exception
+          ACE_TRY_THROW (CosLifeCycle::NoFactory (factory_key));
+        }
+
+      Stock::Quoter_Factory_var factory_var =
+        Stock::Quoter_Factory::_narrow (quoterFactoryObject_var.in ()
+                                        ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      if (CORBA::is_nil (factory_var.in ()))
+        {
+          ACE_ERROR ((LM_ERROR,
+                      "invalid factory.\n"));
+          return CORBA::Object::_nil ();
+        }
+
+      if (this->debug_level_ > 1)
+        ACE_DEBUG ((LM_DEBUG, "Generic Factory: Factory reference OK.\n"));
+
+      // Now retrieve the Quoter obj ref corresponding to the key.
+      quoter_var =
+        factory_var->create_quoter ("test"
+                                    ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      if (this->debug_level_ > 1)
+        ACE_DEBUG ((LM_DEBUG, "Generic_Factory: Quoter Created\n"));
+
+      if (CORBA::is_nil (quoter_var.in ()))
+        {
+          ACE_ERROR ((LM_ERROR,
+                      "null quoter objref returned by factory\n"));
+          return CORBA::Object::_nil ();
+        }
+
+      if (this->debug_level_ > 1)
+        ACE_DEBUG ((LM_DEBUG, "Generic_Factory: Return an object reference to a new object.\n"));
+
+    }
+  ACE_CATCHANY
+    {
+      ACE_THROW_RETURN (CosLifeCycle::NoFactory (factory_key),
+                        CORBA::Object::_nil ());
+    }
+  ACE_ENDTRY;
+  return quoter_var._retn ();
+}