diff options
Diffstat (limited to 'TAO/tests/Param_Test/objref.cpp')
| -rw-r--r-- | TAO/tests/Param_Test/objref.cpp | 293 |
1 files changed, 0 insertions, 293 deletions
diff --git a/TAO/tests/Param_Test/objref.cpp b/TAO/tests/Param_Test/objref.cpp deleted file mode 100644 index ef1d8c370a5..00000000000 --- a/TAO/tests/Param_Test/objref.cpp +++ /dev/null @@ -1,293 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Param_Test -// -// = FILENAME -// objref.cpp -// -// = DESCRIPTION -// tests object references -// -// = AUTHORS -// Aniruddha Gokhale -// -// ============================================================================ - -#include "helper.h" -#include "objref.h" - -ACE_RCSID(Param_Test, objref, "$Id$") - -// ************************************************************************ -// Test_ObjRef -// ************************************************************************ - -Test_ObjRef::Test_ObjRef (void) - : opname_ (CORBA::string_dup ("test_objref")) -{ -} - -Test_ObjRef::~Test_ObjRef (void) -{ - CORBA::string_free (this->opname_); - this->opname_ = 0; -} - -const char * -Test_ObjRef::opname (void) const -{ - return this->opname_; -} - -static const char *Coffee_Flavor [] = { - "Italian Roast", - "Irish Creme", - "Costa Rican", - "Colombian Supremo", - "Macademia Nut", - "Swiss Chocolate Mocha" -}; - -int -Test_ObjRef::init_parameters (Param_Test_ptr objref, - CORBA::Environment &env) -{ - Coffee::Desc desc; - Generator *gen = GENERATOR::instance (); // value generator - - // first get a Coffee object - this->in_ = objref->make_coffee (env); - if (env.exception ()) - { - env.print_exception ("make_coffee"); - return -1; - } - - // get some sequence length (not more than 10) - CORBA::ULong index = (CORBA::ULong) (gen->gen_long () % 6); - desc.name = Coffee_Flavor [index]; - // set the attribute of the object - this->in_->description (desc, env); // set the attribute for the in object - if (env.exception ()) - { - env.print_exception ("set coffee attribute"); - return -1; - } - return 0; -} - -int -Test_ObjRef::reset_parameters (void) -{ - CORBA::Environment env; - Coffee::Desc desc; - Generator *gen = GENERATOR::instance (); // value generator - - // get some sequence length (not more than 10) - CORBA::ULong index = (CORBA::ULong) (gen->gen_long () % 6); - desc.name = Coffee_Flavor [index]; - // set the attribute of the object - this->in_->description (desc, env); // set the attribute for the in object - if (env.exception ()) - { - env.print_exception ("set coffee attribute"); - return -1; - } - - this->inout_ = Coffee::_nil (); - this->out_ = Coffee::_nil (); - this->ret_ = Coffee::_nil (); - return 0; -} - -int -Test_ObjRef::run_sii_test (Param_Test_ptr objref, - CORBA::Environment &env) -{ - Coffee_out out (this->out_.out ()); - this->ret_ = objref->test_objref (this->in_.in (), - this->inout_.inout (), - out, - env); - return (env.exception () ? -1:0); -} - -int -Test_ObjRef::add_args (CORBA::NVList_ptr param_list, - CORBA::NVList_ptr retval, - CORBA::Environment &env) -{ - CORBA::Any in_arg (_tc_Coffee, - &this->in_, - CORBA::B_FALSE); - - CORBA::Any inout_arg (_tc_Coffee, - &this->inout_, - CORBA::B_FALSE); - - CORBA::Any out_arg (_tc_Coffee, - &this->out_, - CORBA::B_FALSE); - - // add parameters - param_list->add_value ("o1", - in_arg, - CORBA::ARG_IN, - env); - - param_list->add_value ("o2", - inout_arg, - CORBA::ARG_INOUT, - env); - - param_list->add_value ("o3", - out_arg, - CORBA::ARG_OUT, - env); - - // add return value - retval->item (0, env)->value ()->replace (_tc_Coffee, - &this->ret_, - CORBA::B_FALSE, // does not own - env); - return 0; -} - -CORBA::Boolean -Test_ObjRef::check_validity (void) -{ - CORBA::Environment env; - - Coffee::Desc_var in_desc = - this->in_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return 0; - } - char* in = in_desc->name; - - Coffee::Desc_var inout_desc = - this->inout_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return 0; - } - char* inout = inout_desc->name; - - Coffee::Desc_var out_desc = - this->out_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return 0; - } - char* out = out_desc->name; - - Coffee::Desc_var ret_desc = - this->out_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return 0; - } - char* ret = ret_desc->name; - - // now compare them - if (!ACE_OS::strcmp (in, inout) && - !ACE_OS::strcmp (in, out) && - !ACE_OS::strcmp (in, ret)) - return 1; // success - else - return 0; -} - -CORBA::Boolean -Test_ObjRef::check_validity (CORBA::Request_ptr req) -{ - CORBA::Environment env; - this->inout_ = Coffee::_narrow ((CORBA::Object_ptr) req->arguments ()->item - (1, env)->value ()->value (), env); - if (env.exception ()) - { - env.print_exception ("_narrow from DII result"); - return 0; - } - - this->out_ = Coffee::_narrow ((CORBA::Object_ptr) req->arguments ()->item - (2, env)->value ()->value (), env); - if (env.exception ()) - { - env.print_exception ("_narrow from DII result"); - return 0; - } - - this->ret_ = Coffee::_narrow ((CORBA::Object_ptr)req->result ()->value - ()->value (), env); - if (env.exception ()) - { - env.print_exception ("_narrow from DII result"); - return 0; - } - - return this->check_validity (); -} - -void -Test_ObjRef::print_values (void) -{ - CORBA::Environment env; - - Coffee::Desc_var in_desc = - this->in_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return; - } - char* in = in_desc->name; - - Coffee::Desc_var inout_desc = - this->inout_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return; - } - char* inout = inout_desc->name; - - Coffee::Desc_var out_desc = - this->out_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return; - } - char* out = out_desc->name; - - Coffee::Desc_var ret_desc = - this->out_->description (env); - if (env.exception ()) - { - env.print_exception ("retrieving description"); - return; - } - char* ret = ret_desc->name; - - - ACE_DEBUG ((LM_DEBUG, - "\n=*=*=*=*=*=*" - "in = %s, " - "inout = %s, " - "out = %s, " - "ret = %s*=*=*=*=*=\n", - in, - inout, - out, - ret)); -} - |