TAO/orbsvcs/tests/Bug_3444_Regression/server.cpp

   1 #include "Test_impl.h"
   2 #include "ace/OS_NS_stdio.h"
   3 #include "ace/Get_Opt.h"
   4 #include "orbsvcs/PortableGroup/GOA.h"
   5
   6
   7 const ACE_TCHAR *uipmc_url = 0;
   8 const ACE_TCHAR *ior_output_file = 0;
   9
  10 int
  11 parse_args (int argc, ACE_TCHAR *argv[])
  12 {
  13   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT ("o:u:"));
  14   int c;
  15
  16   while ((c = get_opts ()) != -1)
  17     switch (c)
  18       {
  19       case 'u':
  20         uipmc_url = get_opts.opt_arg ();
  21         break;
  22       case 'o':
  23         ior_output_file = get_opts.opt_arg ();
  24         break;
  25       case '?':
  26       default:
  27         ACE_ERROR_RETURN ((LM_ERROR,
  28                            "usage:  %s "
  29                            "-o <iorfile>"
  30                            "-u <miop_url>"
  31                            "\n",
  32                            argv [0]),
  33                           -1);
  34       }
  35   // Indicates successful parsing of the command line
  36   return 0;
  37 }
  38
  39 int
  40 ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  41 {
  42   try
  43     {
  44       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  45
  46       if (parse_args (argc, argv) != 0)
  47         ACE_ERROR_RETURN ((LM_ERROR, "Wrong arguments\n"), -1);
  48
  49       CORBA::Object_var poa_object =
  50         orb->resolve_initial_references("RootPOA");
  51
  52       Server_impl* server_obj = 0;
  53       ACE_NEW_RETURN (server_obj,
  54                       Server_impl(orb.in()),
  55                       -1);
  56       PortableServer::ServantBase_var owner (server_obj);
  57
  58       CORBA::String_var ior;
  59       if (uipmc_url)
  60         {
  61           PortableGroup::GOA_var root_poa =
  62             PortableGroup::GOA::_narrow (poa_object.in ());
  63
  64           if (CORBA::is_nil (root_poa.in ()))
  65             ACE_ERROR_RETURN ((LM_ERROR,
  66                                " (%P|%t) Panic: nil RootPOA\n"),
  67                               1);
  68
  69           PortableServer::POAManager_var poa_manager =
  70             root_poa->the_POAManager ();
  71
  72           // create UIPMC reference
  73           CORBA::Object_var ref =
  74             orb->string_to_object (uipmc_url);
  75
  76           // create id
  77           PortableServer::ObjectId_var id =
  78             root_poa->create_id_for_reference (ref.in ());
  79
  80           // activate object
  81           root_poa->activate_object_with_id (id.in (),
  82                                              server_obj);
  83
  84           ior =
  85             orb->object_to_string (ref.in ());
  86
  87           poa_manager->activate ();
  88         }
  89       else
  90         {
  91           PortableServer::POA_var root_poa =
  92             PortableServer::POA::_narrow (poa_object.in ());
  93
  94           if (CORBA::is_nil (root_poa.in ()))
  95             ACE_ERROR_RETURN ((LM_ERROR,
  96                                " (%P|%t) Panic: nil RootPOA\n"),
  97                               1);
  98
  99           PortableServer::POAManager_var poa_manager =
 100             root_poa->the_POAManager ();
 101
 102           CORBA::Object_var ref =
 103             server_obj->_this ();
 104
 105           ior =
 106             orb->object_to_string (ref.in ());
 107
 108           poa_manager->activate ();
 109         }
 110
 111       if (ior_output_file != 0)
 112         {
 113           FILE *output_file = ACE_OS::fopen (ior_output_file, "w");
 114           ACE_OS::fprintf (output_file, "%s", ior.in ());
 115           ACE_OS::fclose (output_file);
 116         }
 117
 118       orb->run ();
 119
 120       orb->destroy ();
 121     }
 122   catch (const ::CORBA::Exception &ex)
 123     {
 124       ex._tao_print_exception ("Exception in server.cpp:\n");
 125       return -1;
 126     }
 127
 128   return 0;
 129 }