summaryrefslogtreecommitdiff
path: root/TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp')
-rw-r--r--TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp226
1 files changed, 0 insertions, 226 deletions
diff --git a/TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp b/TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp
deleted file mode 100644
index 0e313d7e7c8..00000000000
--- a/TAO/tests/Cubit/TAO/DII_Cubit/cubitS.cpp
+++ /dev/null
@@ -1,226 +0,0 @@
-// @(#)cubitS.cpp 05/14/97
-// Copyright 1994-1995 by Sun Microsystems Inc.
-// All Rights Reserved
-//
-// TEST: hand-written C-style "Cubit" stubs and "skeletons"
-//
-
-#include "tao/corba.h"
-
-#include "cubitS.h"
-#include "cubitC.cpp"
-
-#include "method_db.i"
-
-TAO_Dynamic_Hash_OpTable tao_cubit_optable (cubit_operations, 7, 14); // Dynamic Operation Table
-
-_skel_Cubit::_skel_Cubit (const char *obj_name)
-{
- const char* mn = "_skel_Cubit::_skel_Cubit ()";
-
- char *type_id = "IDL:Cubit:1.0";
- IIOP_Object *data;
- TAO_ORB_Core *ocp = TAO_ORB_Core_instance ();
- CORBA::POA_ptr oa = ocp->root_poa ();
- CORBA::ORB_ptr orb = ocp->orb ();
-
- if (oa == 0)
- {
- // We just have to assume that oa will be good, or we have to
- // throw an exception. For now we "assume", but we'll
- ACE_ERROR ((LM_ERROR, " (%P|%t) %s Unable to locate a valid object adapter\n", mn));
- return;
- }
-
- this->optable_ = &tao_cubit_optable;
- data = new IIOP_Object (type_id);
-
- data->profile.iiop_version.major = IIOP::MY_MAJOR;
- data->profile.iiop_version.minor = IIOP::MY_MINOR;
- const ACE_INET_Addr& addr = ocp->orb_params ()->addr ();
- data->profile.host = ACE_OS::strdup (addr.get_host_name ());
- data->profile.port = addr.get_port_number ();
- data->profile.object_key.length = ACE_OS::strlen (obj_name);
- data->profile.object_key.maximum = data->profile.object_key.length;
- data->profile.object_key.buffer =
- new CORBA::Octet[(size_t)data->profile.object_key.length + 1];
-
- ACE_OS::memcpy (data->profile.object_key.buffer,
- obj_name,
- data->profile.object_key.length+1);
-
- this->set_parent (data);
- this->sub_ = this;
-
- if (oa->bind (data->profile.object_key, this) == -1)
- ACE_ERROR ((LM_ERROR,
- " (%P|%t) %s Unable to bind object to key '%s': %p\n",
- mn,
- data->profile.object_key.buffer));
-}
-
-void
-_skel_Cubit::_cube_octet_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- CORBA::NVList_ptr nvlist;
- CORBA::NamedValue_ptr nv;
- CORBA::Any temp_value (CORBA::_tc_octet);
-
- req.orb ()->create_list (0, nvlist);
- nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env);
- dexc (env, "cube_octet, add value");
-
- req.params (nvlist, env);
- dexc (env, "cube_octet, get params");
-
- // Call Implementation
- CORBA::Octet *value = new CORBA::Octet;
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
-
- *value = the_cubit->Cubit_cube_octet (*(CORBA::Octet *) nv->value ()->value (), env);
-
- CORBA::Any *any = new CORBA::Any (CORBA::_tc_octet, value, CORBA::B_TRUE);
-
- req.result (any, env);
- dexc (env, "cube_octet, result");
-}
-
-void
-_skel_Cubit::_cube_short_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- CORBA::NVList_ptr nvlist;
- CORBA::NamedValue_ptr nv;
- CORBA::Any temp_value (CORBA::_tc_short);
-
- req.orb ()->create_list (0, nvlist);
- nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env);
- dexc (env, "cube_short, add_value");
-
- req.params (nvlist, env);
- dexc (env, "cube_short, get params");
-
- // Call Implementation
- CORBA::Short *value = new CORBA::Short;
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
- *value = the_cubit->Cubit_cube_short (*(CORBA::Short *) nv->value ()->value (), env);
-
- CORBA::Any *any = new CORBA::Any (CORBA::_tc_short, value, CORBA::B_TRUE);
-
- req.result (any, env);
- dexc (env, "cube_short, result");
-}
-
-void
-_skel_Cubit::_cube_long_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- CORBA::NVList_ptr nvlist;
- CORBA::NamedValue_ptr nv;
- CORBA::Any temp_value (CORBA::_tc_long);
-
- req.orb ()->create_list (0, nvlist);
- nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env);
- dexc (env, "cube_long, add_value");
-
- req.params (nvlist, env);
- dexc (env, "cube_long, get params");
-
- // Call Implementation
- CORBA::Long *value = new CORBA::Long;
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
- *value = the_cubit->Cubit_cube_long (*(CORBA::Long *) nv->value ()->value (), env);
-
- CORBA::Any *any =
- new CORBA::Any (CORBA::_tc_long, value, CORBA::B_TRUE);
-
- req.result (any, env);
- dexc (env, "cube_long, result");
-}
-
-void
-_skel_Cubit::_cube_struct_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- CORBA::NVList_ptr nvlist;
- CORBA::NamedValue_ptr nv;
- CORBA::Any temp_value (TC_Cubit_Many);
-
- req.orb ()->create_list (0, nvlist);
- nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env);
- dexc (env, "cube_struct, add_value");
-
- req.params (nvlist, env);
- dexc (env, "cube_struct, get params");
-
- // Call Implementation
- Cubit_Many *value;
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
- value = the_cubit->Cubit_cube_struct (*(Cubit_Many *) nv->value ()->value (), env);
-
- Cubit_Many *retval = new Cubit_Many;
- retval->o = (CORBA::Octet)value->o;
- retval->s = (CORBA::Short)value->s;
- retval->l = value->l;
-
- // dmsg2 ("cube struct.o, %d -> %d", value->o, retval->o);
- // dmsg2 ("cube struct.s, %d -> %d", value->s, retval->s);
- // dmsg2 ("cube struct.l, %d -> %d", value->l, retval->l);
-
- CORBA::Any *any = new CORBA::Any (TC_Cubit_Many, retval, CORBA::B_TRUE);
-
- req.result (any, env);
- dexc (env, "cube_struct, result");
-}
-
-void
-_skel_Cubit::_cube_union_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- CORBA::NVList_ptr nvlist;
- CORBA::NamedValue_ptr nv;
- CORBA::Any temp_value (TC_Cubit_oneof);
-
- req.orb ()->create_list (0, nvlist);
- nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env);
- dexc (env, "cube_union_3rd, add_value");
-
- req.params (nvlist, env);
- dexc (env, "cube_union_3rd, get params");
-
- // Call Implementation
- Cubit_oneof *v;
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
- v = the_cubit->Cubit_cube_union (*(Cubit_oneof *) nv->value ()->value (), env);
-
- Cubit_oneof *r = new Cubit_oneof;
- r->_disc = v->_disc;
- r->o = (CORBA::Octet) (v->o);
- r->s = (CORBA::Short) (v->s);
- r->l = v->l;
- r->cm.o = (CORBA::Octet) (v->cm.o);
- r->cm.s = (CORBA::Short) (v->cm.s);
- r->cm.l = v->cm.l;
-
- CORBA::Any *any = new CORBA::Any (TC_Cubit_oneof, r, CORBA::B_TRUE);
-
- req.result (any, env);
- dexc (env, "cube_struct, result");
-}
-
-void
-_skel_Cubit::_please_exit_skel (CORBA::ServerRequest &req,
- CORBA::Object_ptr obj,
- CORBA::Environment &env)
-{
- ACE_UNUSED_ARG (req);
-
- Cubit *the_cubit = (Cubit *) obj->get_subclass ();
- the_cubit->Cubit_please_exit (env);
-}
View Lorry Controller Status