TAO/tests/Param_Test/small_union.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    small_union.cpp
   5  *
   6  *  tests Small_Unions
   7  *
   8  *  @author   Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12
  13 #include "helper.h"
  14 #include "small_union.h"
  15
  16 // ************************************************************************
  17 //               Test_Small_Union
  18 // ************************************************************************
  19
  20 size_t Test_Small_Union::counter = 0;
  21
  22 Test_Small_Union::Test_Small_Union ()
  23   : opname_ (CORBA::string_dup ("test_small_union"))
  24 {
  25 }
  26
  27 Test_Small_Union::~Test_Small_Union ()
  28 {
  29   CORBA::string_free (this->opname_);
  30   this->opname_ = 0;
  31 }
  32
  33 const char *
  34 Test_Small_Union::opname () const
  35 {
  36   return this->opname_;
  37 }
  38
  39 void
  40 Test_Small_Union::dii_req_invoke (CORBA::Request *req)
  41 {
  42   req->add_in_arg ("s1") <<= this->in_;
  43   req->add_inout_arg ("s2") <<= this->inout_;
  44   req->add_out_arg ("s3") <<= this->out_.in ();
  45
  46   req->set_return_type (Param_Test::_tc_Small_Union);
  47
  48   req->invoke ();
  49
  50   const Param_Test::Small_Union *tmp = 0;
  51   req->return_value () >>= tmp;
  52   this->ret_ = new Param_Test::Small_Union (*tmp);
  53
  54   CORBA::NamedValue_ptr o2 =
  55     req->arguments ()->item (1);
  56   *o2->value () >>= tmp;
  57   this->inout_ = *tmp;
  58
  59   CORBA::NamedValue_ptr o3 =
  60     req->arguments ()->item (2);
  61   *o3->value () >>= tmp;
  62   this->out_ = new Param_Test::Small_Union (*tmp);
  63 }
  64
  65 int
  66 Test_Small_Union::init_parameters (Param_Test_ptr objref)
  67 {
  68   try
  69     {
  70       // get access to a Coffee Object
  71       this->cobj_ = objref->make_coffee ();
  72
  73       this->reset_parameters ();
  74       return 0;
  75     }
  76   catch (const CORBA::SystemException& sysex)
  77     {
  78       sysex._tao_print_exception ("System Exception doing make_coffee");
  79     }
  80   catch (const CORBA::Exception& ex)
  81     {
  82       ex._tao_print_exception (
  83         "An exception caught in make_coffee");
  84     }
  85   return -1;
  86 }
  87
  88 int
  89 Test_Small_Union::reset_parameters ()
  90 {
  91   Generator *gen = GENERATOR::instance (); // value generator
  92   CORBA::ULong index = (counter++ % 2);
  93
  94   switch (index)
  95     {
  96     case 0:
  97       {
  98         CORBA::Long l = gen->gen_long ();
  99         this->in_.the_long (l);
 100         this->inout_.the_long (l);
 101       }
 102       break;
 103     default:
 104     case 1:
 105       {
 106         CORBA::Short s = gen->gen_short ();
 107         this->in_.the_short (s);
 108         this->inout_.the_short (s);
 109       }
 110       break;
 111     }
 112   this->out_ = new Param_Test::Small_Union (this->in_);
 113   this->ret_ = new Param_Test::Small_Union (this->in_);
 114   return 0;
 115 }
 116
 117 int
 118 Test_Small_Union::run_sii_test (Param_Test_ptr objref)
 119 {
 120   try
 121     {
 122       this->ret_ = objref->test_small_union (this->in_,
 123                                            this->inout_,
 124                                            this->out_);
 125
 126       return 0;
 127     }
 128   catch (const CORBA::Exception& ex)
 129     {
 130       ex._tao_print_exception ("Test_Small_Union::run_sii_test\n");
 131     }
 132   return -1;
 133 }
 134
 135 CORBA::Boolean
 136 Test_Small_Union::check_validity ()
 137 {
 138   if (this->in_._d () != this->inout_._d ()
 139       || this->in_._d () != this->out_->_d ()
 140       || this->in_._d () != this->ret_->_d ())
 141     {
 142       ACE_DEBUG ((LM_DEBUG, "mismatch of discriminators\n"));
 143       return 0;
 144     }
 145
 146
 147   switch (this->in_._d ())
 148     {
 149     case Param_Test::A_LONG:
 150       {
 151         CORBA::Long in    = this->in_.the_long ();
 152         CORBA::Long inout = this->inout_.the_long ();
 153         CORBA::Long out   = this->out_->the_long ();
 154         CORBA::Long ret   = this->ret_->the_long ();
 155         if (in != out || in != inout || in != ret)
 156           return 0;
 157       }
 158       break;
 159
 160     case Param_Test::A_SHORT:
 161       {
 162         CORBA::Short in    = this->in_.the_short ();
 163         CORBA::Short inout = this->inout_.the_short ();
 164         CORBA::Short out   = this->out_->the_short ();
 165         CORBA::Short ret   = this->ret_->the_short ();
 166         if (in != out || in != inout || in != ret)
 167           return 0;
 168       }
 169       break;
 170
 171     default:
 172       return 0;
 173     }
 174
 175   return 1;
 176 }
 177
 178 CORBA::Boolean
 179 Test_Small_Union::check_validity (CORBA::Request_ptr /*req*/)
 180 {
 181   //ACE_UNUSED_ARG (req);
 182   return this->check_validity ();
 183 }
 184
 185 void
 186 Test_Small_Union::print_values ()
 187 {
 188 }