TAO/tests/Param_Test/bd_struct_seq.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    bd_struct_seq.cpp
   5  *
   6  *  tests bounded struct sequences
   7  *
   8  *  @author   Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12
  13 #include "helper.h"
  14 #include "bd_struct_seq.h"
  15
  16 const CORBA::ULong MAX_STRUCTSEQ_LEN = 1;
  17
  18 // ************************************************************************
  19 //               Test_Bounded_Struct_Sequence
  20 // ************************************************************************
  21
  22 Test_Bounded_Struct_Sequence::Test_Bounded_Struct_Sequence ()
  23   : opname_ (CORBA::string_dup ("test_bounded_struct_sequence")),
  24     inout_ (new Param_Test::Bounded_StructSeq),
  25     out_ (new Param_Test::Bounded_StructSeq),
  26     ret_ (new Param_Test::Bounded_StructSeq)
  27 {
  28 }
  29
  30 Test_Bounded_Struct_Sequence::~Test_Bounded_Struct_Sequence ()
  31 {
  32   CORBA::string_free (this->opname_);
  33   this->opname_ = 0;
  34   // the other data members will be freed as they are "_var"s and objects
  35   // (rather than pointers to objects)
  36 }
  37
  38 const char *
  39 Test_Bounded_Struct_Sequence::opname () const
  40 {
  41   return this->opname_;
  42 }
  43
  44 void
  45 Test_Bounded_Struct_Sequence::dii_req_invoke (CORBA::Request *req)
  46 {
  47   req->add_in_arg ("s1") <<= this->in_;
  48   req->add_inout_arg ("s2") <<= this->inout_.in ();
  49   req->add_out_arg ("s3") <<= this->out_.in ();
  50   req->set_return_type (Param_Test::_tc_Bounded_StructSeq);
  51
  52   req->invoke ();
  53
  54   const Param_Test::Bounded_StructSeq *tmp = 0;
  55   req->return_value () >>= tmp;
  56   this->ret_ = new Param_Test::Bounded_StructSeq (*tmp);
  57
  58   CORBA::NamedValue_ptr arg2 =
  59     req->arguments ()->item (1);
  60   *arg2->value () >>= tmp;
  61   this->inout_ = new Param_Test::Bounded_StructSeq (*tmp);
  62
  63   CORBA::NamedValue_ptr arg3 =
  64     req->arguments ()->item (2);
  65   *arg3->value () >>= tmp;
  66   this->out_ = new Param_Test::Bounded_StructSeq (*tmp);
  67 }
  68
  69 int
  70 Test_Bounded_Struct_Sequence::init_parameters (Param_Test_ptr /* objref */
  71  /* env */)
  72 {
  73   Generator *gen = GENERATOR::instance (); // value generator
  74
  75   // set the length of the sequence
  76   this->in_.length (MAX_STRUCTSEQ_LEN);
  77   // now set each individual element
  78   for (CORBA::ULong i = 0; i < this->in_.length (); i++)
  79     {
  80       // generate some arbitrary struct to be filled into the ith location in
  81       // the sequence
  82       this->in_[i] = gen->gen_fixed_struct ();
  83     }
  84
  85   this->inout_->length (0);
  86   this->out_->length (0);
  87   this->ret_->length (0);
  88
  89   return 0;
  90 }
  91
  92 int
  93 Test_Bounded_Struct_Sequence::reset_parameters ()
  94 {
  95   this->inout_ = new Param_Test::Bounded_StructSeq; // delete the previous ones
  96   this->out_ = new Param_Test::Bounded_StructSeq;
  97   this->ret_ = new Param_Test::Bounded_StructSeq;
  98
  99   this->inout_->length (0);
 100   this->out_->length (0);
 101   this->ret_->length (0);
 102
 103   return 0;
 104 }
 105
 106 int
 107 Test_Bounded_Struct_Sequence::run_sii_test (Param_Test_ptr objref)
 108 {
 109   try
 110     {
 111       Param_Test::Bounded_StructSeq_out out (this->out_.out ());
 112
 113       this->ret_ = objref->test_bounded_struct_sequence (this->in_,
 114                                                          this->inout_.inout (),
 115                                                          out);
 116
 117       return 0;
 118     }
 119   catch (const CORBA::Exception& ex)
 120     {
 121       ex._tao_print_exception ("Test_Bounded_Struct_Sequence::run_sii_test\n");
 122     }
 123   return -1;
 124 }
 125
 126 CORBA::Boolean
 127 Test_Bounded_Struct_Sequence::check_validity ()
 128 {
 129   if (this->compare (this->in_, this->inout_.in ()) &&
 130       this->compare (this->in_, this->out_.in ()) &&
 131       this->compare (this->in_, this->ret_.in ()))
 132     return 1;
 133   else
 134     return 0;
 135 }
 136
 137 CORBA::Boolean
 138 Test_Bounded_Struct_Sequence::check_validity (CORBA::Request_ptr)
 139 {
 140   return this->check_validity ();
 141 }
 142
 143 void
 144 Test_Bounded_Struct_Sequence::print_values ()
 145 {
 146   ACE_DEBUG ((LM_DEBUG,
 147               "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"
 148               "IN sequence\n"));
 149   this->print_sequence (this->in_);
 150   ACE_DEBUG ((LM_DEBUG,
 151               "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"
 152               "INOUT sequence\n"));
 153   this->print_sequence (this->inout_.in ());
 154   ACE_DEBUG ((LM_DEBUG,
 155               "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"
 156               "OUT sequence\n"));
 157   this->print_sequence (this->out_.in ());
 158   ACE_DEBUG ((LM_DEBUG,
 159               "*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*\n"
 160               "RET sequence\n"));
 161   this->print_sequence (this->ret_.in ());
 162 }
 163
 164 CORBA::Boolean
 165 Test_Bounded_Struct_Sequence::compare (const Param_Test::Bounded_StructSeq &s1,
 166                                        const Param_Test::Bounded_StructSeq &s2)
 167 {
 168   if (s1.maximum () != s2.maximum ())
 169       return 0;
 170   if (s1.length () != s2.length ())
 171     return 0;
 172
 173   for (CORBA::ULong i=0; i < s1.length (); i++)
 174     {
 175       const Param_Test::Fixed_Struct& vs1 = s1[i];
 176       const Param_Test::Fixed_Struct& vs2 = s2[i];
 177
 178       if (vs1.l != vs2.l
 179           || vs1.c != vs2.c
 180           || vs1.s != vs2.s
 181           || vs1.o != vs2.o
 182           || !ACE::is_equal (vs1.f, vs2.f)
 183           || vs1.b != vs2.b
 184           || !ACE::is_equal (vs1.d, vs2.d))
 185         return 0;
 186     }
 187
 188   return 1; // success
 189 }
 190
 191 void
 192 Test_Bounded_Struct_Sequence::print_sequence (const Param_Test::Bounded_StructSeq &s)
 193 {
 194   ACE_DEBUG ((LM_DEBUG,
 195               "maximum = %d\n"
 196               "length = %d\n",
 197               s.maximum (),
 198               s.length ()));
 199   ACE_DEBUG ((LM_DEBUG, "Elements -\n"));
 200   for (CORBA::ULong i=0; i < s.length (); i++)
 201     {
 202       const Param_Test::Fixed_Struct& vs = s[i];
 203
 204       ACE_DEBUG ((LM_DEBUG,
 205                   "Element #%d\n"
 206                   "\tl = %d\n"
 207                   "\tc = %c\n"
 208                   "\ts = %d\n"
 209                   "\to = %x\n"
 210                   "\tf = %f\n"
 211                   "\tb = %d\n"
 212                   "\td = %f\n",
 213                   i,
 214                   vs.l, vs.c, vs.s, vs.o, vs.f, vs.b, vs.d));
 215     }
 216 }