#include "tao/PortableServer/PortableServer.h"
#include "tao/ImR_Client/ImR_Client.h"

int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
{
  // Put orb outside try scope since there will be an
  // exception and it will not be possible to call
  // orb->destroy() at the end, hence memory leak.
  CORBA::ORB_var orb = CORBA::ORB::_nil();

  try
  {
    // Initialize the ORB.
    //
    orb = CORBA::ORB_init(argc, argv);
    CORBA::Object_var poa_obj = orb->resolve_initial_references("RootPOA");
    PortableServer::POA_var root_poa = PortableServer::POA::_narrow(poa_obj.in ());

    // Create a PERSISTENT POA
    //
    // Create the policy list
    CORBA::PolicyList policies(2);
    policies.length(2);
    policies[0] = root_poa->create_lifespan_policy(PortableServer::PERSISTENT);
    policies[1] = root_poa->create_id_assignment_policy(PortableServer::USER_ID);

    // create the poa.
    // for ORBUseIMR=1 -ORBDefaultInitRef corbaloc:iiop:<HOST>:<PORT>
    // this will cause an access violation if no IMR server is found.
    // The access violation WILL NOT HAPPEN if a POAManager is created and
    // given as a parameter to create_POA (instead of a nil POAManager)
    PortableServer::POA_var persistent_poa =
      root_poa->create_POA("myPoa", PortableServer::POAManager::_nil(), policies);

    return 0;
  }
  catch (const CORBA::Exception&)
  {
    // ... normally print an error here
  }

  orb->destroy ();
  return 0;
}