1 files changed, 91 insertions, 0 deletions
diff --git a/trunk/TAO/examples/ior_corbaloc/server.cpp b/trunk/TAO/examples/ior_corbaloc/server.cpp
new file mode 100644
index 00000000000..b5351d69be2
--- /dev/null
+++ b/trunk/TAO/examples/ior_corbaloc/server.cpp
@@ -0,0 +1,91 @@
+// $Id$
+// server.cpp
+
+#include "status_i.h"
+#include "tao/PortableServer/PortableServer.h"
+#include "orbsvcs/CosNamingC.h"
+
+int main (int argc, char* argv[])
+{
+  ACE_DECLARE_NEW_CORBA_ENV;
+  ACE_TRY
+    {
+      // First initialize the ORB, that will remove some arguments...
+      CORBA::ORB_var orb =
+        CORBA::ORB_init (argc, argv,
+                         "" /* the ORB name, it can be anything! */
+                         ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      if (argc < 2)
+        {
+          ACE_DEBUG ((LM_DEBUG, "\nUsage:\n  %s [NAME to insert in Naming Service]\n", argv[0]));
+          return -1;
+        }
+      // Get a reference to the RootPOA
+      CORBA::Object_var poa_object =
+        orb->resolve_initial_references ("RootPOA" ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // narrow down to the correct reference
+      PortableServer::POA_var poa =
+        PortableServer::POA::_narrow (poa_object.in () ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Set a POA Manager
+      PortableServer::POAManager_var poa_manager =
+        poa->the_POAManager (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Activate the POA Manager
+      poa_manager->activate (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Create the servant
+      corbaloc_Status_i status_i;
+      status_i.set_name (argv[1]);
+      // Activate it to obtain the reference
+      corbaloc::Status_var status =
+        status_i._this ();
+      ACE_TRY_CHECK;
+
+      // Get a reference to Naming Context
+      CORBA::Object_var naming_context_object =
+        orb->resolve_initial_references ("NameService" ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Narrow down the reference
+      CosNaming::NamingContext_var naming_context =
+        CosNaming::NamingContext::_narrow (naming_context_object.in ()
+                                           ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Bind Iterator_Factory to the Naming Context
+      CosNaming::Name name (1);
+      name.length (1);
+      name[0].id = CORBA::string_dup (argv[1]);
+
+      naming_context->rebind (name, status.in ());
+      ACE_TRY_CHECK;
+
+      // Run the orb
+      orb->run (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+
+      // Destroy the POA, waiting until the destruction terminates
+      poa->destroy (1, 1 ACE_ENV_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+      orb->destroy (ACE_ENV_SINGLE_ARG_PARAMETER);
+      ACE_TRY_CHECK;
+    }
+  ACE_CATCH (CORBA::SystemException, ex) {
+    ACE_PRINT_EXCEPTION (ex, "CORBA exception raised! ");
+  }
+  ACE_CATCHANY {
+    ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "Exception caught in server");
+  }
+  ACE_ENDTRY;
+  ACE_CHECK_RETURN (-1);
+
+  return 0;
+}