TAO/tao/DynamicInterface/ExceptionList.cpp

   1 #include "tao/DynamicInterface/ExceptionList.h"
   2 #include "tao/AnyTypeCode/TypeCode.h"
   3 #include "tao/SystemException.h"
   4
   5 #if !defined (__ACE_INLINE__)
   6 # include "tao/DynamicInterface/ExceptionList.inl"
   7 #endif /* __ACE_INLINE__ */
   8
   9 TAO_BEGIN_VERSIONED_NAMESPACE_DECL
  10
  11 CORBA::ExceptionList::ExceptionList (CORBA::ULong len,
  12                                      CORBA::TypeCode_ptr *tc_list)
  13   : refcount_ (1)
  14 {
  15   for (CORBA::ULong i = 0; i < len; ++i)
  16     {
  17       this->add (tc_list [i]);
  18     }
  19 }
  20
  21 CORBA::ExceptionList::~ExceptionList ()
  22 {
  23   for (CORBA::ULong i = 0; i < this->count (); ++i)
  24     {
  25       CORBA::TypeCode_ptr *tc = 0;
  26
  27       if (this->tc_list_.get (tc, i) == -1)
  28         {
  29           return;
  30         }
  31
  32       ::CORBA::release (*tc);
  33     }
  34 }
  35
  36 void
  37 CORBA::ExceptionList::add (CORBA::TypeCode_ptr tc)
  38 {
  39   this->tc_list_.enqueue_tail (CORBA::TypeCode::_duplicate (tc));
  40 }
  41
  42 void
  43 CORBA::ExceptionList::add_consume (CORBA::TypeCode_ptr tc)
  44 {
  45   this->tc_list_.enqueue_tail (tc);
  46 }
  47
  48 CORBA::TypeCode_ptr
  49 CORBA::ExceptionList::item (CORBA::ULong slot)
  50 {
  51   CORBA::TypeCode_ptr *tc = 0;
  52
  53   if (this->tc_list_.get (tc, slot) == -1)
  54     {
  55       throw ::CORBA::TypeCode::Bounds ();
  56     }
  57   else
  58     {
  59       return CORBA::TypeCode::_duplicate (*tc);
  60     }
  61 }
  62
  63 void
  64 CORBA::ExceptionList::remove (CORBA::ULong)
  65 {
  66   throw ::CORBA::NO_IMPLEMENT ();
  67 }
  68
  69 CORBA::ExceptionList_ptr
  70 CORBA::ExceptionList::_duplicate ()
  71 {
  72   this->_incr_refcount ();
  73   return this;
  74 }
  75
  76 void
  77 CORBA::ExceptionList::_destroy ()
  78 {
  79   this->_decr_refcount ();
  80 }
  81
  82 void
  83 CORBA::ExceptionList::_incr_refcount ()
  84 {
  85   ++this->refcount_;
  86 }
  87
  88 void
  89 CORBA::ExceptionList::_decr_refcount ()
  90 {
  91   CORBA::ULong const refcount = --this->refcount_;
  92
  93   if (refcount == 0)
  94     {
  95       delete this;
  96     }
  97 }
  98
  99 TAO_END_VERSIONED_NAMESPACE_DECL