diff options
Diffstat (limited to 'TAO/IIOP/test/method_db.i')
-rw-r--r-- | TAO/IIOP/test/method_db.i | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/TAO/IIOP/test/method_db.i b/TAO/IIOP/test/method_db.i deleted file mode 100644 index e23fdbb3a7c..00000000000 --- a/TAO/IIOP/test/method_db.i +++ /dev/null @@ -1,69 +0,0 @@ -// $Id$ - -// @(#)method_db.i 05/14/97 - -// This file provides a way of initializing the method database -// Written by: Brian Mendel - -#include "cubitS.h" - -static void -is_a_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env) -{ - CORBA_NVList_ptr nvlist; - CORBA_NamedValue_ptr nv; - CORBA_Any temp_value (_tc_CORBA_String); - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA_ARG_IN, env); - - req.params (nvlist, env); - if (env.exception () != 0) - { - dexc (env, "is_a_skel, get params"); - return; - } - - CORBA_Boolean *retval; - CORBA_String value = *(CORBA_String *) nv->value()->value(); - - if (ACE_OS::strcmp ((char*)value, "IDL:Cubit:1.0") == 0 - || ACE_OS::strcmp ((char *)value, _tc_CORBA_Object->id (env)) == 0) - retval = new CORBA_Boolean (1); - else - retval = new CORBA_Boolean (0); - - CORBA_Any *any = new CORBA_Any (_tc_CORBA_Boolean, retval, 1); - - req.result (any, env); - dexc (env, "_is_a, result"); -} - - -struct method_db -{ - CORBA_String opname; - TAO_Skeleton skel_ptr; -}; - -static const method_db cubit_operations[] = { - { "_is_a", &is_a_skel }, - { "cube_octet", &_skel_Cubit::_cube_octet_skel }, - { "cube_short", &_skel_Cubit::_cube_short_skel }, - { "cube_long", &_skel_Cubit::_cube_long_skel }, - { "cube_struct", &_skel_Cubit::_cube_struct_skel }, - { "cube_union", &_skel_Cubit::_cube_union_skel }, - { "please_exit", &_skel_Cubit::_please_exit_skel }, - { 0, 0 } -}; - - -void initialize_method_db (TAO_Operation_Table *the_optable) -{ - for (int ndx = 0; ndx < 7; ndx++) - the_optable->bind(cubit_operations[ndx].opname, - cubit_operations[ndx].skel_ptr); - -} |