TAO/tests/Client_Leaks/child.cpp

   1 #include "Process.h"
   2 #include "ace/Get_Opt.h"
   3
   4 int
   5 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
   6 {
   7   try
   8     {
   9       CORBA::ORB_var orb =
  10         CORBA::ORB_init (argc, argv);
  11
  12       if (argc < 2)
  13         {
  14           // Paranoia, we should have an auto_ptr-like gadget for
  15           // this.
  16           orb->destroy ();
  17
  18           ACE_ERROR_RETURN ((LM_ERROR,
  19                              "Usage: %s <ior>\n",
  20                              argv[0]), 1);
  21         }
  22
  23       CORBA::Object_var object =
  24         orb->string_to_object (argv[1]);
  25       Test::Startup_Callback_var startup_callback =
  26         Test::Startup_Callback::_narrow (object.in ());
  27       if (CORBA::is_nil (startup_callback.in ()))
  28         {
  29           ACE_ERROR_RETURN ((LM_ERROR,
  30                              "ERROR: nil startup callback\n"),
  31                             1);
  32         }
  33
  34       CORBA::Object_var poa_object =
  35         orb->resolve_initial_references("RootPOA");
  36
  37       PortableServer::POA_var root_poa =
  38         PortableServer::POA::_narrow (poa_object.in ());
  39
  40       if (CORBA::is_nil (root_poa.in ()))
  41         ACE_ERROR_RETURN ((LM_ERROR,
  42                            " (%P|%t) Panic: nil RootPOA\n"),
  43                           1);
  44
  45       PortableServer::POAManager_var poa_manager =
  46         root_poa->the_POAManager ();
  47
  48       Process *process_impl = 0;
  49       ACE_NEW_RETURN (process_impl,
  50                       Process (orb.in ()),
  51                       1);
  52       PortableServer::ServantBase_var owner_transfer(process_impl);
  53
  54       PortableServer::ObjectId_var id =
  55         root_poa->activate_object (process_impl);
  56
  57       CORBA::Object_var object_act = root_poa->id_to_reference (id.in ());
  58
  59       Test::Process_var process =
  60         Test::Process::_narrow (object_act.in ());
  61
  62       poa_manager->activate ();
  63
  64       startup_callback->started (process.in ());
  65
  66       ACE_Time_Value tv (50, 0);
  67       orb->run (tv);
  68
  69       root_poa->destroy (true, true);
  70
  71       orb->destroy ();
  72     }
  73   catch (const CORBA::Exception&)
  74     {
  75       // Do not print error messages, they only make the test output
  76       // confusing.
  77       return 1;
  78     }
  79
  80   return 0;
  81 }