TAO/tests/Two_Objects/client.cpp

   1 #include "Two_ObjectsC.h"
   2 #include "ace/Get_Opt.h"
   3
   4 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
   5
   6 int
   7 parse_args (int argc, ACE_TCHAR *argv[])
   8 {
   9   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("r:"));
  10   int c;
  11
  12   while ((c = get_opts ()) != -1)
  13     switch (c)
  14       {
  15       case 'r':
  16         ior = get_opts.opt_arg ();
  17         break;
  18
  19       case '?':
  20       default:
  21         ACE_ERROR_RETURN ((LM_ERROR,
  22                            "usage:  %s "
  23                            "-r <ior> "
  24                            "\n",
  25                            argv [0]),
  26                           -1);
  27       }
  28   // Indicates successful parsing of the command line
  29   return 0;
  30 }
  31
  32 int
  33 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  34 {
  35   // Used to declare the CORBA::Environment variable
  36
  37   try
  38     {
  39       // Initialize the ORB
  40       CORBA::ORB_var orb =
  41         CORBA::ORB_init (argc, argv);
  42
  43       // Parse the arguments
  44       if (parse_args (argc, argv) != 0)
  45         return 1;
  46
  47       // Convert the ior string to an object reference.
  48       // The object reference obtained is a reference to the factory
  49       // object.
  50       CORBA::Object_var tmp =
  51         orb->string_to_object(ior);
  52
  53       // Narrow the object reference to the appropriate type
  54       Two_Objects_Test::Object_Factory_var factory =
  55         Two_Objects_Test::Object_Factory::_narrow(tmp.in ());
  56
  57       if (CORBA::is_nil (factory.in ()))
  58         {
  59           ACE_ERROR_RETURN ((LM_DEBUG,
  60                              "Nil Two_Objects_Test::Object_Factory reference <%s>\n",
  61                              ior),
  62                             1);
  63         }
  64
  65       Two_Objects_Test::First_var first;
  66       Two_Objects_Test::Second_var second;
  67
  68       // Use the factory object to create the first and second interfaces
  69       first = factory->create_first();
  70       second = factory->create_second();
  71
  72       // Call the oneway method
  73       first->oneway_method ();
  74
  75       ACE_DEBUG ((LM_DEBUG, "Client : one way call done\n"));
  76
  77       Two_Objects_Test::Octet_Seq_var reply_seq =
  78       second->twoway_method ();
  79
  80       ACE_DEBUG ((LM_DEBUG, "Client : length of returned data is %d\n",
  81                      reply_seq->length() ));
  82
  83       second->shutdown ();
  84
  85       orb->destroy ();
  86     }
  87   catch (const CORBA::Exception& ex)
  88     {
  89       ex._tao_print_exception ("Exception caught:");
  90       return 1;
  91     }
  92
  93   return 0;
  94 }