TAO/tests/Bug_2289_Regression/client.cpp

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