TAO/tests/RTCORBA/Persistent_IOR/client.cpp

   1 #include "ace/Get_Opt.h"
   2 #include "testC.h"
   3
   4 static int iterations = 5;
   5 static int shutdown_server = 0;
   6
   7 static const ACE_TCHAR *ior = 0;
   8
   9 static int
  10 parse_args (int argc, ACE_TCHAR **argv)
  11 {
  12   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:i:x"));
  13   int c;
  14
  15   while ((c = get_opts ()) != -1)
  16     switch (c)
  17       {
  18       case 'k':
  19         ior = get_opts.opt_arg ();
  20         break;
  21
  22       case 'i':
  23         iterations = ACE_OS::atoi (get_opts.opt_arg ());
  24         break;
  25
  26       case 'x':
  27         shutdown_server = 1;
  28         break;
  29
  30       case '?':
  31       default:
  32         ACE_ERROR_RETURN ((LM_ERROR,
  33                            "usage:  %s "
  34                            "-k ior "
  35                            "-i iterations "
  36                            "-x shutdown server "
  37                            "\n",
  38                            argv [0]),
  39                           -1);
  40       }
  41
  42   if (ior == 0)
  43     ACE_ERROR_RETURN ((LM_ERROR,
  44                        "Error: No IOR specified\n"),
  45                       -1);
  46
  47   return 0;
  48 }
  49
  50 int
  51 ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  52 {
  53   try
  54     {
  55       CORBA::ORB_var orb =
  56         CORBA::ORB_init (argc, argv);
  57
  58       int result =
  59         parse_args (argc, argv);
  60       if (result != 0)
  61         return result;
  62
  63       CORBA::Object_var object =
  64         orb->string_to_object (ior);
  65
  66       test_var test =
  67         test::_narrow (object.in ());
  68
  69       if (CORBA::is_nil (test.in ()))
  70         {
  71           ACE_ERROR_RETURN ((LM_DEBUG,
  72                              "Nil reference <%s>\n",
  73                              ior),
  74                             1);
  75         }
  76
  77       for (int i = 0; i < iterations; i++)
  78         {
  79           test->method ();
  80         }
  81
  82       if (shutdown_server)
  83         {
  84           test->shutdown ();
  85         }
  86
  87       orb->destroy ();
  88     }
  89   catch (const CORBA::Exception& ex)
  90     {
  91       ex._tao_print_exception ("Unexpected exception!");
  92       return -1;
  93     }
  94
  95   return 0;
  96 }