1 files changed, 55 insertions, 0 deletions
diff --git a/TAO/docs/tutorials/Quoter/Naming_Service/server.cpp b/TAO/docs/tutorials/Quoter/Naming_Service/server.cpp
new file mode 100644
index 00000000000..86d293611bc
--- /dev/null
+++ b/TAO/docs/tutorials/Quoter/Naming_Service/server.cpp
@@ -0,0 +1,55 @@
+//
+// $Id$
+//
+
+#include "Stock_Factory_i.h"
+#include "orbsvcs/CosNamingC.h"
+#include "ace/streams.h"
+
+int main (int argc, char* argv[])
+{
+  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! */);
+    CORBA::Object_var poa_object =
+      orb->resolve_initial_references ("RootPOA");
+    PortableServer::POA_var poa =
+      PortableServer::POA::_narrow (poa_object.in ());
+    PortableServer::POAManager_var poa_manager =
+      poa->the_POAManager ();
+    poa_manager->activate ();
+
+    // Create the servant
+    Quoter_Stock_Factory_i stock_factory_i;
+
+    // Activate it to obtain the object reference
+    Quoter::Stock_Factory_var stock_factory =
+      stock_factory_i._this ();
+
+    // Get the Naming Context reference
+    CORBA::Object_var naming_context_object =
+      orb->resolve_initial_references ("NameService");
+    CosNaming::NamingContext_var naming_context =
+      CosNaming::NamingContext::_narrow (naming_context_object.in ());
+
+    // Create and initialize the name.
+    CosNaming::Name name (1);
+    name.length (1);
+    name[0].id = CORBA::string_dup ("Stock_Factory");
+
+    // Bind the object
+    naming_context->bind (name, stock_factory.in ());
+
+    orb->run ();
+
+    // Destroy the POA, waiting until the destruction terminates
+    poa->destroy (1, 1);
+    orb->destroy ();
+  }
+  catch (CORBA::Exception &) {
+    cerr << "CORBA exception raised!" << endl;
+  }
+  return 0;
+}