TAO/tao/Object_T.cpp

   1 #ifndef TAO_OBJECT_T_CPP
   2 #define TAO_OBJECT_T_CPP
   3
   4 #include "tao/Object_T.h"
   5 #include "tao/Object.h"
   6 #include "tao/Stub.h"
   7 #include "tao/SystemException.h"
   8 #include "ace/CORBA_macros.h"
   9
  10 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  11
  12 namespace TAO
  13 {
  14   template<typename T>
  15   T *
  16   Narrow_Utils<T>::narrow (CORBA::Object_ptr obj,
  17                            const char *repo_id)
  18   {
  19     if (CORBA::is_nil (obj))
  20       {
  21         return T::_nil ();
  22       }
  23
  24     if (!obj->_is_a (repo_id))
  25       {
  26         return T::_nil ();
  27       }
  28
  29     return TAO::Narrow_Utils<T>::unchecked_narrow (obj);
  30   }
  31
  32   template<typename T> T *
  33   Narrow_Utils<T>::unchecked_narrow (CORBA::Object_ptr obj)
  34   {
  35     if (CORBA::is_nil (obj))
  36       {
  37         return T::_nil ();
  38       }
  39
  40     if (obj->_is_local ())
  41       {
  42         return T::_duplicate (dynamic_cast<T *> (obj));
  43       }
  44
  45     T_ptr proxy = T::_nil ();
  46     try
  47       {
  48         proxy = Narrow_Utils<T>::lazy_evaluation (obj);
  49
  50         if (CORBA::is_nil (proxy))
  51           {
  52             TAO_Stub* stub = obj->_stubobj ();
  53
  54             if (stub != 0)
  55               {
  56                 stub->_incr_refcnt ();
  57
  58                 bool const collocated =
  59                   !CORBA::is_nil (stub->servant_orb_var ().in ())
  60                   && stub->optimize_collocation_objects ()
  61                   && obj->_is_collocated ();
  62
  63                 ACE_NEW_RETURN (proxy,
  64                                 T (stub,
  65                                    collocated,
  66                                    obj->_servant ()),
  67                                 T::_nil ());
  68               }
  69           }
  70       }
  71     catch (const CORBA::Exception&)
  72       {
  73         // Swallow the exception
  74         return T::_nil ();
  75       }
  76
  77     return proxy;
  78   }
  79
  80   template<typename T>
  81   T *
  82   Narrow_Utils<T>::lazy_evaluation (CORBA::Object_ptr obj)
  83   {
  84     T_ptr default_proxy = T::_nil ();
  85
  86     // Code for lazily evaluated IORs.
  87     if (!obj->is_evaluated ())
  88       {
  89         ACE_NEW_RETURN (default_proxy,
  90                         T (obj->steal_ior (),
  91                            obj->orb_core ()),
  92                         T::_nil ());
  93       }
  94
  95     return default_proxy;
  96   }
  97 }
  98
  99 TAO_END_VERSIONED_NAMESPACE_DECL
 100
 101 #endif /* TAO_OBJECT_T_CPP */