int
Test_Var_Struct::init_parameters (Param_Test_ptr)
{
Generator *gen = GENERATOR::instance (); // value generator
// get some sequence length (not more than 10)
CORBA::ULong len = (CORBA::ULong) (gen->gen_long () % 10) + 1;
this->in_.dbl = 3.14159;
this->in_.dummy1 = gen->gen_string ();
this->in_.boole = gen->gen_short () % 2;
this->in_.dummy2 = gen->gen_string ();
this->in_.shrt = gen->gen_short ();
// set the length of the sequence
this->in_.seq.length (len);
// now set each individual element
for (CORBA::ULong i = 0; i < this->in_.seq.length (); i++)
{
// generate some arbitrary string to be filled into the ith location in
// the sequence
char *str = gen->gen_string ();
this->in_.seq[i] = str;
}
this->inout_->dbl = 0.0;
this->inout_->dummy1 = CORBA::string_dup ("");
this->inout_->boole = 0;
this->inout_->dummy2 = CORBA::string_dup ("");
this->inout_->shrt = 0;
// set the length of the sequence
this->inout_->seq.length (0);
return 0;
}
int
Test_Small_Union::reset_parameters (void)
{
Generator *gen = GENERATOR::instance (); // value generator
CORBA::ULong index = (counter++ % 2);
switch (index)
{
case 0:
{
CORBA::Long l = gen->gen_long ();
this->in_.the_long (l);
this->inout_.the_long (l);
}
break;
default:
case 1:
{
CORBA::Short s = gen->gen_short ();
this->in_.the_short (s);
this->inout_.the_short (s);
}
break;
}
this->out_ = new Param_Test::Small_Union (this->in_);
this->ret_ = new Param_Test::Small_Union (this->in_);
return 0;
}
int
Test_Any::reset_parameters (void)
{
Generator *gen = GENERATOR::instance (); // value generator
CORBA::ULong index = (counter++ % Test_Any::ANY_LAST_TEST_ITEM);
switch (index)
{
default:
case Test_Any::ANY_SHORT:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_SHORT subtest\n"));
CORBA::Short s;
s = gen->gen_short ();
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG, "setting short = %d\n", s));
this->in_ <<= s;
this->inout_ <<= s;
}
break;
case Test_Any::ANY_STRING:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_STRING subtest\n"));
char *str = gen->gen_string ();
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG, "setting string = %s\n", str));
this->in_ <<= str;
this->inout_ <<= str;
CORBA::string_free (str);
}
break;
case Test_Any::ANY_OBJREF:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_OBJREF subtest\n"));
// insert the coffee object into the Any
this->in_ <<= this->cobj_.in ();
this->inout_ <<= this->cobj_.in ();
}
break;
case Test_Any::ANY_ARRAY:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_ARRAY subtest\n"));
Param_Test::Fixed_Array array;
for (size_t i = 0; i < Param_Test::DIM1; i++)
array[i] = i;
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG, "Setting Fixed_Array\n"));
this->in_ <<= Param_Test::Fixed_Array_forany (array);
this->inout_ <<= Param_Test::Fixed_Array_forany (array);
}
break;
case Test_Any::ANY_SHORT_SEQ:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_SHORT_SEQ subtest\n"));
CORBA::ShortSeq seq;
seq.length (gen->gen_short () % 16);
for (size_t i = 0; i < seq.length (); i++)
seq[i] = gen->gen_short ();
this->in_ <<= seq;
this->inout_ <<= seq;
}
break;
case Test_Any::ANY_BD_SHORT_SEQ:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_BD_SHORT_SEQ subtest\n"));
Param_Test::Bounded_Short_Seq seq;
seq.length (gen->gen_short () % seq.maximum ());
for (size_t i = 0; i < seq.length (); i++)
seq[i] = gen->gen_short ();
this->in_ <<= seq;
this->inout_ <<= seq;
}
break;
case Test_Any::ANY_STRUCT:
{
if (TAO_debug_level > 0)
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_STRUCT subtest\n"));
Param_Test::Fixed_Struct structure;
structure = gen->gen_fixed_struct ();
this->in_ <<= structure;
this->inout_ <<= structure;
}
break;
case Test_Any::ANY_BIG_UNION:
{
CORBA::Long x = gen->gen_long ();
Param_Test::Big_Union the_union;
the_union.the_long (x);
this->in_ <<= the_union;
this->inout_ <<= the_union;
if (TAO_debug_level > 0)
{
Param_Test::Big_Union *bu_in, *bu_inout;
this->in_ >>= bu_in;
this->inout_ >>= bu_inout;
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_BIG_UNION subtest\n"
" in %d\n"
" inout %d\n",
bu_in->the_long (),
bu_inout->the_long ()));
}
}
break;
case Test_Any::ANY_SMALL_UNION:
{
CORBA::Long x = gen->gen_long ();
Param_Test::Small_Union the_union;
the_union.the_long (x);
this->in_ <<= the_union;
this->inout_ <<= the_union;
if (TAO_debug_level > 0)
{
Param_Test::Small_Union *bu_in, *bu_inout;
this->in_ >>= bu_in;
this->inout_ >>= bu_inout;
ACE_DEBUG ((LM_DEBUG,
"Param_Test: ANY_SMALL_UNION subtest\n"
" in %d\n"
" inout %d\n",
bu_in->the_long (),
bu_inout->the_long ()));
}
}