TAO/tao/Remote_Object_Proxy_Broker.cpp

   1 // -*- C++ -*-
   2 #include "tao/Remote_Object_Proxy_Broker.h"
   3 #include "tao/CORBA_String.h"
   4 #include "tao/UB_String_Arguments.h"
   5 #include "tao/Special_Basic_Arguments.h"
   6 #include "tao/Invocation_Adapter.h"
   7 #include "tao/IFR_Client_Adapter.h"
   8 #include "tao/ORB_Core.h"
   9 #include "tao/SystemException.h"
  10
  11 #include "ace/Dynamic_Service.h"
  12
  13 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  14
  15 namespace TAO
  16 {
  17   CORBA::Boolean
  18   Remote_Object_Proxy_Broker::_is_a (CORBA::Object_ptr target,
  19                                      const char *type_id)
  20   {
  21     TAO::Arg_Traits<ACE_InputCDR::to_boolean>::ret_val _tao_retval;
  22     TAO::Arg_Traits<char *>::in_arg_val _tao_id (type_id);
  23
  24     TAO::Argument *_tao_signature [] =
  25       {
  26         &_tao_retval,
  27         &_tao_id
  28       };
  29
  30     TAO::Invocation_Adapter tao_call (target,
  31                                       _tao_signature,
  32                                       2,
  33                                       "_is_a",
  34                                       5,
  35                                       TAO::TAO_CO_NONE | TAO::TAO_CO_THRU_POA_STRATEGY);
  36
  37     tao_call.invoke (nullptr, 0);
  38
  39     return _tao_retval.retn ();
  40   }
  41
  42 #if (TAO_HAS_MINIMUM_CORBA == 0)
  43
  44   CORBA::Boolean
  45   Remote_Object_Proxy_Broker::_non_existent (CORBA::Object_ptr target)
  46   {
  47     TAO::Arg_Traits<ACE_InputCDR::to_boolean>::ret_val _tao_retval;
  48
  49     TAO::Argument *_tao_signature [] =
  50       {
  51         &_tao_retval
  52       };
  53
  54     TAO::Invocation_Adapter _tao_call (target,
  55                                        _tao_signature,
  56                                        1,
  57                                        "_non_existent",
  58                                        13,
  59                                        TAO::TAO_CO_NONE | TAO::TAO_CO_THRU_POA_STRATEGY);
  60
  61     _tao_call.invoke (nullptr, 0);
  62
  63     return _tao_retval.retn ();
  64   }
  65
  66   CORBA::Object_ptr
  67   Remote_Object_Proxy_Broker::_get_component (CORBA::Object_ptr target)
  68   {
  69     TAO::Arg_Traits<CORBA::Object>::ret_val _tao_retval;
  70
  71     TAO::Argument *_tao_signature [] =
  72       {
  73         &_tao_retval
  74       };
  75
  76     TAO::Invocation_Adapter _tao_call (target,
  77                                        _tao_signature,
  78                                        1,
  79                                        "_component",
  80                                        10,
  81                                        TAO::TAO_CO_NONE | TAO::TAO_CO_THRU_POA_STRATEGY);
  82
  83     _tao_call.invoke (nullptr, 0);
  84
  85     return _tao_retval.retn ();
  86   }
  87
  88   CORBA::InterfaceDef_ptr
  89   Remote_Object_Proxy_Broker::_get_interface (CORBA::Object_ptr target)
  90   {
  91     TAO_IFR_Client_Adapter *adapter =
  92       ACE_Dynamic_Service<TAO_IFR_Client_Adapter>::instance (
  93         TAO_ORB_Core::ifr_client_adapter_name ());
  94
  95   if (adapter == nullptr)
  96     {
  97       throw ::CORBA::INTF_REPOS ();
  98     }
  99
 100   return adapter->get_interface_remote (target);
 101   }
 102
 103   char *
 104   Remote_Object_Proxy_Broker::_repository_id (CORBA::Object_ptr target)
 105   {
 106     TAO::Arg_Traits< ::CORBA::Char *>::ret_val _tao_retval;
 107
 108     TAO::Argument *_tao_signature [] =
 109       {
 110         &_tao_retval
 111       };
 112
 113     TAO::Invocation_Adapter _tao_call (target,
 114                                        _tao_signature,
 115                                        1,
 116                                        "_repository_id",
 117                                        14,
 118                                        TAO::TAO_CO_NONE | TAO::TAO_CO_THRU_POA_STRATEGY);
 119
 120     _tao_call.invoke (nullptr, 0);
 121
 122     return _tao_retval.retn ();
 123   }
 124 #endif /* TAO_HAS_MINIMUM_CORBA == 0 */
 125 }
 126
 127 // -----------------------------------------------------
 128
 129 TAO::Remote_Object_Proxy_Broker *
 130 the_tao_remote_object_proxy_broker ()
 131 {
 132   static TAO::Remote_Object_Proxy_Broker the_broker;
 133   return &the_broker;
 134 }
 135
 136 TAO_END_VERSIONED_NAMESPACE_DECL