TAO/tests/Strategies/client.cpp

   1 #include "ace/Get_Opt.h"
   2 #include "ace/Task.h"
   3 #include "simple_testC.h"
   4
   5 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
   6 int server_shutdown = 0;
   7
   8 int
   9 parse_args (int argc, ACE_TCHAR *argv[])
  10 {
  11   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:x"));
  12   int c;
  13
  14   while ((c = get_opts ()) != -1)
  15     switch (c)
  16       {
  17       case 'k':
  18         ior = get_opts.opt_arg ();
  19         break;
  20       case 'x':
  21         server_shutdown = 1;
  22         break;
  23
  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 class Client
  38 {
  39   // = TITLE
  40   //     Defines a class that is used to test and understand the
  41   //     different ways of loading the default and advanced TAO
  42   //     strategies.
  43   //
  44   // = DESCRIPTION
  45   //     A simple client which receives the CORBA boolean variabel
  46   //     from the server to indicate that everything went on good.
  47   //
  48 public:
  49   Client ();
  50   // ctor
  51 };
  52
  53 // ****************************************************************
  54
  55 Client::Client ()
  56 {
  57 }
  58
  59 int
  60 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  61 {
  62   try
  63     {
  64       CORBA::ORB_var orb =
  65         CORBA::ORB_init (argc, argv);
  66
  67       if (parse_args (argc, argv) != 0)
  68         return 1;
  69
  70       CORBA::Object_var object =
  71         orb->string_to_object (ior);
  72
  73       Simple_Server_var server =
  74         Simple_Server::_narrow (object.in ());
  75
  76       if (CORBA::is_nil (server.in ()))
  77         {
  78           ACE_ERROR_RETURN ((LM_ERROR,
  79                              "Object reference <%s> is nil.\n",
  80                              ior),
  81                             1);
  82         }
  83
  84       // Invoke a request on the server
  85       CORBA::Boolean ret_value =
  86         server->print_status ();
  87
  88       if (ret_value == 0)
  89         {
  90           ACE_DEBUG ((LM_DEBUG,
  91                       "The server has been contacted !!\n",
  92                       0));
  93         }
  94
  95       if (server_shutdown)
  96         {
  97           server->shutdown ();
  98         }
  99
 100       orb->destroy ();
 101     }
 102   catch (const CORBA::Exception& ex)
 103     {
 104       ex._tao_print_exception ("Caught exception:");
 105       return 1;
 106     }
 107
 108   return 0;
 109 }