// $Id$

#include "tao/corba.h"
#include "tao/IORTable/IORTable.h"
#include "ace/OS_NS_string.h"
#include "ace/SString.h"

#include "HelloS.h"

namespace Test
{
class Hello_impl: virtual public POA_Test::Hello
{
public:
  void say_hello() ACE_THROW_SPEC ((CORBA::SystemException)) { };

};
}

int main(int argc, char* argv[])
{
  CORBA::ORB_var orb = CORBA::ORB::_nil();

  ACE_TRY_NEW_ENV
    {
      // Initialize the ORB
      orb =
        CORBA::ORB_init (argc, argv, "" ACE_ENV_ARG_PARAMETER);
      ACE_TRY_CHECK;

      // create Hello object
      Test::Hello_impl hello_i;
      ACE_TRY_CHECK;

      Test::Hello_var hello = hello_i._this ();
      ACE_TRY_CHECK;

      // give our object a friendly name
      CORBA::Object_var iorTableObj =
          orb->resolve_initial_references ("IORTable");
      ACE_TRY_CHECK;

      IORTable::Table_var iorTable
          = IORTable::Table::_narrow (iorTableObj.in ());
      ACE_TRY_CHECK;

      CORBA::String_var ior_string = orb->object_to_string (hello.in ());
      ACE_TRY_CHECK;

      iorTable->bind("hello", ior_string.in ());
      ACE_TRY_CHECK;

      ACE_DEBUG ((LM_DEBUG, "Created binding of name 'hello' in IOR table for IOR:\n%s\n", ior_string.in ()));

      // Get the root POA
      CORBA::Object_var obj_root = orb->resolve_initial_references ("RootPOA");
      ACE_TRY_CHECK;

      PortableServer::POA_var rootPOA = PortableServer::POA::_narrow (obj_root.in ());
      ACE_TRY_CHECK;

      // Activate the POA manager
      PortableServer::POAManager_var poaManager = rootPOA->the_POAManager ();
      ACE_TRY_CHECK;

      poaManager->activate ();
      ACE_TRY_CHECK;

      // try and access the object with its friendly name
      ACE_CString full_corbaloc (ior_string.in (), 0, 1);

      CORBA::ULong first_slash = full_corbaloc.find ("/", 0);

      ACE_CString friendly_corbaloc =
        full_corbaloc.substring (0,
                                  first_slash);

      friendly_corbaloc += "/hello";

      ACE_DEBUG ((LM_DEBUG, "Trying to access object with object ref:\n%s\n", friendly_corbaloc.c_str ()));

      CORBA::Object_var obj = orb->string_to_object (friendly_corbaloc.c_str ());
      ACE_TRY_CHECK;

      Test::Hello_var hello2 = Test::Hello::_narrow (obj.in ());
      ACE_TRY_CHECK;

      hello2->say_hello ();
      ACE_TRY_CHECK;

      ACE_DEBUG ((LM_DEBUG, "Test succeeded !!!\n"));

      orb->destroy();
      ACE_TRY_CHECK;
    }
  ACE_CATCHANY
    {
      ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
                          "Error - test failed - exception caught:");
      return 1;
    }
  ACE_ENDTRY;

  return 0;
}