diff options
Diffstat (limited to 'TAO/examples/POA/Forwarding/client.cpp')
-rw-r--r-- | TAO/examples/POA/Forwarding/client.cpp | 200 |
1 files changed, 0 insertions, 200 deletions
diff --git a/TAO/examples/POA/Forwarding/client.cpp b/TAO/examples/POA/Forwarding/client.cpp deleted file mode 100644 index 56c71aff99c..00000000000 --- a/TAO/examples/POA/Forwarding/client.cpp +++ /dev/null @@ -1,200 +0,0 @@ -// $Id$ - -//========================================================================== -// -// -// = FILENAME -// client.cpp -// -// = DESCRIPTION -// -// This is a simple foo client implementation. Also looks out for -// forwarding exceptions -// -// = AUTHOR -// Irfan Pyarali -// -//========================================================================== - -#include "tao/corba.h" -#include "ace/streams.h" -#include "ace/Get_Opt.h" -#include "ace/Read_Buffer.h" -#include "FooC.h" - -ACE_RCSID(Forwarding, client, "$Id$") - -static char *server_IOR_ = 0; - -static int iterations = 6; - -static int -read_ior (char *filename) -{ - // Open the file for reading. - ACE_HANDLE f_handle_ = ACE_OS::open (filename,0); - - if (f_handle_ == ACE_INVALID_HANDLE) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to open %s for reading: %p\n", - filename), - -1); - ACE_Read_Buffer ior_buffer (f_handle_); - server_IOR_ = ior_buffer.read (); - - if (server_IOR_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to allocate memory to read ior: %p\n"), - -1); - return 0; -} - -static int -parse_args (int argc, char **argv) -{ - ACE_Get_Opt get_opts (argc, argv, "f:i:k:O:"); - int c; - int result; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'f': // read the IOR from the file. - result = read_ior (get_opts.optarg); - if (result < 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to read ior from %s : %p\n", - get_opts.optarg), - -1); - break; - case 'k': - server_IOR_ = get_opts.optarg; - break; - case 'i': - iterations = ::atoi (get_opts.optarg); - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - "-f server_IOR_file" - "\n", - argv [0]), - -1); - } - - if (server_IOR_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Please specify the IOR for the servant\n"), -1); - - // Indicates successful parsing of command line. - return 0; -} - -int do_calls (Foo_ptr foo_ptr) -{ - CORBA::Environment env; - - CORBA::Long result = 0; - - for (int i = 1; i <= iterations; i++) - { - // About half way through - if (i % 3 == 0) - { - foo_ptr->forward (env); - - // If exception - if (env.exception () != 0) - { - env.print_exception ("Foo::forward"); - return -1; - } - } - else - { - // Invoke the doit() method of the foo reference. - result = foo_ptr->doit (env); - - // If exception - if (env.exception () != 0) - { - env.print_exception ("calling doit"); - } - else - // Print the result of doit () method of the foo - // reference. - ACE_DEBUG ((LM_DEBUG, - "doit() returned %d \n", - result)); - } - } - - // In case you want to shutdown your server - // foo_ptr->shutdown (env); - // If exception - // if (env.exception () != 0) - // { - // env.print_exception ("calling shutdown"); - // } - return 0; -} - - -int -main (int argc, char **argv) -{ - // @@ Michael, this function is too long. Can you please break it - // up into multiple smaller functions. - CORBA::Environment env; - - // Initialize the ORB - CORBA::ORB_var orb = CORBA::ORB_init (argc, argv, 0, env); - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB_init"); - return -1; - } - - // Initialize options based on command-line arguments. - int parse_args_result = parse_args (argc, argv); - if (parse_args_result != 0) - return parse_args_result; - - // Get an object reference from the argument string. - CORBA::Object_var object = orb->string_to_object (server_IOR_, env); - - if (env.exception () != 0) - { - env.print_exception ("CORBA::ORB::string_to_object"); - return -1; - } - - // Try to narrow the object reference to a Foo reference. - Foo_var foo_var = Foo::_narrow (object.in (), env); - - if (env.exception () != 0) - { - env.print_exception ("Foo::_narrow"); - return -1; - } - - CORBA::String_var original_location = - orb->object_to_string (foo_var.in (), env); - - if (env.exception () == 0) - ACE_DEBUG ((LM_DEBUG, - "original location = %s \n", - original_location.in ())); - else - { - env.print_exception ("ORB::object_to_string"); - return -1; - } - - if (do_calls (foo_var.in()) == -1) - return -1; - - return 0; -} - |