1 files changed, 145 insertions, 0 deletions
diff --git a/TAO/tests/NestedUpcall/Triangle_Test/server_A.cpp b/TAO/tests/NestedUpcall/Triangle_Test/server_A.cpp
new file mode 100644
index 00000000000..ae720385ef4
--- /dev/null
+++ b/TAO/tests/NestedUpcall/Triangle_Test/server_A.cpp
@@ -0,0 +1,145 @@
+// $Id$
+
+// ============================================================================
+//
+// = LIBRARY
+//    TAO/tests/NestedUpCalls/Triangle_Test
+//
+// = FILENAME
+//    server_A.cpp
+//
+// = DESCRIPTION
+//    This class implements a simple server for the
+//    Nested Upcalls - Triangle test.
+//
+// = AUTHORS
+//    Michael Kircher
+//
+// ============================================================================
+
+#include "server_A.h"
+#include "tao/debug.h"
+#include "ace/OS_NS_stdio.h"
+
+ACE_RCSID(Triangle_Test, server_A, "$Id$")
+
+Object_A_Server::Object_A_Server (void)
+  : ior_output_file_ (0)
+{
+}
+
+int
+Object_A_Server::parse_args (void)
+{
+  ACE_Get_Opt get_opts (argc_, argv_, "do:");
+  int c;
+
+  while ((c = get_opts ()) != -1)
+    switch (c)
+      {
+      case 'd':  // debug flag.
+        TAO_debug_level++;
+        break;
+      case 'o': // output the IOR to a file.
+        this->ior_output_file_ = ACE_OS::fopen (get_opts.opt_arg (), "w");
+        if (this->ior_output_file_ == 0)
+          ACE_ERROR_RETURN ((LM_ERROR,
+                             "Unable to open %s for writing: %p\n",
+                             get_opts.opt_arg ()), -1);
+        break;
+      case '?':
+      default:
+        ACE_ERROR_RETURN ((LM_ERROR,
+                           "usage:  %s"
+                           " [-d]"
+                           " [-o] <ior_output_file>"
+                           "\n",
+                           argv_ [0]),
+                          1);
+      }
+
+  // Indicates successful parsing of command line.
+  return 0;
+}
+
+int
+Object_A_Server::init (int argc,
+                       char** argv)
+{
+  // Call the init of TAO_ORB_Manager to create a child POA
+  // under the root POA.
+  this->orb_manager_.init_child_poa (argc,
+                                     argv,
+                                     "child_poa");
+
+  this->argc_ = argc;
+  this->argv_ = argv;
+
+  this->parse_args ();
+  // ~~ check for the return value here
+
+  CORBA::String_var str  =
+    this->orb_manager_.activate_under_child_poa ("object_A",
+                                                 &this->object_A_i_);
+
+  if (this->ior_output_file_)
+    {
+      ACE_OS::fprintf (this->ior_output_file_,
+                       "%s",
+                       str.in ());
+      ACE_OS::fclose (this->ior_output_file_);
+    }
+
+
+  return 0;
+}
+
+
+int
+Object_A_Server::run (void)
+{
+  int r = this->orb_manager_.run ();
+
+  if (r == -1)
+    ACE_ERROR_RETURN ((LM_ERROR,
+                       "NestedUpCalls_Server::run"),
+                      -1);
+  return 0;}
+
+
+Object_A_Server::~Object_A_Server (void)
+{
+}
+
+int
+main (int argc, char *argv[])
+{
+  Object_A_Server object_A_Server;
+
+  ACE_DEBUG ((LM_DEBUG,
+              "\n \t NestedUpCalls.Triangle_Test: Object A Server \n \n"));
+
+  try
+    {
+      int retval =
+        object_A_Server.init (argc,argv);
+
+      if (retval == -1)
+        return 1;
+      else
+        {
+          object_A_Server.run ();
+        }
+    }
+  catch (const CORBA::SystemException& sysex)
+    {
+      sysex._tao_print_exception ("System Exception");
+      return -1;
+    }
+  catch (const CORBA::UserException& userex)
+    {
+      userex._tao_print_exception ("User Exception");
+      return -1;
+    }
+  return 0;
+}