diff options
Diffstat (limited to 'TAO/examples/POA/FindPOA/FindPOA.cpp')
-rw-r--r-- | TAO/examples/POA/FindPOA/FindPOA.cpp | 116 |
1 files changed, 0 insertions, 116 deletions
diff --git a/TAO/examples/POA/FindPOA/FindPOA.cpp b/TAO/examples/POA/FindPOA/FindPOA.cpp deleted file mode 100644 index a1215d46459..00000000000 --- a/TAO/examples/POA/FindPOA/FindPOA.cpp +++ /dev/null @@ -1,116 +0,0 @@ -// $Id$ - -//=========================================================================== -// -// = LIBRARY -// TAO/tests/POA/FindPOA -// -// = FILENAME -// FindPOA.cpp -// -// = DESCRIPTION -// This Program tests the find_POA method of a POA. -// -// = AUTHOR -// Irfan Pyarali -// -//=========================================================================== - -#include "tao/corba.h" - -ACE_RCSID(FindPOA, FindPOA, "$Id$") - -int -main (int argc, char **argv) -{ - // CORBA::Environment env; - ACE_DECLARE_NEW_CORBA_ENV; - - // Initialize the ORB - char str[256]; // Exception message - ACE_TRY - { - ACE_OS::strcpy (str, "CORBA::ORB_init"); - - CORBA::ORB_var orb = CORBA::ORB_init (argc, argv, 0, ACE_TRY_ENV); - ACE_TRY_CHECK; - - // Get Object reference to RootPOA. - CORBA::Object_var obj = - orb->resolve_initial_references ("RootPOA"); - - ACE_OS::strcpy (str, "PortableServer::POA::_narrow"); - // Narrow Object reference to RootPOA to a POA reference. - PortableServer::POA_var root_poa = - PortableServer::POA::_narrow (obj.in(), ACE_TRY_ENV); - ACE_TRY_CHECK; - - // Get a TAO_Adapter_Activator reference - TAO_Adapter_Activator activator_impl; - - ACE_OS::strcpy (str, "TAO_Adapter_Activator::_this"); - PortableServer::AdapterActivator_var activator = - activator_impl._this (ACE_TRY_ENV); - ACE_TRY_CHECK; - - // Register the TAO_Adapter_Activator reference to be the RootPOA's - // Adapter Activator. - ACE_OS::strcpy (str,"PortableServer::POA::the_activator"); - root_poa->the_activator (activator.in (), ACE_TRY_ENV); - ACE_TRY_CHECK; - - // Try to find a childPOA of RootPOA named firstPOA - ACE_CString name = "firstPOA"; - ACE_OS::strcpy (str,"PortableServer::POA::find_POA"); - PortableServer::POA_var first_poa = - root_poa->find_POA (name.c_str (), - 1, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - name = "secondPOA"; - PortableServer::POA_var second_poa = - first_poa->find_POA (name.c_str (), - 1, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - // Get the names of all the POAs - ACE_OS::strcpy (str, "PortableServer::POA::_narrow"); - - CORBA::String_var root_poa_name = - root_poa->the_name (ACE_TRY_ENV); - ACE_TRY_CHECK; - - CORBA::String_var first_poa_name = - first_poa->the_name (ACE_TRY_ENV); - ACE_TRY_CHECK; - - CORBA::String_var second_poa_name = - second_poa->the_name (ACE_TRY_ENV); - ACE_TRY_CHECK; - - ACE_DEBUG ((LM_DEBUG, - "%s\n%s\n%s\n%s\n", - root_poa_name.in (), - first_poa_name.in (), - second_poa_name.in ())); - - // This should destroy all its children - ACE_OS::strcpy (str, "PortableServer::POA::destroy"); - root_poa->destroy (1, - 1, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, str); - return -1; - } - ACE_ENDTRY; - ACE_CHECK_RETURN (-1); - - return 0; -} |