TAO/tests/Bug_3506_Regression/server.cpp

   1 #include "IF_EXE_M_R_StructsS.h"
   2 #include "ace/Get_Opt.h"
   3 #include "ace/OS_NS_stdio.h"
   4
   5 CORBA::ORB_var m_ORB_p;
   6
   7 const ACE_TCHAR *ior_output_file = ACE_TEXT("test.ior");
   8
   9 int
  10 parse_args (int argc, ACE_TCHAR *argv[])
  11 {
  12   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("o:"));
  13   int c;
  14
  15   while ((c = get_opts ()) != -1)
  16     switch (c)
  17       {
  18         case 'o':
  19           ior_output_file = get_opts.opt_arg ();
  20           break;
  21
  22         case '?':
  23         default:
  24           ACE_ERROR_RETURN((LM_ERROR,
  25                             "usage:  %s "
  26                             "-o <iorfile>"
  27                             "\n",
  28                             argv [0]),
  29                             -1);
  30       }
  31   // Indicates successful parsing of the command line
  32   return 0;
  33 }
  34
  35
  36 class IF_Test_impl : public POA_IF_EXE_M_R::IF_ExeCtrlData
  37 {
  38 public:
  39   virtual void
  40   shutdown ()
  41   {
  42     m_ORB_p->shutdown (0);
  43   }
  44
  45   virtual void
  46   foo (const ::IF_EXE_M_R::Test_Struct &ts)
  47   {
  48     const IF_EXE_M_R::CORBA_FOOIInPlan *anUnion_p = new IF_EXE_M_R::CORBA_FOOIInPlan;
  49     if (ts.whatEver >>= anUnion_p)
  50       {
  51         ACE_DEBUG((LM_DEBUG, "Any successfully marshalled\nAny is %@\nID: %C\nNAME: %C\nKIND: %d\n", &ts.whatEver,
  52                                ts.whatEver._tao_get_typecode()->id(),
  53                                ts.whatEver._tao_get_typecode()->name(),
  54                                ts.whatEver._tao_get_typecode()->kind()));
  55
  56       }
  57     else
  58       {
  59         ACE_ERROR((LM_ERROR, "ERROR Any not successfully marshalled\nAny is %@\n", &ts.whatEver));
  60         if (ts.whatEver._tao_get_typecode ()->kind () != CORBA::tk_null)
  61           {
  62             ACE_ERROR((LM_ERROR, "ID: %C\nNAME: %C\nKIND: %d\n",
  63                                        ts.whatEver._tao_get_typecode()->id(),
  64                                        ts.whatEver._tao_get_typecode()->name(),
  65                                        ts.whatEver._tao_get_typecode()->kind()));
  66           }
  67         else
  68           {
  69             ACE_ERROR((LM_ERROR, "Typecode is NULL\nKIND: %d\n",
  70                                        ts.whatEver._tao_get_typecode()->kind()));
  71           }
  72       }
  73   }
  74 };
  75
  76 class Main_C
  77 {
  78 public:
  79   int Create (int argc, ACE_TCHAR *argv[]);
  80 };
  81
  82 int
  83 Main_C::Create (int argc, ACE_TCHAR *argv[])
  84 {
  85   try
  86     {
  87       // ENTER your code here ...
  88       CORBA::Object_var obj = m_ORB_p->resolve_initial_references ("RootPOA");
  89
  90       if (parse_args (argc, argv) != 0)
  91         return 1;
  92
  93       PortableServer::POA_var poa = PortableServer::POA::_narrow (obj.in ());
  94
  95       PortableServer::POAManager_var mgr = poa->the_POAManager ();
  96       mgr->activate ();
  97
  98       IF_Test_impl *servant = new IF_Test_impl;
  99
 100       PortableServer::ServantBase_var owner_transfer(servant);
 101
 102       PortableServer::ObjectId_var id =
 103         poa->activate_object (servant);
 104
 105       CORBA::Object_var object = poa->id_to_reference (id.in ());
 106
 107       IF_EXE_M_R::IF_ExeCtrlData_var hello = IF_EXE_M_R::IF_ExeCtrlData::_narrow (object.in ());
 108
 109       CORBA::String_var ior = m_ORB_p->object_to_string (hello.in ());
 110
 111       // Output the IOR to the <ior_output_file>
 112       FILE *output_file = ACE_OS::fopen (ior_output_file, "w");
 113       if (output_file == 0)
 114         ACE_ERROR_RETURN((LM_ERROR,
 115                           "Cannot open output file for writing IOR: %s\n",
 116                           ior_output_file),
 117                           1);
 118       ACE_OS::fprintf (output_file, "%s", ior.in ());
 119       ACE_OS::fclose (output_file);
 120
 121       m_ORB_p->run ();
 122     }
 123   catch (const CORBA::Exception &ex)
 124     {
 125       ex._tao_print_exception ("Exception caught:");
 126       return 1;
 127     }
 128   return 0;
 129 }
 130
 131 int
 132 ACE_TMAIN (int argc, ACE_TCHAR *argv[])
 133 {
 134   m_ORB_p = CORBA::ORB_init (argc, argv);
 135
 136   Main_C main_cs;
 137   return main_cs.Create (argc, argv);
 138 }