1 files changed, 64 insertions, 0 deletions
diff --git a/TAO/examples/POA/RootPOA/RootPOA.cpp b/TAO/examples/POA/RootPOA/RootPOA.cpp
new file mode 100644
index 00000000000..c74deb6f070
--- /dev/null
+++ b/TAO/examples/POA/RootPOA/RootPOA.cpp
@@ -0,0 +1,64 @@
+// $Id$
+
+//========================================================================
+//
+// = LIBRARY
+//     TAO/tests/POA/RootPOA
+//
+//
+// = FILENAME
+//     RootPOA.cpp
+//
+// = DESCRIPTION
+//     This program gets the name of the Root POA and prints it out on
+//     the standard output.
+//
+// = AUTHOR
+//     Irfan Pyarali
+//
+//=========================================================================
+
+#include "tao/PortableServer/PortableServer.h"
+
+#include "tao/ORB.h"
+
+#include "ace/Log_Msg.h"
+
+ACE_RCSID (RootPOA,
+           RootPOA,
+           "$Id$")
+
+int
+main (int argc, char **argv)
+{
+
+  try
+    {
+      // Initilize the ORB
+      CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
+
+      // Resolve the initial references for the name RootPOA thus getting
+      // an object of type CORBA::Object.
+      CORBA::Object_var obj =
+        orb->resolve_initial_references ("RootPOA");
+
+      // apply _narrow on the object of type CORBA::Object, to make it
+      // a POA class Object.
+      PortableServer::POA_var root_poa =
+        PortableServer::POA::_narrow (obj.in ());
+
+      // Get the name of the root POA.
+      CORBA::String_var poa_name =
+        root_poa->the_name ();
+
+      ACE_DEBUG ((LM_DEBUG,
+                  "The RootPOA is : %s\n",
+                  poa_name.in ()));
+    }
+  catch (const CORBA::Exception& ex)
+    {
+      ex._tao_print_exception ("Exception raised");
+    }
+
+  return 0;
+}