diff options
Diffstat (limited to 'TAO/tests/Servant_To_Reference_Test/server.cpp')
| -rw-r--r-- | TAO/tests/Servant_To_Reference_Test/server.cpp | 208 |
1 files changed, 208 insertions, 0 deletions
diff --git a/TAO/tests/Servant_To_Reference_Test/server.cpp b/TAO/tests/Servant_To_Reference_Test/server.cpp new file mode 100644 index 00000000000..65139d0cd63 --- /dev/null +++ b/TAO/tests/Servant_To_Reference_Test/server.cpp @@ -0,0 +1,208 @@ +// $Id$ + +#include "Test_i.h" +#include "ace/Get_Opt.h" +#include "ace/OS_NS_stdio.h" +#include "ace/Task.h" + +ACE_RCSID (Hello, + server, + "$Id$") + +const char *ior_output_file = "test.ior"; + +class MT_Task : public ACE_Task_Base +{ +public: + MT_Task (PortableServer::POA_ptr p, + PortableServer::Servant one, + PortableServer::Servant two, + PortableServer::Servant three) + : p_ (PortableServer::POA::_duplicate (p)) + , one_ (one) + , two_ (two) + , three_ (three) + { + } + + int svc (void); + +private: + PortableServer::POA_var p_; + PortableServer::Servant one_; + PortableServer::Servant two_; + PortableServer::Servant three_; +}; + +int +MT_Task::svc (void) +{ + ACE_DECLARE_NEW_CORBA_ENV; + + ACE_TRY + { + for (CORBA::Long i = 0; + i != 2000; + ++i) + { + CORBA::Object_var one_ref = + this->p_->servant_to_reference (this->one_ + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + CORBA::Object_var two_ref = + this->p_->servant_to_reference (this->two_ + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + CORBA::Object_var three_ref = + this->p_->servant_to_reference (this->three_ + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + } + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, + "(%P|%t) Caugh exception \n"); + } + ACE_ENDTRY; + ACE_CHECK_RETURN (-1); + + return 0; +} + +int +parse_args (int argc, char *argv[]) +{ + ACE_Get_Opt get_opts (argc, argv, "o:"); + int c; + + while ((c = get_opts ()) != -1) + switch (c) + { + case 'o': + ior_output_file = get_opts.opt_arg (); + break; + + case '?': + default: + ACE_ERROR_RETURN ((LM_ERROR, + "usage: %s " + "-o <iorfile>" + "\n", + argv [0]), + -1); + } + // Indicates sucessful parsing of the command line + return 0; +} + +int +main (int argc, char *argv[]) +{ + ACE_TRY_NEW_ENV + { + CORBA::ORB_var orb = + CORBA::ORB_init (argc, argv, "" ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + CORBA::Object_var poa_object = + orb->resolve_initial_references("RootPOA" ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + PortableServer::POA_var root_poa = + PortableServer::POA::_narrow (poa_object.in () ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + if (CORBA::is_nil (root_poa.in ())) + ACE_ERROR_RETURN ((LM_ERROR, + " (%P|%t) Panic: nil RootPOA\n"), + 1); + + PortableServer::POAManager_var poa_manager = + root_poa->the_POAManager (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_TRY_CHECK; + + if (parse_args (argc, argv) != 0) + return 1; + + One_Impl *one_impl; + ACE_NEW_RETURN (one_impl, + One_Impl (orb.in ()), + 1); + Two_Impl *two_impl; + ACE_NEW_RETURN (two_impl, + Two_Impl (orb.in ()), + 1); + + Three_Impl *three_impl; + ACE_NEW_RETURN (three_impl, + Three_Impl (orb.in ()), + 1); + + + PortableServer::ServantBase_var owner_transfer1 (one_impl); + PortableServer::ServantBase_var owner_transfer2 (two_impl); + PortableServer::ServantBase_var owner_transfer3 (three_impl); + + CORBA::PolicyList policies; // Empty policy list. + + PortableServer::POA_var first_poa = + root_poa->create_POA ("first POA", + poa_manager.in (), + policies + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + + PortableServer::ObjectId_var oid1 = + first_poa->activate_object (one_impl + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + PortableServer::ObjectId_var oid2 = + first_poa->activate_object (two_impl + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + PortableServer::ObjectId_var oid3 = + first_poa->activate_object (three_impl + ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + + MT_Task task (first_poa.in (), + one_impl, + two_impl, + three_impl); + + if (task.activate (THR_NEW_LWP | THR_JOINABLE, + 32) != 0) + ACE_ERROR_RETURN ((LM_ERROR, + "Cannot activate threads\n"), + 1); + + task.thr_mgr ()->wait (); + + poa_manager->activate (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_TRY_CHECK; + + ACE_DEBUG ((LM_DEBUG, "(%P|%t) server - test finished\n")); + + root_poa->destroy (1, 1 ACE_ENV_ARG_PARAMETER); + ACE_TRY_CHECK; + + orb->destroy (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_TRY_CHECK; + } + ACE_CATCHANY + { + ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, + "Exception caught:"); + return 1; + } + ACE_ENDTRY; + + return 0; +} |