TAO/tao/TransportCurrent/Current_ORBInitializer_Base.cpp

   1
   2 #include "tao/PI/ORBInitInfo.h"
   3 #include "tao/TransportCurrent/Current_ORBInitializer_Base.h"
   4
   5 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
   6
   7 namespace TAO
   8 {
   9   namespace Transport
  10   {
  11     Current_ORBInitializer_Base::Current_ORBInitializer_Base(const ACE_TCHAR* id)
  12       : id_ (id)
  13     {
  14       // do nothing
  15     }
  16
  17     Current_ORBInitializer_Base::~Current_ORBInitializer_Base()
  18     {
  19       // do nothing
  20     }
  21
  22
  23     void
  24     Current_ORBInitializer_Base::pre_init (
  25       PortableInterceptor::ORBInitInfo_ptr info)
  26     {
  27       // Narrow to a TAO_ORBInitInfo object to get access to the
  28       // allocate_tss_slot_id() TAO extension.
  29       TAO_ORBInitInfo_var tao_info =
  30         TAO_ORBInitInfo::_narrow (info);
  31
  32       if (CORBA::is_nil (tao_info.in ()))
  33         {
  34           if (TAO_debug_level > 0)
  35             TAOLIB_ERROR ((LM_ERROR,
  36                         "TAO (%P|%t) TAO::Transport::ORBInitializer::pre_init - "
  37                         "Panic: unable to narrow the ORBInitInfo_ptr\n"));
  38
  39           throw ::CORBA::INTERNAL ();
  40         }
  41
  42       // Reserve a TSS slot in the ORB core internal TSS resources for the
  43       // thread-specific portion of the Current object.
  44       size_t tss_slot = tao_info->allocate_tss_slot_id (0);
  45
  46       // Create the Current
  47       Current_var current (this->make_current_instance (tao_info->orb_core (),
  48                                                         tss_slot));
  49
  50       info->register_initial_reference (ACE_TEXT_ALWAYS_CHAR (this->id_.fast_rep ()),
  51                                         current.in ());
  52     }
  53
  54     void
  55     Current_ORBInitializer_Base::post_init (
  56       PortableInterceptor::ORBInitInfo_ptr)
  57     {
  58       // do nothing
  59     }
  60
  61   }
  62
  63 }
  64
  65 TAO_END_VERSIONED_NAMESPACE_DECL
  66
  67