TAO/tao/PortableServer/POA_Current.cpp

   1 // -*- C++ -*-
   2 // -- PortableServer Include --
   3 #include "tao/PortableServer/POA_Current.h"
   4 #include "tao/PortableServer/POA_Current_Impl.h"
   5
   6 // -- TAO Include --
   7 #include "tao/TSS_Resources.h"
   8
   9 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  10
  11 namespace TAO
  12 {
  13   namespace Portable_Server
  14   {
  15     PortableServer::POA_ptr
  16     POA_Current::get_POA ()
  17     {
  18       POA_Current_Impl *impl = this->implementation ();
  19
  20       if (impl == 0)
  21         throw PortableServer::Current::NoContext ();
  22       return impl->get_POA ();
  23     }
  24
  25     PortableServer::ObjectId *
  26     POA_Current::get_object_id ()
  27     {
  28       POA_Current_Impl *impl = this->implementation ();
  29
  30       if (impl == 0)
  31         throw PortableServer::Current::NoContext ();
  32       return impl->get_object_id ();
  33     }
  34
  35     PortableServer::Servant
  36     POA_Current::get_servant ()
  37     {
  38       POA_Current_Impl *impl = this->implementation ();
  39
  40       if (impl == 0)
  41         throw PortableServer::Current::NoContext ();
  42       return impl->get_servant ();
  43     }
  44
  45     CORBA::Object_ptr
  46     POA_Current::get_reference ()
  47     {
  48       POA_Current_Impl *impl = this->implementation ();
  49
  50       if (impl == 0)
  51         throw PortableServer::Current::NoContext ();
  52       return impl->get_reference ();
  53     }
  54
  55     POA_Current_Impl *
  56     POA_Current::implementation ()
  57     {
  58       return static_cast <POA_Current_Impl *>
  59                         (TAO_TSS_Resources::instance ()->poa_current_impl_);
  60     }
  61
  62     POA_Current_Impl *
  63     POA_Current::implementation (POA_Current_Impl *new_current)
  64     {
  65       TAO_TSS_Resources *tss = TAO_TSS_Resources::instance ();
  66
  67       POA_Current_Impl *old =
  68         static_cast <POA_Current_Impl *>
  69                      (tss->poa_current_impl_);
  70       tss->poa_current_impl_ = new_current;
  71       return old;
  72     }
  73   }
  74 }
  75
  76 TAO_END_VERSIONED_NAMESPACE_DECL