diff options
Diffstat (limited to 'TAO/tests/Param_Test/param_test_i.cpp')
| -rw-r--r-- | TAO/tests/Param_Test/param_test_i.cpp | 732 |
1 files changed, 0 insertions, 732 deletions
diff --git a/TAO/tests/Param_Test/param_test_i.cpp b/TAO/tests/Param_Test/param_test_i.cpp deleted file mode 100644 index 926ccaf00f3..00000000000 --- a/TAO/tests/Param_Test/param_test_i.cpp +++ /dev/null @@ -1,732 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Param_Test -// -// = FILENAME -// param_test_i.cpp -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -#include "tao/corba.h" -#include "param_test_i.h" - -ACE_RCSID(Param_Test, param_test_i, "$Id$") - -// ********* class Coffee_i **************** -// Constructor - -Coffee_i::Coffee_i (const char *name) - : name_ (name) -{ -} - -// Destructor - -Coffee_i::~Coffee_i (void) -{ -} - -// get attribute -Coffee::Desc * -Coffee_i::description (CORBA::Environment & /*env*/) -{ - Coffee::Desc *desc = new Coffee::Desc; - desc->name = CORBA::string_dup (this->name_); - return desc; -} - -// set attribute -void -Coffee_i::description (const Coffee::Desc &description, - CORBA::Environment & /*env*/) -{ - this->name_ = CORBA::string_dup (description.name); -} - - -// ********* class Param_Test_i **************** - -// Constructor - -Param_Test_i::Param_Test_i (const char *coffee_name, - const char *) - : obj_ (coffee_name), - test_exception_count_ (0) -{ -} - -// Destructor - -Param_Test_i::~Param_Test_i (void) -{ -} - -// test shorts -CORBA::Short -Param_Test_i::test_short (CORBA::Short s1, - CORBA::Short &s2, - CORBA::Short_out s3, - CORBA::Environment &) -{ - s2 = s1 * 2; - s3 = s1 * 3; - return s1 * 4; -} - -// test long long -CORBA::ULongLong -Param_Test_i::test_ulonglong (CORBA::ULongLong s1, - CORBA::ULongLong &s2, - CORBA::ULongLong_out s3, - CORBA::Environment &) -{ - s2 = s1 * 2; - s3 = s1 * 3; - return s1 * 4; -} - -// test unbounded strings. For return and out types, we return duplicates of -// the in string. For the inout, we append the same string to itself and send -// it back -char * -Param_Test_i::test_unbounded_string (const char *s1, - char *&s2, - CORBA::String_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - char *retstr = CORBA::string_dup (s1); - s3 = CORBA::string_dup (s1); - char *tmp = CORBA::string_alloc (2*ACE_OS::strlen (s2)); - ACE_OS::sprintf (tmp, "%s%s", s2, s2); - CORBA::string_free (s2); - s2 = tmp; - return retstr; -} - -// test bounded strings. For return and out types, we return duplicates of -// the in string. For the inout, we append the same string to itself and send -// it back -char * -Param_Test_i::test_bounded_string (const char *s1, - char *&s2, - CORBA::String_out s3, - CORBA::Environment &) -{ - char *retstr = CORBA::string_dup (s1); - s3 = CORBA::string_dup (s1); - char *tmp = CORBA::string_alloc (2*ACE_OS::strlen (s2)); - ACE_OS::sprintf (tmp, "%s%s", s2, s2); - CORBA::string_free (s2); - s2 = tmp; - return retstr; -} - -// test for fixed structures. Just copy the in parameter into all the others -Param_Test::Fixed_Struct -Param_Test_i::test_fixed_struct (const Param_Test::Fixed_Struct &s1, - Param_Test::Fixed_Struct &s2, - Param_Test::Fixed_Struct_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - s2 = s1; - s3 = s1; - return s1; -} - -// = Sequences - -Param_Test::Long_Seq * Param_Test_i::test_long_sequence ( - const Param_Test::Long_Seq & s1, - Param_Test::Long_Seq & s2, - Param_Test::Long_Seq_out s3, - CORBA::Environment & - ) -{ - Param_Test::Long_Seq - *ret = new Param_Test::Long_Seq, - *out = new Param_Test::Long_Seq; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Short_Seq * Param_Test_i::test_short_sequence ( - const Param_Test::Short_Seq & s1, - Param_Test::Short_Seq & s2, - Param_Test::Short_Seq_out s3, - CORBA::Environment & - ) -{ - Param_Test::Short_Seq - *ret = new Param_Test::Short_Seq, - *out = new Param_Test::Short_Seq; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Bounded_Short_Seq * Param_Test_i::test_bounded_short_sequence ( - const Param_Test::Bounded_Short_Seq & s1, - Param_Test::Bounded_Short_Seq & s2, - Param_Test::Bounded_Short_Seq_out s3, - CORBA::Environment & - ) -{ - Param_Test::Bounded_Short_Seq - *ret = new Param_Test::Bounded_Short_Seq, - *out = new Param_Test::Bounded_Short_Seq; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Bounded_Long_Seq * Param_Test_i::test_bounded_long_sequence ( - const Param_Test::Bounded_Long_Seq & s1, - Param_Test::Bounded_Long_Seq & s2, - Param_Test::Bounded_Long_Seq_out s3, - CORBA::Environment & - ) -{ - Param_Test::Bounded_Long_Seq - *ret = new Param_Test::Bounded_Long_Seq, - *out = new Param_Test::Bounded_Long_Seq; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::StrSeq * -Param_Test_i::test_strseq (const Param_Test::StrSeq &s1, - Param_Test::StrSeq &s2, - Param_Test::StrSeq_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::StrSeq - *ret = new Param_Test::StrSeq, - *out = new Param_Test::StrSeq; - - if (TAO_debug_level > 0) - { - ACE_DEBUG ((LM_DEBUG, "\n*=*=*=*SERVER SIDE=*=*=*=*=*=*=\n")); - for (CORBA::ULong i=0; (i < s2.length ()); i++) - { - ACE_DEBUG ((LM_DEBUG, - "Element #%d\n" - "in : %s\n", - i, - (s2[i]? (const char *)s2[i]:"<nul>"))); - } - if (s2.length () == 0) - ACE_DEBUG ((LM_DEBUG, "\ninout sequence is NUL\n")); - } - - // now copy all elements of s1 into the others using the assignment operator - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Bounded_StrSeq * Param_Test_i::test_bounded_strseq ( - const Param_Test::Bounded_StrSeq & s1, - Param_Test::Bounded_StrSeq & s2, - Param_Test::Bounded_StrSeq_out s3, - CORBA::Environment & - ) -{ - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::Bounded_StrSeq - *ret = new Param_Test::Bounded_StrSeq, - *out = new Param_Test::Bounded_StrSeq; - - // now copy all elements of s1 into the others using the assignment operator - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -// test for struct sequences -Param_Test::StructSeq * -Param_Test_i::test_struct_sequence (const Param_Test::StructSeq &s1, - Param_Test::StructSeq &s2, - Param_Test::StructSeq_out s3, - CORBA::Environment &) -{ - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::StructSeq - *ret = new Param_Test::StructSeq, - - *out = new Param_Test::StructSeq; - - // now copy all elements of s1 into the others using the assignment operator - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Bounded_StructSeq * Param_Test_i::test_bounded_struct_sequence ( - const Param_Test::Bounded_StructSeq & s1, - Param_Test::Bounded_StructSeq & s2, - Param_Test::Bounded_StructSeq_out s3, - CORBA::Environment & - ) -{ - Param_Test::Bounded_StructSeq - *ret = new Param_Test::Bounded_StructSeq, - *out = new Param_Test::Bounded_StructSeq; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - - -Param_Test::PathSpec * Param_Test_i::test_unbounded_struct_sequence ( - const Param_Test::PathSpec & s1, - Param_Test::PathSpec & s2, - Param_Test::PathSpec_out s3, - CORBA::Environment & - ) -{ - Param_Test::PathSpec - *ret = new Param_Test::PathSpec, - *out = new Param_Test::PathSpec; - - - Param_Test::PathSpec_var rPathSpec = new Param_Test::PathSpec; - rPathSpec->length(2); - - rPathSpec[(unsigned long)0].name.id = CORBA::string_dup("staff"); - rPathSpec[(unsigned long)0].name.kind = CORBA::string_dup("staff"); - rPathSpec[(unsigned long)0].process = 1; - - rPathSpec[(unsigned long)1].name.id = CORBA::string_dup("john"); - rPathSpec[(unsigned long)1].name.kind = CORBA::string_dup("john"); - rPathSpec[(unsigned long)1].process = 1; - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - - return ret; -} - - -Param_Test::Coffee_Mix * Param_Test_i::test_coffe_mix ( - const Param_Test::Coffee_Mix & s1, - Param_Test::Coffee_Mix & s2, - Param_Test::Coffee_Mix_out s3, - CORBA::Environment & - ) -{ - Param_Test::Coffee_Mix - *ret = new Param_Test::Coffee_Mix, - *out = new Param_Test::Coffee_Mix; - -#if 0 - ACE_DEBUG ((LM_DEBUG, - "maximum = %d\n" - "length = %d\n", - s1.maximum (), - s1.length ())); - ACE_DEBUG ((LM_DEBUG, "Elements -\n")); - for (CORBA::ULong i = 0; i < s1.length (); ++i) - { - Coffee_ptr c = s1[i]; - if (CORBA::is_nil (c)) - { - ACE_DEBUG ((LM_DEBUG, - "Element #%d is nil\n", i)); - continue; - } - ACE_DEBUG ((LM_DEBUG, - "Element #%d\n" - "\ttype = <%s>\n", - i, - c->_interface_repository_id ())); - } -#endif /* 0 */ - - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Bounded_Coffee_Mix * Param_Test_i::test_bounded_coffe_mix ( - const Param_Test::Bounded_Coffee_Mix & s1, - Param_Test::Bounded_Coffee_Mix & s2, - Param_Test::Bounded_Coffee_Mix_out s3, - CORBA::Environment & - ) -{ - Param_Test::Bounded_Coffee_Mix - *ret = new Param_Test::Bounded_Coffee_Mix, - *out = new Param_Test::Bounded_Coffee_Mix; - -#if 0 - ACE_DEBUG ((LM_DEBUG, - "maximum = %d\n" - "length = %d\n", - s1.maximum (), - s1.length ())); - ACE_DEBUG ((LM_DEBUG, "Elements -\n")); - for (CORBA::ULong i = 0; i < s1.length (); ++i) - { - Coffee_ptr c = s1[i]; - if (CORBA::is_nil (c)) - { - ACE_DEBUG ((LM_DEBUG, - "Element #%d is nil\n", i)); - continue; - } - ACE_DEBUG ((LM_DEBUG, - "Element #%d\n" - "\ttype = <%s>\n", - i, - c->_interface_repository_id ())); - } -#endif /* 0 */ - - - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::AnySeq * -Param_Test_i::test_anyseq (const Param_Test::AnySeq &s1, - Param_Test::AnySeq &s2, - Param_Test::AnySeq_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::AnySeq - *ret = new Param_Test::AnySeq, - *out = new Param_Test::AnySeq; - - // now copy all elements of s1 into the others using the assignment operator - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -// = end of sequences... - -// test for variable structs -Param_Test::Var_Struct * -Param_Test_i::test_var_struct (const Param_Test::Var_Struct &s1, - Param_Test::Var_Struct &s2, - Param_Test::Var_Struct_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::Var_Struct - *ret = new Param_Test::Var_Struct, - *out = new Param_Test::Var_Struct; - - // now copy all elements of s1 into the others - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -// test for nested structs -Param_Test::Nested_Struct * -Param_Test_i::test_nested_struct (const Param_Test::Nested_Struct &s1, - Param_Test::Nested_Struct &s2, - Param_Test::Nested_Struct_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::Nested_Struct - *ret = new Param_Test::Nested_Struct, - *out = new Param_Test::Nested_Struct; - - // now copy all elements of s1 into the others - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -Param_Test::Objref_Struct * -Param_Test_i::test_objref_struct (const Param_Test::Objref_Struct &s1, - Param_Test::Objref_Struct &s2, - Param_Test::Objref_Struct_out s3, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - // we copy the "in" sequences into all the inout, out and return sequences. - - Param_Test::Objref_Struct - *ret = new Param_Test::Objref_Struct, - *out = new Param_Test::Objref_Struct; - - // now copy all elements of s1 into the others - s2 = s1; - *out = s1; - *ret = s1; - s3 = out; - return ret; -} - -// make a Coffee object -Coffee_ptr -Param_Test_i::make_coffee (CORBA::Environment &env) -{ - return this->obj_._this (env); -} - -// test for object references -Coffee_ptr -Param_Test_i::test_objref (Coffee_ptr o1, - Coffee_ptr &o2, - Coffee_out o3, - CORBA::Environment &env) -{ - Coffee_ptr ret = Coffee::_nil (); - - TAO_TRY - { - Coffee_var myobj = obj_._this (TAO_TRY_ENV); - TAO_CHECK_ENV; - - if (!CORBA::is_nil (o2)) - CORBA::release (o2); - - if (myobj->_is_equivalent (o1, env)) - { - o2 = Coffee::_duplicate (myobj.in ()); - o3 = Coffee::_duplicate (myobj.in ()); - ret = Coffee::_duplicate (myobj.in ()); - } - else - { - o2 = Coffee::_nil (); - o3 = Coffee::_nil (); - } - } - TAO_CATCH (CORBA::SystemException, sysex) - { - TAO_TRY_ENV.print_exception ("System Exception"); - env.exception (TAO_TRY_ENV.exception ()); - } - TAO_CATCH (CORBA::UserException, userex) - { - TAO_TRY_ENV.print_exception ("User Exception"); - env.exception (TAO_TRY_ENV.exception ()); - } - TAO_ENDTRY; - - return ret; -} - -// test for typecodes -CORBA::TypeCode_ptr -Param_Test_i::test_typecode (CORBA::TypeCode_ptr t1, - CORBA::TypeCode_ptr &t2, - CORBA::TypeCode_out t3, - CORBA::Environment &env) -{ - // we simply assign t1 to the others - CORBA::TypeCode_ptr retval = CORBA::TypeCode::_duplicate (t1); - t2 = CORBA::TypeCode::_duplicate (t1); - t3 = CORBA::TypeCode::_duplicate (t1); - return retval; -} - -// test for Anys -CORBA::Any * -Param_Test_i::test_any (const CORBA::Any &a1, - CORBA::Any &a2, - CORBA::Any_out a3, - CORBA::Environment &env) -{ - CORBA::Any *ret; - CORBA::Short short_in; - char *str_in; - Coffee_ptr coffee; - Param_Test::Fixed_Array_forany array; - Param_Test::Bounded_Short_Seq_ptr bd_short_sequence; - Param_Test::Fixed_Struct *fixed_structure; - - a2 = a1; - a3 = new CORBA::Any (a1); - ret = new CORBA::Any (a1); - - // debug the incoming Any - if (a1 >>= short_in) - { - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "Received short = %d\n", short_in)); - a2 >>= short_in; - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "inout short = %d\n", short_in)); - *a3.ptr () >>= short_in; - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "out short = %d\n", short_in)); - *ret >>= short_in; - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "ret short = %d\n", short_in)); - } - else if (a1 >>= str_in) - { - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "Received unbounded string = %s\n", str_in)); - } - else if (a1 >>= coffee) - { - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "Received Coffee object\n")); - } - else if (a1 >>= array) - { - if (TAO_debug_level > 0) - { - ACE_DEBUG ((LM_DEBUG, "Received Fixed_Array:")); - for (size_t i = 0; i < Param_Test::DIM1; i++) - ACE_DEBUG ((LM_DEBUG, " %d", array[i])); - ACE_DEBUG ((LM_DEBUG, "\n")); - } - for (size_t i = 0; i < Param_Test::DIM1; i++) - array[i] = i * i; - a2 <<= Param_Test::Fixed_Array_forany (array); - *ret <<= Param_Test::Fixed_Array_forany (array); - } - else if (a1 >>= bd_short_sequence) - { - if (TAO_debug_level > 0) - { - ACE_DEBUG ((LM_DEBUG, "Received Bounded_Short_Seq:")); - for (size_t i = 0; i < bd_short_sequence->length (); i++) - ACE_DEBUG ((LM_DEBUG, " %d", (*bd_short_sequence)[i])); - ACE_DEBUG ((LM_DEBUG, "\n")); - } - for (size_t i = 0; i < bd_short_sequence->length (); i++) - (*bd_short_sequence)[i] = i * i; - a2 <<= *bd_short_sequence; - *ret <<= *bd_short_sequence; - } - else if (a1 >>= fixed_structure) - { - if (TAO_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "Received Fixed_Struct\n")); - } - else - { - ACE_DEBUG ((LM_DEBUG, "Received UNKNOWN type\n")); - } - - return ret; -} - -// test for fixed arrays -Param_Test::Fixed_Array_slice * -Param_Test_i::test_fixed_array (const Param_Test::Fixed_Array a1, - Param_Test::Fixed_Array a2, - Param_Test::Fixed_Array_out a3, - CORBA::Environment &env) -{ - Param_Test::Fixed_Array_slice *ret; - ACE_UNUSED_ARG (env); - - Param_Test::Fixed_Array_copy (a2, a1); - Param_Test::Fixed_Array_copy (a3, a1); - ret = Param_Test::Fixed_Array_dup (a1); - return ret; -} - -// test for var arrays -Param_Test::Var_Array_slice * -Param_Test_i::test_var_array (const Param_Test::Var_Array a1, - Param_Test::Var_Array a2, - Param_Test::Var_Array_out a3, - CORBA::Environment &env) -{ - Param_Test::Var_Array_slice *ret; - ACE_UNUSED_ARG (env); - - Param_Test::Var_Array_copy (a2, a1); - a3 = Param_Test::Var_Array_dup (a1); - ret = Param_Test::Var_Array_dup (a1); - return ret; -} - -CORBA::ULong -Param_Test_i::test_exception (CORBA::ULong s1, - CORBA::ULong& s2, - CORBA::ULong_out s3, - CORBA::Environment &env) -{ - int d = this->test_exception_count_ % 3; - this->test_exception_count_++; - if (d == 0) - { - s2 = s1 * 2; - s3 = s1 * 3; - return s1 * 4; - } - else if (d == 1) - { - env.exception (new Param_Test::Ooops (CORBA::string_dup (" % 3 == 1"), - s1)); - return 0; - } - env.exception (new Param_Test::BadBoy); - return 0; -} - -void -Param_Test_i::shutdown (CORBA::Environment &) -{ - TAO_ORB_Core_instance ()->orb ()->shutdown (); -} |