TAO/orbsvcs/performance-tests/RTEvent/lib/RIR_Narrow.cpp

   1 /**
   2  * @file RIR_Narrow.cpp
   3  *
   4  * @author Jody Hagins <jody@atdesk.com>
   5  * @author Carlos O'Ryan <coryan@uci.edu>
   6  */
   7 #ifndef TAO_PERF_RTEC_RIR_NARROW_CPP
   8 #define TAO_PERF_RTEC_RIR_NARROW_CPP
   9
  10 #include "RIR_Narrow.h"
  11
  12 #include "tao/Environment.h"
  13
  14 #include "ace/Log_Msg.h"
  15
  16 template<class Interface> typename RIR_Narrow<Interface>::Interface_ptr
  17 RIR_Narrow<Interface>::resolve (CORBA::ORB_ptr orb,
  18                                 const char *object_id)
  19 {
  20   Interface_var intface;
  21
  22   try
  23     {
  24       CORBA::Object_var object =
  25         orb->resolve_initial_references (object_id);
  26
  27       intface = Interface::_narrow (object.in ());
  28
  29       if (CORBA::is_nil (intface.in ()))
  30         {
  31           ACE_ERROR ((LM_ERROR,
  32                       "Panic - error while narrowing <%C>\n",
  33                       object_id));
  34           ACE_OS::exit (1);
  35         }
  36     } catch (const CORBA::Exception& ex) {
  37       ex._tao_print_exception ("Caught an exception\n");
  38     }
  39   return intface._retn ();
  40 }
  41
  42 #endif /* TAO_PERF_RTEC_RIR_NARROW_CPP */