TAO/tests/Bug_1568_Regression/client.cpp

   1 /**
   2  * @file client.cpp
   3  *
   4  * @author Carlos O'Ryan <coryan@atdesk.com>
   5  */
   6 #include "TestC.h"
   7
   8 #include "ace/Get_Opt.h"
   9
  10 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
  11
  12 int
  13 parse_args (int argc, ACE_TCHAR *argv[])
  14 {
  15   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
  16   int c;
  17
  18   while ((c = get_opts ()) != -1)
  19     switch (c)
  20       {
  21       case 'k':
  22         ior = get_opts.opt_arg ();
  23         break;
  24
  25       case '?':
  26       default:
  27         ACE_ERROR_RETURN ((LM_ERROR,
  28                            "usage:  %s "
  29                            "-k <ior> "
  30                            "\n",
  31                            argv [0]),
  32                           -1);
  33       }
  34   // Indicates successful parsing of the command line
  35   return 0;
  36 }
  37
  38 int
  39 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  40 {
  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 object =
  50         orb->string_to_object (ior);
  51
  52       Baz::C_var cobject =
  53         Baz::C::_narrow (object.in ());
  54
  55       if (CORBA::is_nil (cobject.in ()))
  56         {
  57           ACE_ERROR_RETURN ((LM_ERROR,
  58                                 "Cannot narrow Baz::C object <%s>\n",
  59                                 ior),
  60                             1);
  61         }
  62
  63       cobject->op1 ();
  64       cobject->op2 ();
  65       cobject->op3 ();
  66       cobject->op4 ();
  67       cobject->shutdown ();
  68     }
  69   catch (const CORBA::Exception& ex)
  70     {
  71       ex._tao_print_exception ("");
  72       return 1;
  73     }
  74
  75   return 0;
  76 }