TAO/orbsvcs/tests/ImplRepo/Bug_2604_Regression/MessengerClient.cpp

   1 #include "MessengerC.h"
   2
   3 #include "ace/Log_Msg.h"
   4 #include "ace/SString.h"
   5 #include "ace/Get_Opt.h"
   6
   7 const ACE_TCHAR *ior = ACE_TEXT("file://messenger.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         ior = get_opts.opt_arg ();
  20         break;
  21
  22       case '?':
  23       default:
  24         ACE_ERROR_RETURN ((LM_ERROR,
  25                            "usage:  %s "
  26                            "-k <ior> "
  27                            "\n",
  28                            argv [0]),
  29                           -1);
  30       }
  31   // Indicates successful parsing of the command line
  32   return 0;
  33 }
  34
  35 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  36 {
  37   try
  38     {
  39       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  40
  41       if (parse_args (argc, argv) != 0)
  42         return 1;
  43
  44       CORBA::Object_var obj = orb->string_to_object (ior);
  45       Messenger_var messenger = Messenger::_narrow (obj.in ());
  46       if (CORBA::is_nil (messenger.in ()))
  47         {
  48           ACE_ERROR_RETURN ((LM_ERROR,
  49                             ACE_TEXT ("Unable to get a Messenger reference.\n")),
  50                             -1);
  51         }
  52
  53       CORBA::String_var message = CORBA::string_dup("Hello!");
  54       for (int i(0); i < 6; ++i)
  55         {
  56           try
  57             {
  58               messenger->send_message("TAO User", "TAO Test",
  59                                       message.inout ());
  60               ACE_DEBUG ((LM_DEBUG, ACE_TEXT("Message was sent\n")
  61                                     ACE_TEXT("Client got reply: %C\n"),
  62                           message.in()));
  63             }
  64           catch (const CORBA::Exception &ex)
  65             {
  66               ACE_CString str = ex._info ();
  67               ACE_ERROR_RETURN ((LM_ERROR,
  68                                 ACE_TEXT ("Client send_message () caught: %C\n"),
  69                                  str.c_str ()), -1);
  70             }
  71         }
  72
  73       orb->destroy ();
  74
  75       return 0;
  76     }
  77   catch (const CORBA::Exception &ex)
  78     {
  79       ACE_CString str = ex._info ();
  80       ACE_ERROR_RETURN ((LM_ERROR, ACE_TEXT ("Client main() caught: %C\n"),
  81                          str.c_str ()), -1);
  82     }
  83   return -1;
  84 }