ChangeLogTag:Mon Jun 19 02:40:37 2000 Ossama Othman <ossama@uci.edu>

1 files changed, 91 insertions, 0 deletions

diff --git a/TAO/examples/Content_Server/SMI_Iterator/server.cpp b/TAO/examples/Content_Server/SMI_Iterator/server.cpp
new file mode 100644
index 00000000000..adb288480dd
--- /dev/null
+++ b/TAO/examples/Content_Server/SMI_Iterator/server.cpp
@@ -0,0 +1,91 @@
+// -*- C++ -*-
+// $Id$
+
+// Ossama Othman <ossama@uci.edu>
+
+#include "orbsvcs/CosNamingC.h"
+#include "Web_ServerS.h"
+
+#include "Iterator_Factory_i.h"
+
+int
+main (int argc, char *argv[])
+{
+  ACE_DECLARE_NEW_CORBA_ENV;
+  ACE_TRY
+    {
+      // Initialize the ORB.
+      CORBA::ORB_var orb = CORBA::ORB_init (argc,
+                                            argv,
+                                            "Ossama's Mighty ORB",
+                                            ACE_TRY_ENV); 
+      ACE_TRY_CHECK;
+
+      // Get the Root POA.
+      CORBA::Object_var obj =
+        orb->resolve_initial_references ("RootPOA",
+                                         ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      PortableServer::POA_var poa =
+        PortableServer::POA::_narrow (obj.in (), ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Activate the POA manager.
+      PortableServer::POAManager_var mgr = poa->the_POAManager ();
+      mgr->activate (ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Create the Iterator_Factory servant and object.
+      // It activates and deactivates the Content_Iterator object.
+      Iterator_Factory_i factory_servant;
+      Web_Server::Iterator_Factory_var factory =
+        factory_servant._this (ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Get a reference to the Name Service.
+      obj = orb->resolve_initial_references ("NameService",
+                                             ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Narrow to a Naming Context
+      CosNaming::NamingContext_var nc;
+      nc = CosNaming::NamingContext::_narrow (obj.in (), ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Create a name.
+      CosNaming::Name name;
+      name.length (1);
+      name[0].id = CORBA::string_dup ("Iterator_Factory");
+      name[0].kind = CORBA::string_dup ("");
+
+      nc->bind (name, factory.in (), ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+
+      // Some debugging output.
+      CORBA::String_var IOR = orb->object_to_string (factory.in (),
+                                                     ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+      ACE_DEBUG ((LM_DEBUG,
+                  "Bound <%s> to <%s> in Name Service.\n",
+                  name[0].id.in (),
+                  IOR.in ()));
+
+      ACE_DEBUG ((LM_INFO,
+                  "Accepting requests.\n"));
+
+      // Accept requests.
+      orb->run (ACE_TRY_ENV);
+      ACE_TRY_CHECK;
+    }
+  ACE_CATCHANY
+    {
+      ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
+                           "Caught unexpected exception:");
+
+      return -1;
+    }
+  ACE_ENDTRY;
+
+  return 0;
+}