TAO/tests/POA/NewPOA/NewPOA.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    NewPOA.cpp
   5  *
   6  *  This program demonstrates creation of new POAs, as children of the root POA or the
   7  *  existing POA.
   8  *  There are three new POA created in this example.
   9  *  The hierarchy of POAs looks like this.
  10  *
  11  *           /-->first_poa-->first_poa/second_poa
  12  *  RootPOA--
  13  *           \-->third_poa
  14  *
  15  *  @author Irfan Pyarali
  16  */
  17 //=============================================================================
  18
  19
  20 #include "tao/PortableServer/PortableServer.h"
  21
  22 #include "tao/ORB.h"
  23
  24 #include "ace/SString.h"
  25 #include "ace/Log_Msg.h"
  26
  27 void
  28 print_poa (PortableServer::POA_ptr poa)
  29 {
  30   CORBA::String_var poa_name =
  31     poa->the_name ();
  32
  33   CORBA::OctetSeq_var poa_id =
  34     poa->id ();
  35
  36   ACE_DEBUG ((LM_DEBUG,
  37               "POA name = %C\n",
  38               poa_name.in ()));
  39
  40   ACE_DEBUG ((LM_DEBUG,
  41               "POA id = "));
  42
  43   for (CORBA::ULong i = 0;
  44        i != poa_id->length ();
  45        ++i)
  46     {
  47       ACE_DEBUG ((LM_DEBUG,
  48                   "%o",
  49                   poa_id[i]));
  50     }
  51
  52   ACE_DEBUG ((LM_DEBUG,
  53               "\n"));
  54
  55   PortableServer::POAList_var children =
  56     poa->the_children ();
  57
  58   for (CORBA::ULong index = 0;
  59        index != children->length ();
  60        ++index)
  61     {
  62       print_poa (children[index]);
  63     }
  64 }
  65
  66 int
  67 ACE_TMAIN (int argc, ACE_TCHAR *argv[])
  68 {
  69
  70   try
  71     {
  72       // The first step Initialize the ORB
  73       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  74
  75       // Obtain the RootPOA.
  76       CORBA::Object_var obj =
  77         orb->resolve_initial_references ("RootPOA");
  78
  79       // _narrow() the Object to get the POA object, i.e., the root_poa.
  80       PortableServer::POA_var root_poa =
  81         PortableServer::POA::_narrow (obj.in ());
  82
  83       // Policies for the new POAs
  84       CORBA::PolicyList policies (2);
  85       policies.length (2);
  86
  87       // Threading policy
  88       policies[0] =
  89         root_poa->create_thread_policy (PortableServer::ORB_CTRL_MODEL);
  90
  91       // Lifespan policy
  92       policies[1] =
  93         root_poa->create_lifespan_policy (PortableServer::TRANSIENT);
  94
  95       // Creation of the firstPOA
  96       ACE_CString name = "firstPOA";
  97       PortableServer::POA_var first_poa =
  98         root_poa->create_POA (name.c_str (),
  99                               PortableServer::POAManager::_nil (),
 100                               policies);
 101
 102       // Creation of the new POA, i.e. firstPOA/secondPOA
 103       name = "secondPOA";
 104       PortableServer::POA_var second_poa =
 105         first_poa->create_POA (name.c_str (),
 106                                PortableServer::POAManager::_nil (),
 107                                policies);
 108
 109       // Creating thirdPOA.
 110       name = "thirdPOA";
 111
 112       PortableServer::POA_var third_poa =
 113         root_poa->create_POA (name.c_str (),
 114                               PortableServer::POAManager::_nil (),
 115                               policies);
 116
 117       // Creation of the new POAs over, so destroy the Policy_ptr's.
 118       for (CORBA::ULong i = 0;
 119            i < policies.length ();
 120            ++i)
 121         {
 122           CORBA::Policy_ptr policy = policies[i];
 123           policy->destroy ();
 124         }
 125
 126       // Get the names of all the POAs and print them out.
 127
 128       CORBA::String_var root_poa_name =
 129         root_poa->the_name ();
 130
 131       CORBA::String_var first_poa_name =
 132         first_poa->the_name ();
 133
 134       CORBA::String_var second_poa_name =
 135         second_poa->the_name ();
 136
 137       CORBA::String_var third_poa_name =
 138         third_poa->the_name ();
 139
 140       ACE_DEBUG ((LM_DEBUG,
 141                   "%C\n%C\n%C\n%C\n",
 142                   root_poa_name.in (),
 143                   first_poa_name.in (),
 144                   second_poa_name.in (),
 145                   third_poa_name.in ()));
 146
 147       print_poa (root_poa.in ());
 148
 149       orb->destroy ();
 150     }
 151   catch (const CORBA::Exception& ex)
 152     {
 153       ex._tao_print_exception ("Exception caught in main ");
 154       return -1;
 155     }
 156
 157   return 0;
 158 }