From af88d3ad4cdb32902bf482860d043f784060e1d7 Mon Sep 17 00:00:00 2001 From: coryan Date: Tue, 21 Mar 2000 20:04:48 +0000 Subject: ChangeLogTag:Tue Mar 21 13:51:23 2000 Carlos O'Ryan --- TAO/tests/Param_Test/var_struct.cpp | 85 ++++++++++--------------------------- 1 file changed, 23 insertions(+), 62 deletions(-) (limited to 'TAO/tests/Param_Test/var_struct.cpp') diff --git a/TAO/tests/Param_Test/var_struct.cpp b/TAO/tests/Param_Test/var_struct.cpp index 5104f3bcdd1..771b21dfbaa 100644 --- a/TAO/tests/Param_Test/var_struct.cpp +++ b/TAO/tests/Param_Test/var_struct.cpp @@ -51,7 +51,30 @@ void Test_Var_Struct::dii_req_invoke (CORBA::Request *req, CORBA::Environment &ACE_TRY_ENV) { + req->add_in_arg ("s1") <<= this->in_; + req->add_inout_arg ("s2") <<= this->inout_.in (); + req->add_out_arg ("s3") <<= this->out_.in (); + + req->set_return_type (Param_Test::_tc_Var_Struct); + req->invoke (ACE_TRY_ENV); + ACE_CHECK; + + Param_Test::Var_Struct *tmp; + req->return_value () >>= tmp; + this->ret_ = new Param_Test::Var_Struct (*tmp); + + CORBA::NamedValue_ptr o2 = + req->arguments ()->item (1, ACE_TRY_ENV); + ACE_CHECK; + *o2->value () >>= tmp; + this->inout_ = new Param_Test::Var_Struct (*tmp); + + CORBA::NamedValue_ptr o3 = + req->arguments ()->item (2, ACE_TRY_ENV); + ACE_CHECK; + *o3->value () >>= tmp; + this->out_ = new Param_Test::Var_Struct (*tmp); } int @@ -115,68 +138,6 @@ Test_Var_Struct::run_sii_test (Param_Test_ptr objref, return -1; } -int -Test_Var_Struct::add_args (CORBA::NVList_ptr param_list, - CORBA::NVList_ptr retval, - CORBA::Environment &ACE_TRY_ENV) -{ - ACE_TRY - { - CORBA::Any in_arg (Param_Test::_tc_Var_Struct, - &this->in_, - 0); - - CORBA::Any inout_arg (Param_Test::_tc_Var_Struct, - &this->inout_.inout (), // .out () causes crash - 0); - - CORBA::Any out_arg (Param_Test::_tc_Var_Struct, - &this->out_.inout (), - 0); - - // add parameters - param_list->add_value ("s1", - in_arg, - CORBA::ARG_IN, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - param_list->add_value ("s2", - inout_arg, - CORBA::ARG_INOUT, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - param_list->add_value ("s3", - out_arg, - CORBA::ARG_OUT, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - // add return value - CORBA::NamedValue *item = retval->item (0, - ACE_TRY_ENV); - ACE_TRY_CHECK; - - item->value ()->replace (Param_Test::_tc_Var_Struct, - &this->ret_.inout (), // see above - 0, // does not own - ACE_TRY_ENV); - ACE_TRY_CHECK; - - return 0; - } - ACE_CATCHANY - { - ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, - "Test_Var_Struct::add_args\n"); - - } - ACE_ENDTRY; - return -1; -} - - CORBA::Boolean Test_Var_Struct::check_validity (void) { -- cgit v1.2.1