diff options
Diffstat (limited to 'TAO/IIOP/test')
102 files changed, 0 insertions, 20724 deletions
diff --git a/TAO/IIOP/test/Build/clnt.bld b/TAO/IIOP/test/Build/clnt.bld deleted file mode 100755 index 76e60ef8967..00000000000 --- a/TAO/IIOP/test/Build/clnt.bld +++ /dev/null @@ -1,8 +0,0 @@ -#!build -default: - program - :debuglevel=multi -../cubit.cpp - C++ -../clnt.cpp - C++ diff --git a/TAO/IIOP/test/Build/default.bld b/TAO/IIOP/test/Build/default.bld deleted file mode 100755 index cdf3e2e8210..00000000000 --- a/TAO/IIOP/test/Build/default.bld +++ /dev/null @@ -1,19 +0,0 @@ -#!build -default: - nobuild - :debuglevel=multi - :target=vxwppc - :sourcedirs=/home/ace/ACE_wrappers.vxworks - :sourcedirs=../../proto/include - :sourcedirs=../.. - :libraries=../../proto/lib/tao.a - :libraries=/home/ace/ACE_wrappers.vxworks/ace/libACE.a - :libraries=/appl/newgreen/vxppc603/indlib.o - :defines=DEBUG -clnt.bld - program - :debuglevel=multi -svr.bld - program - :debuglevel=multi - :defines=USE_ACE_EVENT_HANDLING diff --git a/TAO/IIOP/test/Build/svr.bld b/TAO/IIOP/test/Build/svr.bld deleted file mode 100755 index 7c8725356b2..00000000000 --- a/TAO/IIOP/test/Build/svr.bld +++ /dev/null @@ -1,8 +0,0 @@ -#!build -default: - program - :debuglevel=multi -../svr.cpp - C++ -../cubit.cpp - C++ diff --git a/TAO/IIOP/test/Makefile b/TAO/IIOP/test/Makefile deleted file mode 100644 index 3184ea5ecf4..00000000000 --- a/TAO/IIOP/test/Makefile +++ /dev/null @@ -1,121 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Top-level Makefile for the ACE-ified Sun Ref. implementation -# of IIOP ORB -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -LDLIBS = -lcorba - -PROG_SRCS = svr.cpp clnt.cpp cubit.cpp \ - test1.cpp test1_clnt.cpp test1_svr.cpp \ - echo_clnt.cpp echo_svr.cpp - -LSRC = $(PROG_SRCS) - -CUBIT_SVR_OBJS = svr.o cubit_i.o cubitS.o -CUBIT_CLT_OBJS = clnt.o cubitC.o - -BASIC_SVR_OBJS = test1.o test1_svr.o -BASIC_CLT_OBJS = test1.o test1_clnt.o - -ECHO_SVR_OBJS = test1.o echo_svr.o -ECHO_CLT_OBJS = test1.o echo_clnt.o - -BIN = svr clnt test1_svr test1_clnt -BUILD = $(BIN) -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -# Local modifications to variables imported by includes above. -LDFLAGS += -L../proto/lib -CPPFLAGS += -I../proto/include -DUSE_ACE_EVENT_HANDLING -DDEBUG - -svr: $(addprefix $(VDIR),$(CUBIT_SVR_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) - -clnt: $(addprefix $(VDIR),$(CUBIT_CLT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) - -test1_svr: $(addprefix $(VDIR),$(BASIC_SVR_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) - -test1_clnt: $(addprefix $(VDIR),$(BASIC_CLT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) - -######## -# Sanity check builds by running basic functionality tests. -# -# "sleep 5" in the server startup is usually enough to get the -# objref into the file so the client can read it. -# -check: $(TESTS) - @echo "testing with 'cube' calls, stub + DII, IOR strings" - @./svr -i30 -o non-internet > obj.1 & sleep 5 - @./clnt -n250 -O `cat obj.1` -x - @echo '' - @echo "testing request forwarding with 'cube' calls, stub + DII" - @./svr -f -i30 > obj.2 & sleep 5 - @./clnt -n250 -O `cat obj.2` -x - @echo '' - @echo "testing transmission of primitive data types" - @./test1_svr -i30 > obj.3 & sleep 5 - @./test1_clnt -n50 -O `cat obj.3` -x - @echo '' -# @echo "testing echo of primitive data values" -# @./echo_svr -i30 > obj.4 & sleep 5 -# @./echo_clnt -O `cat obj.4` -x -# @echo '' - @echo "testing with 'cube' calls, MT-ized (no forwarding)" - @./svr -t -i30 -o non-internet > obj.5 & sleep 5 - @./clnt -n250 -O `cat obj.5` -x - @echo '' - -ifdef LOCALRULES -######## -# CUBIT test -svr: svr.o cubit.o - $(LINK.cc) -o svr svr.o cubit.o $(LDLIBS) -clnt: cubit.o clnt.o - $(LINK.cc) -o clnt clnt.o cubit.o $(LDLIBS) - -######## -# BASIC DATATYPES test -test1_clnt: test1.o test1_clnt.o - $(LINK.cc) -o test1_clnt test1_clnt.o test1.o $(LDLIBS) -test1_svr: test1.o test1_svr.o - $(LINK.cc) -o test1_svr test1_svr.o test1.o $(LDLIBS) - -######## -# ECHO test ... "test1" where the operation semantics are violated; -# this aids some porting work, but is a less rigorous test -echo_clnt: test1.o echo_clnt.o - $(LINK.cc) -o echo_clnt echo_clnt.o test1.o $(LDLIBS) -echo_svr: test1.o echo_svr.o - $(LINK.cc) -o echo_svr echo_svr.o test1.o $(LDLIBS) -endif - -clean: - -rm -rf *.o Log $(BIN) obj.* core Templates.DB .make.state - -install: - -@echo "Nothing to install, these are tests!" - - - - - diff --git a/TAO/IIOP/test/Orbeline/base_server/Makefile b/TAO/IIOP/test/Orbeline/base_server/Makefile deleted file mode 100644 index 9fdad280ffc..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -include stdmk - -EXE = server - -all: $(EXE) - -clean: - -rm -f core *.o cubitC.* cubitS.* $(EXE) - -rm -rf Templates.DB - -cubitS.cpp: cubit.idl - $(ORBCC) cubit.idl - -cubitC.cpp: cubit.idl - $(ORBCC) cubit.idl - -server: cubitS.o cubitC.o server.o Profile_Timer.o cubit_impl.o - $(CC) -o server cubitS.o cubitC.o cubit_impl.o server.o Profile_Timer.o \ - $(LIBPATH) $(LIBORB) $(STDCC_LIBS) diff --git a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp b/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp deleted file mode 100644 index a871b9cf179..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.cpp +++ /dev/null @@ -1,127 +0,0 @@ -#include "Profile_Timer.h" - -/* Initialize interval timer. */ - -Profile_Timer::Profile_Timer (void) -{ - char buf[20]; - ::sprintf(buf, "/proc/%d", ::getpid ()); - - ::memset (&this->end_usage_, 0, sizeof this->end_usage_); - ::memset (&this->begin_usage_, 0, sizeof this->begin_usage_); - ::memset (&this->last_usage_, 0, sizeof this->last_usage_); - if ((this->proc_fd_ = ::open (buf, O_RDONLY, 0)) == -1) - ::perror (buf); -} - -/* Terminate the interval timer. */ -Profile_Timer::~Profile_Timer (void) -{ - if (::close (this->proc_fd_) == -1) - ::perror ("Profile_Timer::~Profile_Timer"); -} - -/* Return the resource utilization. */ - -void -Profile_Timer::get_rusage (prusage_t &rusage) -{ - rusage = this->end_usage_; -} - -/* Compute the amount of resource utilization since the start time. */ - -void -Profile_Timer::elapsed_rusage (prusage_t &rusage) -{ - rusage.pr_lwpid = this->end_usage_.pr_lwpid - this->last_usage_.pr_lwpid; - rusage.pr_count = this->end_usage_.pr_count - this->last_usage_.pr_count; - rusage.pr_minf = this->end_usage_.pr_minf - this->last_usage_.pr_minf; - rusage.pr_majf = this->end_usage_.pr_majf - this->last_usage_.pr_majf; - rusage.pr_inblk = this->end_usage_.pr_inblk - this->last_usage_.pr_inblk; - rusage.pr_oublk = this->end_usage_.pr_oublk - this->last_usage_.pr_oublk; - rusage.pr_msnd = this->end_usage_.pr_msnd - this->last_usage_.pr_msnd; - rusage.pr_mrcv = this->end_usage_.pr_mrcv - this->last_usage_.pr_mrcv; - rusage.pr_sigs = this->end_usage_.pr_sigs - this->last_usage_.pr_sigs; - this->subtract (rusage.pr_wtime, this->end_usage_.pr_wtime, this->last_usage_.pr_wtime); - this->subtract (rusage.pr_ltime, this->end_usage_.pr_ltime, this->last_usage_.pr_ltime); - this->subtract (rusage.pr_slptime, this->end_usage_.pr_slptime, this->last_usage_.pr_slptime); - rusage.pr_vctx = this->end_usage_.pr_vctx - this->last_usage_.pr_vctx; - rusage.pr_ictx = this->end_usage_.pr_ictx - this->last_usage_.pr_ictx; - rusage.pr_sysc = this->end_usage_.pr_sysc - this->last_usage_.pr_sysc; - rusage.pr_ioch = this->end_usage_.pr_ioch - this->last_usage_.pr_ioch; -} - -/* Compute the elapsed time. */ - -void -Profile_Timer::compute_times (Elapsed_Time &et, prusage_t &end, prusage_t &begin) -{ - timespec_t td; - - this->subtract (td, end.pr_tstamp, begin.pr_tstamp); - et.real_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_utime, begin.pr_utime); - et.user_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_stime, begin.pr_stime); - et.system_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); -} - -/* Compute the amount of time that has elapsed between start and stop. */ - -int -Profile_Timer::elapsed_time (Elapsed_Time &et) -{ - this->compute_times (et, this->end_usage_, this->begin_usage_); - return 0; -} - -/* Determine the difference between T1 and T2. */ - -void -Profile_Timer::subtract (timespec_t &tdiff, timespec_t &t1, timespec_t &t0) -{ - tdiff.tv_sec = t1.tv_sec - t0.tv_sec; - tdiff.tv_nsec = t1.tv_nsec - t0.tv_nsec; - - /* Normalize the time. */ - - while (tdiff.tv_nsec < 0) - { - tdiff.tv_sec--; - tdiff.tv_nsec += (1000 * 1000 * 1000); - } -} - -#if defined (DEBUG) -#include <stdlib.h> -extern "C" int gettimeofday (timeval *tp); - -const int DEFAULT_ITERATIONS = 1000000; - -int -main (int argc, char *argv[]) -{ - Profile_Timer timer; - int iterations = argc > 1 ? atoi (argv[1]) : DEFAULT_ITERATIONS; - timeval tv; - - timer.start (); - - for (int i = 0; i < iterations; i++) - gettimeofday (&tv); - - timer.stop (); - - Profile_Timer::Elapsed_Time et; - - timer.elapsed_time (et); - - printf ("iterations = %d\n", iterations); - printf ("real time = %f secs, user time = %f secs, system time = %f secs\n", - et.real_time, et.user_time, et.system_time); - - printf ("time per call = %f usecs\n", (et.real_time / double (iterations)) * 1000000); - return 0; -} -#endif /* DEBUG */ diff --git a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h b/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h deleted file mode 100644 index f001f59be9a..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/Profile_Timer.h +++ /dev/null @@ -1,60 +0,0 @@ -/* -*- C++ -*- */ -/* An interval timer class using C++. */ - -#if !defined (ACE_PROFILE_TIMER_H) -#define ACE_PROFILE_TIMER_H - -#include <sys/types.h> -#include <unistd.h> -#include <fcntl.h> -#include <sys/procfs.h> -#include <stdio.h> -#include <memory.h> - -class Profile_Timer -{ -public: - struct Elapsed_Time - { - double real_time; - double user_time; - double system_time; - }; - - Profile_Timer (void); - ~Profile_Timer (void); - int start (void); - int stop (void); - int elapsed_time (Elapsed_Time &et); - void elapsed_rusage (prusage_t &rusage); - void get_rusage (prusage_t &rusage); - -private: - void subtract (timespec_t &tdiff, timespec_t &t0, timespec_t &t1); - void compute_times (Elapsed_Time &et, prusage_t &, prusage_t &); - - prusage_t begin_usage_; - prusage_t end_usage_; - prusage_t last_usage_; - int proc_fd_; -}; - -/* Start timing */ - -inline int -Profile_Timer::start (void) -{ - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->begin_usage_); -} - -/* Stop timing */ - -inline int -Profile_Timer::stop (void) -{ - this->last_usage_ = this->end_usage_; - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->end_usage_); -} - -#endif /* ACE_PROFILE_TIMER_H */ - diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit.idl b/TAO/IIOP/test/Orbeline/base_server/cubit.idl deleted file mode 100644 index 3e2ea392619..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. -// -//#pragma prefix "Eng.SUN.COM" -//#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp b/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp deleted file mode 100644 index 63c0bb3105f..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.cpp +++ /dev/null @@ -1,46 +0,0 @@ -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit () - {} diff --git a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h b/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h deleted file mode 100644 index 0f6fd7dd6db..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/cubit_impl.h +++ /dev/null @@ -1,33 +0,0 @@ - -#ifndef cubit_ih -#define cubit_ih - -#include "cubitS.h" - - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual _sk_Cubit { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ - -public: - -#ifdef Cubit_USE_BOA - Cubit_Impl (const char *obj_name = NULL) : - _sk_Cubit(obj_name) - {} -#else - Cubit_Impl (const char *obj_name = NULL) - {} -#endif /* Cubit_USE_BOA */ - - virtual CORBA::Octet cube_octet(CORBA::Octet o); - virtual CORBA::Short cube_short(CORBA::Short s); - virtual CORBA::Long cube_long(CORBA::Long l); - virtual Cubit::Many cube_struct(const Cubit::Many& values); - virtual Cubit::oneof cube_union(const Cubit::oneof& values); - virtual void please_exit(); -}; - -#endif diff --git a/TAO/IIOP/test/Orbeline/base_server/server.cpp b/TAO/IIOP/test/Orbeline/base_server/server.cpp deleted file mode 100644 index a4a1c85ed47..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/server.cpp +++ /dev/null @@ -1,49 +0,0 @@ -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#include "cubit_impl.h" // server header file - -int -main (int argc, char** argv) -{ - - CORBA::ORB_var orb = CORBA::ORB_init(argc, argv); - CORBA::BOA_var boa = orb->BOA_init(argc, argv); - -#ifdef Cubit_USE_BOA - Cubit_Impl cb("Cubit"); - cout << "Using BOA approach" << endl; -#else - Cubit_Impl tied("Cubit"); - _tie_Cubit<Cubit_Impl> cb(tied, "Cubit"); - - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // - // Go get some work to do.... - // - try { - - boa->obj_is_ready(&cb); - - boa->impl_is_ready(); - - } catch (const CORBA::Exception &excep) { - cerr << "Server error: " << excep << endl; - return -1; - } catch (...) { - cerr << "Unknown exception" << endl; - return -1; - } - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbeline/base_server/stdmk b/TAO/IIOP/test/Orbeline/base_server/stdmk deleted file mode 100644 index df4125a38d8..00000000000 --- a/TAO/IIOP/test/Orbeline/base_server/stdmk +++ /dev/null @@ -1,36 +0,0 @@ -CC = CC -DEBUG = - -ORBELINEDIR = /project/waltz/Orbeline2.0 - -ORBCC = $(ORBELINEDIR)/bin/orbeline -v C -m S -c cpp -h h - -CCINCLUDES = -I. -I$(ORBELINEDIR)/include -I$(STL_DIR) -I$(ACE_DIR) - -CCFLAGS = -g $(CCINCLUDES) $(DEBUG) -DCubit_USE_BOA - -LIBPATH = -L$(ORBELINEDIR)/lib -L$(ACE_DIR)/ace - -STDCC_LIBS = -lsocket -lnsl -ldl -mt - -LIBORB = -lorb - -LIBACE = -lACE - -.SUFFIXES: .C .o .h .hh .cc .cpp - -.C.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.cc.o: - $(CC) $(CCFLAGS) -c -o $@ $< -.cpp.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.C.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - -.cc.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - - diff --git a/TAO/IIOP/test/Orbeline/client/Makefile b/TAO/IIOP/test/Orbeline/client/Makefile deleted file mode 100644 index d9c26fe56f0..00000000000 --- a/TAO/IIOP/test/Orbeline/client/Makefile +++ /dev/null @@ -1,19 +0,0 @@ -include stdmk - -EXE = client - -all: $(EXE) - -clean: - -rm -f core *.o cubitC.* cubitS.* $(EXE) - -rm -rf Templates.DB - -cubitS.cpp: cubit.idl - $(ORBCC) cubit.idl - -cubitC.cpp: cubit.idl - $(ORBCC) cubit.idl - -client: cubitC.o Profile_Timer.o client.o - $(CC) -o client cubitC.o Profile_Timer.o client.o \ - $(LIBPATH) $(LIBORB) $(STDCC_LIBS) diff --git a/TAO/IIOP/test/Orbeline/client/Profile_Timer.cpp b/TAO/IIOP/test/Orbeline/client/Profile_Timer.cpp deleted file mode 100644 index a871b9cf179..00000000000 --- a/TAO/IIOP/test/Orbeline/client/Profile_Timer.cpp +++ /dev/null @@ -1,127 +0,0 @@ -#include "Profile_Timer.h" - -/* Initialize interval timer. */ - -Profile_Timer::Profile_Timer (void) -{ - char buf[20]; - ::sprintf(buf, "/proc/%d", ::getpid ()); - - ::memset (&this->end_usage_, 0, sizeof this->end_usage_); - ::memset (&this->begin_usage_, 0, sizeof this->begin_usage_); - ::memset (&this->last_usage_, 0, sizeof this->last_usage_); - if ((this->proc_fd_ = ::open (buf, O_RDONLY, 0)) == -1) - ::perror (buf); -} - -/* Terminate the interval timer. */ -Profile_Timer::~Profile_Timer (void) -{ - if (::close (this->proc_fd_) == -1) - ::perror ("Profile_Timer::~Profile_Timer"); -} - -/* Return the resource utilization. */ - -void -Profile_Timer::get_rusage (prusage_t &rusage) -{ - rusage = this->end_usage_; -} - -/* Compute the amount of resource utilization since the start time. */ - -void -Profile_Timer::elapsed_rusage (prusage_t &rusage) -{ - rusage.pr_lwpid = this->end_usage_.pr_lwpid - this->last_usage_.pr_lwpid; - rusage.pr_count = this->end_usage_.pr_count - this->last_usage_.pr_count; - rusage.pr_minf = this->end_usage_.pr_minf - this->last_usage_.pr_minf; - rusage.pr_majf = this->end_usage_.pr_majf - this->last_usage_.pr_majf; - rusage.pr_inblk = this->end_usage_.pr_inblk - this->last_usage_.pr_inblk; - rusage.pr_oublk = this->end_usage_.pr_oublk - this->last_usage_.pr_oublk; - rusage.pr_msnd = this->end_usage_.pr_msnd - this->last_usage_.pr_msnd; - rusage.pr_mrcv = this->end_usage_.pr_mrcv - this->last_usage_.pr_mrcv; - rusage.pr_sigs = this->end_usage_.pr_sigs - this->last_usage_.pr_sigs; - this->subtract (rusage.pr_wtime, this->end_usage_.pr_wtime, this->last_usage_.pr_wtime); - this->subtract (rusage.pr_ltime, this->end_usage_.pr_ltime, this->last_usage_.pr_ltime); - this->subtract (rusage.pr_slptime, this->end_usage_.pr_slptime, this->last_usage_.pr_slptime); - rusage.pr_vctx = this->end_usage_.pr_vctx - this->last_usage_.pr_vctx; - rusage.pr_ictx = this->end_usage_.pr_ictx - this->last_usage_.pr_ictx; - rusage.pr_sysc = this->end_usage_.pr_sysc - this->last_usage_.pr_sysc; - rusage.pr_ioch = this->end_usage_.pr_ioch - this->last_usage_.pr_ioch; -} - -/* Compute the elapsed time. */ - -void -Profile_Timer::compute_times (Elapsed_Time &et, prusage_t &end, prusage_t &begin) -{ - timespec_t td; - - this->subtract (td, end.pr_tstamp, begin.pr_tstamp); - et.real_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_utime, begin.pr_utime); - et.user_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); - this->subtract (td, end.pr_stime, begin.pr_stime); - et.system_time = td.tv_sec + ((double) td.tv_nsec) / (1000 * 1000 * 1000); -} - -/* Compute the amount of time that has elapsed between start and stop. */ - -int -Profile_Timer::elapsed_time (Elapsed_Time &et) -{ - this->compute_times (et, this->end_usage_, this->begin_usage_); - return 0; -} - -/* Determine the difference between T1 and T2. */ - -void -Profile_Timer::subtract (timespec_t &tdiff, timespec_t &t1, timespec_t &t0) -{ - tdiff.tv_sec = t1.tv_sec - t0.tv_sec; - tdiff.tv_nsec = t1.tv_nsec - t0.tv_nsec; - - /* Normalize the time. */ - - while (tdiff.tv_nsec < 0) - { - tdiff.tv_sec--; - tdiff.tv_nsec += (1000 * 1000 * 1000); - } -} - -#if defined (DEBUG) -#include <stdlib.h> -extern "C" int gettimeofday (timeval *tp); - -const int DEFAULT_ITERATIONS = 1000000; - -int -main (int argc, char *argv[]) -{ - Profile_Timer timer; - int iterations = argc > 1 ? atoi (argv[1]) : DEFAULT_ITERATIONS; - timeval tv; - - timer.start (); - - for (int i = 0; i < iterations; i++) - gettimeofday (&tv); - - timer.stop (); - - Profile_Timer::Elapsed_Time et; - - timer.elapsed_time (et); - - printf ("iterations = %d\n", iterations); - printf ("real time = %f secs, user time = %f secs, system time = %f secs\n", - et.real_time, et.user_time, et.system_time); - - printf ("time per call = %f usecs\n", (et.real_time / double (iterations)) * 1000000); - return 0; -} -#endif /* DEBUG */ diff --git a/TAO/IIOP/test/Orbeline/client/Profile_Timer.h b/TAO/IIOP/test/Orbeline/client/Profile_Timer.h deleted file mode 100644 index f001f59be9a..00000000000 --- a/TAO/IIOP/test/Orbeline/client/Profile_Timer.h +++ /dev/null @@ -1,60 +0,0 @@ -/* -*- C++ -*- */ -/* An interval timer class using C++. */ - -#if !defined (ACE_PROFILE_TIMER_H) -#define ACE_PROFILE_TIMER_H - -#include <sys/types.h> -#include <unistd.h> -#include <fcntl.h> -#include <sys/procfs.h> -#include <stdio.h> -#include <memory.h> - -class Profile_Timer -{ -public: - struct Elapsed_Time - { - double real_time; - double user_time; - double system_time; - }; - - Profile_Timer (void); - ~Profile_Timer (void); - int start (void); - int stop (void); - int elapsed_time (Elapsed_Time &et); - void elapsed_rusage (prusage_t &rusage); - void get_rusage (prusage_t &rusage); - -private: - void subtract (timespec_t &tdiff, timespec_t &t0, timespec_t &t1); - void compute_times (Elapsed_Time &et, prusage_t &, prusage_t &); - - prusage_t begin_usage_; - prusage_t end_usage_; - prusage_t last_usage_; - int proc_fd_; -}; - -/* Start timing */ - -inline int -Profile_Timer::start (void) -{ - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->begin_usage_); -} - -/* Stop timing */ - -inline int -Profile_Timer::stop (void) -{ - this->last_usage_ = this->end_usage_; - return ::ioctl (this->proc_fd_, PIOCUSAGE, &this->end_usage_); -} - -#endif /* ACE_PROFILE_TIMER_H */ - diff --git a/TAO/IIOP/test/Orbeline/client/client.cpp b/TAO/IIOP/test/Orbeline/client/client.cpp deleted file mode 100644 index c2b1d4070ae..00000000000 --- a/TAO/IIOP/test/Orbeline/client/client.cpp +++ /dev/null @@ -1,230 +0,0 @@ -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include <iostream.h> -#include <stdio.h> -#include <string.h> -#include <time.h> -#include <stdlib.h> -#include "cubitC.h" -#include "Profile_Timer.h" - -int LOOP_COUNT; -char SERVER_HOST [1024]; - -inline int func (unsigned i) { return i - 117; } -void run_tests (Cubit_var, int); - -// = TITLE -// Parses the command line arguments and returns an error status -// -// = DESCRIPTION -// This method parses the command line arguments -int parse_args(int argc, char *argv[]) -{ - if (argc != 3) { - cerr << "Format: client <machine name> <loop count>" << endl; - return -1; - } - - strcpy(SERVER_HOST, argv[1]); - - LOOP_COUNT = atoi(argv[2]); - - return 0; // Indicates successful parsing of command line -} - - -// -// Mainline -// -int -main (int argc, char *argv[]) -{ - if (parse_args (argc, argv) != 0) - return -1; - - Cubit_var cb; - // cout << "attempting to contact server at host " << SERVER_HOST << '\n' ; - - // - // Initialise client's binding to an - // arbitrary cubit server (at some host) - // - try { - cb = Cubit::_bind ("Cubit", SERVER_HOST); - - } catch (const CORBA::Exception & sysEx) { - cerr << "Binding failed: " << endl; - cerr << sysEx; - } catch (...) { - cerr << "Unexpected exception" << endl; - } - - run_tests (cb, LOOP_COUNT); - return 0; -} - - -void -run_tests (Cubit_var cb, int loop_count) -{ - // - // Make the calls in a loop. - // - unsigned i; - unsigned call_count, error_count; - - call_count = 0; - error_count = 0; - - Profile_Timer pt; - - pt.start(); - // - // Cube an octet. - // - - for (i = 0; i < loop_count; i++) - { - - call_count++; - - CORBA::Octet arg_octet = func (i), ret_octet; - - try { - ret_octet = cb->cube_octet (arg_octet); - - } catch (const CORBA::Exception &sysEx) { - cerr << "Call failed: " << endl; - cerr << sysEx; - error_count++; - } catch (...) { - cerr << "Unexpected exception" << endl; - error_count++; - } - - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - printf ("** cube_octet(%d) (--> %d)\n", arg_octet , ret_octet); - error_count++; - } - - - // - // Cube a short. - // - call_count++; - - CORBA::Short arg_short = func (i), ret_short; - - try { - ret_short = cb->cube_short (arg_short); - - } catch (const CORBA::Exception &sysEx) { - cerr << "Call failed: " << endl; - cerr << sysEx; - error_count++; - } catch (...) { - cerr << "Unexpected exception" << endl; - error_count++; - } - - arg_short = arg_short * arg_short * arg_short; - if (arg_short != ret_short) { - printf ("** cube_short(%d) (--> %d)\n", arg_short , ret_short); - error_count++; - } - - // - // Cube a long. - // - - call_count++; - - CORBA::Long arg_long = func (i), ret_long; - - try { - ret_long = cb->cube_long (arg_long); - } catch (const CORBA::Exception &sysEx) { - cerr << "Call failed: " << endl; - cerr << sysEx; - error_count++; - } catch (...) { - cerr << "Unexpected exception" << endl; - error_count++; - } - - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - printf ("** cube_long(%d) (--> %d)\n", arg_long , ret_long); - error_count++; - } - - - // - // Cube a "struct" ... - // - Cubit::Many arg_struct, ret_struct; - - call_count++; - - arg_struct.l = func (i); - arg_struct.s = func (i); - arg_struct.o = func (i); - - try { - ret_struct = cb->cube_struct (arg_struct); - - } catch (const CORBA::Exception &sysEx) { - cerr << "Call failed: " << endl; - cerr << sysEx; - error_count++; - } catch (...) { - cerr << "Unexpected exception" << endl; - error_count++; - } - - - arg_struct.l = arg_struct.l * arg_struct.l * arg_struct.l ; - arg_struct.s = arg_struct.s * arg_struct.s * arg_struct.s ; - arg_struct.o = arg_struct.o * arg_struct.o * arg_struct.o ; - - if (arg_struct.l != ret_struct.l - || arg_struct.s != ret_struct.s - || arg_struct.o != ret_struct.o ) - { - cerr << "** cube_struct ERROR\n"; - error_count++; - } - } - - pt.stop(); - - Elapsed_Time et; - pt.elapsed_time(et); - - if (call_count > 0) - { - if (error_count == 0) - { - unsigned long us = et.real_time * 1000 * 1000; - - us /= call_count; - - if (us > 0) - printf ("cube average call ACE_OS::time\t= %ld.%.03ldms, \t" - "%ld calls/second\n", - us / 1000, us % 1000, - 1000000L / us); - } - - printf ("%d calls, %d errors\n", call_count, error_count); - } -} diff --git a/TAO/IIOP/test/Orbeline/client/cubit.idl b/TAO/IIOP/test/Orbeline/client/cubit.idl deleted file mode 100644 index 3e2ea392619..00000000000 --- a/TAO/IIOP/test/Orbeline/client/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. -// -//#pragma prefix "Eng.SUN.COM" -//#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbeline/client/stdmk b/TAO/IIOP/test/Orbeline/client/stdmk deleted file mode 100644 index df4125a38d8..00000000000 --- a/TAO/IIOP/test/Orbeline/client/stdmk +++ /dev/null @@ -1,36 +0,0 @@ -CC = CC -DEBUG = - -ORBELINEDIR = /project/waltz/Orbeline2.0 - -ORBCC = $(ORBELINEDIR)/bin/orbeline -v C -m S -c cpp -h h - -CCINCLUDES = -I. -I$(ORBELINEDIR)/include -I$(STL_DIR) -I$(ACE_DIR) - -CCFLAGS = -g $(CCINCLUDES) $(DEBUG) -DCubit_USE_BOA - -LIBPATH = -L$(ORBELINEDIR)/lib -L$(ACE_DIR)/ace - -STDCC_LIBS = -lsocket -lnsl -ldl -mt - -LIBORB = -lorb - -LIBACE = -lACE - -.SUFFIXES: .C .o .h .hh .cc .cpp - -.C.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.cc.o: - $(CC) $(CCFLAGS) -c -o $@ $< -.cpp.o: - $(CC) $(CCFLAGS) -c -o $@ $< - -.C.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - -.cc.cpp: - $(CC) -E $(CCFLAGS) $< > $@ - - diff --git a/TAO/IIOP/test/Orbix/Makefile b/TAO/IIOP/test/Orbix/Makefile deleted file mode 100644 index 96935fb78fc..00000000000 --- a/TAO/IIOP/test/Orbix/Makefile +++ /dev/null @@ -1,28 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the Gateway application -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -INFO = README - -DIRS = base_server \ - client \ - tpr \ - tpool \ - tps - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nolocal.GNU - diff --git a/TAO/IIOP/test/Orbix/base_server/Makefile b/TAO/IIOP/test/Orbix/base_server/Makefile deleted file mode 100644 index dc3604d3f35..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitS.cpp cubit_impl.cpp server.cpp - -SVR_OBJS = cubitS.o cubit_impl.o server.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -# Remove -DCubit_USE_BOA from below to use the TIE approach - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -DCubit_USE_BOA -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: server - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/base_server/cubit.h b/TAO/IIOP/test/Orbix/base_server/cubit.h deleted file mode 100644 index 1c868a6597d..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubit.h +++ /dev/null @@ -1,727 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" -#include <CORBA.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/base_server/cubit.idl b/TAO/IIOP/test/Orbix/base_server/cubit.idl deleted file mode 100644 index d9b38c34a2a..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbix/base_server/cubitC.cpp b/TAO/IIOP/test/Orbix/base_server/cubitC.cpp deleted file mode 100644 index c47e38f26ee..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubitC.cpp +++ /dev/null @@ -1,557 +0,0 @@ -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/base_server/cubitC.h b/TAO/IIOP/test/Orbix/base_server/cubitC.h deleted file mode 100644 index 15247168d3c..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubitC.h +++ /dev/null @@ -1,343 +0,0 @@ -#ifndef _cubitC_h -#define _cubitC_h - -/************************************************************************/ -/* */ -/* This file is automatically generated by ORBeline IDL compiler */ -/* Do not modify this file. */ -/* */ -/* ORBeline (c) is copyrighted by PostModern Computing, Inc. */ -/* */ -/* The generated code conforms to OMG's IDL C++ mapping as */ -/* specified in OMG Document Number: 94-9-14. */ -/* */ -/************************************************************************/ - -#include "corba.h" - - - -class Cubit; -typedef Cubit *Cubit_ptr; -typedef Cubit_ptr CubitRef; - -#ifndef _Cubit_var_ -#define _Cubit_var_ -class Cubit_var -{ - public: - Cubit_var(); - Cubit_var(Cubit_ptr); - Cubit_var(const Cubit_var&); - ~Cubit_var(); - Cubit_var& operator=(Cubit_ptr); - operator Cubit_ptr() const { return _ptr; } -#if defined(_HPCC_BUG) - operator Cubit *&() { return _ptr; } -#else - operator Cubit_ptr&() { return _ptr; } -#endif - Cubit_ptr operator->() const { return _ptr;} - friend NCistream& operator>>(NCistream&, Cubit_var&); - friend NCostream& operator<<(NCostream&, const Cubit_var&); - friend istream& operator>>(istream&, Cubit_var&); - friend ostream& operator<<(ostream&, const Cubit_var&); - private: - Cubit_ptr _ptr; - void operator=(const Cubit_var&) {} -}; -#endif -class Cubit: public virtual CORBA_Object -{ - private: - static const CORBA::TypeInfo _class_info; - Cubit(const Cubit&) {} - void operator=(const Cubit&){} - public: - static const CORBA::TypeInfo *_desc(); - virtual const CORBA::TypeInfo *_type_info() const; - virtual void *_safe_narrow(const CORBA::TypeInfo& ) const; - static CORBA::Object *_factory(); - protected: - Cubit(const char *obj_name = NULL) :CORBA_Object(obj_name, 1) {} - Cubit(NCistream& strm) :CORBA_Object(strm) {} - virtual ~Cubit() {} - public: - static Cubit_ptr _duplicate(Cubit_ptr obj) { - if (obj ) obj->_ref(); - return obj; - } - static Cubit_ptr _nil() { return (Cubit_ptr)NULL;} - static Cubit_ptr _narrow(CORBA::Object *obj); - static Cubit_ptr _clone(Cubit_ptr obj) { - CORBA::Object_var obj_var(__clone(obj)); - -#if defined(_HPCC_BUG) - return _narrow(obj_var.operator CORBA::Object_ptr()); -#else - return _narrow(obj_var); -#endif - } - static Cubit_ptr _bind(const char *object_name = NULL, - const char *host_name = NULL, - const CORBA::BindOptions* opt = NULL); - - virtual CORBA::Octet cube_octet(CORBA::Octet o); - - virtual CORBA::Short cube_short(CORBA::Short s); - - virtual CORBA::Long cube_long(CORBA::Long l); - - struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - }; - friend NCostream& operator<<(NCostream&, const Many& ); - friend NCistream& operator>>(NCistream&, Many& ); - - friend ostream& operator<<(ostream&, const Many& ); - inline friend istream& operator>>(istream& _strm, Many& _obj) { - NCistream _istrm(_strm); - _istrm >> _obj; - return _strm; - } - - - typedef Many *Many_ptr; - class Many_var - { - public: - Many_var() { _ptr = (Many*)NULL;} - Many_var(Many *ptr) { - _ptr = ptr; - } - Many_var(const Many_var& var) { - if (var._ptr) - _ptr = new Many(*var._ptr); - else - _ptr = (Many *)NULL; - } - ~Many_var() { - if (_ptr != (Many *)NULL) delete _ptr; - } - Many_var& operator=(Many *ptr) { - if (_ptr != (Many *)NULL) delete _ptr; - _ptr = ptr; - return *this; - } - Many_var& operator=(const Many_var& var) { - if (_ptr != (Many *)NULL) delete _ptr; - if (var._ptr) - _ptr = new Many(*var._ptr); - else - _ptr = (Many *)NULL; - return *this; - } - Many *operator->() { return _ptr; } - operator Many () const { return *_ptr; } - operator Many& () { return *_ptr; } - inline friend NCostream& operator<<(NCostream& strm, - const Many_var& var) { - if (var._ptr == (Many *)NULL) { - throw CORBA::BAD_PARAM(); - } - else - strm << *var._ptr; - return strm; - } - inline friend NCistream& operator>>(NCistream& strm, - Many_var& var) { - if ( ! var._ptr) - var._ptr = new Many; - strm >> *var._ptr; - return strm; - } - private: - Many *_ptr; - }; - - - virtual Cubit::Many cube_struct(const Cubit::Many& values); - - enum discrim { - e_0th, - e_1st, - e_2nd, - e_3rd, - e_4th, - e_5th - }; - inline friend NCostream& operator<<(NCostream& _strm, discrim _enum_type) { - _strm << (CORBA::ULong)_enum_type; - return _strm; - } - inline friend NCistream& operator>>(NCistream& _strm, discrim& _enum_type) { - CORBA::ULong _temp; - _strm >> _temp; - if (_temp >= 6) - throw CORBA::BAD_PARAM(); - _enum_type = discrim(_temp); - return _strm; - } - inline friend ostream& operator<<(ostream& _strm, discrim _enum_type) { - if( &_strm == &cout || &_strm == &cerr || &_strm == &clog) { - _strm << "discrim:"; - switch(_enum_type) { - case e_0th: - _strm << "e_0th" << endl; - break; - case e_1st: - _strm << "e_1st" << endl; - break; - case e_2nd: - _strm << "e_2nd" << endl; - break; - case e_3rd: - _strm << "e_3rd" << endl; - break; - case e_4th: - _strm << "e_4th" << endl; - break; - case e_5th: - _strm << "e_5th" << endl; - break; - } - } - else - _strm << (CORBA::ULong)_enum_type; - return _strm; - } - inline friend istream& operator>>(istream& _strm, discrim& _enum_type) { - CORBA::ULong _temp; - _strm >> _temp; - _enum_type = discrim(_temp); - return _strm; - } - - - class oneof - { - public: - private: - discrim _disc; - CORBA::Octet __o; - CORBA::Short __s; - CORBA::Long __l; - Cubit::Many __cm; - public: - oneof() : _disc(discrim(0)) {} - ~oneof() {} - oneof(const oneof& obj); - oneof& operator=(const oneof& obj); - - void _d(discrim val) { _disc = val; } - discrim _d() const { return _disc; } - - void o(CORBA::Octet val) { - __o = val; - _disc = Cubit::e_0th; - } - CORBA::Octet o() const { return __o; } - - void s(CORBA::Short val) { - __s = val; - _disc = Cubit::e_1st; - } - CORBA::Short s() const { return __s; } - - void l(CORBA::Long val) { - __l = val; - _disc = Cubit::e_2nd; - } - CORBA::Long l() const { return __l; } - - void cm(const Cubit::Many& val) { - __cm = val; - _disc = Cubit::e_3rd; - } - const Cubit::Many& cm() const { return __cm; } - Cubit::Many& cm() { return __cm; } - - friend NCostream& operator<<(NCostream&, const oneof& ); - friend NCistream& operator>>(NCistream&, oneof& ); - friend ostream& operator<<(ostream&, const oneof&); - inline friend istream& operator>>(istream& strm, oneof& obj) { - NCistream istrm(strm); - strm >> obj; - return strm; - } - }; - - typedef oneof *oneof_ptr; - class oneof_var - { - public: - oneof_var() { _ptr = (oneof*)NULL;} - oneof_var(oneof *ptr) { - _ptr = ptr; - } - oneof_var(const oneof_var& var) { - _ptr = new oneof(*var._ptr); - } - ~oneof_var() { - if (_ptr != (oneof *)NULL) delete _ptr; - } - oneof_var& operator=(oneof *ptr) { - if (_ptr != (oneof *)NULL) delete _ptr; - _ptr = ptr; - return *this; - } - oneof_var& operator=(const oneof_var& var) { - if (_ptr != (oneof *)NULL) delete _ptr; - _ptr = new oneof(*var._ptr); - return *this; - } - oneof *operator->() { return _ptr; } - operator oneof () const { return *_ptr; } - operator oneof& () { return *_ptr; } - inline friend NCostream& operator<<(NCostream& strm, - const oneof_var& var) { - if (var._ptr == (oneof *)NULL) { - throw CORBA::BAD_PARAM(); - } - else - strm << *var._ptr; - return strm; - } - inline friend NCistream& operator>>(NCistream& strm, - oneof_var& var) { - if ( ! var._ptr) - var._ptr = new oneof; - strm >> *var._ptr; - return strm; - } - private: - oneof *_ptr; - }; - - - virtual Cubit::oneof cube_union(const Cubit::oneof& values); - - virtual void please_exit(); - - inline friend NCistream& operator>>(NCistream& strm, Cubit_ptr& obj) { - CORBA::Object_var _obj(obj); - _obj = CORBA::Object::_read(strm, Cubit::_desc()); - obj = Cubit::_narrow(_obj); - return strm; - } - inline friend ostream& operator<<(ostream& strm, const Cubit_ptr obj) { - strm << (CORBA::Object_ptr)obj; - return strm; - } - inline friend istream& operator>>(istream& strm, Cubit_ptr& obj) { - NCistream istrm(strm); - istrm >> obj; - return strm; - } -}; - - -#endif - diff --git a/TAO/IIOP/test/Orbix/base_server/cubitS.cpp b/TAO/IIOP/test/Orbix/base_server/cubitS.cpp deleted file mode 100644 index 449a8c23548..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubitS.cpp +++ /dev/null @@ -1,226 +0,0 @@ -#include "cubit.h" - - -#define Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"cube_octet")) { - CORBA::Octet IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_octet~+o{o},>{o},N{}\ -")) - return 1; - CORBA::Octet o; - - IT_r.extractOctet (o); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_octet ( o, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -o\ -", IT_env)) return 1; - IT_r.insertOctet (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_short")) { - CORBA::Short IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_short~+s{s},>{s},N{}\ -")) - return 1; - CORBA::Short s; - - IT_r >> s; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_short ( s, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -s\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_long")) { - CORBA::Long IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_long~+l{l},>{l},N{}\ -")) - return 1; - CORBA::Long l; - - IT_r >> l; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_long ( l, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -l\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_struct")) { - Cubit::Many IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_struct~+values{R~Cubit::Many~o{o},l{l},s{s}},>{R~Cubit::Many~o{o},l{l},s{s}},N{}\ -")) - return 1; - Cubit::Many values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_struct ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -R~Cubit::Many~o{o},l{l},s{s}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_union")) { - Cubit::oneof IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - IT_r.tcPreAssert ( -"\ -Ro~cube_union~+values{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},>{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,\ -"); - if (!IT_r.tcAssert ("\ -e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},N{}\ -")) - return 1; - Cubit::oneof values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_union ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"please_exit")) { - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~please_exit~>{v},O{}\ -")) - return 1; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - ((Cubit*)IT_pp)->please_exit (IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - IT_r.replyNoResults (CORBA::Flags(CORBA::INV_NO_RESPONSE),IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#include "cubitC.cpp" - diff --git a/TAO/IIOP/test/Orbix/base_server/cubitS.h b/TAO/IIOP/test/Orbix/base_server/cubitS.h deleted file mode 100644 index 757af4664ad..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubitS.h +++ /dev/null @@ -1,118 +0,0 @@ -#ifndef _cubitS_h -#define _cubitS_h - -#include "cubitC.h" - -/************************************************************************/ -/* */ -/* This file is automatically generated by ORBeline IDL compiler */ -/* Do not modify this file. */ -/* */ -/* ORBeline (c) is copyrighted by PostModern Computing, Inc. */ -/* */ -/* The generated code conforms to OMG's IDL C++ mapping as */ -/* specified in OMG Document Number: 94-9-14. */ -/* */ -/************************************************************************/ - -class _sk_Cubit : public Cubit -{ - protected: - _sk_Cubit(const char *object_name = (const char *)NULL); - _sk_Cubit(const char *service_name, const CORBA::ReferenceData& data); - virtual ~_sk_Cubit() {} - public: - static const CORBA::TypeInfo _skel_info; - - // The following operations need to be implemented by the server. - virtual CORBA::Octet cube_octet(CORBA::Octet o) = 0; - virtual CORBA::Short cube_short(CORBA::Short s) = 0; - virtual CORBA::Long cube_long(CORBA::Long l) = 0; - virtual Cubit::Many cube_struct(const Cubit::Many& values) = 0; - virtual Cubit::oneof cube_union(const Cubit::oneof& values) = 0; - virtual void please_exit() = 0; - - // Skeleton Operations implemented automatically - - static void _cube_octet(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_short(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_long(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_struct(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_union(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _please_exit(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - -}; -template <class T> -class _tie_Cubit : public Cubit -{ - public: - _tie_Cubit(T& t, const char *obj_name=(char*)NULL) : - Cubit(obj_name), - _ref(t) { - _object_name(obj_name); - } - _tie_Cubit(T& t, const char *service_name, - const CORBA::ReferenceData& id) - :_ref(t) { - _service(service_name, id); - } - ~_tie_Cubit() {} - CORBA::Octet cube_octet(CORBA::Octet o) { - return _ref.cube_octet( - o); - } - CORBA::Short cube_short(CORBA::Short s) { - return _ref.cube_short( - s); - } - CORBA::Long cube_long(CORBA::Long l) { - return _ref.cube_long( - l); - } - Cubit::Many cube_struct(const Cubit::Many& values) { - return _ref.cube_struct( - values); - } - Cubit::oneof cube_union(const Cubit::oneof& values) { - return _ref.cube_union( - values); - } - void please_exit() { - _ref.please_exit(); - } - - private: - T& _ref; -}; - -#endif - diff --git a/TAO/IIOP/test/Orbix/base_server/cubit_impl.cpp b/TAO/IIOP/test/Orbix/base_server/cubit_impl.cpp deleted file mode 100644 index e35f1084118..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubit_impl.cpp +++ /dev/null @@ -1,46 +0,0 @@ -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException) { -} diff --git a/TAO/IIOP/test/Orbix/base_server/cubit_impl.h b/TAO/IIOP/test/Orbix/base_server/cubit_impl.h deleted file mode 100644 index 1e710bb15d1..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/cubit_impl.h +++ /dev/null @@ -1,27 +0,0 @@ - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.h" - - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual CubitBOAImpl { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ - -public: - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); -}; - -#ifndef Cubit_USE_BOA -DEF_TIE_Cubit (Cubit_Impl) -#endif /* Cubit_USE_BOA */ - -#endif diff --git a/TAO/IIOP/test/Orbix/base_server/server.cpp b/TAO/IIOP/test/Orbix/base_server/server.cpp deleted file mode 100644 index 96117fe3e0d..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/server.cpp +++ /dev/null @@ -1,40 +0,0 @@ -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file - -int -main (int , char**) -{ - -#ifdef Cubit_USE_BOA - Cubit_var cb = new Cubit_Impl; - cout << "Using BOA approach" << endl; -#else - Cubit_var cb = new TIE_Cubit (Cubit_Impl) (new Cubit_Impl); - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // - // Go get some work to do.... - // - IT_TRY { - CORBA::Orbix.impl_is_ready("Cubit", IT_X); - } - IT_CATCHANY { - cout << IT_X << endl; - } - IT_ENDTRY; - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbix/base_server/tpr.cpp b/TAO/IIOP/test/Orbix/base_server/tpr.cpp deleted file mode 100644 index 415410aea9f..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/tpr.cpp +++ /dev/null @@ -1,26 +0,0 @@ -#include "tpr.h" - -void * -worker(void *vp) -{ - ACE_Thread_Control tc (ACE_Thread_Manager::instance ()); - CORBA::Orbix.continueThreadDispatch (*(CORBA::Request *)vp); - return NULL; -} - - -int -tpr_filter::inRequestPreMarshal(CORBA::Request &r, CORBA::Environment&) -{ -// thread_t tid; -// thr_create(NULL, 0, worker, (void *)&r, THR_DETACHED, &tid); - - ACE_Thread_Manager *thr_mgr = ACE_Thread_Manager::instance (); - thr_mgr->spawn (ACE_THR_FUNC (worker), - (void *) &r, - THR_DETACHED); - - return -1; -} - -tpr_filter tpr_dispatcher; diff --git a/TAO/IIOP/test/Orbix/base_server/tpr.h b/TAO/IIOP/test/Orbix/base_server/tpr.h deleted file mode 100644 index 38c2ccc7069..00000000000 --- a/TAO/IIOP/test/Orbix/base_server/tpr.h +++ /dev/null @@ -1,10 +0,0 @@ -#include "cubit.h" -#include "ace/Service_Config.h" -#include "ace/Thread_Manager.h" - -// -// Create a thread filter to dispatch incoming calls -// -class tpr_filter : public CORBA::ThreadFilter { - virtual int inRequestPreMarshal(CORBA::Request &, CORBA::Environment&); -}; diff --git a/TAO/IIOP/test/Orbix/client/Makefile b/TAO/IIOP/test/Orbix/client/Makefile deleted file mode 100644 index 70b3257447d..00000000000 --- a/TAO/IIOP/test/Orbix/client/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitC.cpp client.cpp - -CLT_OBJS = cubitC.o client.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: client - -client: $(addprefix $(VDIR),$(CLT_OBJS)) - $(LINK.cc) -o client $(addprefix $(VDIR),$(CLT_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITCLT) $(VLDLIBS) - - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitC.o .shobj/cubitC.so: cubitC.cpp cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/client.o .shobj/client.so: client.cpp $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/Get_Opt.i cubit.h - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/client/client.cpp b/TAO/IIOP/test/Orbix/client/client.cpp deleted file mode 100644 index fcf45bdf706..00000000000 --- a/TAO/IIOP/test/Orbix/client/client.cpp +++ /dev/null @@ -1,232 +0,0 @@ -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include "ace/OS.h" -#include "ace/Get_Opt.h" -#include "cubit.h" - -int LOOP_COUNT; -char SERVER_HOST [1024]; - -inline int func (unsigned i) { return i - 117; } -void run_tests (Cubit_var, int); - -// = TITLE -// Parses the command line arguments and returns an error status -// -// = DESCRIPTION -// This method parses the command line arguments -int parse_args(int argc, char *argv[]) -{ - ACE_OS::strcpy (SERVER_HOST, "localhost"); - ACE_Get_Opt opts (argc, argv, "dh:n:O:x"); - int c; - - while ((c = opts ()) != -1) - switch (c) { - case 'h': - ACE_OS::strcpy (SERVER_HOST, opts.optarg); - continue; - case 'd': // debug flag - continue; - - case 'n': // loop count - LOOP_COUNT = (unsigned) ACE_OS::atoi (opts.optarg); - continue; - - case 'O': // stringified objref - continue; - - case 'x': - continue; - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-n loopcount]" - " [-h SERVER_HOST]" - " [-x]" - "\n", argv [0] - ); - return 1; - } - - return 0; // Indicates successful parsing of command line -} - - -// -// Mainline -// -int -main (int argc, char *argv[]) -{ - if (parse_args (argc, argv) != 0) - return -1; - - Cubit_var cb; - // cout << "attempting to contact server at host " << SERVER_HOST << '\n' ; - - // - // Initialise client's binding to an - // arbitrary cubit server (at some host) - // - TRY { - cb = Cubit::_bind ("", SERVER_HOST, IT_X); - } - CATCHANY { - cerr << "Binding failed: " << IT_X; - } - ENDTRY; - - run_tests (cb, LOOP_COUNT); - return 0; -} - - -void -run_tests (Cubit_var cb, int loop_count) -{ - // - // Make the calls in a loop. - // - unsigned i; - unsigned call_count, error_count; - - call_count = 0; - error_count = 0; - - ACE_Time_Value before, after; - - before = ACE_OS::gettimeofday(); - - // - // Cube an octet. - // - - for (i = 0; i < loop_count; i++) - { - - call_count++; - - CORBA::Octet arg_octet = func (i), ret_octet; - - TRY { - ret_octet = cb->cube_octet (arg_octet); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_OS::printf ("** cube_octet(%d) (--> %d)\n", arg_octet , ret_octet); - error_count++; - } - - - // - // Cube a short. - // - call_count++; - - CORBA::Short arg_short = func (i), ret_short; - - TRY { - ret_short = cb->cube_short (arg_short); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_short = arg_short * arg_short * arg_short; - if (arg_short != ret_short) { - ACE_OS::printf ("** cube_short(%d) (--> %d)\n", arg_short , ret_short); - error_count++; - } - - // - // Cube a long. - // - - call_count++; - - CORBA::Long arg_long = func (i), ret_long; - - TRY { - ret_long = cb->cube_long (arg_long); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - } - ENDTRY; - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - ACE_OS::printf ("** cube_long(%d) (--> %d)\n", arg_long , ret_long); - error_count++; - } - - - // - // Cube a "struct" ... - // - Cubit::Many arg_struct, ret_struct; - - call_count++; - - arg_struct.l = func (i); - arg_struct.s = func (i); - arg_struct.o = func (i); - - TRY { - ret_struct = cb->cube_struct (arg_struct); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_struct.l = arg_struct.l * arg_struct.l * arg_struct.l ; - arg_struct.s = arg_struct.s * arg_struct.s * arg_struct.s ; - arg_struct.o = arg_struct.o * arg_struct.o * arg_struct.o ; - - if (arg_struct.l != ret_struct.l - || arg_struct.s != ret_struct.s - || arg_struct.o != ret_struct.o ) - { - cerr << "** cube_struct ERROR\n"; - error_count++; - } - } - - - after = ACE_OS::gettimeofday(); - - if (call_count > 0) - { - if (error_count == 0) - { - ACE_Time_Value diff = after - before; - unsigned long us = diff.sec() * 1000 * 1000 + diff.usec(); - - us /= call_count; - - if (us > 0) - ACE_OS::printf ("cube average call ACE_OS::time\t= %ld.%.03ldms, \t" - "%ld calls/second\n", - us / 1000, us % 1000, - 1000000L / us); - } - - ACE_OS::printf ("%d calls, %d errors\n", call_count, error_count); - } -} diff --git a/TAO/IIOP/test/Orbix/client/cubit.h b/TAO/IIOP/test/Orbix/client/cubit.h deleted file mode 100644 index 1c868a6597d..00000000000 --- a/TAO/IIOP/test/Orbix/client/cubit.h +++ /dev/null @@ -1,727 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" -#include <CORBA.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/client/cubit.idl b/TAO/IIOP/test/Orbix/client/cubit.idl deleted file mode 100644 index d9b38c34a2a..00000000000 --- a/TAO/IIOP/test/Orbix/client/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbix/client/cubitC.cpp b/TAO/IIOP/test/Orbix/client/cubitC.cpp deleted file mode 100644 index c47e38f26ee..00000000000 --- a/TAO/IIOP/test/Orbix/client/cubitC.cpp +++ /dev/null @@ -1,557 +0,0 @@ -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/factory_client/Makefile b/TAO/IIOP/test/Orbix/factory_client/Makefile deleted file mode 100644 index de2877537b6..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/Makefile +++ /dev/null @@ -1,77 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitC.cpp client.cpp - -CLT_OBJS = cubitC.o client.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: client - -client: $(addprefix $(VDIR),$(CLT_OBJS)) - $(LINK.cc) -o client $(addprefix $(VDIR),$(CLT_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITCLT) $(VLDLIBS) - - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitC.o .shobj/cubitC.so: cubitC.cpp cubit.h -.obj/client.o .shobj/client.so: client.cpp $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/Get_Opt.i cubit.h - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/factory_client/client.cpp b/TAO/IIOP/test/Orbix/factory_client/client.cpp deleted file mode 100644 index c61cfbc85a5..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/client.cpp +++ /dev/null @@ -1,235 +0,0 @@ -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include "ace/OS.h" -#include "ace/Get_Opt.h" -#include "cubit.h" - -int LOOP_COUNT; -char SERVER_HOST [1024]; - -inline int func (unsigned i) { return i - 117; } -void run_tests (Cubit_var, int); - -// = TITLE -// Parses the command line arguments and returns an error status -// -// = DESCRIPTION -// This method parses the command line arguments -int parse_args(int argc, char *argv[]) -{ - ACE_OS::strcpy (SERVER_HOST, "localhost"); - ACE_Get_Opt opts (argc, argv, "dh:n:O:x"); - int c; - - while ((c = opts ()) != -1) - switch (c) { - case 'h': - ACE_OS::strcpy (SERVER_HOST, opts.optarg); - continue; - case 'd': // debug flag - continue; - - case 'n': // loop count - LOOP_COUNT = (unsigned) ACE_OS::atoi (opts.optarg); - continue; - - case 'O': // stringified objref - continue; - - case 'x': - continue; - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-n loopcount]" - " [-h SERVER_HOST]" - " [-x]" - "\n", argv [0] - ); - return 1; - } - - return 0; // Indicates successful parsing of command line -} - - -// -// Mainline -// -int -main (int argc, char *argv[]) -{ - if (parse_args (argc, argv) != 0) - return -1; - - Cubit_var cb; - Cubit_Factory_var cf; - - // cout << "attempting to contact server at host " << SERVER_HOST << '\n' ; - - // - // Initialise client's binding to an - // arbitrary cubit server (at some host) - // - TRY { - cf = Cubit_Factory::_bind ("", SERVER_HOST, IT_X); - } - CATCHANY { - cerr << "Binding failed: " << IT_X; - } - ENDTRY; - cb = cf->create_cubit ("My_Cubit"); - - run_tests (cb, LOOP_COUNT); - return 0; -} - - -void -run_tests (Cubit_var cb, int loop_count) -{ - // - // Make the calls in a loop. - // - unsigned i; - unsigned call_count, error_count; - - call_count = 0; - error_count = 0; - - ACE_Time_Value before, after; - - before = ACE_OS::gettimeofday(); - - // - // Cube an octet. - // - - for (i = 0; i < loop_count; i++) - { - - call_count++; - - CORBA::Octet arg_octet = func (i), ret_octet; - - TRY { - ret_octet = cb->cube_octet (arg_octet); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_OS::printf ("** cube_octet(%d) (--> %d)\n", arg_octet , ret_octet); - error_count++; - } - - - // - // Cube a short. - // - call_count++; - - CORBA::Short arg_short = func (i), ret_short; - - TRY { - ret_short = cb->cube_short (arg_short); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_short = arg_short * arg_short * arg_short; - if (arg_short != ret_short) { - ACE_OS::printf ("** cube_short(%d) (--> %d)\n", arg_short , ret_short); - error_count++; - } - - // - // Cube a long. - // - - call_count++; - - CORBA::Long arg_long = func (i), ret_long; - - TRY { - ret_long = cb->cube_long (arg_long); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - } - ENDTRY; - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - ACE_OS::printf ("** cube_long(%d) (--> %d)\n", arg_long , ret_long); - error_count++; - } - - - // - // Cube a "struct" ... - // - Cubit::Many arg_struct, ret_struct; - - call_count++; - - arg_struct.l = func (i); - arg_struct.s = func (i); - arg_struct.o = func (i); - - TRY { - ret_struct = cb->cube_struct (arg_struct); - } - CATCHANY { - cerr << "Call failed: " << IT_X; - error_count++; - } - ENDTRY; - arg_struct.l = arg_struct.l * arg_struct.l * arg_struct.l ; - arg_struct.s = arg_struct.s * arg_struct.s * arg_struct.s ; - arg_struct.o = arg_struct.o * arg_struct.o * arg_struct.o ; - - if (arg_struct.l != ret_struct.l - || arg_struct.s != ret_struct.s - || arg_struct.o != ret_struct.o ) - { - cerr << "** cube_struct ERROR\n"; - error_count++; - } - } - - - after = ACE_OS::gettimeofday(); - - if (call_count > 0) - { - if (error_count == 0) - { - ACE_Time_Value diff = after - before; - unsigned long us = diff.sec() * 1000 * 1000 + diff.usec(); - - us /= call_count; - - if (us > 0) - ACE_OS::printf ("cube average call ACE_OS::time\t= %ld.%.03ldms, \t" - "%ld calls/second\n", - us / 1000, us % 1000, - 1000000L / us); - } - - ACE_OS::printf ("%d calls, %d errors\n", call_count, error_count); - } -} diff --git a/TAO/IIOP/test/Orbix/factory_client/cubit.h b/TAO/IIOP/test/Orbix/factory_client/cubit.h deleted file mode 100644 index 72e2fb81395..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/cubit.h +++ /dev/null @@ -1,1111 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include <CORBA.h> - -#include <string.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#ifndef _Cubit_Factory_defined -#define _Cubit_Factory_defined -class Cubit_Factory_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_Factory_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch () {} - - Cubit_Factory_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit_Factory; - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - - -#ifndef Cubit_FactoryForwH -#define Cubit_FactoryForwH -CORBA::ObjectRef Cubit_Factory_getBase (void *); -void Cubit_Factory_release (Cubit_Factory *, CORBA::Environment &IT_env); -void Cubit_Factory_release (Cubit_Factory_ptr); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr, CORBA::Environment &IT_env); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr ); -Cubit_Factory_ptr Cubit_Factory_nil (CORBA::Environment &IT_env); -Cubit_Factory_ptr Cubit_Factory_nil (); -#endif -#define Cubit_Factory_IMPL "Cubit_Factory" - - -class Cubit_Factory; - -typedef Cubit_Factory Cubit_FactoryProxy; -#define Cubit_Factory_IR "Cubit_Factory" -#define Cubit_Factory_IMPL "Cubit_Factory" - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - -class Cubit_Factory: public virtual CORBA::Object { -public: - Cubit_Factory (char *IT_OR); - Cubit_Factory (ObjectReference *IT_OR); - Cubit_Factory () : CORBA::Object (1) {} -protected: - Cubit_Factory_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_Factory_ptr _duplicate( - Cubit_Factory_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit_Factory* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _bind (CORBA::Environment &IT_env); - static Cubit_Factory* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_Factory_ptr) CORBA::OBJECT_NIL;} - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef Cubit_FactoryVarH -#define Cubit_FactoryVarH - -#ifndef Cubit_FactoryvPtr -#define Cubit_FactoryvPtr -typedef Cubit_Factory* Cubit_Factory_vPtr; -typedef const Cubit_Factory* Cubit_Factory_cvPtr; -#endif - -class Cubit_Factory_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_Factory_var &IT_s) { - { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_Factory_var (const Cubit_Factory_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_Factory_var () { - _ptr = Cubit_Factory_nil (); - } - - Cubit_Factory_var (Cubit_Factory *IT_p) { - _ptr = IT_p; - } - - Cubit_Factory_var &operator= (Cubit_Factory *IT_p) { - Cubit_Factory_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_Factory_var &operator= (const Cubit_Factory_var &IT_s) { - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_Factory_var () { - Cubit_Factory_release (_ptr); - } - - Cubit_Factory* operator-> () { - return _ptr; - } - - operator Cubit_Factory_cvPtr () const { return _ptr;} - operator Cubit_Factory_vPtr& () { return _ptr;} - - protected: - Cubit_Factory *_ptr; - private: - Cubit_Factory_var &operator= (const CORBA::_var &IT_s); - Cubit_Factory_var (const CORBA::_var &IT_s); - Cubit_Factory_var &operator= (const CORBA::_mgr &IT_s); - Cubit_Factory_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_Factory_var (const CORBA::_mgr &IT_s); - Cubit_Factory_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef Cubit_FactoryMgrH -#define Cubit_FactoryMgrH - -class Cubit_Factory_mgr : public CORBA::_mgr -{ - public: - - Cubit_Factory_mgr () { - _ptr = Cubit_Factory_nil (); - _release = 1; - } - - Cubit_Factory_mgr (const Cubit_Factory_mgr &IT_s) { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_Factory_mgr &operator= (Cubit_Factory *IT_p) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (const Cubit_Factory_mgr &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (Cubit_Factory_var &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_Factory_mgr () { - if (_release) - Cubit_Factory_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit_Factory* () const { - return (Cubit_Factory*) _ptr; - } - - Cubit_Factory_ptr operator-> () const { - return _ptr; - } - - Cubit_Factory *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_Factory_mgr Cubit_Factory_mgr_IT_const; -#endif - -#ifndef Cubit_FactorySeqElemH -#define Cubit_FactorySeqElemH - -class Cubit_Factory_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_Factory_SeqElem (Cubit_Factory_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_Factory_SeqElem &operator= (Cubit_Factory_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_Factory_SeqElem &operator= (const Cubit_Factory_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = Cubit_Factory_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_Factory_ptr () const { - return _ptr ? (Cubit_Factory_ptr) (*_ptr) : Cubit_Factory_nil(); - } - - Cubit_Factory_ptr operator->() const { return *_ptr;} - - protected: - Cubit_Factory_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit_Factory(X) Cubit_Factory##X - -#define DEF_TIE_Cubit_Factory(X) \ - class Cubit_Factory##X : public virtual Cubit_Factory { \ - X* m_obj; \ - public: \ - \ - \ - Cubit_Factory##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit_Factory(), m_obj(objp) { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,m,l,Cubit_Factory_IR,m_obj); \ - } \ - Cubit_Factory##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit_Factory() { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,IT_m,Cubit_Factory_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit_Factory##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit_Factory \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - - - - -class Cubit_FactoryProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - Cubit_FactoryProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_Factory_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern Cubit_FactoryProxyFactoryClass Cubit_FactoryProxyFactory; - -class Cubit_FactoryBOAImpl : public virtual Cubit_Factory { -public: - Cubit_FactoryBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_Factory_IR)) - m_pptr = new Cubit_Factory_dispatch ( (Cubit_Factory*)this, - (CORBA::Object*)this, m, l, Cubit_Factory_IR, this); -} - - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/factory_client/cubit.hh b/TAO/IIOP/test/Orbix/factory_client/cubit.hh deleted file mode 100644 index 72e2fb81395..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/cubit.hh +++ /dev/null @@ -1,1111 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include <CORBA.h> - -#include <string.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#ifndef _Cubit_Factory_defined -#define _Cubit_Factory_defined -class Cubit_Factory_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_Factory_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch () {} - - Cubit_Factory_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit_Factory; - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - - -#ifndef Cubit_FactoryForwH -#define Cubit_FactoryForwH -CORBA::ObjectRef Cubit_Factory_getBase (void *); -void Cubit_Factory_release (Cubit_Factory *, CORBA::Environment &IT_env); -void Cubit_Factory_release (Cubit_Factory_ptr); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr, CORBA::Environment &IT_env); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr ); -Cubit_Factory_ptr Cubit_Factory_nil (CORBA::Environment &IT_env); -Cubit_Factory_ptr Cubit_Factory_nil (); -#endif -#define Cubit_Factory_IMPL "Cubit_Factory" - - -class Cubit_Factory; - -typedef Cubit_Factory Cubit_FactoryProxy; -#define Cubit_Factory_IR "Cubit_Factory" -#define Cubit_Factory_IMPL "Cubit_Factory" - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - -class Cubit_Factory: public virtual CORBA::Object { -public: - Cubit_Factory (char *IT_OR); - Cubit_Factory (ObjectReference *IT_OR); - Cubit_Factory () : CORBA::Object (1) {} -protected: - Cubit_Factory_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_Factory_ptr _duplicate( - Cubit_Factory_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit_Factory* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _bind (CORBA::Environment &IT_env); - static Cubit_Factory* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_Factory_ptr) CORBA::OBJECT_NIL;} - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef Cubit_FactoryVarH -#define Cubit_FactoryVarH - -#ifndef Cubit_FactoryvPtr -#define Cubit_FactoryvPtr -typedef Cubit_Factory* Cubit_Factory_vPtr; -typedef const Cubit_Factory* Cubit_Factory_cvPtr; -#endif - -class Cubit_Factory_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_Factory_var &IT_s) { - { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_Factory_var (const Cubit_Factory_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_Factory_var () { - _ptr = Cubit_Factory_nil (); - } - - Cubit_Factory_var (Cubit_Factory *IT_p) { - _ptr = IT_p; - } - - Cubit_Factory_var &operator= (Cubit_Factory *IT_p) { - Cubit_Factory_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_Factory_var &operator= (const Cubit_Factory_var &IT_s) { - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_Factory_var () { - Cubit_Factory_release (_ptr); - } - - Cubit_Factory* operator-> () { - return _ptr; - } - - operator Cubit_Factory_cvPtr () const { return _ptr;} - operator Cubit_Factory_vPtr& () { return _ptr;} - - protected: - Cubit_Factory *_ptr; - private: - Cubit_Factory_var &operator= (const CORBA::_var &IT_s); - Cubit_Factory_var (const CORBA::_var &IT_s); - Cubit_Factory_var &operator= (const CORBA::_mgr &IT_s); - Cubit_Factory_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_Factory_var (const CORBA::_mgr &IT_s); - Cubit_Factory_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef Cubit_FactoryMgrH -#define Cubit_FactoryMgrH - -class Cubit_Factory_mgr : public CORBA::_mgr -{ - public: - - Cubit_Factory_mgr () { - _ptr = Cubit_Factory_nil (); - _release = 1; - } - - Cubit_Factory_mgr (const Cubit_Factory_mgr &IT_s) { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_Factory_mgr &operator= (Cubit_Factory *IT_p) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (const Cubit_Factory_mgr &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (Cubit_Factory_var &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_Factory_mgr () { - if (_release) - Cubit_Factory_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit_Factory* () const { - return (Cubit_Factory*) _ptr; - } - - Cubit_Factory_ptr operator-> () const { - return _ptr; - } - - Cubit_Factory *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_Factory_mgr Cubit_Factory_mgr_IT_const; -#endif - -#ifndef Cubit_FactorySeqElemH -#define Cubit_FactorySeqElemH - -class Cubit_Factory_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_Factory_SeqElem (Cubit_Factory_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_Factory_SeqElem &operator= (Cubit_Factory_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_Factory_SeqElem &operator= (const Cubit_Factory_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = Cubit_Factory_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_Factory_ptr () const { - return _ptr ? (Cubit_Factory_ptr) (*_ptr) : Cubit_Factory_nil(); - } - - Cubit_Factory_ptr operator->() const { return *_ptr;} - - protected: - Cubit_Factory_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit_Factory(X) Cubit_Factory##X - -#define DEF_TIE_Cubit_Factory(X) \ - class Cubit_Factory##X : public virtual Cubit_Factory { \ - X* m_obj; \ - public: \ - \ - \ - Cubit_Factory##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit_Factory(), m_obj(objp) { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,m,l,Cubit_Factory_IR,m_obj); \ - } \ - Cubit_Factory##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit_Factory() { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,IT_m,Cubit_Factory_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit_Factory##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit_Factory \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - - - - -class Cubit_FactoryProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - Cubit_FactoryProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_Factory_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern Cubit_FactoryProxyFactoryClass Cubit_FactoryProxyFactory; - -class Cubit_FactoryBOAImpl : public virtual Cubit_Factory { -public: - Cubit_FactoryBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_Factory_IR)) - m_pptr = new Cubit_Factory_dispatch ( (Cubit_Factory*)this, - (CORBA::Object*)this, m, l, Cubit_Factory_IR, this); -} - - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/factory_client/cubit.idl b/TAO/IIOP/test/Orbix/factory_client/cubit.idl deleted file mode 100644 index 7dba408d0db..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/cubit.idl +++ /dev/null @@ -1,46 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - - interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); - }; - - - interface Cubit_Factory { - Cubit create_cubit (in string name); - }; - diff --git a/TAO/IIOP/test/Orbix/factory_client/cubitC.cpp b/TAO/IIOP/test/Orbix/factory_client/cubitC.cpp deleted file mode 100644 index c439fc4c800..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/cubitC.cpp +++ /dev/null @@ -1,710 +0,0 @@ - - -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - -Cubit_Factory::Cubit_Factory (char *IT_OR) { - m_pptr = new Cubit_Factory_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit_Factory::Cubit_Factory (ObjectReference *IT_OR) { - m_pptr = new Cubit_Factory_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef Cubit_FactoryForwC -#define Cubit_FactoryForwC -CORBA::ObjectRef Cubit_Factory_getBase(void *IT_p){ - return (Cubit_Factory*) IT_p;} - -void Cubit_Factory_release (Cubit_Factory_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_Factory_release (Cubit_Factory_ptr IT_p) { - Cubit_Factory_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_Factory_ptr Cubit_Factory_nil (CORBA::Environment &) { - return Cubit_Factory:: _nil ();} - -Cubit_Factory_ptr Cubit_Factory_nil () { - return Cubit_Factory_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_Factory_ptr Cubit_Factory_duplicate (Cubit_Factory_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit_Factory::_duplicate(IT_p, IT_env)); } -Cubit_Factory_ptr Cubit_Factory_duplicate (Cubit_Factory_ptr IT_p) { - return Cubit_Factory_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_Factory_ptr Cubit_Factory::_duplicate(Cubit_Factory_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_Factory_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit_Factory* Cubit_Factory:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit_Factory*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_Factory_IMPL, Cubit_Factory_IR); -} - - - -Cubit_Factory* Cubit_Factory:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit_Factory* Cubit_Factory:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit_Factory* Cubit_Factory::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit_Factory:: _nil(); - } - - Cubit_Factory* IT_p = (Cubit_Factory*)CORBA::Object::_castDown (IT_obj, Cubit_Factory_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - -void* Cubit_FactoryProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -void* Cubit_FactoryProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -void* Cubit_FactoryProxyFactoryClass::New2 () { - return new class Cubit_Factory((char*)0);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::New2Object () { - return new class Cubit_Factory((char*)0);} - -void* Cubit_FactoryProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_Factory_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit_Factory*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* Cubit_FactoryProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit_Factory*)IT_p)->_pptr ();} - -void Cubit_FactoryProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_Factory_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -Cubit_FactoryProxyFactoryClass Cubit_FactoryProxyFactory(1); - -Cubit_ptr Cubit_Factory:: create_cubit (const char * name, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return new Cubit; - } - CORBA::Request IT_r (this, "create_cubit",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.encodeStringOp (name); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit_ptr IT_result; - IT_result = (Cubit*) IT_r.decodeObjRef (Cubit_IR); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return new Cubit; -} - - - - - -#ifndef Cubit_Factory_dispatch_impl - -unsigned char Cubit_Factory_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit_Factory"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/factory_client/cubitS.cpp b/TAO/IIOP/test/Orbix/factory_client/cubitS.cpp deleted file mode 100644 index 2f0459962b8..00000000000 --- a/TAO/IIOP/test/Orbix/factory_client/cubitS.cpp +++ /dev/null @@ -1,282 +0,0 @@ - - -#include "cubit.hh" - - -#define Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"cube_octet")) { - CORBA::Octet IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_octet~+o{o},>{o},N{}\ -")) - return 1; - CORBA::Octet o; - - IT_r.extractOctet (o); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_octet ( o, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -o\ -", IT_env)) return 1; - IT_r.insertOctet (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_short")) { - CORBA::Short IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_short~+s{s},>{s},N{}\ -")) - return 1; - CORBA::Short s; - - IT_r >> s; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_short ( s, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -s\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_long")) { - CORBA::Long IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_long~+l{l},>{l},N{}\ -")) - return 1; - CORBA::Long l; - - IT_r >> l; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_long ( l, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -l\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_struct")) { - Cubit::Many IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_struct~+values{R~Cubit::Many~o{o},l{l},s{s}},>{R~Cubit::Many~o{o},l{l},s{s}},N{}\ -")) - return 1; - Cubit::Many values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_struct ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -R~Cubit::Many~o{o},l{l},s{s}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_union")) { - Cubit::oneof IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - IT_r.tcPreAssert ( -"\ -Ro~cube_union~+values{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},>{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,\ -"); - if (!IT_r.tcAssert ("\ -e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},N{}\ -")) - return 1; - Cubit::oneof values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_union ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"please_exit")) { - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~please_exit~>{v},O{}\ -")) - return 1; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - ((Cubit*)IT_pp)->please_exit (IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - IT_r.replyNoResults (CORBA::Flags(CORBA::INV_NO_RESPONSE),IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#define Cubit_Factory_dispatch_impl - -unsigned char Cubit_Factory_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"create_cubit")) { - Cubit_ptr IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~create_cubit~+name{0},>{O~Cubit},N{}\ -")) - return 1; - char * name; - - IT_r.decodeStringOp(name); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit_Factory*)IT_pp)->create_cubit ( name, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - CORBA::string_free (name); - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -O~Cubit\ -", IT_env)) return 1; - { - CORBA::Object* IT_l1 = (CORBA::Object*) IT_result; - IT_r << IT_l1; - } - if (IT_result) Cubit_release (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#include "cubitC.cpp" - diff --git a/TAO/IIOP/test/Orbix/orb.mk b/TAO/IIOP/test/Orbix/orb.mk deleted file mode 100644 index cf7b12d3b1b..00000000000 --- a/TAO/IIOP/test/Orbix/orb.mk +++ /dev/null @@ -1,146 +0,0 @@ -# ------------------------------------------------------------ -# Orbix 2.2 implicit rules for SunOS/GNU Make -# ------------------------------------------------------------ -# -# If you cut'n'paste this into your /usr/include/make/default.mk -# file, beware! This is not officially supported by Iona -# Technologies, and you may want to be a bit of a Makefile hacker -# to make it integrate well with your site's setup. - -# The best thing to do would be put it in a standard place and -# anyone who wants the Orbix implicit rule set can include -# it with an "include <pathname>/orbix.mk" line in their -# Makefile. A good place to put it might be /usr/include/make. - -# These rules define default C++, C++FLAGS and C++SUFFIX. -# C++ is the C++ compiler to use; C++FLAGS are command-line -# flags to the C++ compiler for use in compiling C++ source -# files into objects; C++SUFFIX is the filename suffix -# indicating C++ source. By default, it's set to "C" for AT&T C++, -# and "cc" for GNU g++. - -# Feel free to override these in your Makefiles *after* -# including this file. - -# IMPORTANT: If the -M switch is specified in IDLFLAGS, the IDL -# compiler appends to the user-specified file. The dependency for -# specified_file.o in the linking target should appear _after_ any use -# of the IDL compiler which takes the -M flag. Putting it _last_ -# is normally the best approach. - -# Note that these rule definitions use pattern matching, -# and therefore only work with SunOS make and GNU make. - -# They may not work with other vendor's versions of make. -# If they do not, you may wish to try using GNU make, which -# is free software produced by the Free Software Foundation. - -# If the version of make you wish to use does not support -# pattern matching, use the sample explicit rule set in -# the comments at the end of this file. - -# ------------------------------------------------------------ -# Essential: set these to the locations into which you -# have installed Orbix' components: - -ORBIX_BINDIR = /opt/Orbix_2.2MT/corba2/bin -ORBIX_LIBDIR = /opt/Orbix_2.2MT/corba2/lib -ORBIX_INCDIR = /opt/Orbix_2.2MT/corba2/include - -#------------------------------------------------------------- -# To compile the demos, you should change these values as -# appropriate for your particular system installation -#------------------------------------------------------------- - -X11BASE = /usr/openwin -X11INCDIR = $(X11BASE)/include -X11LIBDIR = $(X11BASE)/lib - -# C++ = CC -# C++FLAGS = -I$(ORBIX_INCDIR) -I. -mt -D_REENTRANT -# C++SUFFIX = cpp - -# ------------------------------------------------------------ -# ITCLT, IRCLT and ITSRV can be either statically or dynamically linked -# Use -Bdynamic or -Bstatic as appropriate. -# ------------------------------------------------------------ - -ITCLT = -Bstatic -lorbixmt -IRCLT = -Bstatic -lIRcltmt -ITSRV = -Bstatic -lorbixmt -ITIIOP = -Bstatic -liiopmt -ITDSI = -Bstatic -lDSImt -ITIFR = -Bstatic -lifrmt - -# ------------------------------------------------------------ -# SYSLIBS must be dynamically linked; otherwise you can expect to -# get linkage errors for symbols in the nsl library -# ------------------------------------------------------------ - -LDFLAGS += -L$(ORBIX_LIBDIR) -SYSLIBS = -Bdynamic -lnsl -lsocket - -IDL = $(ORBIX_BINDIR)/idl -IDLFLAGS = - -# ------------------------------------------------------------ -# The following section defines implicit rules for creating -# *.{C,S}.C files, rules for compiling those -# into objects, and even a rule for compiling C++ source into -# objects (in case one isn't already defined). - -# ------------------------------------------------------------ -# first, put the new suffixes at the *head* of the suffix list, -# overriding any existing .C compilation method. -.SUFFIXES: -.SUFFIXES: .$(C++SUFFIX) .idl $(SUFFIXES) - -# .SUFFIXES: .$(C++SUFFIX) .idl .hh $(SUFFIXES) -# ------------------------------------------------------------ -# *[CS].o must be compiled here, and depends -# mostly on the C++ files produced from the IDL file. - -%C.o: %C.$(C++SUFFIX) - $(C++) -c $(C++FLAGS) $< - -%S.o: %S.$(C++SUFFIX) - $(C++) -c $(C++FLAGS) $< - -%.o: %.$(C++SUFFIX) - $(C++) -c $(C++FLAGS) $< - -# and here's how to compile C++ files from the IDL file. -# only ONE of these rules will be run at make-time, - -%S.$(C++SUFFIX): %.idl - $(IDL) $(IDLFLAGS) $< - -%C.$(C++SUFFIX): %.idl - $(IDL) $(IDLFLAGS) $< - -%.hh: %.idl - $(IDL) $(IDLFLAGS) $< - -# ------------------------------------------------------------ -# If the version of make you wish to use does not support -# pattern matching, here's a sample of an explicit rule set. - -# We assume the IDL file is called "foobar.idl", we wish -# to compile "foobarC.o", "foobarS.o", and -# "foobar.hh", and the C++ file suffix. -# ------------------------------------------------------------ - -# foobarC.o: foobar.hh foobarC.C -# $(C++) -c ($C++FLAGS) foobarC.C -# -# foobarS.o: foobar.hh foobarS.C -# $(C++) -c ($C++FLAGS) foobarS.C -# -# foobarC.C: foobar.idl -# $(IDL) -c ($IDLFLAGS) foobar.idl -# -# foobarS.C: foobar.idl -# $(IDL) -c ($IDLFLAGS) foobar.idl -# -# foobar.hh: foobar.idl -# $(IDL) -c ($IDLFLAGS) foobar.idl diff --git a/TAO/IIOP/test/Orbix/tpool/Makefile b/TAO/IIOP/test/Orbix/tpool/Makefile deleted file mode 100644 index d4cbaacb6bd..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitS.cpp cubit_impl.cpp server.cpp tpool.cpp - -SVR_OBJS = cubitS.o cubit_impl.o server.o tpool.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -# Remove -DCubit_USE_BOA from below to use the TIE approach - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -DCubit_USE_BOA -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: server - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/tpool/cubit.h b/TAO/IIOP/test/Orbix/tpool/cubit.h deleted file mode 100644 index 1c868a6597d..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubit.h +++ /dev/null @@ -1,727 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" -#include <CORBA.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/tpool/cubit.idl b/TAO/IIOP/test/Orbix/tpool/cubit.idl deleted file mode 100644 index d9b38c34a2a..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbix/tpool/cubitC.cpp b/TAO/IIOP/test/Orbix/tpool/cubitC.cpp deleted file mode 100644 index c47e38f26ee..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubitC.cpp +++ /dev/null @@ -1,557 +0,0 @@ -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/tpool/cubitS.cpp b/TAO/IIOP/test/Orbix/tpool/cubitS.cpp deleted file mode 100644 index 449a8c23548..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubitS.cpp +++ /dev/null @@ -1,226 +0,0 @@ -#include "cubit.h" - - -#define Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"cube_octet")) { - CORBA::Octet IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_octet~+o{o},>{o},N{}\ -")) - return 1; - CORBA::Octet o; - - IT_r.extractOctet (o); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_octet ( o, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -o\ -", IT_env)) return 1; - IT_r.insertOctet (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_short")) { - CORBA::Short IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_short~+s{s},>{s},N{}\ -")) - return 1; - CORBA::Short s; - - IT_r >> s; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_short ( s, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -s\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_long")) { - CORBA::Long IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_long~+l{l},>{l},N{}\ -")) - return 1; - CORBA::Long l; - - IT_r >> l; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_long ( l, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -l\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_struct")) { - Cubit::Many IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_struct~+values{R~Cubit::Many~o{o},l{l},s{s}},>{R~Cubit::Many~o{o},l{l},s{s}},N{}\ -")) - return 1; - Cubit::Many values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_struct ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -R~Cubit::Many~o{o},l{l},s{s}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_union")) { - Cubit::oneof IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - IT_r.tcPreAssert ( -"\ -Ro~cube_union~+values{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},>{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,\ -"); - if (!IT_r.tcAssert ("\ -e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},N{}\ -")) - return 1; - Cubit::oneof values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_union ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"please_exit")) { - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~please_exit~>{v},O{}\ -")) - return 1; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - ((Cubit*)IT_pp)->please_exit (IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - IT_r.replyNoResults (CORBA::Flags(CORBA::INV_NO_RESPONSE),IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#include "cubitC.cpp" - diff --git a/TAO/IIOP/test/Orbix/tpool/cubit_impl.cpp b/TAO/IIOP/test/Orbix/tpool/cubit_impl.cpp deleted file mode 100644 index e35f1084118..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubit_impl.cpp +++ /dev/null @@ -1,46 +0,0 @@ -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException) { -} diff --git a/TAO/IIOP/test/Orbix/tpool/cubit_impl.h b/TAO/IIOP/test/Orbix/tpool/cubit_impl.h deleted file mode 100644 index 1e710bb15d1..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/cubit_impl.h +++ /dev/null @@ -1,27 +0,0 @@ - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.h" - - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual CubitBOAImpl { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ - -public: - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); -}; - -#ifndef Cubit_USE_BOA -DEF_TIE_Cubit (Cubit_Impl) -#endif /* Cubit_USE_BOA */ - -#endif diff --git a/TAO/IIOP/test/Orbix/tpool/server.cpp b/TAO/IIOP/test/Orbix/tpool/server.cpp deleted file mode 100644 index 8cae4135876..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/server.cpp +++ /dev/null @@ -1,46 +0,0 @@ -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file -#include "tpool.h" - -int -main (int argc, char** argv) -{ - - -#ifdef Cubit_USE_BOA - Cubit_var cb = new Cubit_Impl; - cout << "Using BOA approach" << endl; -#else - Cubit_var cb = new TIE_Cubit (Cubit_Impl) (new Cubit_Impl); - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // Register our thread-pool dispatcher - int n_threads = argc > 1 ? ACE_OS::atoi (argv[1]) : ACE_DEFAULT_THREADS; - Thread_Pool tpool_dispatcher (n_threads); - - // - // Go get some work to do.... - // - IT_TRY { - CORBA::Orbix.impl_is_ready("Cubit", IT_X); - } - IT_CATCHANY { - cout << IT_X << endl; - } - IT_ENDTRY; - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbix/tpool/tpool.cpp b/TAO/IIOP/test/Orbix/tpool/tpool.cpp deleted file mode 100644 index 5d1fbd1a638..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/tpool.cpp +++ /dev/null @@ -1,42 +0,0 @@ -#include "tpool.h" - -Thread_Pool::Thread_Pool (int n_threads) - : ACE_Task<ACE_MT_SYNCH> (ACE_Thread_Manager::instance ()) -{ - if (this->activate (THR_DETACHED | THR_NEW_LWP, n_threads) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); -} - -int -Thread_Pool::svc (void) -{ - cout << "Pool thread activated" << endl; - while (1) - { - // Dequeue message - ACE_Message_Block *mb; - this->msg_queue ()->dequeue_head (mb); - CORBA::Request *vp = (CORBA::Request *) mb->base (); - mb->release (); - // Hand it off to Orbix - CORBA::Orbix.continueThreadDispatch (*vp); - } - return -1; -} - - -int -Thread_Pool::inRequestPreMarshal(CORBA::Request &r, CORBA::Environment&) -{ -// thread_t tid; -// thr_create(NULL, 0, worker, (void *)&r, THR_DETACHED, &tid); - - // Enqueue the request - ACE_Message_Block *mb = new ACE_Message_Block ( (char *) (&r)); - this->msg_queue ()->enqueue (mb); - // Done - return -1; -} - - - diff --git a/TAO/IIOP/test/Orbix/tpool/tpool.h b/TAO/IIOP/test/Orbix/tpool/tpool.h deleted file mode 100644 index 3087ce42052..00000000000 --- a/TAO/IIOP/test/Orbix/tpool/tpool.h +++ /dev/null @@ -1,15 +0,0 @@ -#include "cubit.h" -#include "ace/Service_Config.h" -#include "ace/Thread_Manager.h" -#include "ace/Task.h" - -class Thread_Pool : public ACE_Task<ACE_MT_SYNCH>, public CORBA::ThreadFilter -{ -public: - Thread_Pool (int n_threads); - virtual int inRequestPreMarshal(CORBA::Request &, CORBA::Environment&); - virtual int svc (void); - -}; - - diff --git a/TAO/IIOP/test/Orbix/tpr/Makefile b/TAO/IIOP/test/Orbix/tpr/Makefile deleted file mode 100644 index cf6149643d3..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitS.cpp cubit_impl.cpp server.cpp tpr.cpp - -SVR_OBJS = cubitS.o cubit_impl.o server.o tpr.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -# Remove -DCubit_USE_BOA from below to use the TIE approach - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -DCubit_USE_BOA -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: server - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/tpr/cubit.h b/TAO/IIOP/test/Orbix/tpr/cubit.h deleted file mode 100644 index 1c868a6597d..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubit.h +++ /dev/null @@ -1,727 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" -#include <CORBA.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/tpr/cubit.idl b/TAO/IIOP/test/Orbix/tpr/cubit.idl deleted file mode 100644 index d9b38c34a2a..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/Orbix/tpr/cubitC.cpp b/TAO/IIOP/test/Orbix/tpr/cubitC.cpp deleted file mode 100644 index c47e38f26ee..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubitC.cpp +++ /dev/null @@ -1,557 +0,0 @@ -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/tpr/cubitC.h b/TAO/IIOP/test/Orbix/tpr/cubitC.h deleted file mode 100644 index 15247168d3c..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubitC.h +++ /dev/null @@ -1,343 +0,0 @@ -#ifndef _cubitC_h -#define _cubitC_h - -/************************************************************************/ -/* */ -/* This file is automatically generated by ORBeline IDL compiler */ -/* Do not modify this file. */ -/* */ -/* ORBeline (c) is copyrighted by PostModern Computing, Inc. */ -/* */ -/* The generated code conforms to OMG's IDL C++ mapping as */ -/* specified in OMG Document Number: 94-9-14. */ -/* */ -/************************************************************************/ - -#include "corba.h" - - - -class Cubit; -typedef Cubit *Cubit_ptr; -typedef Cubit_ptr CubitRef; - -#ifndef _Cubit_var_ -#define _Cubit_var_ -class Cubit_var -{ - public: - Cubit_var(); - Cubit_var(Cubit_ptr); - Cubit_var(const Cubit_var&); - ~Cubit_var(); - Cubit_var& operator=(Cubit_ptr); - operator Cubit_ptr() const { return _ptr; } -#if defined(_HPCC_BUG) - operator Cubit *&() { return _ptr; } -#else - operator Cubit_ptr&() { return _ptr; } -#endif - Cubit_ptr operator->() const { return _ptr;} - friend NCistream& operator>>(NCistream&, Cubit_var&); - friend NCostream& operator<<(NCostream&, const Cubit_var&); - friend istream& operator>>(istream&, Cubit_var&); - friend ostream& operator<<(ostream&, const Cubit_var&); - private: - Cubit_ptr _ptr; - void operator=(const Cubit_var&) {} -}; -#endif -class Cubit: public virtual CORBA_Object -{ - private: - static const CORBA::TypeInfo _class_info; - Cubit(const Cubit&) {} - void operator=(const Cubit&){} - public: - static const CORBA::TypeInfo *_desc(); - virtual const CORBA::TypeInfo *_type_info() const; - virtual void *_safe_narrow(const CORBA::TypeInfo& ) const; - static CORBA::Object *_factory(); - protected: - Cubit(const char *obj_name = NULL) :CORBA_Object(obj_name, 1) {} - Cubit(NCistream& strm) :CORBA_Object(strm) {} - virtual ~Cubit() {} - public: - static Cubit_ptr _duplicate(Cubit_ptr obj) { - if (obj ) obj->_ref(); - return obj; - } - static Cubit_ptr _nil() { return (Cubit_ptr)NULL;} - static Cubit_ptr _narrow(CORBA::Object *obj); - static Cubit_ptr _clone(Cubit_ptr obj) { - CORBA::Object_var obj_var(__clone(obj)); - -#if defined(_HPCC_BUG) - return _narrow(obj_var.operator CORBA::Object_ptr()); -#else - return _narrow(obj_var); -#endif - } - static Cubit_ptr _bind(const char *object_name = NULL, - const char *host_name = NULL, - const CORBA::BindOptions* opt = NULL); - - virtual CORBA::Octet cube_octet(CORBA::Octet o); - - virtual CORBA::Short cube_short(CORBA::Short s); - - virtual CORBA::Long cube_long(CORBA::Long l); - - struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - }; - friend NCostream& operator<<(NCostream&, const Many& ); - friend NCistream& operator>>(NCistream&, Many& ); - - friend ostream& operator<<(ostream&, const Many& ); - inline friend istream& operator>>(istream& _strm, Many& _obj) { - NCistream _istrm(_strm); - _istrm >> _obj; - return _strm; - } - - - typedef Many *Many_ptr; - class Many_var - { - public: - Many_var() { _ptr = (Many*)NULL;} - Many_var(Many *ptr) { - _ptr = ptr; - } - Many_var(const Many_var& var) { - if (var._ptr) - _ptr = new Many(*var._ptr); - else - _ptr = (Many *)NULL; - } - ~Many_var() { - if (_ptr != (Many *)NULL) delete _ptr; - } - Many_var& operator=(Many *ptr) { - if (_ptr != (Many *)NULL) delete _ptr; - _ptr = ptr; - return *this; - } - Many_var& operator=(const Many_var& var) { - if (_ptr != (Many *)NULL) delete _ptr; - if (var._ptr) - _ptr = new Many(*var._ptr); - else - _ptr = (Many *)NULL; - return *this; - } - Many *operator->() { return _ptr; } - operator Many () const { return *_ptr; } - operator Many& () { return *_ptr; } - inline friend NCostream& operator<<(NCostream& strm, - const Many_var& var) { - if (var._ptr == (Many *)NULL) { - throw CORBA::BAD_PARAM(); - } - else - strm << *var._ptr; - return strm; - } - inline friend NCistream& operator>>(NCistream& strm, - Many_var& var) { - if ( ! var._ptr) - var._ptr = new Many; - strm >> *var._ptr; - return strm; - } - private: - Many *_ptr; - }; - - - virtual Cubit::Many cube_struct(const Cubit::Many& values); - - enum discrim { - e_0th, - e_1st, - e_2nd, - e_3rd, - e_4th, - e_5th - }; - inline friend NCostream& operator<<(NCostream& _strm, discrim _enum_type) { - _strm << (CORBA::ULong)_enum_type; - return _strm; - } - inline friend NCistream& operator>>(NCistream& _strm, discrim& _enum_type) { - CORBA::ULong _temp; - _strm >> _temp; - if (_temp >= 6) - throw CORBA::BAD_PARAM(); - _enum_type = discrim(_temp); - return _strm; - } - inline friend ostream& operator<<(ostream& _strm, discrim _enum_type) { - if( &_strm == &cout || &_strm == &cerr || &_strm == &clog) { - _strm << "discrim:"; - switch(_enum_type) { - case e_0th: - _strm << "e_0th" << endl; - break; - case e_1st: - _strm << "e_1st" << endl; - break; - case e_2nd: - _strm << "e_2nd" << endl; - break; - case e_3rd: - _strm << "e_3rd" << endl; - break; - case e_4th: - _strm << "e_4th" << endl; - break; - case e_5th: - _strm << "e_5th" << endl; - break; - } - } - else - _strm << (CORBA::ULong)_enum_type; - return _strm; - } - inline friend istream& operator>>(istream& _strm, discrim& _enum_type) { - CORBA::ULong _temp; - _strm >> _temp; - _enum_type = discrim(_temp); - return _strm; - } - - - class oneof - { - public: - private: - discrim _disc; - CORBA::Octet __o; - CORBA::Short __s; - CORBA::Long __l; - Cubit::Many __cm; - public: - oneof() : _disc(discrim(0)) {} - ~oneof() {} - oneof(const oneof& obj); - oneof& operator=(const oneof& obj); - - void _d(discrim val) { _disc = val; } - discrim _d() const { return _disc; } - - void o(CORBA::Octet val) { - __o = val; - _disc = Cubit::e_0th; - } - CORBA::Octet o() const { return __o; } - - void s(CORBA::Short val) { - __s = val; - _disc = Cubit::e_1st; - } - CORBA::Short s() const { return __s; } - - void l(CORBA::Long val) { - __l = val; - _disc = Cubit::e_2nd; - } - CORBA::Long l() const { return __l; } - - void cm(const Cubit::Many& val) { - __cm = val; - _disc = Cubit::e_3rd; - } - const Cubit::Many& cm() const { return __cm; } - Cubit::Many& cm() { return __cm; } - - friend NCostream& operator<<(NCostream&, const oneof& ); - friend NCistream& operator>>(NCistream&, oneof& ); - friend ostream& operator<<(ostream&, const oneof&); - inline friend istream& operator>>(istream& strm, oneof& obj) { - NCistream istrm(strm); - strm >> obj; - return strm; - } - }; - - typedef oneof *oneof_ptr; - class oneof_var - { - public: - oneof_var() { _ptr = (oneof*)NULL;} - oneof_var(oneof *ptr) { - _ptr = ptr; - } - oneof_var(const oneof_var& var) { - _ptr = new oneof(*var._ptr); - } - ~oneof_var() { - if (_ptr != (oneof *)NULL) delete _ptr; - } - oneof_var& operator=(oneof *ptr) { - if (_ptr != (oneof *)NULL) delete _ptr; - _ptr = ptr; - return *this; - } - oneof_var& operator=(const oneof_var& var) { - if (_ptr != (oneof *)NULL) delete _ptr; - _ptr = new oneof(*var._ptr); - return *this; - } - oneof *operator->() { return _ptr; } - operator oneof () const { return *_ptr; } - operator oneof& () { return *_ptr; } - inline friend NCostream& operator<<(NCostream& strm, - const oneof_var& var) { - if (var._ptr == (oneof *)NULL) { - throw CORBA::BAD_PARAM(); - } - else - strm << *var._ptr; - return strm; - } - inline friend NCistream& operator>>(NCistream& strm, - oneof_var& var) { - if ( ! var._ptr) - var._ptr = new oneof; - strm >> *var._ptr; - return strm; - } - private: - oneof *_ptr; - }; - - - virtual Cubit::oneof cube_union(const Cubit::oneof& values); - - virtual void please_exit(); - - inline friend NCistream& operator>>(NCistream& strm, Cubit_ptr& obj) { - CORBA::Object_var _obj(obj); - _obj = CORBA::Object::_read(strm, Cubit::_desc()); - obj = Cubit::_narrow(_obj); - return strm; - } - inline friend ostream& operator<<(ostream& strm, const Cubit_ptr obj) { - strm << (CORBA::Object_ptr)obj; - return strm; - } - inline friend istream& operator>>(istream& strm, Cubit_ptr& obj) { - NCistream istrm(strm); - istrm >> obj; - return strm; - } -}; - - -#endif - diff --git a/TAO/IIOP/test/Orbix/tpr/cubitS.cpp b/TAO/IIOP/test/Orbix/tpr/cubitS.cpp deleted file mode 100644 index 449a8c23548..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubitS.cpp +++ /dev/null @@ -1,226 +0,0 @@ -#include "cubit.h" - - -#define Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"cube_octet")) { - CORBA::Octet IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_octet~+o{o},>{o},N{}\ -")) - return 1; - CORBA::Octet o; - - IT_r.extractOctet (o); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_octet ( o, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -o\ -", IT_env)) return 1; - IT_r.insertOctet (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_short")) { - CORBA::Short IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_short~+s{s},>{s},N{}\ -")) - return 1; - CORBA::Short s; - - IT_r >> s; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_short ( s, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -s\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_long")) { - CORBA::Long IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_long~+l{l},>{l},N{}\ -")) - return 1; - CORBA::Long l; - - IT_r >> l; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_long ( l, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -l\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_struct")) { - Cubit::Many IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_struct~+values{R~Cubit::Many~o{o},l{l},s{s}},>{R~Cubit::Many~o{o},l{l},s{s}},N{}\ -")) - return 1; - Cubit::Many values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_struct ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -R~Cubit::Many~o{o},l{l},s{s}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_union")) { - Cubit::oneof IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - IT_r.tcPreAssert ( -"\ -Ro~cube_union~+values{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},>{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,\ -"); - if (!IT_r.tcAssert ("\ -e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},N{}\ -")) - return 1; - Cubit::oneof values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_union ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"please_exit")) { - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~please_exit~>{v},O{}\ -")) - return 1; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - ((Cubit*)IT_pp)->please_exit (IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - IT_r.replyNoResults (CORBA::Flags(CORBA::INV_NO_RESPONSE),IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#include "cubitC.cpp" - diff --git a/TAO/IIOP/test/Orbix/tpr/cubitS.h b/TAO/IIOP/test/Orbix/tpr/cubitS.h deleted file mode 100644 index 757af4664ad..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubitS.h +++ /dev/null @@ -1,118 +0,0 @@ -#ifndef _cubitS_h -#define _cubitS_h - -#include "cubitC.h" - -/************************************************************************/ -/* */ -/* This file is automatically generated by ORBeline IDL compiler */ -/* Do not modify this file. */ -/* */ -/* ORBeline (c) is copyrighted by PostModern Computing, Inc. */ -/* */ -/* The generated code conforms to OMG's IDL C++ mapping as */ -/* specified in OMG Document Number: 94-9-14. */ -/* */ -/************************************************************************/ - -class _sk_Cubit : public Cubit -{ - protected: - _sk_Cubit(const char *object_name = (const char *)NULL); - _sk_Cubit(const char *service_name, const CORBA::ReferenceData& data); - virtual ~_sk_Cubit() {} - public: - static const CORBA::TypeInfo _skel_info; - - // The following operations need to be implemented by the server. - virtual CORBA::Octet cube_octet(CORBA::Octet o) = 0; - virtual CORBA::Short cube_short(CORBA::Short s) = 0; - virtual CORBA::Long cube_long(CORBA::Long l) = 0; - virtual Cubit::Many cube_struct(const Cubit::Many& values) = 0; - virtual Cubit::oneof cube_union(const Cubit::oneof& values) = 0; - virtual void please_exit() = 0; - - // Skeleton Operations implemented automatically - - static void _cube_octet(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_short(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_long(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_struct(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _cube_union(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - - static void _please_exit(void *obj, - CORBA::MarshalStream &strm, - CORBA::Principal_ptr principal, - const char *oper, - void *priv_data); - -}; -template <class T> -class _tie_Cubit : public Cubit -{ - public: - _tie_Cubit(T& t, const char *obj_name=(char*)NULL) : - Cubit(obj_name), - _ref(t) { - _object_name(obj_name); - } - _tie_Cubit(T& t, const char *service_name, - const CORBA::ReferenceData& id) - :_ref(t) { - _service(service_name, id); - } - ~_tie_Cubit() {} - CORBA::Octet cube_octet(CORBA::Octet o) { - return _ref.cube_octet( - o); - } - CORBA::Short cube_short(CORBA::Short s) { - return _ref.cube_short( - s); - } - CORBA::Long cube_long(CORBA::Long l) { - return _ref.cube_long( - l); - } - Cubit::Many cube_struct(const Cubit::Many& values) { - return _ref.cube_struct( - values); - } - Cubit::oneof cube_union(const Cubit::oneof& values) { - return _ref.cube_union( - values); - } - void please_exit() { - _ref.please_exit(); - } - - private: - T& _ref; -}; - -#endif - diff --git a/TAO/IIOP/test/Orbix/tpr/cubit_impl.cpp b/TAO/IIOP/test/Orbix/tpr/cubit_impl.cpp deleted file mode 100644 index e35f1084118..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubit_impl.cpp +++ /dev/null @@ -1,46 +0,0 @@ -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException) { -} diff --git a/TAO/IIOP/test/Orbix/tpr/cubit_impl.h b/TAO/IIOP/test/Orbix/tpr/cubit_impl.h deleted file mode 100644 index 1e710bb15d1..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/cubit_impl.h +++ /dev/null @@ -1,27 +0,0 @@ - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.h" - - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual CubitBOAImpl { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ - -public: - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); -}; - -#ifndef Cubit_USE_BOA -DEF_TIE_Cubit (Cubit_Impl) -#endif /* Cubit_USE_BOA */ - -#endif diff --git a/TAO/IIOP/test/Orbix/tpr/server.cpp b/TAO/IIOP/test/Orbix/tpr/server.cpp deleted file mode 100644 index 96117fe3e0d..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/server.cpp +++ /dev/null @@ -1,40 +0,0 @@ -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file - -int -main (int , char**) -{ - -#ifdef Cubit_USE_BOA - Cubit_var cb = new Cubit_Impl; - cout << "Using BOA approach" << endl; -#else - Cubit_var cb = new TIE_Cubit (Cubit_Impl) (new Cubit_Impl); - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // - // Go get some work to do.... - // - IT_TRY { - CORBA::Orbix.impl_is_ready("Cubit", IT_X); - } - IT_CATCHANY { - cout << IT_X << endl; - } - IT_ENDTRY; - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbix/tpr/tpr.cpp b/TAO/IIOP/test/Orbix/tpr/tpr.cpp deleted file mode 100644 index 415410aea9f..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/tpr.cpp +++ /dev/null @@ -1,26 +0,0 @@ -#include "tpr.h" - -void * -worker(void *vp) -{ - ACE_Thread_Control tc (ACE_Thread_Manager::instance ()); - CORBA::Orbix.continueThreadDispatch (*(CORBA::Request *)vp); - return NULL; -} - - -int -tpr_filter::inRequestPreMarshal(CORBA::Request &r, CORBA::Environment&) -{ -// thread_t tid; -// thr_create(NULL, 0, worker, (void *)&r, THR_DETACHED, &tid); - - ACE_Thread_Manager *thr_mgr = ACE_Thread_Manager::instance (); - thr_mgr->spawn (ACE_THR_FUNC (worker), - (void *) &r, - THR_DETACHED); - - return -1; -} - -tpr_filter tpr_dispatcher; diff --git a/TAO/IIOP/test/Orbix/tpr/tpr.h b/TAO/IIOP/test/Orbix/tpr/tpr.h deleted file mode 100644 index 38c2ccc7069..00000000000 --- a/TAO/IIOP/test/Orbix/tpr/tpr.h +++ /dev/null @@ -1,10 +0,0 @@ -#include "cubit.h" -#include "ace/Service_Config.h" -#include "ace/Thread_Manager.h" - -// -// Create a thread filter to dispatch incoming calls -// -class tpr_filter : public CORBA::ThreadFilter { - virtual int inRequestPreMarshal(CORBA::Request &, CORBA::Environment&); -}; diff --git a/TAO/IIOP/test/Orbix/tps/Makefile b/TAO/IIOP/test/Orbix/tps/Makefile deleted file mode 100644 index f7e949578c2..00000000000 --- a/TAO/IIOP/test/Orbix/tps/Makefile +++ /dev/null @@ -1,349 +0,0 @@ -#---------------------------------------------------------------------------- -# @(#)Makefile 1.1 10/18/96 -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitS.cpp cubit_impl.cpp server.cpp tps.cpp - -SVR_OBJS = cubitS.o cubit_impl.o server.o tps.o - -LDLIBS = - -VLDLIBS = $(LDLIBS:%=%$(VAR)) - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -include $(ACE_ROOT)/include/makeinclude/wrapper_macros.GNU -include $(ACE_ROOT)/include/makeinclude/macros.GNU -include $(ACE_ROOT)/include/makeinclude/rules.common.GNU -include $(ACE_ROOT)/include/makeinclude/rules.nonested.GNU -include $(ACE_ROOT)/include/makeinclude/rules.lib.GNU -include $(ACE_ROOT)/include/makeinclude/rules.bin.GNU -include $(ACE_ROOT)/include/makeinclude/rules.local.GNU - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/corba2/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/corba2/include - -# Remove -DCubit_USE_BOA from below to use the TIE approach - -CPPFLAGS += -DEXCEPTIONS -I$(ORBIX_INCDIR) -DWANT_ORBIX_FDS -DCubit_USE_BOA -LDFLAGS += -L$(ORBIX_LIBDIR) -R $(ORBIX_LIBDIR) -L$(ACE)/ace - -IDLFLAGS = -s S.cpp -c C.cpp -B - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: server - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitS.o .shobj/cubitS.so: cubitS.cpp cubit.h cubitC.cpp -.obj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/Task.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Shared_Object.i \ - $(ACE_ROOT)/ace/Event_Handler.h \ - $(ACE_ROOT)/ace/Event_Handler.i \ - $(ACE_ROOT)/ace/Service_Object.i \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Synch.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.i \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.i \ - $(ACE_ROOT)/ace/Synch.i \ - $(ACE_ROOT)/ace/Synch_T.h \ - $(ACE_ROOT)/ace/Synch_T.i \ - $(ACE_ROOT)/ace/Thread_Manager.i \ - $(ACE_ROOT)/ace/Task.i \ - $(ACE_ROOT)/ace/Task_T.h \ - $(ACE_ROOT)/ace/Message_Queue.h \ - $(ACE_ROOT)/ace/Message_Block.h \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Message_Block.i \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Strategies.h \ - $(ACE_ROOT)/ace/Strategies_T.h \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Config.i \ - $(ACE_ROOT)/ace/Reactor.h \ - $(ACE_ROOT)/ace/Handle_Set.h \ - $(ACE_ROOT)/ace/Handle_Set.i \ - $(ACE_ROOT)/ace/Timer_Queue.h \ - $(ACE_ROOT)/ace/Timer_Queue_T.h \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Token.h \ - $(ACE_ROOT)/ace/Token.i \ - $(ACE_ROOT)/ace/Pipe.h \ - $(ACE_ROOT)/ace/Pipe.i \ - $(ACE_ROOT)/ace/SOCK_Stream.h \ - $(ACE_ROOT)/ace/SOCK_IO.h \ - $(ACE_ROOT)/ace/SOCK.h \ - $(ACE_ROOT)/ace/Addr.h \ - $(ACE_ROOT)/ace/Addr.i \ - $(ACE_ROOT)/ace/IPC_SAP.h \ - $(ACE_ROOT)/ace/IPC_SAP.i \ - $(ACE_ROOT)/ace/SOCK.i \ - $(ACE_ROOT)/ace/SOCK_IO.i \ - $(ACE_ROOT)/ace/INET_Addr.h \ - $(ACE_ROOT)/ace/INET_Addr.i \ - $(ACE_ROOT)/ace/SOCK_Stream.i \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Proactor.h \ - $(ACE_ROOT)/ace/Asynch_IO.h \ - $(ACE_ROOT)/ace/Timer_List.h \ - $(ACE_ROOT)/ace/Timer_List_T.h \ - $(ACE_ROOT)/ace/Timer_Heap.h \ - $(ACE_ROOT)/ace/Timer_Heap_T.h \ - $(ACE_ROOT)/ace/Timer_Wheel.h \ - $(ACE_ROOT)/ace/Timer_Wheel_T.h \ - $(ACE_ROOT)/ace/ReactorEx.h \ - $(ACE_ROOT)/ace/ReactorEx.i \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i -.obj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/Task.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Shared_Object.i \ - $(ACE_ROOT)/ace/Event_Handler.h \ - $(ACE_ROOT)/ace/Event_Handler.i \ - $(ACE_ROOT)/ace/Service_Object.i \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Synch.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.i \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.i \ - $(ACE_ROOT)/ace/Synch.i \ - $(ACE_ROOT)/ace/Synch_T.h \ - $(ACE_ROOT)/ace/Synch_T.i \ - $(ACE_ROOT)/ace/Thread_Manager.i \ - $(ACE_ROOT)/ace/Task.i \ - $(ACE_ROOT)/ace/Task_T.h \ - $(ACE_ROOT)/ace/Message_Queue.h \ - $(ACE_ROOT)/ace/Message_Block.h \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Message_Block.i \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Strategies.h \ - $(ACE_ROOT)/ace/Strategies_T.h \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Config.i \ - $(ACE_ROOT)/ace/Reactor.h \ - $(ACE_ROOT)/ace/Handle_Set.h \ - $(ACE_ROOT)/ace/Handle_Set.i \ - $(ACE_ROOT)/ace/Timer_Queue.h \ - $(ACE_ROOT)/ace/Timer_Queue_T.h \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Token.h \ - $(ACE_ROOT)/ace/Token.i \ - $(ACE_ROOT)/ace/Pipe.h \ - $(ACE_ROOT)/ace/Pipe.i \ - $(ACE_ROOT)/ace/SOCK_Stream.h \ - $(ACE_ROOT)/ace/SOCK_IO.h \ - $(ACE_ROOT)/ace/SOCK.h \ - $(ACE_ROOT)/ace/Addr.h \ - $(ACE_ROOT)/ace/Addr.i \ - $(ACE_ROOT)/ace/IPC_SAP.h \ - $(ACE_ROOT)/ace/IPC_SAP.i \ - $(ACE_ROOT)/ace/SOCK.i \ - $(ACE_ROOT)/ace/SOCK_IO.i \ - $(ACE_ROOT)/ace/INET_Addr.h \ - $(ACE_ROOT)/ace/INET_Addr.i \ - $(ACE_ROOT)/ace/SOCK_Stream.i \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Proactor.h \ - $(ACE_ROOT)/ace/Asynch_IO.h \ - $(ACE_ROOT)/ace/Timer_List.h \ - $(ACE_ROOT)/ace/Timer_List_T.h \ - $(ACE_ROOT)/ace/Timer_Heap.h \ - $(ACE_ROOT)/ace/Timer_Heap_T.h \ - $(ACE_ROOT)/ace/Timer_Wheel.h \ - $(ACE_ROOT)/ace/Timer_Wheel_T.h \ - $(ACE_ROOT)/ace/ReactorEx.h \ - $(ACE_ROOT)/ace/ReactorEx.i \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i -.obj/tps.o .shobj/tps.so: tps.cpp tps.h cubit.h cubit_impl.h \ - $(ACE_ROOT)/ace/Task.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5-sunc++-4.x.h \ - $(ACE_ROOT)/ace/stdcpp.h \ - $(ACE_ROOT)/ace/OS.i \ - $(ACE_ROOT)/ace/Trace.h \ - $(ACE_ROOT)/ace/Log_Msg.h \ - $(ACE_ROOT)/ace/Log_Record.h \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Shared_Object.i \ - $(ACE_ROOT)/ace/Event_Handler.h \ - $(ACE_ROOT)/ace/Event_Handler.i \ - $(ACE_ROOT)/ace/Service_Object.i \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Synch.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.h \ - $(ACE_ROOT)/ace/SV_Semaphore_Simple.i \ - $(ACE_ROOT)/ace/SV_Semaphore_Complex.i \ - $(ACE_ROOT)/ace/Synch.i \ - $(ACE_ROOT)/ace/Synch_T.h \ - $(ACE_ROOT)/ace/Synch_T.i \ - $(ACE_ROOT)/ace/Thread_Manager.i \ - $(ACE_ROOT)/ace/Task.i \ - $(ACE_ROOT)/ace/Task_T.h \ - $(ACE_ROOT)/ace/Message_Queue.h \ - $(ACE_ROOT)/ace/Message_Block.h \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Message_Block.i \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Strategies.h \ - $(ACE_ROOT)/ace/Strategies_T.h \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Config.i \ - $(ACE_ROOT)/ace/Reactor.h \ - $(ACE_ROOT)/ace/Handle_Set.h \ - $(ACE_ROOT)/ace/Handle_Set.i \ - $(ACE_ROOT)/ace/Timer_Queue.h \ - $(ACE_ROOT)/ace/Timer_Queue_T.h \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Token.h \ - $(ACE_ROOT)/ace/Token.i \ - $(ACE_ROOT)/ace/Pipe.h \ - $(ACE_ROOT)/ace/Pipe.i \ - $(ACE_ROOT)/ace/SOCK_Stream.h \ - $(ACE_ROOT)/ace/SOCK_IO.h \ - $(ACE_ROOT)/ace/SOCK.h \ - $(ACE_ROOT)/ace/Addr.h \ - $(ACE_ROOT)/ace/Addr.i \ - $(ACE_ROOT)/ace/IPC_SAP.h \ - $(ACE_ROOT)/ace/IPC_SAP.i \ - $(ACE_ROOT)/ace/SOCK.i \ - $(ACE_ROOT)/ace/SOCK_IO.i \ - $(ACE_ROOT)/ace/INET_Addr.h \ - $(ACE_ROOT)/ace/INET_Addr.i \ - $(ACE_ROOT)/ace/SOCK_Stream.i \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Proactor.h \ - $(ACE_ROOT)/ace/Asynch_IO.h \ - $(ACE_ROOT)/ace/Timer_List.h \ - $(ACE_ROOT)/ace/Timer_List_T.h \ - $(ACE_ROOT)/ace/Timer_Heap.h \ - $(ACE_ROOT)/ace/Timer_Heap_T.h \ - $(ACE_ROOT)/ace/Timer_Wheel.h \ - $(ACE_ROOT)/ace/Timer_Wheel_T.h \ - $(ACE_ROOT)/ace/ReactorEx.h \ - $(ACE_ROOT)/ace/ReactorEx.i \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/IIOP/test/Orbix/tps/cubit.h b/TAO/IIOP/test/Orbix/tps/cubit.h deleted file mode 100644 index 72e2fb81395..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubit.h +++ /dev/null @@ -1,1111 +0,0 @@ - -#ifndef cubit_hh -#define cubit_hh - -#include <CORBA.h> - -#include <string.h> - - -#ifndef _Cubit_defined -#define _Cubit_defined -class Cubit_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch () {} - - Cubit_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit; - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - - -#ifndef CubitForwH -#define CubitForwH -CORBA::ObjectRef Cubit_getBase (void *); -void Cubit_release (Cubit *, CORBA::Environment &IT_env); -void Cubit_release (Cubit_ptr); -Cubit* Cubit_duplicate (Cubit_ptr, CORBA::Environment &IT_env); -Cubit* Cubit_duplicate (Cubit_ptr ); -Cubit_ptr Cubit_nil (CORBA::Environment &IT_env); -Cubit_ptr Cubit_nil (); -#endif -#define Cubit_IMPL "Cubit" - - -class Cubit; - -typedef Cubit CubitProxy; -#define Cubit_IR "Cubit$v1.1" -#define Cubit_IMPL "Cubit" - -#ifndef CubitPtr -#define CubitPtr - -typedef Cubit* Cubit_ptr; - -typedef Cubit* CubitRef; - -#endif - -class Cubit: public virtual CORBA::Object { -public: - Cubit (char *IT_OR); - Cubit (ObjectReference *IT_OR); - Cubit () : CORBA::Object (1) {} -protected: - Cubit_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_ptr _duplicate( - Cubit_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _bind (CORBA::Environment &IT_env); - static Cubit* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_ptr) CORBA::OBJECT_NIL;} - -#ifndef Cubit_Many_defined -#define Cubit_Many_defined - -struct Many { - CORBA::Octet o; - CORBA::Long l; - CORBA::Short s; - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - Many(const Many &); - Many(); - ~Many(); - Many& operator= (const Many&); -}; - -#ifndef Cubit_ManyVarH -#define Cubit_ManyVarH - -#ifndef Cubit_ManyvPtr -#define Cubit_ManyvPtr -typedef Many* Many_vPtr; -typedef const Many* Many_cvPtr; -#endif - -class Many_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Many_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - Many_var (const Many_var &IT_s) { - (void) copyHelper (IT_s); - } - - Many_var () { - _ptr = new Many; -; - } - - Many_var (Many *IT_p) { - _ptr = IT_p; - } - - Many_var &operator= (Many *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - Many_var &operator= (const Many_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new Many; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~Many_var () { - delete _ptr; - } - - Many* operator-> () { - return _ptr; - } - - operator Many_cvPtr () const { return _ptr;} - operator Many_vPtr& () { return _ptr;} - operator Many& () const { return * _ptr;} - - protected: - Many *_ptr; - private: - Many_var &operator= (const CORBA::_var &IT_s); - Many_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - -enum discrim {e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th, IT__ENUM_Cubit_discrim=CORBA_ULONG_MAX}; - -#ifndef Cubit_oneof_defined -#define Cubit_oneof_defined - -struct oneof { - private: - - discrim __d; - union { - CORBA::Octet _o_; - CORBA::Short _s_; - CORBA::Long _l_; - Many * _cm_; - }; - - public: - - void encodeOp (CORBA::Request &IT_r) const; - void decodeOp (CORBA::Request &IT_r); - void decodeInOutOp (CORBA::Request &IT_r); - - private: - - unsigned char isSet; - - public: - - discrim _d () const { return __d; } - - CORBA::Octet o () const { - return _o_; - } - - void o (CORBA::Octet IT_member) { - if (isSet && (__d != Cubit::e_0th)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_0th; - isSet = 1; - _o_ = IT_member; - } - - CORBA::Short s () const { - return _s_; - } - - void s (CORBA::Short IT_member) { - if (isSet && (__d != Cubit::e_1st)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_1st; - isSet = 1; - _s_ = IT_member; - } - - CORBA::Long l () const { - return _l_; - } - - void l (CORBA::Long IT_member) { - if (isSet && (__d != Cubit::e_2nd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_2nd; - isSet = 1; - _l_ = IT_member; - } - - Many& cm () { - return (*_cm_); - } - - const Many& cm () const { - return (*_cm_); - } - - void cm (const Many& IT_member) { - if (isSet && (__d != Cubit::e_3rd)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = Cubit::e_3rd; - - if (!isSet) { - _cm_ = new Many; - isSet = 1; - } - *(_cm_) = IT_member; - } - - - oneof(); - oneof(const oneof &); - ~oneof(); - oneof& operator= (const oneof&); -}; - -#ifndef Cubit_oneofVarH -#define Cubit_oneofVarH - -#ifndef Cubit_oneofvPtr -#define Cubit_oneofvPtr -typedef oneof* oneof_vPtr; -typedef const oneof* oneof_cvPtr; -#endif - -class oneof_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const oneof_var &IT_s) { - if (!IT_s._ptr) { - _ptr = IT_s._ptr; - } else - { - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - } - return 1; - } - - public: - - oneof_var (const oneof_var &IT_s) { - (void) copyHelper (IT_s); - } - - oneof_var () { - _ptr = NULL; - } - - oneof_var (oneof *IT_p) { - _ptr = IT_p; - } - - oneof_var &operator= (oneof *IT_p) { - if (_ptr != IT_p) { - delete _ptr; - } - _ptr = IT_p; - return (*this); - } - - oneof_var &operator= (const oneof_var &IT_s) { - if (_ptr != IT_s._ptr) { - delete _ptr; - } - _ptr = new oneof; - *(_ptr) = *(IT_s._ptr); - return (*this); - } - - ~oneof_var () { - delete _ptr; - } - - oneof* operator-> () { - return _ptr; - } - - operator oneof_cvPtr () const { return _ptr;} - operator oneof_vPtr& () { return _ptr;} - operator oneof& () const { return * _ptr;} - - protected: - oneof *_ptr; - private: - oneof_var &operator= (const CORBA::_var &IT_s); - oneof_var (const CORBA::_var &IT_s); -}; - -#endif - - -#endif - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef CubitVarH -#define CubitVarH - -#ifndef CubitvPtr -#define CubitvPtr -typedef Cubit* Cubit_vPtr; -typedef const Cubit* Cubit_cvPtr; -#endif - -class Cubit_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_var &IT_s) { - { - _ptr = Cubit_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_var (const Cubit_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_var () { - _ptr = Cubit_nil (); - } - - Cubit_var (Cubit *IT_p) { - _ptr = IT_p; - } - - Cubit_var &operator= (Cubit *IT_p) { - Cubit_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_var &operator= (const Cubit_var &IT_s) { - Cubit_release (_ptr); - _ptr = Cubit_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_var () { - Cubit_release (_ptr); - } - - Cubit* operator-> () { - return _ptr; - } - - operator Cubit_cvPtr () const { return _ptr;} - operator Cubit_vPtr& () { return _ptr;} - - protected: - Cubit *_ptr; - private: - Cubit_var &operator= (const CORBA::_var &IT_s); - Cubit_var (const CORBA::_var &IT_s); - Cubit_var &operator= (const CORBA::_mgr &IT_s); - Cubit_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_var (const CORBA::_mgr &IT_s); - Cubit_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef CubitMgrH -#define CubitMgrH - -class Cubit_mgr : public CORBA::_mgr -{ - public: - - Cubit_mgr () { - _ptr = Cubit_nil (); - _release = 1; - } - - Cubit_mgr (const Cubit_mgr &IT_s) { - _ptr = Cubit_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_mgr &operator= (Cubit *IT_p) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (const Cubit_mgr &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_mgr &operator= (Cubit_var &IT_s) { - if (_ptr && _release) - Cubit_release (_ptr); - _ptr = Cubit_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_mgr () { - if (_release) - Cubit_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit* () const { - return (Cubit*) _ptr; - } - - Cubit_ptr operator-> () const { - return _ptr; - } - - Cubit *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_mgr Cubit_mgr_IT_const; -#endif - -#ifndef CubitSeqElemH -#define CubitSeqElemH - -class Cubit_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_SeqElem (Cubit_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_SeqElem &operator= (Cubit_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_SeqElem &operator= (const Cubit_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_release (*(_ptr)); - *(_ptr) = Cubit_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_ptr () const { - return _ptr ? (Cubit_ptr) (*_ptr) : Cubit_nil(); - } - - Cubit_ptr operator->() const { return *_ptr;} - - protected: - Cubit_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit(X) Cubit##X - -#define DEF_TIE_Cubit(X) \ - class Cubit##X : public virtual Cubit { \ - X* m_obj; \ - public: \ - \ - \ - Cubit##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit(), m_obj(objp) { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,m,l,Cubit_IR,m_obj); \ - } \ - Cubit##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit() { \ - m_pptr = new Cubit_dispatch \ - (( Cubit*)this,(CORBA::Object*)this,IT_m,Cubit_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit \ -virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_octet ( o,IT_env);\ -}\ - \ -virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_short ( s,IT_env);\ -}\ - \ -virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_long ( l,IT_env);\ -}\ - \ -virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_struct ( values,IT_env);\ -}\ - \ -virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->cube_union ( values,IT_env);\ -}\ - \ -virtual void please_exit (CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -m_obj->please_exit (IT_env);\ -}\ - - - - -class CubitProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - CubitProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern CubitProxyFactoryClass CubitProxyFactory; - -class CubitBOAImpl : public virtual Cubit { -public: - CubitBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_IR)) - m_pptr = new Cubit_dispatch ( (Cubit*)this, - (CORBA::Object*)this, m, l, Cubit_IR, this); -} - - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual Many cube_struct (const Many& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual oneof cube_union (const oneof& values, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; - virtual void please_exit (CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#ifndef _Cubit_Factory_defined -#define _Cubit_Factory_defined -class Cubit_Factory_dispatch : public virtual CORBA::PPTR { -public: - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object* IT_o, const char *IT_m, - CORBA::LoaderClass *IT_l, char *IT_i, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_l,IT_i,IT_im) {} - - - Cubit_Factory_dispatch (char *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch () {} - - Cubit_Factory_dispatch (ObjectReference *IT_OR, void *IT_p, CORBA::Object *IT_o) - : PPTR (IT_OR,IT_p,IT_o) {} - - - Cubit_Factory_dispatch (void *IT_p, CORBA::Object *IT_o, const char *IT_m, - char *IT_i, CORBA::Object* IT_ob, void* IT_im) - : PPTR (IT_p,IT_o,IT_m,IT_i,IT_ob,IT_im) {} - - - virtual unsigned char dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void* IT_pp=NULL); - - -}; - -class Cubit_Factory; - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - - -#ifndef Cubit_FactoryForwH -#define Cubit_FactoryForwH -CORBA::ObjectRef Cubit_Factory_getBase (void *); -void Cubit_Factory_release (Cubit_Factory *, CORBA::Environment &IT_env); -void Cubit_Factory_release (Cubit_Factory_ptr); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr, CORBA::Environment &IT_env); -Cubit_Factory* Cubit_Factory_duplicate (Cubit_Factory_ptr ); -Cubit_Factory_ptr Cubit_Factory_nil (CORBA::Environment &IT_env); -Cubit_Factory_ptr Cubit_Factory_nil (); -#endif -#define Cubit_Factory_IMPL "Cubit_Factory" - - -class Cubit_Factory; - -typedef Cubit_Factory Cubit_FactoryProxy; -#define Cubit_Factory_IR "Cubit_Factory" -#define Cubit_Factory_IMPL "Cubit_Factory" - -#ifndef Cubit_FactoryPtr -#define Cubit_FactoryPtr - -typedef Cubit_Factory* Cubit_Factory_ptr; - -typedef Cubit_Factory* Cubit_FactoryRef; - -#endif - -class Cubit_Factory: public virtual CORBA::Object { -public: - Cubit_Factory (char *IT_OR); - Cubit_Factory (ObjectReference *IT_OR); - Cubit_Factory () : CORBA::Object (1) {} -protected: - Cubit_Factory_ptr __duplicate( - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) { - CORBA::Object::__duplicate (IT_env); - return this; - } -public: - static Cubit_Factory_ptr _duplicate( - Cubit_Factory_ptr, - CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()); -public: - static Cubit_Factory* _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _bind (CORBA::Environment &IT_env); - static Cubit_Factory* _bind (const char* IT_markerServer=NULL, const char* host=NULL, - CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory* _narrow (CORBA::Object* , CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - static Cubit_Factory_ptr _nil (CORBA::Environment &IT_pEnv=CORBA::IT_chooseDefaultEnv ()) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - return (Cubit_Factory_ptr) CORBA::OBJECT_NIL;} - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException); -}; - -#ifndef Cubit_FactoryVarH -#define Cubit_FactoryVarH - -#ifndef Cubit_FactoryvPtr -#define Cubit_FactoryvPtr -typedef Cubit_Factory* Cubit_Factory_vPtr; -typedef const Cubit_Factory* Cubit_Factory_cvPtr; -#endif - -class Cubit_Factory_var : public CORBA::_var -{ - private: - - unsigned char copyHelper (const Cubit_Factory_var &IT_s) { - { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - } - return 1; - } - - public: - - Cubit_Factory_var (const Cubit_Factory_var &IT_s) { - (void) copyHelper (IT_s); - } - - Cubit_Factory_var () { - _ptr = Cubit_Factory_nil (); - } - - Cubit_Factory_var (Cubit_Factory *IT_p) { - _ptr = IT_p; - } - - Cubit_Factory_var &operator= (Cubit_Factory *IT_p) { - Cubit_Factory_release (_ptr); - _ptr = IT_p; - return (*this); - } - - Cubit_Factory_var &operator= (const Cubit_Factory_var &IT_s) { - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - return (*this); - } - - ~Cubit_Factory_var () { - Cubit_Factory_release (_ptr); - } - - Cubit_Factory* operator-> () { - return _ptr; - } - - operator Cubit_Factory_cvPtr () const { return _ptr;} - operator Cubit_Factory_vPtr& () { return _ptr;} - - protected: - Cubit_Factory *_ptr; - private: - Cubit_Factory_var &operator= (const CORBA::_var &IT_s); - Cubit_Factory_var (const CORBA::_var &IT_s); - Cubit_Factory_var &operator= (const CORBA::_mgr &IT_s); - Cubit_Factory_var &operator= (const CORBA::_SeqElem &IT_s); - Cubit_Factory_var (const CORBA::_mgr &IT_s); - Cubit_Factory_var (const CORBA::_SeqElem &IT_s); -}; - -#endif - - -#ifndef Cubit_FactoryMgrH -#define Cubit_FactoryMgrH - -class Cubit_Factory_mgr : public CORBA::_mgr -{ - public: - - Cubit_Factory_mgr () { - _ptr = Cubit_Factory_nil (); - _release = 1; - } - - Cubit_Factory_mgr (const Cubit_Factory_mgr &IT_s) { - _ptr = Cubit_Factory_duplicate (IT_s._ptr); - _release = 1; - } - - Cubit_Factory_mgr &operator= (Cubit_Factory *IT_p) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = IT_p; - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (const Cubit_Factory_mgr &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s._ptr); - _release = 1; - return (*this); - } - - Cubit_Factory_mgr &operator= (Cubit_Factory_var &IT_s) { - if (_ptr && _release) - Cubit_Factory_release (_ptr); - _ptr = Cubit_Factory_duplicate(IT_s); - _release = 1; - return (*this); - } - - ~Cubit_Factory_mgr () { - if (_release) - Cubit_Factory_release (_ptr); - } - - unsigned char release () { - return _release; - } - - void release (unsigned char rel) { - _release = rel; - } - - operator int () const { - return (((CORBA::Object_ptr) _ptr) ? 1 : 0); - } - - operator void* () const { - return _ptr; - } - - operator CORBA::Object * () const { - return (CORBA::Object *) _ptr; - } - - operator Cubit_Factory* () const { - return (Cubit_Factory*) _ptr; - } - - Cubit_Factory_ptr operator-> () const { - return _ptr; - } - - Cubit_Factory *_ptr; - - protected: - - unsigned char _release; -}; - -typedef Cubit_Factory_mgr Cubit_Factory_mgr_IT_const; -#endif - -#ifndef Cubit_FactorySeqElemH -#define Cubit_FactorySeqElemH - -class Cubit_Factory_SeqElem : public CORBA::_SeqElem -{ - public: - - Cubit_Factory_SeqElem (Cubit_Factory_ptr* IT_p, unsigned char rel) { - _ptr = IT_p; - _release = rel; - } - - Cubit_Factory_SeqElem &operator= (Cubit_Factory_ptr IT_p) { - if (_ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = IT_p; - } - return (*this); - } - - Cubit_Factory_SeqElem &operator= (const Cubit_Factory_SeqElem &IT_s) { - if (_ptr && IT_s._ptr) { - if (*(_ptr) && _release) - Cubit_Factory_release (*(_ptr)); - *(_ptr) = Cubit_Factory_duplicate(*(IT_s._ptr)); - } - return (*this); - } - - operator Cubit_Factory_ptr () const { - return _ptr ? (Cubit_Factory_ptr) (*_ptr) : Cubit_Factory_nil(); - } - - Cubit_Factory_ptr operator->() const { return *_ptr;} - - protected: - Cubit_Factory_ptr *_ptr; - unsigned char _release; -}; - -#endif - - -#define TIE_Cubit_Factory(X) Cubit_Factory##X - -#define DEF_TIE_Cubit_Factory(X) \ - class Cubit_Factory##X : public virtual Cubit_Factory { \ - X* m_obj; \ - public: \ - \ - \ - Cubit_Factory##X (X *objp, const char* m="", CORBA::LoaderClass *l=0)\ - : Cubit_Factory(), m_obj(objp) { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,m,l,Cubit_Factory_IR,m_obj); \ - } \ - Cubit_Factory##X (CORBA::Object *IT_p, const char* IT_m="", void *IT_q=0)\ - : Cubit_Factory() { \ - m_pptr = new Cubit_Factory_dispatch \ - (( Cubit_Factory*)this,(CORBA::Object*)this,IT_m,Cubit_Factory_IR,IT_p,IT_q); \ - m_obj = (X*)(m_pptr->getImplObj ()); \ - } \ - \ - virtual ~Cubit_Factory##X () { \ - if (_okToDeleteImpl ()) delete m_obj; } \ - virtual void* _deref () { \ - return m_obj; } \ - \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - \ - }; \ - - -#define QUALS_Cubit_Factory \ -virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env) throw (CORBA::SystemException){\ -return m_obj->create_cubit ( name,IT_env);\ -}\ - - - - -class Cubit_FactoryProxyFactoryClass : public virtual CORBA::ObjectFactoryClass { -public: - Cubit_FactoryProxyFactoryClass (unsigned char IT_p=0) - : CORBA::ProxyFactory (Cubit_Factory_IR, IT_p) {} - - virtual void* New (char *IT_OR, CORBA::Environment&); - - virtual void* New (ObjectReference *IT_OR, CORBA::Environment&); - - virtual void* New2 (); - - virtual CORBA::Object* NewObject (char *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* NewObject (ObjectReference *IT_OR, CORBA::Environment&); - - virtual CORBA::Object* New2Object (); - - virtual void* IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()); - - virtual CORBA::PPTR* pptr (void *IT_p); - - virtual void baseInterfaces (_IDL_SEQUENCE_string&); - - -}; - -extern Cubit_FactoryProxyFactoryClass Cubit_FactoryProxyFactory; - -class Cubit_FactoryBOAImpl : public virtual Cubit_Factory { -public: - Cubit_FactoryBOAImpl (const char *m="", CORBA::LoaderClass *l=NULL) { - if (CORBA::PPTR::isOK (m_pptr, Cubit_Factory_IR)) - m_pptr = new Cubit_Factory_dispatch ( (Cubit_Factory*)this, - (CORBA::Object*)this, m, l, Cubit_Factory_IR, this); -} - - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::IT_chooseDefaultEnv ()) throw (CORBA::SystemException) =0; -}; - - -#endif - - -#endif diff --git a/TAO/IIOP/test/Orbix/tps/cubit.idl b/TAO/IIOP/test/Orbix/tps/cubit.idl deleted file mode 100644 index 7dba408d0db..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubit.idl +++ /dev/null @@ -1,46 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - - interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); - }; - - - interface Cubit_Factory { - Cubit create_cubit (in string name); - }; - diff --git a/TAO/IIOP/test/Orbix/tps/cubitC.cpp b/TAO/IIOP/test/Orbix/tps/cubitC.cpp deleted file mode 100644 index c439fc4c800..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubitC.cpp +++ /dev/null @@ -1,710 +0,0 @@ - - -#include "cubit.h" - -Cubit::Cubit (char *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit::Cubit (ObjectReference *IT_OR) { - m_pptr = new Cubit_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef CubitForwC -#define CubitForwC -CORBA::ObjectRef Cubit_getBase(void *IT_p){ - return (Cubit*) IT_p;} - -void Cubit_release (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_release (Cubit_ptr IT_p) { - Cubit_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_ptr Cubit_nil (CORBA::Environment &) { - return Cubit:: _nil ();} - -Cubit_ptr Cubit_nil () { - return Cubit_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit::_duplicate(IT_p, IT_env)); } -Cubit_ptr Cubit_duplicate (Cubit_ptr IT_p) { - return Cubit_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_IMPL, Cubit_IR); -} - - - -Cubit* Cubit:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit* Cubit:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit* Cubit::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit:: _nil(); - } - - Cubit* IT_p = (Cubit*)CORBA::Object::_castDown (IT_obj, Cubit_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - - -#ifndef Cubit_Many_Ops -#define Cubit_Many_Ops - -void Cubit::Many:: encodeOp (CORBA::Request &IT_r) const { - - IT_r.insertOctet (o); - - IT_r << l; - - IT_r << s; -} - -void Cubit::Many:: decodeOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -void Cubit::Many:: decodeInOutOp (CORBA::Request &IT_r) { - - IT_r.extractOctet (o); - - IT_r >> l; - - IT_r >> s; -} - -Cubit::Many ::~Many () { -} - -Cubit::Many:: Many (const Cubit::Many &IT_s) - { - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; -} - -Cubit::Many:: Many () { -} - -Cubit::Many &Cubit::Many:: operator= (const Cubit::Many& IT_s) { - if (this == &IT_s) return *this; - o = IT_s.o; - l = IT_s.l; - s = IT_s.s; - return *this; -} - - -#endif - - -#ifndef Cubit_oneof_Ops -#define Cubit_oneof_Ops -void Cubit::oneof:: encodeOp (CORBA::Request &IT_r) const { - if (!isSet) return; - { - CORBA::ULong IT_0 = (CORBA::ULong) __d; - IT_r << IT_0; - } - switch (__d) { - case Cubit::e_0th: - IT_r.insertOctet (_o_); - break; - case Cubit::e_1st: - IT_r << _s_; - break; - case Cubit::e_2nd: - IT_r << _l_; - break; - case Cubit::e_3rd: - default: - (*_cm_).encodeOp (IT_r); - break; - } - -} - -void Cubit::oneof:: decodeOp (CORBA::Request &IT_r) { - isSet = 0; - { - CORBA::ULong IT_1; - IT_r >> IT_1; - __d = Cubit::discrim(IT_1); - } - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - -} -void Cubit::oneof:: decodeInOutOp (CORBA::Request &IT_r) { - Cubit::discrim IT_d; - { - CORBA::ULong IT_2; - IT_r >> IT_2; - IT_d = Cubit::discrim(IT_2); - } - if (IT_d == __d) - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeInOutOp (IT_r); - break; - } - - else { - this->oneof:: ~oneof(); - memset(this, 0, sizeof(*this)); - __d = IT_d; - switch (__d) { - case Cubit::e_0th: - if (!isSet) { - isSet = 1; - } - IT_r.extractOctet (_o_); - break; - case Cubit::e_1st: - if (!isSet) { - isSet = 1; - } - IT_r >> _s_; - break; - case Cubit::e_2nd: - if (!isSet) { - isSet = 1; - } - IT_r >> _l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - (*_cm_).decodeOp (IT_r); - break; - } - isSet = 1; - } - -} - -Cubit::oneof:: oneof() { - memset(this, 0, sizeof(*this)); - isSet = 0; -} - -Cubit::oneof ::~oneof() { - if (!isSet) return; - switch (__d) { - case Cubit::e_0th: break; - case Cubit::e_1st: break; - case Cubit::e_2nd: break; - case Cubit::e_3rd: - default: if (_cm_) delete _cm_; - break; - } - - isSet = 0; -} - -Cubit::oneof:: oneof (const Cubit::oneof &IT_s) { - isSet = 0; - memset(this, 0, sizeof(*this)); - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; -} - -Cubit::oneof& Cubit::oneof:: operator= (const Cubit::oneof & IT_s) { - if (this == &IT_s) return *this; - if (isSet && (__d != IT_s.__d)) - { - this-> oneof::~oneof(); - memset(this, 0, sizeof(*this)); - } - - __d = IT_s.__d; - switch (__d) { - case Cubit::e_0th: isSet = 1; - _o_ = IT_s._o_; - break; - case Cubit::e_1st: isSet = 1; - _s_ = IT_s._s_; - break; - case Cubit::e_2nd: isSet = 1; - _l_ = IT_s._l_; - break; - case Cubit::e_3rd: - default: - if (!isSet) { - _cm_ = new Cubit::Many; - isSet = 1; - } - *(_cm_) = *(IT_s._cm_); - break; - } - isSet = 1; - return *this; -} - - -#endif - -void* CubitProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -void* CubitProxyFactoryClass::New2 () { - return new class Cubit((char*)0);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit(IT_OR);} - -CORBA::Object* CubitProxyFactoryClass::New2Object () { - return new class Cubit((char*)0);} - -void* CubitProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* CubitProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit*)IT_p)->_pptr ();} - -void CubitProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -CubitProxyFactoryClass CubitProxyFactory(1); - -CORBA::Octet Cubit:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_octet",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.insertOctet (o); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Octet IT_result; - IT_r.extractOctet (IT_result); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Short Cubit:: cube_short (CORBA::Short s, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_short",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << s; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Short IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -CORBA::Long Cubit:: cube_long (CORBA::Long l, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return 0; - } - CORBA::Request IT_r (this, "cube_long",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r << l; - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - CORBA::Long IT_result; - IT_r >> IT_result; - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return 0; -} - -Cubit::Many Cubit:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::Many IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_struct",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::Many IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::Many IT_l1; - return IT_l1; - } -} - -Cubit::oneof Cubit:: cube_union (const Cubit::oneof& values, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - { - Cubit::oneof IT_l0; - return IT_l0; - } - } - CORBA::Request IT_r (this, "cube_union",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - values.encodeOp (IT_r); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit::oneof IT_result; - IT_result.decodeOp (IT_r); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - { - Cubit::oneof IT_l1; - return IT_l1; - } -} - -void Cubit:: please_exit (CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return ; - } - CORBA::Request IT_r (this, "please_exit",IT_env,1,1); - - IT_r.invoke (CORBA::Flags(CORBA::INV_NO_RESPONSE), IT_env); - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } -} - - - - - -#ifndef Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit"); - return 0; -} - -#endif - -Cubit_Factory::Cubit_Factory (char *IT_OR) { - m_pptr = new Cubit_Factory_dispatch (IT_OR, this,(CORBA::Object*)this); -} -Cubit_Factory::Cubit_Factory (ObjectReference *IT_OR) { - m_pptr = new Cubit_Factory_dispatch (IT_OR, this,(CORBA::Object*)this); -} - -#ifndef Cubit_FactoryForwC -#define Cubit_FactoryForwC -CORBA::ObjectRef Cubit_Factory_getBase(void *IT_p){ - return (Cubit_Factory*) IT_p;} - -void Cubit_Factory_release (Cubit_Factory_ptr IT_p, CORBA::Environment &IT_env) { - CORBA::release(IT_p, IT_env);} - -void Cubit_Factory_release (Cubit_Factory_ptr IT_p) { - Cubit_Factory_release (IT_p, CORBA::IT_chooseDefaultEnv ()); } - -Cubit_Factory_ptr Cubit_Factory_nil (CORBA::Environment &) { - return Cubit_Factory:: _nil ();} - -Cubit_Factory_ptr Cubit_Factory_nil () { - return Cubit_Factory_nil (CORBA::IT_chooseDefaultEnv ());} - -Cubit_Factory_ptr Cubit_Factory_duplicate (Cubit_Factory_ptr IT_p, CORBA::Environment &IT_env) { - return (Cubit_Factory::_duplicate(IT_p, IT_env)); } -Cubit_Factory_ptr Cubit_Factory_duplicate (Cubit_Factory_ptr IT_p) { - return Cubit_Factory_duplicate (IT_p, CORBA::IT_chooseDefaultEnv ()); } -#endif - -Cubit_Factory_ptr Cubit_Factory::_duplicate(Cubit_Factory_ptr obj, CORBA::Environment& IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (!obj) { - return (obj); - } - Cubit_Factory_ptr IT_obj = obj->__duplicate (IT_env); - return IT_obj; -} - - - -Cubit_Factory* Cubit_Factory:: _bind (const char* IT_markerServer, const char* host, - const CORBA::Context &IT_c, - CORBA::Environment &IT_env) { - return (Cubit_Factory*)CORBA::Factory.New (IT_markerServer, IT_env, IT_c, host, - Cubit_Factory_IMPL, Cubit_Factory_IR); -} - - - -Cubit_Factory* Cubit_Factory:: _bind (CORBA::Environment &IT_env) { - return _bind (NULL,NULL,CORBA::Context(), IT_env); } - - -Cubit_Factory* Cubit_Factory:: _bind (const char* IT_markerServer, const char* host, - CORBA::Environment &IT_env) { - return _bind (IT_markerServer, host, CORBA::Context (), IT_env); } -Cubit_Factory* Cubit_Factory::_narrow (CORBA::Object* IT_obj, CORBA::Environment &IT_pEnv) { - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (CORBA::is_nil (IT_obj)) { - return Cubit_Factory:: _nil(); - } - - Cubit_Factory* IT_p = (Cubit_Factory*)CORBA::Object::_castDown (IT_obj, Cubit_Factory_IR, IT_env); - IT_p = IT_p ? IT_p->__duplicate(IT_env) : NULL; - if ((IT_env) &&(!strcmp(IT_env.exception()->id(), "CORBA::StExcep::BAD_PARAM")) && (((CORBA::BAD_PARAM*)IT_env.exception())-> minor() == NARROW_FAILED)) { - IT_env.exception_free(); - } - return IT_p; - } - -void* Cubit_FactoryProxyFactoryClass::New (char *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -void* Cubit_FactoryProxyFactoryClass::New (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -void* Cubit_FactoryProxyFactoryClass::New2 () { - return new class Cubit_Factory((char*)0);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::NewObject (char *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::NewObject (ObjectReference *IT_OR, CORBA::Environment&) { - return new class Cubit_Factory(IT_OR);} - -CORBA::Object* Cubit_FactoryProxyFactoryClass::New2Object () { - return new class Cubit_Factory((char*)0);} - -void* Cubit_FactoryProxyFactoryClass::IT_castUp (void *IT_p, char* IT_s, CORBA::Environment &IT_env) { - void *IT_l; - if (!CORBA::_interfaceCmp (IT_s,Cubit_Factory_IR, IT_env)) - return IT_p; - else if (IT_l=CORBA::ObjectFactoryClass::IT_castUp((CORBA::Object*)((class Cubit_Factory*)IT_p),IT_s, IT_env)) - return IT_l; - else return NULL; - } - - -CORBA::PPTR* Cubit_FactoryProxyFactoryClass::pptr (void *IT_p) { - return ((class Cubit_Factory*)IT_p)->_pptr ();} - -void Cubit_FactoryProxyFactoryClass::baseInterfaces (_IDL_SEQUENCE_string& seq) { - add (seq, Cubit_Factory_IR); - CORBA::ObjectFactoryClass::baseInterfaces (seq); -} - -Cubit_FactoryProxyFactoryClass Cubit_FactoryProxyFactory(1); - -Cubit_ptr Cubit_Factory:: create_cubit (const char * name, CORBA::Environment &IT_pEnv) throw (CORBA::SystemException) { - - CORBA::EnvExcRaiser IT_raise; - CORBA::Environment &IT_env = IT_raise.registerEnv (&IT_pEnv); - if (IT_env || m_isNull) { - return new Cubit; - } - CORBA::Request IT_r (this, "create_cubit",IT_env,1,0); - if (!IT_r.isException (IT_env)) { - - IT_r.encodeStringOp (name); - } - - IT_r.invoke (CORBA::Flags(0),IT_env); - if (!IT_r.isException (IT_env)) { - Cubit_ptr IT_result; - IT_result = (Cubit*) IT_r.decodeObjRef (Cubit_IR); - IT_r.checkEnv (IT_env); - return IT_result; - } - if (IT_r.exceptionKind () == CORBA::SYSTEM_EXCEPTION) { - IT_r.checkEnv (IT_env); - } - return new Cubit; -} - - - - - -#ifndef Cubit_Factory_dispatch_impl - -unsigned char Cubit_Factory_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char, void *) { - IT_r.makeRuntimeException1 ("Cubit_Factory"); - return 0; -} - -#endif - diff --git a/TAO/IIOP/test/Orbix/tps/cubitS.cpp b/TAO/IIOP/test/Orbix/tps/cubitS.cpp deleted file mode 100644 index a2898e12914..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubitS.cpp +++ /dev/null @@ -1,282 +0,0 @@ - - -#include "cubit.h" - - -#define Cubit_dispatch_impl - -unsigned char Cubit_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"cube_octet")) { - CORBA::Octet IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_octet~+o{o},>{o},N{}\ -")) - return 1; - CORBA::Octet o; - - IT_r.extractOctet (o); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_octet ( o, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -o\ -", IT_env)) return 1; - IT_r.insertOctet (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_short")) { - CORBA::Short IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_short~+s{s},>{s},N{}\ -")) - return 1; - CORBA::Short s; - - IT_r >> s; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_short ( s, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -s\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_long")) { - CORBA::Long IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_long~+l{l},>{l},N{}\ -")) - return 1; - CORBA::Long l; - - IT_r >> l; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_long ( l, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -l\ -", IT_env)) return 1; - IT_r << IT_result; - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_struct")) { - Cubit::Many IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~cube_struct~+values{R~Cubit::Many~o{o},l{l},s{s}},>{R~Cubit::Many~o{o},l{l},s{s}},N{}\ -")) - return 1; - Cubit::Many values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_struct ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -R~Cubit::Many~o{o},l{l},s{s}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"cube_union")) { - Cubit::oneof IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - IT_r.tcPreAssert ( -"\ -Ro~cube_union~+values{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},>{U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,\ -"); - if (!IT_r.tcAssert ("\ -e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}},N{}\ -")) - return 1; - Cubit::oneof values; - - values.decodeOp (IT_r); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit*)IT_pp)->cube_union ( values, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -U~Cubit::oneof~{E~Cubit::discrim~e_0th,e_1st,e_2nd,e_3rd,e_4th,e_5th}~Cubit::e_0th o{o};Cubit::e_1st s{s};Cubit::e_2nd l{l};Cubit::e_3rd,$ cm{R~Cubit::Many~o{o},l{l},s{s}}\ -", IT_env)) return 1; - IT_result.encodeOp (IT_r); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (!strcmp(IT_s,"please_exit")) { - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~please_exit~>{v},O{}\ -")) - return 1; - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - ((Cubit*)IT_pp)->please_exit (IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - IT_r.replyNoResults (CORBA::Flags(CORBA::INV_NO_RESPONSE),IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#define Cubit_Factory_dispatch_impl - -unsigned char Cubit_Factory_dispatch::dispatch (CORBA::Request &IT_r, - unsigned char IT_isTarget, void *IT_pp) { - if (!IT_pp) - IT_pp = m_obj; - const char *IT_s = IT_r.getOperation (); - if (!strcmp(IT_s,"create_cubit")) { - Cubit_ptr IT_result; - CORBA::Environment IT_env (IT_r); - CORBA::Filter* IT_f = CORBA::Orbix.getFilter (); - if (!IT_r.tcAssert ("\ -Ro~create_cubit~+name{0},>{O~Cubit},N{}\ -")) - return 1; - char * name; - - IT_r.decodeStringOp(name); - - if (IT_f && !IT_r.isException (IT_env)) - IT_f->inRequestPostM (IT_r, IT_env); - if (!IT_r.isException (IT_env)) { - try { - IT_result = ((Cubit_Factory*)IT_pp)->create_cubit ( name, IT_env); - - } catch (CORBA::SystemException &IT_exSys) { - IT_env.propagate (&IT_exSys); - } catch (CORBA::UserException &IT_exUsr) { - IT_env.propagate (&IT_exUsr); - } - } - CORBA::string_free (name); - - if (!IT_r.isException (IT_env)) { - if (!IT_r.convertToReply ("\ -O~Cubit\ -", IT_env)) return 1; - { - CORBA::Object* IT_l1 = (CORBA::Object*) IT_result; - IT_r << IT_l1; - } - if (IT_result) Cubit_release (IT_result); - } - - else IT_r.makeSystemException (IT_env); - return 1; - } - - if (IT_isTarget) - IT_r.makeRuntimeException2 (); - - return 0; -} - -#include "cubitC.cpp" - diff --git a/TAO/IIOP/test/Orbix/tps/cubit_impl.cpp b/TAO/IIOP/test/Orbix/tps/cubit_impl.cpp deleted file mode 100644 index 27ee125e4df..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubit_impl.cpp +++ /dev/null @@ -1,81 +0,0 @@ -#include "cubit_impl.h" - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o, CORBA::Environment &) throw (CORBA::SystemException) { - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s, CORBA::Environment &) throw (CORBA::SystemException) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l, CORBA::Environment &) throw (CORBA::SystemException) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values, CORBA::Environment &) throw (CORBA::SystemException) { - Cubit::Many out_values; - out_values.o = values.o * values.o * values.o; - out_values.s = values.s * values.s * values.s; - out_values.l = values.l * values.l * values.l; - return out_values; -} - -Cubit::oneof Cubit_Impl:: cube_union (const Cubit::oneof& values, CORBA::Environment &) throw (CORBA::SystemException) { - Cubit::oneof out_values; - switch (values._d ()) { - case Cubit::e_0th: - out_values.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - out_values.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - out_values.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - out_values.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o ; - out_values.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s ; - out_values.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l ; - break; - } - return out_values; -} - -void Cubit_Impl:: please_exit (CORBA::Environment &) throw (CORBA::SystemException) { -} - -Cubit_ptr Cubit_Factory_Impl:: create_cubit (const char * name, CORBA::Environment &) throw (CORBA::SystemException) { - cerr << "Creating Cubit for " << name << endl; - -#ifdef Cubit_USE_BOA - Cubit_Impl_Task *cubit = new Cubit_Impl_Task (); -#else - Cubit_Impl_Task *cubit = new TIE_Cubit (Cubit_Impl) (new Cubit_Impl_Task); -#endif - Cubit::_duplicate ((Cubit *)cubit); - cubit->activate (1); - return (Cubit *) cubit; -} - -int -Cubit_Impl_Task::svc (void) -{ - while (1) - { - // Dequeue message - ACE_Message_Block *mb; - this->msg_queue ()->dequeue_head (mb); - CORBA::Request *vp = (CORBA::Request *) mb->base (); - mb->release (); - // Hand it off to Orbix - CORBA::Orbix.continueThreadDispatch (*vp); - } - return 0; -} - -void * -Cubit_Impl_Task::_deref (void) -{ - return this; -} diff --git a/TAO/IIOP/test/Orbix/tps/cubit_impl.h b/TAO/IIOP/test/Orbix/tps/cubit_impl.h deleted file mode 100644 index 31a8874f07b..00000000000 --- a/TAO/IIOP/test/Orbix/tps/cubit_impl.h +++ /dev/null @@ -1,46 +0,0 @@ - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.h" -#include "ace/Task.h" - -#ifdef Cubit_USE_BOA -class Cubit_Impl : public virtual CubitBOAImpl { -#else -class Cubit_Impl { -#endif /* Cubit_USE_BOA */ -public: - virtual CORBA::Octet cube_octet (CORBA::Octet o, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Short cube_short (CORBA::Short s, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual CORBA::Long cube_long (CORBA::Long l, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - virtual void please_exit (CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); - -}; - -#ifdef Cubit_USE_BOA -class Cubit_Factory_Impl : public virtual Cubit_FactoryBOAImpl { -#else -class Cubit_Factory_Impl { -#endif - -public: - virtual Cubit_ptr create_cubit (const char * name, CORBA::Environment &IT_env=CORBA::default_environment) throw (CORBA::SystemException); -}; - -class Cubit_Impl_Task : public virtual Cubit_Impl, public virtual ACE_Task<ACE_MT_SYNCH> { -public: - // For ACE_Task - int svc (void); - // for narrowing - virtual void *_deref (); -}; - -#ifndef Cubit_USE_BOA -DEF_TIE_Cubit (Cubit_Impl) -DEF_TIE_Cubit_Factory (Cubit_Factory_Impl) -#endif /* Cubit_USE_BOA */ - -#endif diff --git a/TAO/IIOP/test/Orbix/tps/server.cpp b/TAO/IIOP/test/Orbix/tps/server.cpp deleted file mode 100644 index 4e6baf18886..00000000000 --- a/TAO/IIOP/test/Orbix/tps/server.cpp +++ /dev/null @@ -1,40 +0,0 @@ -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file - -int -main (int , char**) -{ - -#ifdef Cubit_USE_BOA - Cubit_Factory_var cf = new Cubit_Factory_Impl; - cout << "Using BOA approach" << endl; -#else - Cubit_Factory_var cf = new TIE_Cubit_Factory (Cubit_Factory) (new Cubit_Factory); - cout << "Using TIE approach" << endl; -#endif /* Cubit_USE_BOA */ - - // - // Go get some work to do.... - // - IT_TRY { - CORBA::Orbix.impl_is_ready("Cubit_Factory", IT_X); - } - IT_CATCHANY { - cout << IT_X << endl; - } - IT_ENDTRY; - - cout << "Cubit server is exiting." << endl; - - - return 0; -} diff --git a/TAO/IIOP/test/Orbix/tps/tps.cpp b/TAO/IIOP/test/Orbix/tps/tps.cpp deleted file mode 100644 index 1035f1e503f..00000000000 --- a/TAO/IIOP/test/Orbix/tps/tps.cpp +++ /dev/null @@ -1,26 +0,0 @@ -#include "tps.h" - -int -TPS_Filter::inRequestPreMarshal(CORBA::Request &r, CORBA::Environment& env) -{ - // Get target - CORBA::Object_ptr obj = r.target (); - Cubit * cb = Cubit::_narrow (obj, env); - - if (env) // Not for our object!! - return 1; // continue in the same thread - - // Enqueue the request - Cubit_Impl_Task *ct; - if (CORBA::is_nil (cb)) - return 1; - ct = (Cubit_Impl_Task *) DEREF(cb); - if (ct) { - ACE_Message_Block *mb = new ACE_Message_Block ( (char *) (&r)); - ct->msg_queue ()->enqueue (mb); - } - // Done - return -1; -} - -TPS_Filter tps_filter; diff --git a/TAO/IIOP/test/Orbix/tps/tps.h b/TAO/IIOP/test/Orbix/tps/tps.h deleted file mode 100644 index 272bc90f20d..00000000000 --- a/TAO/IIOP/test/Orbix/tps/tps.h +++ /dev/null @@ -1,11 +0,0 @@ -#include "cubit.h" -#include "cubit_impl.h" -#include "ace/Service_Config.h" -#include "ace/Thread_Manager.h" -#include "ace/Task.h" - -class TPS_Filter : public ACE_Task<ACE_MT_SYNCH>, public CORBA::ThreadFilter -{ -public: - virtual int inRequestPreMarshal(CORBA::Request &, CORBA::Environment&); -}; diff --git a/TAO/IIOP/test/clnt.cpp b/TAO/IIOP/test/clnt.cpp deleted file mode 100644 index f0249489889..00000000000 --- a/TAO/IIOP/test/clnt.cpp +++ /dev/null @@ -1,508 +0,0 @@ -// @(#)clnt.cpp 1.2 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: Simple "cube" client, calling hand-crafted stubs. -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -#include <ace/Get_Opt.h> -//#include <crtdbg.h> - -#if unix -# include <unistd.h> -# include <sys/time.h> - -#elif defined (VXWORKS) -# include <unistd.h> -# include <time.h> - -#else // windows - -#endif // unix - -#include "cubitC.h" - -#include <corba/debug.h> - - -#if !defined (_WIN32) -extern char *optarg; // missing on some platforms -#endif - -inline int func (unsigned i) { return i - 117; } - -extern void -print_exception (const CORBA_Exception *, const char *, FILE *f=stdout); - - -// -// forward declarations -// -static void cube_union_stub(unsigned, unsigned&, unsigned&, - CORBA_Object_ptr, CORBA_Environment &); - -static void cube_union_dii(unsigned &, unsigned &, - CORBA_Object_ptr, CORBA_Environment &); - -// Global variables -const char* TAO_arg_ior = 0; -unsigned loop_count = 1; -int exit_later = 0; - -// = TITLE -// Parses the command line arguments and returns an error status -// -// = DESCRIPTION -// This method parses the command line arguments -int parse_args(int argc, char *argv[]) -{ - ACE_Get_Opt opts (argc, argv, "dn:O:x"); - int c; - - while ((c = opts ()) != -1) - switch (c) { - - case 'd': // debug flag - TAO_debug_level++; - continue; - - case 'n': // loop count - loop_count = (unsigned) ACE_OS::atoi (opts.optarg); - continue; - - case 'O': // stringified objref - { - TAO_arg_ior = ACE_OS::strdup(opts.optarg); - } - continue; - - case 'x': - exit_later++; - continue; - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-n loopcount]" - " [-O objref]" - " [-x]" - "\n", argv [0] - ); - return 1; - } - - return 0; // Indicates successful parsing of command line -} - -int -main (int argc, char *argv[]) -{ - CORBA_ORB_ptr orb_ptr; - CORBA_Object_ptr objref = CORBA_Object::_nil(); - CORBA_Environment env; - - orb_ptr = CORBA_ORB_init(argc, argv, "internet", env); - if (env.exception() != 0) - { - print_exception(env.exception(), "ORB initialization"); - return 1; - } - - // - // Parse command line and verify parameters. - // - parse_args(argc, argv); - - if (TAO_arg_ior == 0) - ACE_ERROR_RETURN((LM_ERROR, "%s: must specify an object reference using -O <ior>\n", argv[0]), 1); - - objref = orb_ptr->string_to_object ((CORBA_String)TAO_arg_ior, env); - - ACE_OS::free((void*)TAO_arg_ior); - TAO_arg_ior = 0; - - if (env.exception () != 0) - { - print_exception (env.exception (), "string2object"); - return 1; - } - - if (CORBA_is_nil (objref) == CORBA_B_TRUE) - ACE_ERROR_RETURN((LM_ERROR, "%s: must identify non-null target objref\n", argv [0]), 1); - - // Narrow the CORBA_Object reference to the stub object, checking - // the type along the way using _is_a - Cubit_ptr aCubit = Cubit::_narrow(objref); - if (aCubit == 0) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to narrow object reference to a Cubit_ptr.\n"), 1); - - // - // Make the calls in a loop. - // - unsigned i; - unsigned call_count, error_count; - - call_count = 0; - error_count = 0; - - ACE_Time_Value before, after; - - before = ACE_OS::gettimeofday(); - - for (i = 0; i < loop_count; i++) - { - // - // Cube an octet. - // - CORBA_Octet arg_octet, ret_octet; - - call_count++; - ret_octet = aCubit->Cubit_cube_octet (arg_octet = func (i), env); - if (env.exception () != 0) - { - print_exception (env.exception (), "from cube_octet"); - error_count++; - } - else - { - dmsg2 ("cube octet: %d --> %d\n", arg_octet, ret_octet); - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_OS::printf ("** cube_octet(%d) ERROR (--> %d)\n", - (CORBA_Octet) func (i), ret_octet); - error_count++; - } - } - - // - // Cube a short. - // - CORBA_Short arg_short, ret_short; - - call_count++; - ret_short = aCubit->Cubit_cube_short (arg_short = func (i), env); - if (env.exception () != 0) - { - print_exception (env.exception (), "from cube_short"); - error_count++; - } - else - { - dmsg2 ("cube short: %d --> %d\n", arg_short, ret_short); - arg_short = arg_short * arg_short * arg_short; - if (arg_short != ret_short) - { - ACE_OS::printf ("** cube_short(%d) ERROR (--> %d)\n", - (CORBA_Short) func (i), ret_short); - error_count++; - } - } - - // - // Cube a long. - // - CORBA_Long arg_long, ret_long; - - call_count++; - ret_long = aCubit->Cubit_cube_long (arg_long = func (i), env); - if (env.exception () != 0) - { - print_exception (env.exception (), "from cube_long"); - error_count++; - } - else - { - dmsg2 ("cube long: %d --> %d\n", arg_long, ret_long); - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - ACE_OS::printf ("** cube_long(%ld) ERROR (--> %ld)\n", - (CORBA_Long) func (i), ret_long); - error_count++; - } - } - - // - // Cube a "struct" ... - // - Cubit_Many arg_struct, *ret_struct; - - call_count++; - - arg_struct.l = func (i); - arg_struct.s = func (i); - arg_struct.o = func (i); - - ret_struct = aCubit->Cubit_cube_struct (arg_struct, env); - if (env.exception () != 0) - { - print_exception (env.exception (), "from cube_struct"); - error_count++; - } - else - { - dmsg ("cube struct ..."); - arg_struct.l = arg_struct.l * arg_struct.l * arg_struct.l; - arg_struct.s = arg_struct.s * arg_struct.s * arg_struct.s; - arg_struct.o = arg_struct.o * arg_struct.o * arg_struct.o; - - if (arg_struct.l != ret_struct->l - || arg_struct.s != ret_struct->s - || arg_struct.o != ret_struct->o) - { - ACE_OS::printf ("** cube_struct ERROR\n"); - error_count++; - } - delete ret_struct; - } - - } - - after = ACE_OS::gettimeofday(); - - if (call_count > 0) - { - if (error_count == 0) - { - ACE_Time_Value diff = after - before; - unsigned long us = diff.sec() * 1000 * 1000 + diff.usec(); - - us /= call_count; - - if (us > 0) - ACE_OS::printf ("cube average call ACE_OS::time\t= %ld.%.03ldms, \t" - "%ld calls/second\n", - us / 1000, us % 1000, - 1000000L / us); - } - - ACE_OS::printf ("%d calls, %d errors\n", call_count, error_count); - } - - // - // Simple test for DII: call "cube_struct". (It's not timed - // since the copious mallocation of DII would bias numbers against - // typical stub-based calls.) - // - do { - // - // Create the request ... - // - CORBA_Request_ptr req; - - req = objref->_request ((const CORBA_String) "cube_struct", env); - if (env.exception () != 0) { - print_exception (env.exception (), "DII request create"); - break; - } - - // - // ... initialise the argument list and result ... - // - Cubit_Many arg, *result; - - arg.o = 3; arg.l = 5; arg.s = -7; - - CORBA_Any tmp_arg (TC_Cubit_Many, &arg, CORBA_B_FALSE); - - req->arguments ()->add_value (0, tmp_arg, CORBA_ARG_IN, env); - if (env.exception () != 0) { - print_exception (env.exception (), "DII request arg add"); - CORBA_release (req); - break; - } - - req->result ()->value () - ->replace (TC_Cubit_Many, 0, CORBA_B_TRUE, env); - if (env.exception () != 0) { - print_exception (env.exception (), "DII request result type"); - CORBA_release (req); - break; - } - - // - // Make the invocation, verify the result - // - req->invoke (); - if (req->env ()->exception () != 0) { - print_exception (req->env ()->exception (), "DII invoke"); - CORBA_release (req); - break; - } - - result = (Cubit_Many *) req->result ()->value ()->value (); - - if (result->o != 27 || result->l != 125 || result->s != -343) - ACE_OS::fprintf (stderr, "DII cube_struct -- bad results\n"); - else - dmsg ("DII cube_struct ... success!!"); - - CORBA_release (req); - - } while (0); - - // - // Two more tests, using the "cube_union" function - // - cube_union_dii(call_count, error_count, objref, env); - if (env.exception () != 0) - error_count++; - - cube_union_stub(i, call_count, error_count, objref, env); - if (env.exception () != 0) - error_count++; - - if (exit_later) { - aCubit->Cubit_please_exit (env); - dexc (env, "server, please ACE_OS::exit"); - } - - CORBA_release (objref); - - return (error_count == 0) ? 0 : 1; -} - - -static void -cube_union_stub(unsigned i, - unsigned &call_count, - unsigned &error_count, - CORBA_Object_ptr objref, - CORBA_Environment &env) -{ - Cubit_ptr aCubit = Cubit::_narrow(objref); - // - // Cube a "union" ... - // - Cubit_oneof u, *r; - - call_count++; - - u._disc = e_2nd; - u.l = 3; - - r = aCubit->Cubit_cube_union (u, env); - if (env.exception () != 0) { - print_exception (env.exception (), "from cube_union"); - error_count++; - } else { - dmsg ("cube union ..."); - u.l = u.l * u.l * u.l ; - - if (u.l != r->l) { - ACE_OS::printf ("** cube_union ERROR\n"); - error_count++; - } - - delete r; - } - - // - // Cube another "union" which uses the default arm ... - // - call_count++; - - u._disc = e_5th; - u.cm.l = func (i); - u.cm.s = func (i); - u.cm.o = func (i); - - u.cm.l = 7; - u.cm.s = 5; - u.cm.o = 3; - - r = aCubit->Cubit_cube_union (u, env); - if (env.exception () != 0) { - print_exception (env.exception (), "from cube_union"); - error_count++; - } else { - dmsg ("cube union ..."); - u.cm.l = u.cm.l * u.cm.l * u.cm.l; - u.cm.s = u.cm.s * u.cm.s * u.cm.s; - u.cm.o = u.cm.o * u.cm.o * u.cm.o; - - if (u.cm.l != r->cm.l - || u.cm.s != r->cm.s - || u.cm.o != r->cm.o) { - ACE_OS::printf ("** cube_union ERROR\n"); - error_count++; - } - - delete r; - } -} - - -static void -cube_union_dii (unsigned &call_count, - unsigned &error_count, - CORBA_Object_ptr objref, - CORBA_Environment &env) -{ - // - // Create the request ... - // - CORBA_Request_ptr req; - - call_count++; - - req = objref->_request ((const CORBA_String) "cube_union", env); - if (env.exception () != 0) { - error_count++; - - print_exception (env.exception (), "cube_union_dii request create"); - return; - } - - // - // ... initialise the argument list and result ... - // - Cubit_oneof u, *r; - - u._disc = e_3rd; - u.cm.l = 5; - u.cm.s = -7; - u.cm.o = 3; - - CORBA_Any tmp_arg (TC_Cubit_oneof, &u, CORBA_B_FALSE); - - req->arguments ()->add_value (0, tmp_arg, CORBA_ARG_IN, env); - if (env.exception () != 0) { - error_count++; - print_exception (env.exception (), "cube_union_dii request arg add"); - CORBA_release (req); - return; - } - - req->result ()->value ()->replace (TC_Cubit_oneof, 0, CORBA_B_TRUE, env); - if (env.exception () != 0) { - error_count++; - print_exception (env.exception (), "cube_union_dii result type"); - CORBA_release (req); - return; - } - - // - // Make the invocation, verify the result - // - req->invoke (); - if (req->env ()->exception () != 0) { - error_count++; - print_exception (req->env ()->exception (),"cube_union_dii invoke"); - CORBA_release (req); - return; - } - - r = (Cubit_oneof *) req->result ()->value ()->value (); - - if (r->cm.o != 27 || r->cm.l != 125 || r->cm.s != -343) { - error_count++; - ACE_OS::fprintf (stderr, "cube_union_dii -- bad results\n"); - } - else - dmsg ("cube_union_dii ... success!!"); - - CORBA_release (req); -} diff --git a/TAO/IIOP/test/cubit.cpp b/TAO/IIOP/test/cubit.cpp deleted file mode 100644 index d232de8eee8..00000000000 --- a/TAO/IIOP/test/cubit.cpp +++ /dev/null @@ -1,576 +0,0 @@ -// @(#)cubit.cpp 1.2 95/09/29 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: hand-written C-style "Cubit" stubs and "skeletons" -// -// NOTE: these "skeletons" are really the methods, using DSI. No real -// ORB would be implemented in this particular way. Several things would -// be more typical of real (static) skeletons: -// -// * Most of the "in" (and much of the "out") parameter data would -// be preallocated on the stack, not heap allocated. (Static -// preallocation doesnt' really work in a multithreaded system, -// and moreover can waste a lot of space.) -// -// * The ORB core wouldn't be told about parameters using heap -// allocated data structures (e.g. NVList). -// -// * Skeletons would need to some kind of "marshal the response NOW" -// API so that stack-allocated "out" values wouldn't become invalid -// up until they were safely marshaled. -// -// * They'd handle exceptions rather than just generating debugging -// messages when they happen. -// -// * Method code would be called by the skeletons, not written as -// part of the "skeleton" itself! -// -// A key part of turning this code into a complete ORB would be to ensure -// that skeletons were always efficient and correct. They might not need -// to be sharable between different implementations of the same OMG-IDL -// object interface, but many ORBs choose to be structured that way. -// - -#include "cubit.h" // for stubs ... -#include <corba/boa.h> // ... and skeletons - -#include <corba/debug.h> // ... and debugging - - -// -// CUBE OCTET -// - -static const TAO_Param_Data Cubit_cube_octet_params [] = { - { _tc_CORBA_Octet, PARAM_RETURN, 0 }, - { _tc_CORBA_Octet, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_octet_calldata = { - "cube_octet", CORBA_B_TRUE, - 2, &Cubit_cube_octet_params [0], - 0, 0 -}; - - -CORBA_Octet -Cubit_cube_octet ( - Cubit_ptr target, - CORBA_Octet o, - CORBA_Environment &env -) -{ - CORBA_Octet retval = 0; - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &Cubit_cube_octet_calldata, - &retval, &o); - data->Release (); - } - return retval; -} - -static void -_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 (_tc_CORBA_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"); - - CORBA_Octet* value = new CORBA_Octet; - - *value = *(CORBA_Octet *)nv->value ()->value (); - // dmsg1 ("cube octet, parameter '%d'", *value); - *value = (CORBA_Octet) ((*value) * (*value) * (*value)); - // dmsg1 ("cube octet, result '%d'", *value); - - CORBA_Any* any = - new CORBA_Any (_tc_CORBA_Octet, value, CORBA_B_TRUE); - - req.result (any, env); - dexc (env, "cube_octet, result"); -} - - -// -// CUBE SHORT -// - -static const TAO_Param_Data Cubit_cube_short_params [] = { - { _tc_CORBA_Short, PARAM_RETURN, 0 }, - { _tc_CORBA_Short, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_short_calldata = { - "cube_short", CORBA_B_TRUE, - 2, &Cubit_cube_short_params [0], - 0, 0 -}; - - -CORBA_Short -Cubit_cube_short (Cubit_ptr target, - CORBA_Short s, - CORBA_Environment &env) -{ - CORBA_Short retval; - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &Cubit_cube_short_calldata, - &retval, &s); - data->Release (); - } - return retval; -} - -static void -_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 (_tc_CORBA_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"); - - CORBA_Short* value = new CORBA_Short; - - *value = *(CORBA_Short *)nv->value ()->value (); - // dmsg1 ("cube short, parameter '%d'", *value); - *value =(CORBA_Short) ((*value) * (*value) * (*value)); - // dmsg1 ("cube short, result '%d'", *value); - - CORBA_Any* any = - new CORBA_Any (_tc_CORBA_Short, value, CORBA_B_TRUE); - - req.result (any, env); - dexc (env, "cube_short, result"); -} - - -// -// CUBE LONG -// - -static const TAO_Param_Data Cubit_cube_long_params [] = { - { _tc_CORBA_Long, PARAM_RETURN, 0 }, - { _tc_CORBA_Long, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_long_calldata = { - "cube_long", CORBA_B_TRUE, - 2, &Cubit_cube_long_params [0], - 0, 0 -}; - - -CORBA_Long -Cubit_cube_long (Cubit_ptr target, - CORBA_Long l, - CORBA_Environment &env) -{ - CORBA_Long retval; - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else - { - data->do_call (env, &Cubit_cube_long_calldata, - &retval, &l); - data->Release (); - } - return retval; -} - - -static void -_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 (_tc_CORBA_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"); - - CORBA_Long* value = new CORBA_Long; - - *value = *(CORBA_Long *)nv->value ()->value (); - // dmsg1 ("cube long, parameter '%d'", *value); - *value = (*value) * (*value) * (*value); - // dmsg1 ("cube long, result '%d'", *value); - - CORBA_Any* any = - new CORBA_Any (_tc_CORBA_Long, value, CORBA_B_TRUE); - - req.result (any, env); - dexc (env, "cube_long, result"); -} - -// -// Encapsulated parameters for struct "Cubit_Many" typecode. -// None of these parameters is complicated, so this is just -// a linear sequence of element encodings -// -// NOTE: it's important that this be longword aligned!! -// -static const CORBA_Long _oc_Cubit_Many [] = { - 1, // byte order flag (TRICKY!) - - 1, 0, // empty string: repository/type ID - 1, 0, // empty string: struct name - - 3, // three struct elements - - // First structure element: name, typecode for Octet - 1, 0, // empty string: name "o" - tk_octet, - - // Second structure element: name, typecode for Long - 1, 0, // empty string: name "l" - tk_long, - - // Third structure element: name, typecode for Short - 1, 0, // empty string: name "s" - tk_short, -}; - -static CORBA_TypeCode _tc_Cubit_Many (tk_struct, - sizeof _oc_Cubit_Many, (unsigned char *) &_oc_Cubit_Many, - CORBA_B_FALSE); -CORBA_TypeCode_ptr TC_Cubit_Many = &_tc_Cubit_Many; - - -// -// CUBE STRUCT -// - -static const TAO_Param_Data Cubit_cube_struct_params [] = { - { &_tc_Cubit_Many, PARAM_RETURN, sizeof (Cubit_Many) }, - { &_tc_Cubit_Many, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_struct_calldata = { - "cube_struct", CORBA_B_TRUE, - 2, &Cubit_cube_struct_params [0], - 0, 0 -}; - -Cubit_Many * -Cubit_cube_struct (Cubit_ptr target, - Cubit_Many &values, - CORBA_Environment &env) -{ - Cubit_Many *retval; - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else - { - data->do_call (env, &Cubit_cube_struct_calldata, - &retval, &values); - data->Release (); - } - return retval; -} - - -static void -_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"); - - Cubit_Many *value; - Cubit_Many *retval = new Cubit_Many; - - value = (Cubit_Many *)nv->value ()->value (); - - retval->o = (CORBA_Octet) (value->o * value->o * value->o); - retval->s = (CORBA_Short) (value->s * value->s * value->s); - retval->l = value->l * value->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"); -} - -// -// CUBE UNION -// - -// -// NOTE: not all union typecodes can be encoded as an array -// of "long "values, but this one can. Ones with discriminants -// that are one or two bytes long can't easily be coded portably. -// -// The benefit of doing it as an array of "long" values is -// twofold: (a) easier to read; (b) on most systems it's then -// adequately aligned for the typecode interpreter to use, so -// no additional runtime copy needs to be made. -// -static const CORBA_Long _oc_Cubit_oneof [] = { - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted struct name, "oneof" - - // - // discriminant typecode: - // - tk_enum, // tk_enum - 72, // encapsulation length - - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted enum name, "discrim" - 6, // 5 elements in the enum - - 1, 0, // omitted member name, "e_0th" - 1, 0, // omitted member name, "e_1st" - 1, 0, // omitted member name, "e_2nd" - 1, 0, // omitted member name, "e_3rd" - 1, 0, // omitted member name, "e_4th" - 1, 0, // omitted member name, "e_5th" - - 4, // default member index (zero based) - 5, // number of union members - - // the 1st union branch arm - e_0th, // member label value - 1, 0, // omitted member name, "o" - tk_octet, // member typecode - - // the 2nd union branch arm - e_1st, // member label value - 1, 0, // omitted member name, "s" - tk_short, // member typecode - - // the 3rd union branch arm - e_2nd, // member label value - 1, 0, // omitted member name, "l" - tk_long, // member typecode - - // the 4th union branch arm - e_3rd, // member label value - 1, 0, // omitted member name, "cm" - - // the 4th union member typecode - tk_struct, // tk_struct - 60, // encap length - - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted struct name, "Many" - 3, // three struct members - - // First structure element - 1, 0, // omitted member name, "o" - tk_octet, // member type, tk_octet - - // Second structure element - 1, 0, // omitted member name, "l" - tk_long, // member type, tk_long - - // Third structure element - 1, 0, // omitted member name, "s" - tk_short, // member type, tk_short - - // the 5th union branch arm - 4, // the 5th member label value - 1, 0, // omitted member name, "cm" - ~0, // indirected typecode (~0) - -84 // offset to struct "Many" typecode -}; - -static CORBA_TypeCode _tc_Cubit_oneof (tk_union, - (sizeof _oc_Cubit_oneof), (unsigned char *) &_oc_Cubit_oneof, - CORBA_B_FALSE); -CORBA_TypeCode_ptr TC_Cubit_oneof = &_tc_Cubit_oneof; - -static const TAO_Param_Data Cubit_cube_union_params [] = { - { &_tc_Cubit_oneof, PARAM_RETURN, sizeof (Cubit_oneof) }, - { &_tc_Cubit_oneof, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_union_calldata = { - "cube_union", CORBA_B_TRUE, - 2, &Cubit_cube_union_params [0], - 0, 0 -}; - -Cubit_oneof * -Cubit_cube_union (Cubit_ptr target, - Cubit_oneof &values, - CORBA_Environment &env) -{ - Cubit_oneof *retval; - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else - { - data->do_call (env, &Cubit_cube_union_calldata, - &retval, &values); - data->Release (); - } - return retval; -} - - -static void -_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"); - - Cubit_oneof *v; - Cubit_oneof *r = new Cubit_oneof; - - v = (Cubit_oneof *)nv->value ()->value (); - r->_disc = v->_disc; - - switch (v->_disc) { - case e_0th: - r->o = (CORBA_Octet) (v->o * v->o * v->o); - break; - - case e_1st: - r->s = (CORBA_Short) (v->s * v->s * v->s); - break; - - case e_2nd: - r->l = v->l * v->l * v->l; - break; - - case e_3rd: - default: - r->cm.o = (CORBA_Octet) (v->cm.o * v->cm.o * v->cm.o); - r->cm.s = (CORBA_Short) (v->cm.s * v->cm.s * v->cm.s); - r->cm.l = v->cm.l * v->cm.l * v->cm.l; - break; - } - - CORBA_Any *any = new CORBA_Any (TC_Cubit_oneof, r, CORBA_B_TRUE); - - req.result (any, env); - dexc (env, "cube_struct, result"); -} - - -// -// PLEASE EXIT -// - -static const TAO_Call_Data Cubit_please_exit_calldata = { - "please_exit", CORBA_B_FALSE, - 0, 0, - 0, 0 -}; - -void -Cubit_please_exit ( - Cubit_ptr target, - CORBA_Environment &env -) -{ - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &Cubit_please_exit_calldata - ); - data->Release (); - } -} - -static void -_please_exit_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env) -{ - dmsg ("I've been asked to shut down..."); - req.oa ()->please_shutdown (env); - dexc (env, "please_exit, please_shutdown"); -} - - -const CORBA_Char *Cubit__id = (CORBA_Char *) - "IDL:Eng.SUN.COM/Cubit:1.1"; - - -// -// table of all operations, used by operation dispatch to get to the -// right skeleton ... could be sorted by the IDL compiler so bsearch -// is effective, perhaps with help from opname hashes and a small cache -// (e.g. like Obj-C?). for now, just lsearch. -// -const TAO_Skel_Entry Cubit_operations [] = { - { &Cubit_cube_octet_calldata, _cube_octet_skel }, - { &Cubit_cube_short_calldata, _cube_short_skel }, - { &Cubit_cube_long_calldata, _cube_long_skel }, - { &Cubit_cube_struct_calldata, _cube_struct_skel }, - { &Cubit_cube_union_calldata, _cube_union_skel }, - { &Cubit_please_exit_calldata, _please_exit_skel }, - { 0, 0 } // last entry -}; diff --git a/TAO/IIOP/test/cubit.h b/TAO/IIOP/test/cubit.h deleted file mode 100644 index 92dd6b381bd..00000000000 --- a/TAO/IIOP/test/cubit.h +++ /dev/null @@ -1,106 +0,0 @@ -// @(#)cubit.hh 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// Hand-crafted C language binding glue ... -// -// This doesn't use C++ since doing the obvious derivation -// (all parent interfaces are virtual public parents) makes -// object references have different "views". That is, a -// pointer to a Cubit (i.e. a Cubit_ptr) would not have -// the same binary value as a pointer to a CORBA_Object -// (i.e. a CORBA_Object_ptr, generic objref). That'd -// mean lots of narrowing/widening/RTTI infrastructure. -// - -#ifndef _CUBIT_HH -#define _CUBIT_HH - -#ifdef _MSC_VER -#pragma pack (push, 1) // VC++, known padding rules -#endif // VC++ - -#include <corba/orb.h> -#include <corba/stub.h> - - -// -// C style binding -// - -typedef CORBA_Object Cubit; -typedef Cubit *Cubit_ptr, *CubitRef; - -extern CORBA_TypeCode_ptr TC_Cubit_Many; -extern CORBA_TypeCode_ptr TC_Cubit_oneof; - -struct Cubit_Many { - CORBA_Octet o; - CORBA_Long l; - CORBA_Short s; -}; - -enum Cubit_discrim {e_0th = 0, e_1st = 1, e_2nd = 2, - e_3rd = 3, e_4th = 4, e_5th = 5}; - -struct Cubit_oneof { - Cubit_discrim _disc; - - union { - CORBA_Octet o; - CORBA_Short s; - CORBA_Long l; - Cubit_Many cm; - }; -}; - -CORBA_Octet -Cubit_cube_octet ( - Cubit_ptr target, - CORBA_Octet o, - CORBA_Environment &env -); - -CORBA_Short -Cubit_cube_short ( - Cubit_ptr target, - CORBA_Short s, - CORBA_Environment &env -); - -CORBA_Long -Cubit_cube_long ( - Cubit_ptr target, - CORBA_Long l, - CORBA_Environment &env -); - -Cubit_Many * -Cubit_cube_struct ( - Cubit_ptr target, - Cubit_Many &values, - CORBA_Environment &env -); - -Cubit_oneof * -Cubit_cube_union ( - Cubit_ptr target, - Cubit_oneof &values, - CORBA_Environment &env -); - -void -Cubit_please_exit ( - Cubit_ptr target, - CORBA_Environment &env -); - -extern const CORBA_Char *Cubit__id; // type ID - -extern const TAO_Skel_Entry Cubit_operations []; - -#ifdef _MSC_VER -#pragma pack (pop) // VC++, go back to other padding rules -#endif // VC++ - -#endif // _CUBIT_HH diff --git a/TAO/IIOP/test/cubit.idl b/TAO/IIOP/test/cubit.idl deleted file mode 100644 index d9b38c34a2a..00000000000 --- a/TAO/IIOP/test/cubit.idl +++ /dev/null @@ -1,40 +0,0 @@ -// @(#)cubit.idl 1.1 95/09/10 -// Copyright 1994-1995 by Sun Microsystems, Inc. - -#pragma prefix "Eng.SUN.COM" -#pragma version Cubit 1.1 - -interface Cubit { - octet cube_octet (in octet o); - short cube_short (in short s); - long cube_long (in long l); - - struct Many { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - - enum discrim {e_0th, e_1st, e_2nd, e_3rd, e_4th, e_5th}; - - union oneof - switch (discrim) { - // this is an easy union to interpret; no padding - // is needed between discriminant and value. - case e_0th: - octet o; - case e_1st: - short s; - case e_2nd: - long l; - case e_3rd: - default: - Many cm; - }; - - oneof cube_union (in oneof values); - - oneway void please_exit (); -}; diff --git a/TAO/IIOP/test/cubitC.cpp b/TAO/IIOP/test/cubitC.cpp deleted file mode 100644 index 99416520c15..00000000000 --- a/TAO/IIOP/test/cubitC.cpp +++ /dev/null @@ -1,381 +0,0 @@ -// @(#)cubitC.cpp 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -#include "cubitC.h" // for stubs ... - -Cubit_ptr Cubit::_duplicate(Cubit_ptr obj) -{ - if (obj) - obj->AddRef(); - - return obj; -} - -Cubit_ptr Cubit::_narrow(CORBA_Object_ptr obj) -{ - CORBA_Environment env; - if (obj->_is_a("IDL:Cubit:1.0", env)) - { - STUB_Object *istub; - if (obj->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - return Cubit::_nil(); - } - Cubit_ptr new_obj = new Cubit(istub); - return Cubit::_duplicate(new_obj); - } - return Cubit::_nil(); -} - -Cubit_ptr Cubit::_nil() -{ - return (Cubit_ptr)NULL; -} - -// -// CUBE OCTET -// - -static const TAO_Param_Data Cubit_cube_octet_params [] = -{ - { _tc_CORBA_Octet, PARAM_RETURN, 0 }, - { _tc_CORBA_Octet, PARAM_IN, 0 } -}; - - -static const TAO_Call_Data Cubit_cube_octet_calldata = -{ - "cube_octet", CORBA_B_TRUE, - 2, &Cubit_cube_octet_params [0], - 0, 0 -}; - - -CORBA_Octet -Cubit::Cubit_cube_octet (CORBA_Octet o, - CORBA_Environment &env) -{ - CORBA_Octet retval; - - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return 0; - } - - istub->do_call (env, &Cubit_cube_octet_calldata, - &retval, &o); - istub->Release (); - - return retval; -} - - -// -// CUBE SHORT -// - -static const TAO_Param_Data Cubit_cube_short_params [] = -{ - { _tc_CORBA_Short, PARAM_RETURN, 0 }, - { _tc_CORBA_Short, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_short_calldata = -{ - "cube_short", CORBA_B_TRUE, - 2, &Cubit_cube_short_params [0], - 0, 0 -}; - - -CORBA_Short -Cubit::Cubit_cube_short (CORBA_Short s, - CORBA_Environment &env) -{ - CORBA_Short retval; - - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return 0; - } - - istub->do_call(env, &Cubit_cube_short_calldata, - &retval, &s); - - istub->Release (); - - return retval; -} - -// -// CUBE LONG -// - -static const TAO_Param_Data Cubit_cube_long_params [] = -{ - { _tc_CORBA_Long, PARAM_RETURN, 0 }, - { _tc_CORBA_Long, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_long_calldata = -{ - "cube_long", CORBA_B_TRUE, - 2, &Cubit_cube_long_params [0], - 0, 0 -}; - - -CORBA_Long -Cubit::Cubit_cube_long (CORBA_Long l, - CORBA_Environment &env) -{ - CORBA_Long retval; - - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return 0; - } - - istub->do_call (env, &Cubit_cube_long_calldata, - &retval, &l); - istub->Release (); - - return retval; -} - - -// -// Encapsulated parameters for struct "Cubit_Many" typecode. -// None of these parameters is complicated, so this is just -// a linear sequence of element encodings -// -// NOTE: it's important that this be longword aligned!! -// -static const CORBA_Long _oc_Cubit_Many [] = -{ - 1, // byte order flag (TRICKY!) - - 1, 0, // empty string: repository/type ID - 1, 0, // empty string: struct name - - 3, // three struct elements - - // First structure element: name, typecode for Octet - 1, 0, // empty string: name "o" - tk_octet, - - // Second structure element: name, typecode for Long - 1, 0, // empty string: name "l" - tk_long, - - // Third structure element: name, typecode for Short - 1, 0, // empty string: name "s" - tk_short, -}; - -static CORBA_TypeCode _tc_Cubit_Many (tk_struct, - sizeof _oc_Cubit_Many, (unsigned char *) &_oc_Cubit_Many, - CORBA_B_FALSE); -CORBA_TypeCode_ptr TC_Cubit_Many = &_tc_Cubit_Many; - - -// -// CUBE STRUCT -// - -static const TAO_Param_Data Cubit_cube_struct_params [] = -{ - { &_tc_Cubit_Many, PARAM_RETURN, sizeof (Cubit_Many) }, - { &_tc_Cubit_Many, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_struct_calldata = -{ - "cube_struct", CORBA_B_TRUE, - 2, &Cubit_cube_struct_params [0], - 0, 0 -}; - -Cubit_Many* -Cubit::Cubit_cube_struct (Cubit_Many &values, - CORBA_Environment &env) -{ - Cubit_Many *retval; - - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return 0; - } - - istub->do_call (env, &Cubit_cube_struct_calldata, - &retval, &values); - istub->Release (); - - return retval; -} - - -// -// CUBE UNION -// - -// -// NOTE: not all union typecodes can be encoded as an array -// of "long "values, but this one can. Ones with discriminants -// that are one or two bytes long can't easily be coded portably. -// -// The benefit of doing it as an array of "long" values is -// twofold: (a) easier to read; (b) on most systems it's then -// adequately aligned for the typecode interpreter to use, so -// no additional runtime copy needs to be made. -// -static const CORBA_Long _oc_Cubit_oneof [] = -{ - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted struct name, "oneof" - - // - // discriminant typecode: - // - tk_enum, // tk_enum - 72, // encapsulation length - - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted enum name, "discrim" - 6, // 5 elements in the enum - - 1, 0, // omitted member name, "e_0th" - 1, 0, // omitted member name, "e_1st" - 1, 0, // omitted member name, "e_2nd" - 1, 0, // omitted member name, "e_3rd" - 1, 0, // omitted member name, "e_4th" - 1, 0, // omitted member name, "e_5th" - - 4, // default member index (zero based) - 5, // number of union members - - // the 1st union branch arm - e_0th, // member label value - 1, 0, // omitted member name, "o" - tk_octet, // member typecode - - // the 2nd union branch arm - e_1st, // member label value - 1, 0, // omitted member name, "s" - tk_short, // member typecode - - // the 3rd union branch arm - e_2nd, // member label value - 1, 0, // omitted member name, "l" - tk_long, // member typecode - - // the 4th union branch arm - e_3rd, // member label value - 1, 0, // omitted member name, "cm" - - // the 4th union member typecode - tk_struct, // tk_struct - 60, // encap length - - 1, // byte order flag (TRICKY) - 1, 0, // omitted repository/type ID - 1, 0, // omitted struct name, "Many" - 3, // three struct members - - // First structure element - 1, 0, // omitted member name, "o" - tk_octet, // member type, tk_octet - - // Second structure element - 1, 0, // omitted member name, "l" - tk_long, // member type, tk_long - - // Third structure element - 1, 0, // omitted member name, "s" - tk_short, // member type, tk_short - - // the 5th union branch arm - 4, // the 5th member label value - 1, 0, // omitted member name, "cm" - ~0, // indirected typecode (~0) - -84 // offset to struct "Many" typecode -}; - -static CORBA_TypeCode _tc_Cubit_oneof (tk_union, - (sizeof _oc_Cubit_oneof), (unsigned char *) &_oc_Cubit_oneof, - CORBA_B_FALSE); -CORBA_TypeCode_ptr TC_Cubit_oneof = &_tc_Cubit_oneof; - -static const TAO_Param_Data Cubit_cube_union_params [] = -{ - { &_tc_Cubit_oneof, PARAM_RETURN, sizeof (Cubit_oneof) }, - { &_tc_Cubit_oneof, PARAM_IN, 0 } -}; - -static const TAO_Call_Data Cubit_cube_union_calldata = -{ - "cube_union", CORBA_B_TRUE, - 2, &Cubit_cube_union_params [0], - 0, 0 -}; - -Cubit_oneof* -Cubit::Cubit_cube_union (Cubit_oneof &values, - CORBA_Environment &env) -{ - Cubit_oneof *retval; - - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return 0; - } - - istub->do_call (env, &Cubit_cube_union_calldata, - &retval, &values); - istub->Release (); - - return retval; -} - - - -// -// PLEASE EXIT -// - -static const TAO_Call_Data Cubit_please_exit_calldata = -{ - "please_exit", CORBA_B_FALSE, - 0, 0, - 0, 0 -}; - -void -Cubit::Cubit_please_exit (CORBA_Environment &env) -{ - STUB_Object *istub; - if (this->QueryInterface(IID_STUB_Object, (void **)&istub) != NOERROR) - { - env.exception(new CORBA_DATA_CONVERSION (COMPLETED_NO)); - return; - } - - istub->do_call (env, &Cubit_please_exit_calldata); - istub->Release (); -} diff --git a/TAO/IIOP/test/cubitC.h b/TAO/IIOP/test/cubitC.h deleted file mode 100644 index 8f9dfe53841..00000000000 --- a/TAO/IIOP/test/cubitC.h +++ /dev/null @@ -1,102 +0,0 @@ -// @(#)cubitC.h 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -/************************************************************************** -This file has been hand-crafted to work with the ORB API of the SUN's IIOP -implementation -***************************************************************************/ - -#ifndef _CUBIT_HH -#define _CUBIT_HH - -#ifdef _MSC_VER -#pragma pack (push, 1) // VC++, known padding rules -#endif // VC++ - -#include "corba/orb.h" -#include "corba/stub.h" - -#include <iostream.h> - -extern CORBA_TypeCode_ptr TC_Cubit_Many; -extern CORBA_TypeCode_ptr TC_Cubit_oneof; - -struct Cubit_Many -{ - CORBA_Octet o; - CORBA_Long l; - CORBA_Short s; -}; - -enum Cubit_discrim - { e_0th = 0, e_1st = 1, e_2nd = 2, - e_3rd = 3, e_4th = 4, e_5th = 5 }; - -struct Cubit_oneof -{ - Cubit_discrim _disc; - - union - { - CORBA_Octet o; - CORBA_Short s; - CORBA_Long l; - Cubit_Many cm; - }; -}; - -class Cubit; -typedef Cubit *Cubit_ptr; -typedef Cubit_ptr Cubit_ref; - -class Cubit : public virtual CORBA_Object -{ -public: - - static Cubit_ptr _duplicate(Cubit_ptr obj); - static Cubit_ptr _narrow(CORBA_Object_ptr obj); - static Cubit_ptr _nil(); - - virtual - CORBA_Octet Cubit_cube_octet (CORBA_Octet o, - CORBA_Environment &env); - - virtual - CORBA_Short Cubit_cube_short (CORBA_Short s, - CORBA_Environment &env); - - virtual - CORBA_Long Cubit_cube_long (CORBA_Long l, - CORBA_Environment &env); - - virtual - Cubit_Many* Cubit_cube_struct (Cubit_Many &values, - CORBA_Environment &env); - - virtual - Cubit_oneof* Cubit_cube_union (Cubit_oneof &values, - CORBA_Environment &env); - - virtual - void Cubit_please_exit (CORBA_Environment &env); - -protected: - Cubit() { } - Cubit(STUB_Object *objref) - : CORBA_Object(objref) { } - virtual ~Cubit() { } - - -}; - -extern const CORBA_Char *Cubit__id; // type ID - -#ifdef _MSC_VER -#pragma pack (pop) // VC++, go back to other padding rules -#endif // VC++ - -#endif // _CUBIT_HH diff --git a/TAO/IIOP/test/cubitS.cpp b/TAO/IIOP/test/cubitS.cpp deleted file mode 100644 index b153b71db1b..00000000000 --- a/TAO/IIOP/test/cubitS.cpp +++ /dev/null @@ -1,232 +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 "cubitS.h" -#include "cubitC.cpp" - -#include "connect.h" -#include "params.h" - -#include "corba/debug.h" // ... and debugging -#include "corba/optable.h" // TAO Dynamic Operation Table -#include "method_db.i" -#include "iiopobj.h" - -#if defined(CUBIT_USE_DYNAMIC_HASH) -TAO_Dynamic_Hash_OpTable tao_cubit_optable(7); // Dynamic Operation Table -#else -TAO_Linear_OpTable tao_cubit_optable(7); -#endif - -_skel_Cubit::_skel_Cubit(const char* obj_name) -{ - const char* mn = "_skel_Cubit::_skel_Cubit()"; - - // Initialize Method Database - initialize_method_db (&tao_cubit_optable); - - char *type_id = "IDL:Cubit:1.0"; - // CORBA_String type_id = "IDL:Cubit:1.0"; - IIOP_Object *data; - - CORBA_BOA_ptr oa = TAO_OA_PARAMS::instance()->oa(); - 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; - data->profile.host = ACE_OS::strdup(oa->get_addr().get_host_name()); - data->profile.port = oa->get_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)); - return; - } -} - -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 (_tc_CORBA_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 (_tc_CORBA_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 (_tc_CORBA_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 (_tc_CORBA_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 (_tc_CORBA_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 (_tc_CORBA_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) -{ - Cubit *the_cubit = (Cubit*)obj->get_subclass(); - the_cubit->Cubit_please_exit(env); -} diff --git a/TAO/IIOP/test/cubitS.h b/TAO/IIOP/test/cubitS.h deleted file mode 100644 index 84c07b741b0..00000000000 --- a/TAO/IIOP/test/cubitS.h +++ /dev/null @@ -1,82 +0,0 @@ -// @(#)cubitS.h 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -/************************************************************************** -This file has been hand-crafted to work with the ORB API of the SUN's IIOP -implementation -***************************************************************************/ - -#ifndef _SKEL_CUBIT_HH -#define _SKEL_CUBIT_HH - -#include "cubitC.h" - -class _skel_Cubit; -typedef _skel_Cubit *_skel_Cubit_ptr; -typedef _skel_Cubit_ptr _skel_Cubit_ref; - -class _skel_Cubit : public Cubit -{ -public: - virtual - CORBA_Octet Cubit_cube_octet (CORBA_Octet o, - CORBA_Environment &env) = 0; - static - void _cube_octet_skel(CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); - - virtual - CORBA_Short Cubit_cube_short (CORBA_Short s, - CORBA_Environment &env) = 0; - - static - void _cube_short_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); - - virtual - CORBA_Long Cubit_cube_long (CORBA_Long l, - CORBA_Environment &env) = 0; - - static - void _cube_long_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); - - virtual - Cubit_Many* Cubit_cube_struct (Cubit_Many &values, - CORBA_Environment &env) = 0; - - static - void _cube_struct_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); - - virtual - Cubit_oneof* Cubit_cube_union (Cubit_oneof &values, - CORBA_Environment &env) = 0; - - static - void _cube_union_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); - - virtual - void Cubit_please_exit (CORBA_Environment &env) = 0; - - static - void _please_exit_skel (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env); -protected: - _skel_Cubit(const char* obj_name = 0); - virtual ~_skel_Cubit() { } - -}; - -#endif // _SKEL_CUBIT_HH diff --git a/TAO/IIOP/test/cubit_i.cpp b/TAO/IIOP/test/cubit_i.cpp deleted file mode 100644 index ae22b7cd12c..00000000000 --- a/TAO/IIOP/test/cubit_i.cpp +++ /dev/null @@ -1,91 +0,0 @@ -// @(#)cubit_i.cpp 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: hand-written Cubit Implementation -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -#include "cubit_i.h" - -#include <corba/boa.h> // ... and skeletons -#include <corba/debug.h> // ... and debugging - -#include "connect.h" -#include "params.h" - -Cubit_i::Cubit_i(const char* obj_name) -: _skel_Cubit(obj_name) -{ -} - -Cubit_i::~Cubit_i() -{ -} - -CORBA_Octet -Cubit_i::Cubit_cube_octet (CORBA_Octet o, - CORBA_Environment &env) -{ - - return (CORBA_Octet) (o * o * o); -} - -CORBA_Short -Cubit_i::Cubit_cube_short (CORBA_Short s, - CORBA_Environment &env) -{ - return (CORBA_Short) (s * s * s); -} - - -CORBA_Long -Cubit_i::Cubit_cube_long (CORBA_Long l, - CORBA_Environment &env) -{ - return (CORBA_Long) (l * l * l); -} - -Cubit_Many* -Cubit_i::Cubit_cube_struct (Cubit_Many &values, - CORBA_Environment &env) -{ - values.o = values.o * values.o * values.o; - values.s = values.s * values.s * values.s; - values.l = values.l * values.l * values.l; - - return &values; -} - -Cubit_oneof* -Cubit_i::Cubit_cube_union (Cubit_oneof &values, - CORBA_Environment &env) -{ - switch (values._disc) { - case e_0th: - values.o = (CORBA_Octet) (values.o * values.o * values.o); - break; - case e_1st: - values.s = (CORBA_Short) (values.s * values.s * values.s); - break; - case e_2nd: - values.l = values.l * values.l * values.l; - break; - case e_3rd: - default: - values.cm.o = (CORBA_Octet) (values.cm.o * values.cm.o * values.cm.o); - values.cm.s = (CORBA_Short) (values.cm.s * values.cm.s * values.cm.s); - values.cm.l = values.cm.l * values.cm.l * values.cm.l; - } - return &values; -} - -void Cubit_i::Cubit_please_exit (CORBA_Environment &env) -{ - TAO_OA_Parameters* params = TAO_OA_PARAMS::instance(); - - dmsg ("I've been asked to shut down..."); - params->oa()->please_shutdown(env); - dexc (env, "please_exit, please_shutdown"); -} diff --git a/TAO/IIOP/test/cubit_i.h b/TAO/IIOP/test/cubit_i.h deleted file mode 100644 index 6f4bee0d486..00000000000 --- a/TAO/IIOP/test/cubit_i.h +++ /dev/null @@ -1,54 +0,0 @@ -// @(#)cubit_i.cpp 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: hand-written Cubit Implementation -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -/************************************************************************** -This file has been hand-crafted to work with the ORB API of the SUN's IIOP -implementation -***************************************************************************/ - -#ifndef _CUBIT_I_HH -#define _CUBIT_I_HH - -#include "cubitS.h" - -class Cubit_i; -typedef Cubit_i *Cubit_i_ptr; -typedef Cubit_i_ptr Cubit_i_ref; - -class Cubit_i : public _skel_Cubit -{ -public: - Cubit_i(const char* obj_name = 0); - ~Cubit_i(); - - virtual - CORBA_Octet Cubit_cube_octet (CORBA_Octet o, - CORBA_Environment &env); - - virtual - CORBA_Short Cubit_cube_short (CORBA_Short s, - CORBA_Environment &env); - - virtual - CORBA_Long Cubit_cube_long (CORBA_Long l, - CORBA_Environment &env); - - virtual - Cubit_Many* Cubit_cube_struct (Cubit_Many &values, - CORBA_Environment &env); - - virtual - Cubit_oneof* Cubit_cube_union (Cubit_oneof &values, - CORBA_Environment &env); - - virtual - void Cubit_please_exit (CORBA_Environment &env); -}; - -#endif // _CUBIT_I_HH diff --git a/TAO/IIOP/test/method_db.i b/TAO/IIOP/test/method_db.i deleted file mode 100644 index 6b77cdf040a..00000000000 --- a/TAO/IIOP/test/method_db.i +++ /dev/null @@ -1,67 +0,0 @@ -// @(#)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 (CORBA_B_TRUE); - else - retval = new CORBA_Boolean (CORBA_B_FALSE); - - CORBA_Any *any = new CORBA_Any (_tc_CORBA_Boolean, retval, CORBA_B_TRUE); - - 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); - -} diff --git a/TAO/IIOP/test/results/Orbix b/TAO/IIOP/test/results/Orbix deleted file mode 100644 index c3abce78d3f..00000000000 --- a/TAO/IIOP/test/results/Orbix +++ /dev/null @@ -1,133 +0,0 @@ -Cubit results over Ethernet with 20,000 calls ---------------------------------------------- - - Clients Latency (ms) Calls/Sec - -MT-Orbix without filters 1 1.876 533 - 2 2.202 454 - 3 2.740 364 - -MT-Orbix Thread-Per-Request 1 1.886 530 - 2 3.1 322 - 3 5.0 200 - -MT-Orbix Thread-Pool (25) 1 1.875 533 - 2 3.1 322 - 3 5.1 196 - -MT-Orbix Thread-Per-Session 1 2.002 499 - 2 3.306 302 - 3 5.15 194 - - -Cubit results over ATM with 20,000 calls ----------------------------------------- - - Clients Latency (ms) Calls/Sec - -MT-Orbix without filters 1 1.818 550 - 2 1.968 508 - 3 2.803 356 - - -MT-Orbix Thread-Per-Request 1 1.846 541 - 2 3.1 322 - 3 4.98 200 - -MT-Orbix Thread-Pool (25) 1 1.913 522 - 2 3.18 314 - 3 5.1 196 - -MT-Orbix Thread-Per-Session 1 1.959 510 - 2 3.29 303 - 3 5.15 194 - - -Prime_Factor results over ATM with 20,000 calls ------------------------------------------------ - - Clients Latency (ms) Calls/Sec - -MT-Orbix without filters 1 7.918 126 - 2 14.300 70 - 3 21.000 47 - - -MT-Orbix Thread-Per-Request 1 8.302 120 - 2 10.128 98 - 3 13.722 72 - -MT-Orbix Thread-Pool (25) 1 8.442 118 - 2 15.764 63 - 3 22.595 44 - -MT-Orbix Thread-Per-Session 1 8.956 111 - 2 9.581 104 - 3 16.702 59 - -IO-intensive results over ATM with 20,000 calls ------------------------------------------------ - - Clients Latency (ms) Calls/Sec - -MT-Orbix without filters 1 6.667 149 - 2 12.165 82 - 3 18.634 54 - - -MT-Orbix Thread-Per-Request 1 6.812 146 - 2 6.937 144 - 3 7.706 128 - -MT-Orbix Thread-Pool (25) 1 6.813 146 - 2 6.954 144 - 3 7.776 128 - -MT-Orbix Thread-Per-Session 1 6.85 145 - 2 7.253 137 - 3 7.645 130 - - TNF client-side profile for MT-Orbix without filters for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -cond_wait 6.23 4250.242 1824 2.330 106.171 1.205 0.091 -mutex_lock 0.23 159.830 56662 0.003 1.215 0.002 0.000 -mutex_unlock 0.22 146.756 56663 0.003 0.326 0.002 0.000 -cond_signal 0.09 61.030 1825 0.033 0.475 0.009 0.000 -rw_rdlock 0.01 7.179 1826 0.004 0.014 0.003 0.000 -rw_unlock 0.01 6.548 1827 0.004 0.014 0.003 0.000 -rw_wrlock 0.00 0.004 1 0.004 0.004 0.004 0.000 - - TNF server-side profile for MT-Orbix without filters for 20000 calls - - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -cond_timedwait 1.25 923.527 797 1.159 20.219 0.324 0.028 -mutex_lock 0.21 153.839 56435 0.003 4.342 0.002 0.000 -mutex_unlock 0.20 149.208 56433 0.003 3.559 0.002 0.000 -cond_signal 0.03 21.506 809 0.027 1.826 0.003 0.002 -rw_unlock 0.02 16.058 3224 0.005 2.915 0.003 0.001 -rw_rdlock 0.02 11.924 3221 0.004 0.087 0.003 0.000 -rw_wrlock 0.00 0.010 2 0.005 0.005 0.004 0.000 - - TNF server-side profile for MT-Orbix with thread-per-request for 20000 calls - - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.55 797.890 57618 0.014 4.624 0.002 0.000 -cond_timedwait 0.52 748.560 478 1.566 3.918 0.222 0.019 -mutex_unlock 0.36 514.627 57616 0.009 3.975 0.002 0.000 -cond_signal 0.02 24.216 1151 0.021 1.161 0.002 0.001 -rw_rdlock 0.01 13.120 2301 0.006 1.180 0.003 0.001 -rw_unlock 0.01 10.575 2307 0.005 0.316 0.003 0.000 -thr_sigsetmask 0.00 1.949 30 0.065 1.064 0.013 0.035 -rw_wrlock 0.00 0.033 6 0.006 0.008 0.004 0.001 - - - diff --git a/TAO/IIOP/test/results/TAO b/TAO/IIOP/test/results/TAO deleted file mode 100644 index de4a7bf23ae..00000000000 --- a/TAO/IIOP/test/results/TAO +++ /dev/null @@ -1,92 +0,0 @@ -Cubit results over Ethernet with 20,000 calls ---------------------------------------------- - - Clients Latency (ms) Calls/Sec - -TAO reactive 1 1.172 853 - 2 1.342 745 - 3 1.902 525 - -TAO threaded version 1 1.174 851 - 2 1.219 820 - 3 1.600 625 - - -Cubit results over ATM with 20,000 calls ---------------------------------------------- - - Clients Latency (ms) Calls/Sec - -TAO reactive 1 1.161 861 - 2 1.302 768 - 3 1.732 577 - -TAO threaded version 1 1.170 854 - 2 1.3 769 - 3 1.600 625 - - -Cubit results over ATM after optimizations with 20,000 calls ------------------------------------------------------------- - - Clients Latency (ms) Calls/Sec - -TAO reactive 1 1.127 887 - 2 1.238 807 - 3 1.501 666 - -TAO threaded version 1 1.057 946 - 2 1.225 816 - 3 1.471 679 - -Prime_Factor results over ATM with 20,000 calls -------------------------------------------------- - - Clients Latency (ms) Calls/Sec - -TAO reactive 1 7.407 135 - 2 13.7 73 - 3 19.7 51 - -TAO threaded version 1 7.389 135 - 2 8.080 124 - 3 10.726 93 - -IO-bound results over ATM with 20,000 calls --------------------------------------------- - - Clients Latency (ms) Calls/Sec - -TAO reactive 1 6.404 156 - 2 11.909 83 - 3 17.324 57 - -TAO threaded version 1 6.378 156 - 2 6.449 155 - 3 6.500 153 - - - - - Sample client-side profile for TAO for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -rw_rdlock 0.40 146.579 20006 0.007 1.200 0.005 0.000 -rw_unlock 0.25 91.386 20009 0.005 0.058 0.004 0.000 -mutex_lock 0.06 21.087 5265 0.004 0.178 0.002 0.000 -mutex_unlock 0.04 14.372 5271 0.003 0.075 0.002 0.000 -rw_wrlock 0.00 0.045 3 0.015 0.034 0.005 0.008 - - - Sample server-side profile for TAO for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 1.12 154.491 54507 0.003 0.140 0.002 0.000 -mutex_unlock 1.06 145.638 54508 0.003 0.310 0.002 0.000 -rw_rdlock 0.27 37.265 6813 0.005 0.037 0.004 0.000 -rw_unlock 0.20 27.792 6813 0.004 0.045 0.004 0.000 - diff --git a/TAO/IIOP/test/results/Visibroker b/TAO/IIOP/test/results/Visibroker deleted file mode 100644 index 8d6bb2457c7..00000000000 --- a/TAO/IIOP/test/results/Visibroker +++ /dev/null @@ -1,79 +0,0 @@ -Cubit results over Ethernet with 20,000 calls ---------------------------------------------- - - Clients Latency (ms) Calls/Sec - - -Visibroker reactive 1 1.167 856 - 2 1.39 718 - 3 1.664 600 - -Visibroker thr-per-connection 1 1.077 928 - 2 1.228 814 - 3 1.789 558 - - - -Cubit results over ATM with 20,000 calls ----------------------------------------- - - Clients Latency (ms) Calls/Sec - -Visibroker reactive 1 1.195 836 - 2 1.241 805 - 3 1.56 641 - -Visibroker thr-per-connection 1 1.060 943 - 2 1.327 753 - 3 2.108 474 - - -Prime_Factor results over ATM with 20,000 calls ------------------------------------------------ - - Clients Latency (ms) Calls/Sec - -Visibroker reactive 1 7.43 134 - 2 13.652 73 - 3 17.738 56 - -Visibroker thr-per-connection 1 7.371 135 - 2 8.561 116 - 3 11.376 87 - -IO-intensive results over ATM with 20,000 calls ------------------------------------------------ - - Clients Latency (ms) Calls/Sec - -Visibroker reactive 1 6.424 155 - 2 11.895 84 - 3 17.468 57 - -Visibroker thr-per-connection 1 6.41 156 - 2 6.496 154 - 3 6.524 153 - - - - - TNF client-side profile for Visibroker for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_unlock 1.31 188.930 61797 0.003 1.027 0.002 0.000 -mutex_lock 1.21 175.465 61790 0.003 0.330 0.002 0.000 - - - TNF server-side profile for Visibroker for 20000 calls - - Profile - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.18 165.141 60432 0.003 0.501 0.002 0.000 -mutex_unlock 0.16 153.891 60432 0.003 0.373 0.002 0.000 - - diff --git a/TAO/IIOP/test/results/orbs.xls b/TAO/IIOP/test/results/orbs.xls Binary files differdeleted file mode 100644 index 149078dd383..00000000000 --- a/TAO/IIOP/test/results/orbs.xls +++ /dev/null diff --git a/TAO/IIOP/test/svr.cpp b/TAO/IIOP/test/svr.cpp deleted file mode 100644 index 53fac60bf6d..00000000000 --- a/TAO/IIOP/test/svr.cpp +++ /dev/null @@ -1,212 +0,0 @@ -// @(#)svr.cpp 05/14/97 -// Copyright 1994-1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: simple IIOP server for "cubit.idl" interface. -// -// Starts up, builds an objref, prints its string in debug mode, -// listens for messages, responds to them. -// -// Modified version of Cubit Example written by Sun Microsystems Inc. -// Modified by: Brian Mendel - -#include "ace/Get_Opt.h" -#include "ace/Log_Msg.h" - -#include "corba/orb.h" -#include "corba/debug.h" -#include "connect.h" - -#include "cubit_i.h" - -extern void -print_exception (const CORBA_Exception *, const char *, FILE *f=stdout); - -// Global Variables -CORBA_String key = (CORBA_String)"key0"; -int num_of_objs = 1; - -// = TITLE -// Parses the command line arguments and returns an error status -// -// = DESCRIPTION -// This method parses the command line arguments -int parse_args(int argc, char *argv[]) -{ - ACE_Get_Opt opts (argc, argv, "dk:n:"); - int c; - - while ((c = opts ()) != -1) - switch (c) { - - case 'd': // debug flag - TAO_debug_level++; - continue; - - case 'k': // key (str) - key = (CORBA_String) opts.optarg; - continue; - - case 'n': // idle seconds b4 exit - num_of_objs = ACE_OS::atoi(opts.optarg); - continue; - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-k {object_key}]" - "\n", argv [0] - ); - return 1; - } - - return 0; // Indicates successful parsing of command line -} - - -// -// Standard command line parsing utilities used. -// -int -main (int argc, char *argv[]) -{ - CORBA_Environment env; - CORBA_Object_ptr obj = 0; - CORBA_ORB_ptr orb_ptr; - CORBA_BOA_ptr oa_ptr; - char *orb_name = "internet"; - int idle = -1; - - orb_ptr = CORBA_ORB_init (argc, argv, orb_name, env); - if (env.exception () != 0) { - print_exception (env.exception (), "ORB init"); - return 1; - } - - // Initialize the Basic Object Adapter - oa_ptr = orb_ptr->BOA_init(argc, argv, "ROA"); - if (oa_ptr == 0) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to initialize the BOA.\n"), 1); - - - // - // Parse remaining command line and verify parameters. - // - parse_args(argc, argv); - - // Create implementation object with user specified key - Cubit_i_ptr *my_cubit = new Cubit_i_ptr[num_of_objs]; - for (int ndx = 0; ndx < num_of_objs; ndx++) - { - CORBA_String obj_str = CORBA_string_alloc(ACE_OS::strlen ((char *)key)+2); - sprintf(obj_str, "%s%d", (char*)key, ndx); - my_cubit[ndx] = new Cubit_i(obj_str); - if (my_cubit[ndx] == 0) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to create implementation object&d\n", ndx), 2); - - if (TAO_debug_level >= 1) - { - // Why are we getting the BOA_ptr from here when we've already - // got it above? - CORBA_OctetSeq obj_key; - obj_key.buffer = (CORBA_Octet *) obj_str; - obj_key.length = obj_key.maximum = ACE_OS::strlen (obj_str); - - if (oa_ptr->find(obj_key, obj) == -1) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to locate object with key '%s', %p\n", key), 3); - - // - // Stringify the objref we'll be implementing, and - // print it to stdout. Someone will take that string - // and give it to some client. Then release the object. - // - CORBA_String str; - - str = orb_ptr->object_to_string (obj, env); - if (env.exception () != 0) { - print_exception (env.exception (), "object2string"); - return 1; - } - ACE_OS::puts ((char *)str); - ACE_OS::fflush (stdout); - dmsg1 ("Object Created at: '%ul'", obj); - dmsg1 ("listening as object '%s'", str); - - } - CORBA_string_free(obj_str); - } -// Cubit_i_ptr my_cubit = new Cubit_i(key); -// if (my_cubit1 == 0) -// ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to create implementation object\n"), 2); - -/* if (TAO_debug_level >= 1) - { - // Why are we getting the BOA_ptr from here when we've already - // got it above? - CORBA_OctetSeq obj_key; - obj_key.buffer = (CORBA_Octet *) key; - obj_key.length = obj_key.maximum = ACE_OS::strlen ((char *)key); - - if (oa_ptr->find(obj_key, obj) == -1) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to locate object with key '%s', %p\n", key), 3); - - // - // Stringify the objref we'll be implementing, and - // print it to stdout. Someone will take that string - // and give it to some client. Then release the object. - // - CORBA_String str; - - str = orb_ptr->object_to_string (obj, env); - if (env.exception () != 0) { - print_exception (env.exception (), "object2string"); - return 1; - } - ACE_OS::puts ((char *)str); - ACE_OS::fflush (stdout); - dmsg1 ("listening as object '%s'", str); - - obj_key.buffer = (CORBA_Octet *)"key1"; - obj_key.length = obj_key.maximum = 4; - if (oa_ptr->find(obj_key, obj) == -1) - ACE_ERROR_RETURN((LM_ERROR, "(%P|%t) Unable to locate object with key '%s', %p\n", key), 3); - - str = orb_ptr->object_to_string (obj, env); - if (env.exception () != 0) { - print_exception (env.exception (), "object2string"); - return 1; - } - ACE_OS::puts ((char *)str); - ACE_OS::fflush (stdout); - dmsg1 ("listening as object '%s'", str); - } -*/ - // Handle requests for this object until we're killed, or one of - // the methods asks us to exit. - // - int terminationStatus = 0; - - -#if !defined(USE_HOMEBREW_EVENT_LOOP) - ACE_Reactor::run_event_loop(); -#else - while (1) - { - int result = params->reactor()->handle_events (); - - if (result == -1) - { - terminationStatus = -1; - break; - } - } -#endif - - // - // Shut down the OA -- recycles all underlying resources (e.g. file - // descriptors, etc). - // - oa_ptr->clean_shutdown (env); - return 0; -} diff --git a/TAO/IIOP/test/test.mak b/TAO/IIOP/test/test.mak deleted file mode 100644 index a27147d5f32..00000000000 --- a/TAO/IIOP/test/test.mak +++ /dev/null @@ -1,463 +0,0 @@ -# Microsoft Developer Studio Generated NMAKE File, Format Version 4.20
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-!IF "$(CFG)" == ""
-CFG=server - Win32 Debug
-!MESSAGE No configuration specified. Defaulting to server - Win32 Debug.
-!ENDIF
-
-!IF "$(CFG)" != "client - Win32 Release" && "$(CFG)" != "client - Win32 Debug"\
- && "$(CFG)" != "server - Win32 Release" && "$(CFG)" != "server - Win32 Debug"
-!MESSAGE Invalid configuration "$(CFG)" specified.
-!MESSAGE You can specify a configuration when running NMAKE on this makefile
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "test.mak" CFG="server - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "client - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "client - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE "server - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "server - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-!ERROR An invalid configuration is specified.
-!ENDIF
-
-!IF "$(OS)" == "Windows_NT"
-NULL=
-!ELSE
-NULL=nul
-!ENDIF
-################################################################################
-# Begin Project
-# PROP Target_Last_Scanned "server - Win32 Debug"
-RSC=rc.exe
-CPP=cl.exe
-
-!IF "$(CFG)" == "client - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "client\Release"
-# PROP BASE Intermediate_Dir "client\Release"
-# PROP BASE Target_Dir "client"
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Release"
-# PROP Target_Dir "client"
-OUTDIR=.
-INTDIR=.\Release
-
-ALL : "$(OUTDIR)\client.exe"
-
-CLEAN :
- -@erase "$(INTDIR)\clnt.obj"
- -@erase "$(INTDIR)\cubitC.obj"
- -@erase "$(OUTDIR)\client.exe"
-
-"$(INTDIR)" :
- if not exist "$(INTDIR)/$(NULL)" mkdir "$(INTDIR)"
-
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /YX /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /I "..\proto\include" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /YX /c
-CPP_PROJ=/nologo /MD /W3 /GX /O2 /I "..\proto\include" /D "WIN32" /D "NDEBUG"\
- /D "_CONSOLE" /Fp"$(INTDIR)/client.pch" /YX /Fo"$(INTDIR)/" /c
-CPP_OBJS=.\Release/
-CPP_SBRS=.\.
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-BSC32_FLAGS=/nologo /o"$(OUTDIR)/client.bsc"
-BSC32_SBRS= \
-
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 ace.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-LINK32_FLAGS=ace.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib\
- winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib\
- uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /incremental:no\
- /pdb:"$(OUTDIR)/client.pdb" /machine:I386 /out:"$(OUTDIR)/client.exe"
-LINK32_OBJS= \
- "$(INTDIR)\clnt.obj" \
- "$(INTDIR)\cubitC.obj"
-
-"$(OUTDIR)\client.exe" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS)
- $(LINK32) @<<
- $(LINK32_FLAGS) $(LINK32_OBJS)
-<<
-
-!ELSEIF "$(CFG)" == "client - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "client\Debug"
-# PROP BASE Intermediate_Dir "client\Debug"
-# PROP BASE Target_Dir "client"
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir "client"
-OUTDIR=.
-INTDIR=.\Debug
-
-ALL : "$(OUTDIR)\client.exe"
-
-CLEAN :
- -@erase "$(INTDIR)\clnt.obj"
- -@erase "$(INTDIR)\cubitC.obj"
- -@erase "$(INTDIR)\vc40.idb"
- -@erase "$(INTDIR)\vc40.pdb"
- -@erase "$(OUTDIR)\client.exe"
- -@erase "$(OUTDIR)\client.ilk"
- -@erase "$(OUTDIR)\client.pdb"
-
-"$(INTDIR)" :
- if not exist "$(INTDIR)/$(NULL)" mkdir "$(INTDIR)"
-
-# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /YX /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\proto\include" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /YX /c
-CPP_PROJ=/nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\proto\include" /D "WIN32" /D\
- "_DEBUG" /D "_CONSOLE" /Fp"$(INTDIR)/client.pch" /YX /Fo"$(INTDIR)/"\
- /Fd"$(INTDIR)/" /c
-CPP_OBJS=.\Debug/
-CPP_SBRS=.\.
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-BSC32_FLAGS=/nologo /o"$(OUTDIR)/client.bsc"
-BSC32_SBRS= \
-
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386
-# ADD LINK32 aced.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386
-LINK32_FLAGS=aced.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib\
- winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib\
- uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /incremental:yes\
- /pdb:"$(OUTDIR)/client.pdb" /debug /machine:I386 /out:"$(OUTDIR)/client.exe"
-LINK32_OBJS= \
- "$(INTDIR)\clnt.obj" \
- "$(INTDIR)\cubitC.obj"
-
-"$(OUTDIR)\client.exe" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS)
- $(LINK32) @<<
- $(LINK32_FLAGS) $(LINK32_OBJS)
-<<
-
-!ELSEIF "$(CFG)" == "server - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "server\Release"
-# PROP BASE Intermediate_Dir "server\Release"
-# PROP BASE Target_Dir "server"
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Release"
-# PROP Target_Dir "server"
-OUTDIR=.
-INTDIR=.\Release
-
-ALL : "$(OUTDIR)\server.exe"
-
-CLEAN :
- -@erase "$(INTDIR)\cubit_i.obj"
- -@erase "$(INTDIR)\cubitS.obj"
- -@erase "$(INTDIR)\svr.obj"
- -@erase "$(OUTDIR)\server.exe"
-
-"$(INTDIR)" :
- if not exist "$(INTDIR)/$(NULL)" mkdir "$(INTDIR)"
-
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /YX /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /I "..\proto\include" /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /YX /c
-CPP_PROJ=/nologo /MD /W3 /GX /O2 /I "..\proto\include" /D "WIN32" /D "NDEBUG"\
- /D "_CONSOLE" /Fp"$(INTDIR)/server.pch" /YX /Fo"$(INTDIR)/" /c
-CPP_OBJS=.\Release/
-CPP_SBRS=.\.
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-BSC32_FLAGS=/nologo /o"$(OUTDIR)/server.bsc"
-BSC32_SBRS= \
-
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 ace.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-LINK32_FLAGS=ace.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib\
- winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib\
- uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /incremental:no\
- /pdb:"$(OUTDIR)/server.pdb" /machine:I386 /out:"$(OUTDIR)/server.exe"
-LINK32_OBJS= \
- "$(INTDIR)\cubit_i.obj" \
- "$(INTDIR)\cubitS.obj" \
- "$(INTDIR)\svr.obj"
-
-"$(OUTDIR)\server.exe" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS)
- $(LINK32) @<<
- $(LINK32_FLAGS) $(LINK32_OBJS)
-<<
-
-!ELSEIF "$(CFG)" == "server - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "server\Debug"
-# PROP BASE Intermediate_Dir "server\Debug"
-# PROP BASE Target_Dir "server"
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir ""
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir "server"
-OUTDIR=.
-INTDIR=.\Debug
-
-ALL : "$(OUTDIR)\server.exe"
-
-CLEAN :
- -@erase "$(INTDIR)\cubit_i.obj"
- -@erase "$(INTDIR)\cubitS.obj"
- -@erase "$(INTDIR)\svr.obj"
- -@erase "$(INTDIR)\vc40.idb"
- -@erase "$(INTDIR)\vc40.pdb"
- -@erase "$(OUTDIR)\server.exe"
- -@erase "$(OUTDIR)\server.ilk"
- -@erase "$(OUTDIR)\server.pdb"
-
-"$(INTDIR)" :
- if not exist "$(INTDIR)/$(NULL)" mkdir "$(INTDIR)"
-
-# ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /YX /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\proto\include" /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /YX /c
-CPP_PROJ=/nologo /MDd /W3 /Gm /GX /Zi /Od /I "..\proto\include" /D "WIN32" /D\
- "_DEBUG" /D "_CONSOLE" /Fp"$(INTDIR)/server.pch" /YX /Fo"$(INTDIR)/"\
- /Fd"$(INTDIR)/" /c
-CPP_OBJS=.\Debug/
-CPP_SBRS=.\.
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-BSC32_FLAGS=/nologo /o"$(OUTDIR)/server.bsc"
-BSC32_SBRS= \
-
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386
-# ADD LINK32 aced.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386
-LINK32_FLAGS=aced.lib ..\lib\TAO.lib kernel32.lib user32.lib gdi32.lib\
- winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib\
- uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /incremental:yes\
- /pdb:"$(OUTDIR)/server.pdb" /debug /machine:I386 /out:"$(OUTDIR)/server.exe"
-LINK32_OBJS= \
- "$(INTDIR)\cubit_i.obj" \
- "$(INTDIR)\cubitS.obj" \
- "$(INTDIR)\svr.obj"
-
-"$(OUTDIR)\server.exe" : "$(OUTDIR)" $(DEF_FILE) $(LINK32_OBJS)
- $(LINK32) @<<
- $(LINK32_FLAGS) $(LINK32_OBJS)
-<<
-
-!ENDIF
-
-.c{$(CPP_OBJS)}.obj:
- $(CPP) $(CPP_PROJ) $<
-
-.cpp{$(CPP_OBJS)}.obj:
- $(CPP) $(CPP_PROJ) $<
-
-.cxx{$(CPP_OBJS)}.obj:
- $(CPP) $(CPP_PROJ) $<
-
-.c{$(CPP_SBRS)}.sbr:
- $(CPP) $(CPP_PROJ) $<
-
-.cpp{$(CPP_SBRS)}.sbr:
- $(CPP) $(CPP_PROJ) $<
-
-.cxx{$(CPP_SBRS)}.sbr:
- $(CPP) $(CPP_PROJ) $<
-
-################################################################################
-# Begin Target
-
-# Name "client - Win32 Release"
-# Name "client - Win32 Debug"
-
-!IF "$(CFG)" == "client - Win32 Release"
-
-!ELSEIF "$(CFG)" == "client - Win32 Debug"
-
-!ENDIF
-
-################################################################################
-# Begin Source File
-
-SOURCE=.\clnt.cpp
-DEP_CPP_CLNT_=\
- "..\..\..\ace\config-win32.h"\
- ".\cubitC.h"\
- {$(INCLUDE)}"\ace\ACE.h"\
- {$(INCLUDE)}"\ace\ACE.i"\
- {$(INCLUDE)}"\ace\Auto_Ptr.cpp"\
- {$(INCLUDE)}"\ace\Auto_Ptr.h"\
- {$(INCLUDE)}"\ace\Auto_Ptr.i"\
- {$(INCLUDE)}"\ace\config-win32-common.h"\
- {$(INCLUDE)}"\ace\config.h"\
- {$(INCLUDE)}"\ace\Get_Opt.h"\
- {$(INCLUDE)}"\ace\Get_Opt.i"\
- {$(INCLUDE)}"\ace\Log_Msg.h"\
- {$(INCLUDE)}"\ace\Log_Priority.h"\
- {$(INCLUDE)}"\ace\Log_Record.h"\
- {$(INCLUDE)}"\ace\Log_Record.i"\
- {$(INCLUDE)}"\ace\Object_Manager.h"\
- {$(INCLUDE)}"\ace\Object_Manager.i"\
- {$(INCLUDE)}"\ace\OS.h"\
- {$(INCLUDE)}"\ace\OS.i"\
- {$(INCLUDE)}"\ace\SString.h"\
- {$(INCLUDE)}"\ace\SString.i"\
- {$(INCLUDE)}"\ace\stdcpp.h"\
- {$(INCLUDE)}"\ace\Trace.h"\
- {$(INCLUDE)}"\ace\ws2tcpip.h"\
-
-NODEP_CPP_CLNT_=\
- ".\corba\orb.h"\
- ".\corba\stub.h"\
-
-
-"$(INTDIR)\clnt.obj" : $(SOURCE) $(DEP_CPP_CLNT_) "$(INTDIR)"
-
-
-# End Source File
-################################################################################
-# Begin Source File
-
-SOURCE=.\cubitC.cpp
-DEP_CPP_CUBIT=\
- ".\cubitC.h"\
-
-NODEP_CPP_CUBIT=\
- ".\corba\orb.h"\
- ".\corba\stub.h"\
-
-
-"$(INTDIR)\cubitC.obj" : $(SOURCE) $(DEP_CPP_CUBIT) "$(INTDIR)"
-
-
-# End Source File
-# End Target
-################################################################################
-# Begin Target
-
-# Name "server - Win32 Release"
-# Name "server - Win32 Debug"
-
-!IF "$(CFG)" == "server - Win32 Release"
-
-!ELSEIF "$(CFG)" == "server - Win32 Debug"
-
-!ENDIF
-
-################################################################################
-# Begin Source File
-
-SOURCE=.\cubitS.cpp
-DEP_CPP_CUBITS=\
- ".\cubitC.cpp"\
- ".\cubitC.h"\
- ".\cubitS.h"\
- ".\method_db.i"\
-
-NODEP_CPP_CUBITS=\
- ".\connect.h"\
- ".\corba\debug.h"\
- ".\corba\optable.h"\
- ".\corba\orb.h"\
- ".\corba\stub.h"\
- ".\iiopobj.h"\
- ".\params.h"\
-
-
-"$(INTDIR)\cubitS.obj" : $(SOURCE) $(DEP_CPP_CUBITS) "$(INTDIR)"
-
-
-# End Source File
-################################################################################
-# Begin Source File
-
-SOURCE=.\cubit_i.cpp
-DEP_CPP_CUBIT_=\
- ".\cubit_i.h"\
- ".\cubitC.h"\
- ".\cubitS.h"\
-
-NODEP_CPP_CUBIT_=\
- ".\connect.h"\
- ".\corba\orb.h"\
- ".\corba\stub.h"\
- ".\params.h"\
-
-
-"$(INTDIR)\cubit_i.obj" : $(SOURCE) $(DEP_CPP_CUBIT_) "$(INTDIR)"
-
-
-# End Source File
-################################################################################
-# Begin Source File
-
-SOURCE=.\svr.cpp
-DEP_CPP_SVR_C=\
- "..\..\..\ace\config-win32.h"\
- ".\cubit_i.h"\
- ".\cubitC.h"\
- ".\cubitS.h"\
- {$(INCLUDE)}"\ace\ACE.h"\
- {$(INCLUDE)}"\ace\ACE.i"\
- {$(INCLUDE)}"\ace\Auto_Ptr.cpp"\
- {$(INCLUDE)}"\ace\Auto_Ptr.h"\
- {$(INCLUDE)}"\ace\Auto_Ptr.i"\
- {$(INCLUDE)}"\ace\config-win32-common.h"\
- {$(INCLUDE)}"\ace\config.h"\
- {$(INCLUDE)}"\ace\Get_Opt.h"\
- {$(INCLUDE)}"\ace\Get_Opt.i"\
- {$(INCLUDE)}"\ace\Log_Msg.h"\
- {$(INCLUDE)}"\ace\Log_Priority.h"\
- {$(INCLUDE)}"\ace\Log_Record.h"\
- {$(INCLUDE)}"\ace\Log_Record.i"\
- {$(INCLUDE)}"\ace\Object_Manager.h"\
- {$(INCLUDE)}"\ace\Object_Manager.i"\
- {$(INCLUDE)}"\ace\OS.h"\
- {$(INCLUDE)}"\ace\OS.i"\
- {$(INCLUDE)}"\ace\SString.h"\
- {$(INCLUDE)}"\ace\SString.i"\
- {$(INCLUDE)}"\ace\stdcpp.h"\
- {$(INCLUDE)}"\ace\Trace.h"\
- {$(INCLUDE)}"\ace\ws2tcpip.h"\
-
-NODEP_CPP_SVR_C=\
- ".\connect.h"\
- ".\corba\debug.h"\
- ".\corba\orb.h"\
- ".\corba\stub.h"\
-
-
-"$(INTDIR)\svr.obj" : $(SOURCE) $(DEP_CPP_SVR_C) "$(INTDIR)"
-
-
-# End Source File
-# End Target
-# End Project
-################################################################################
diff --git a/TAO/IIOP/test/test.mdp b/TAO/IIOP/test/test.mdp Binary files differdeleted file mode 100644 index dc1aea7d5be..00000000000 --- a/TAO/IIOP/test/test.mdp +++ /dev/null diff --git a/TAO/IIOP/test/test1.cpp b/TAO/IIOP/test/test1.cpp deleted file mode 100644 index a27c29ee378..00000000000 --- a/TAO/IIOP/test/test1.cpp +++ /dev/null @@ -1,390 +0,0 @@ -// @(#)test1.cpp 1.4 95/09/28 -// Copyright 1995 by Sun Microsystems, Inc. -// All Rights Reserved -// -// TEST stubs for "test1" -// - -#include <stdio.h> - -#include "test1.h" - - -// -// Define all the stubs ... it's a lot less error prone to do it with -// macros than by hand! -// -// NOTE: the "calldata" is exported for use by the skeletons. At some -// point skeletons will probably be fully abstracted; for now they aren't. -// -// Also, for some reason, name mangling is changed by the explicit -// declaration as "extern" -- if it's not done, linking fails. -// -#define DEFINE_TEST3(typename, truetype, truetypename) \ - static const TAO_Param_Data test1_ ## typename ## _paramdata [4] = { \ - { _tc_CORBA_ ## truetypename, PARAM_RETURN, 0 }, \ - { _tc_CORBA_ ## truetypename, PARAM_IN, 0 }, \ - { _tc_CORBA_ ## truetypename, PARAM_OUT, 0 }, \ - { _tc_CORBA_ ## truetypename, PARAM_INOUT, 0 }, \ - }; \ - \ - extern const TAO_Call_Data test1_ ## typename ## _calldata; \ - \ - const TAO_Call_Data test1_ ## typename ## _calldata = { \ - "test_" #typename, CORBA_B_TRUE, \ - 4, &test1_ ## typename ## _paramdata [0], \ - 0, 0, \ - }; \ - \ - CORBA_ ## truetype \ - test1_test_ ## typename (test1_ptr target, \ - CORBA_ ## truetype in_a1, \ - CORBA_ ## truetype &out_a2, \ - CORBA_ ## truetype &inout_a3, \ - CORBA_Environment &env) { \ - CORBA_ ## truetype _retval; \ - STUB_Object *_obj; \ - if (target->QueryInterface (IID_STUB_Object, (void **)&_obj) \ - != NOERROR) \ - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); \ - else { \ - _obj->do_call (env, &test1_ ## typename ## _calldata, \ - &_retval, &in_a1, &out_a2, &inout_a3); \ - _obj->Release (); \ - } \ - return _retval; \ - } - -// changed extern const calldata test1_ ## typename ## _calldata; -// to const calldata test1_ ## typename ## _calldata; \ - -// changed CORBA_ ## truetype _retval = 0; to changed CORBA_ ## truetype _retval; - -#define DEFINE_TEST(typename, truetype) \ - DEFINE_TEST3(typename, truetype, truetype) - - -// -// Generate a system exception, passing an operation ID that's -// not allowed by IIOP (much less this interface) and verifying -// that the server returns some kind of system exception. -// -static const TAO_Call_Data illegal_calldata = { - "+_illegal", CORBA_B_TRUE, - 0, 0, - 0, 0 -}; - -void -test_illegal (test1_ptr target, CORBA_Environment &env) -{ - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &illegal_calldata - ); - data->Release (); - } -} - - -extern const TAO_Call_Data test1_void_calldata; -const TAO_Call_Data test1_void_calldata = { - "test_void", CORBA_B_TRUE, - 0, 0, - 0, 0 -}; - -void -test1_test_void (test1_ptr target, CORBA_Environment &env) -{ - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &test1_void_calldata - ); - data->Release (); - } -} - -DEFINE_TEST (short, Short); -DEFINE_TEST (long, Long); -DEFINE_TEST (ushort, UShort); -DEFINE_TEST (ulong, ULong); - -#if defined(MIPS) -// -// NOTE: C/C++ compilers as a rule pass a "float" in the space that -// a "double" takes up. Conversions are evidently optional; portability -// forces the following "explicit temporary" hack to work on at least -// one MIPS platform, which converts the parameter to "double" and -// hence changes the binary representation. (Even if that is a compiler -// bug, it's probably required by now for binary compatibility!) -// -// A "-k ansi" compiler flag may be needed to get correct behaviour; -// passing the "in" parameters by reference apparently works too. At -// this time, none of these solutions is used by default. -// -// This stub-level hackery seems like it could be replaced inside of the -// stub interpreter, which could just manually convert "float" parameters -// (all of them) as special cases. But of course, that would slow the -// interpreter down on _every_ call, not just the ones that require it -// (such as this one). Tradeoffs! -// -static const TAO_Param_Data test1_float_paramdata [4] = { - { _tc_CORBA_Float , PARAM_RETURN , 0 }, - { _tc_CORBA_Float , PARAM_IN , 0 }, - { _tc_CORBA_Float , PARAM_OUT , 0 }, - { _tc_CORBA_Float , PARAM_INOUT , 0 } -}; - -extern const TAO_Call_Data test1_float_calldata; - -const TAO_Call_Data test1_float_calldata = { - "test_float", CORBA_B_TRUE, - 4 , &test1_float_paramdata [0], - 0 , 0 -}; - -CORBA_Float -test1_test_float ( - test1_ptr target, - CORBA_Float in_a1, - CORBA_Float &out_a2, - CORBA_Float &inout_a3, - CORBA_Environment &env -) -{ - CORBA_Float _retval; - - // These three temporaries required due to MIPS compiler bug - CORBA_Float _in_a1 = in_a1; - CORBA_Float _out_a2 = out_a2; - CORBA_Float _inout_a3 = inout_a3; - - target -> data -> do_call (env, - &test1_float_calldata, - &_retval, - &_in_a1, - &_out_a2, - &_inout_a3); - return _retval; -} - -#else -DEFINE_TEST (float, Float); -#endif // MIPS - - -DEFINE_TEST (double, Double); -DEFINE_TEST (boolean, Boolean); -DEFINE_TEST (char, Char); -DEFINE_TEST (octet, Octet); - -/* -CORBA_Any * -test1_test_any (test1_ptr target, - const CORBA_Any &in_a1, - CORBA_Any *&out_a2, - CORBA_Any &inout_a3, - CORBA_Environment &env) -{ - // XXX implement this stub! ... annoying that C++ mapping - // calls for so much special casing -} -*/ - - -DEFINE_TEST3 (TypeCode, TypeCode_ptr, TypeCode); -DEFINE_TEST3 (Principal, Principal_ptr, Principal); -DEFINE_TEST3 (Object, Object_ptr, Object); - -// NOTE: C++ mapping has "in" strings as "const", which doesn't -// show up in this macro ... -DEFINE_TEST3 (string, Char *, String); - -DEFINE_TEST (longlong, LongLong); -DEFINE_TEST (ulonglong, ULongLong); -DEFINE_TEST (wchar, WChar); - -// NOTE: C++ mapping has "in" strings as "const", which doesn't -// show up in this macro ... -DEFINE_TEST3 (wstring, WChar *, WString); - -#if !defined(NONNATIVE_LONGDOUBLE) -DEFINE_TEST (longdouble, LongDouble); -#endif - -#undef DEFINE_TEST - - -// -// Utility macros used to construct octet codes that are aligned -// on longword boundaries, and with a known byte order. This -// happens to use big endian encoding since it was convenient. -// (Longword alignment is a happy accident of the specification -// of OMG-IDL ... it could have been much worse!) -// -// It'd be much simpler to lay out such data in assembler! -// - -#if defined (WORDS_BIGENDIAN) -# define MAKE_BIG_LONG(a,b,c,d) \ - ((((a) & 0xff) << 24) | (((b) & 0xff) << 16) \ - | (((c) & 0xff) << 8) | ((d) & 0xff)) -# define BIG_ENDIAN_LONG(x) (x) - -#else // LITTLE_ENDIAN -# define MAKE_BIG_LONG(a,b,c,d) \ - ((((d) & 0xff) << 24) | (((c) & 0xff) << 16) \ - | (((b) & 0xff) << 8) | ((a) & 0xff)) -# define BYTE_FROM(n,integer) (((integer)>>(8*(n)))&0xff) -# define BIG_ENDIAN_LONG(integer) \ - MAKE_BIG_LONG (BYTE_FROM(3,integer), BYTE_FROM(2,integer),\ - BYTE_FROM(1,integer), BYTE_FROM(0,integer)) -#endif - - - -// -// "x1" exception typecode ... must be longword aligned -// -static CORBA_Long oc_x1 [] = { - 0, // big endian flag + padding - BIG_ENDIAN_LONG (29), // length of ID string + NUL - MAKE_BIG_LONG ('I', 'D', 'L', ':'), // bytes of ID string - MAKE_BIG_LONG ('E', 'n', 'g', '.'), - MAKE_BIG_LONG ('S', 'U', 'N', '.'), - MAKE_BIG_LONG ('C', 'O', 'M', '/'), - MAKE_BIG_LONG ('t', 'e', 's', 't'), - MAKE_BIG_LONG ('1', '/', 'x', '1'), - MAKE_BIG_LONG (':', '1', '.', '0'), - 0, - BIG_ENDIAN_LONG (1), // (empty) namelen + NUL - 0, - BIG_ENDIAN_LONG (1), // only one struct member - BIG_ENDIAN_LONG (1), // (empty) member name + NUL - 0, - BIG_ENDIAN_LONG (tk_long) -}; -static CORBA_TypeCode tc_x1 (tk_except, sizeof oc_x1, - (unsigned char *)&oc_x1, CORBA_B_FALSE); -CORBA_TypeCode_ptr _tc_test1_x1 = &tc_x1; - - - -// -// "x2" exception typecode ... must be longword aligned -// -static CORBA_Long oc_x2 [] = { - 0, // big endian flag + padding - BIG_ENDIAN_LONG (29), // length of ID string + NUL - MAKE_BIG_LONG ('I', 'D', 'L', ':'), // bytes of ID string - MAKE_BIG_LONG ('E', 'n', 'g', '.'), - MAKE_BIG_LONG ('S', 'U', 'N', '.'), - MAKE_BIG_LONG ('C', 'O', 'M', '/'), - MAKE_BIG_LONG ('t', 'e', 's', 't'), - MAKE_BIG_LONG ('1', '/', 'x', '2'), - MAKE_BIG_LONG (':', '1', '.', '0'), - 0, - BIG_ENDIAN_LONG (1), // (empty) namelen + NUL - 0, - BIG_ENDIAN_LONG (2), // two struct members - - BIG_ENDIAN_LONG (1), // (empty) member name + NUL - 0, - BIG_ENDIAN_LONG (tk_objref), - BIG_ENDIAN_LONG (29), // type ID + NUL - MAKE_BIG_LONG ('I', 'D', 'L', ':'), // bytes of ID string - MAKE_BIG_LONG ('o', 'm', 'g', '.'), - MAKE_BIG_LONG ('o', 'r', 'g', '/'), - MAKE_BIG_LONG ('C', 'O', 'R', 'B'), - MAKE_BIG_LONG ('A', '/', 'O', 'b'), - MAKE_BIG_LONG ('j', 'e', 'c', 't'), - MAKE_BIG_LONG (':', '1', '.', '0'), - 0, - - BIG_ENDIAN_LONG (1), // (empty) member name + NUL - 0, - BIG_ENDIAN_LONG (tk_long) -}; -static CORBA_TypeCode tc_x2 (tk_except, sizeof oc_x2, - (unsigned char *)&oc_x2, CORBA_B_FALSE); -CORBA_TypeCode_ptr _tc_test1_x2 = &tc_x2; - - -// -// parameter, exception, and call descriptions for "test_throw" -// -static const TAO_Param_Data test1_test_throw_paramdata [1] = { - { _tc_CORBA_Long, PARAM_IN, 0 } -}; - -static CORBA_TypeCode_ptr test1_test_throw_excepts [2] = { - &tc_x1, &tc_x2 -}; - -extern const TAO_Call_Data test1_test_throw_calldata; - -const TAO_Call_Data test1_test_throw_calldata = { - "test_throw", CORBA_B_TRUE, - 1, &test1_test_throw_paramdata [0], - 2, &test1_test_throw_excepts [0] -}; - -// -// "test_throw" stub -// -void -test1_test_throw ( - test1_ptr target, - CORBA_Long case_num, - CORBA_Environment &env // throw (x1, x2) -) -{ - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &test1_test_throw_calldata, - &case_num); - data->Release (); - } -} - -// -// PLEASE EXIT -// - -static const TAO_Call_Data test1_please_exit_calldata = { - "please_exit", CORBA_B_FALSE, - 0, 0, - 0, 0 -}; - -void -test1_please_exit ( - test1_ptr target, - CORBA_Environment &env -) -{ - STUB_Object *data; - - if (target->QueryInterface (IID_STUB_Object, (void **)&data) - != NOERROR) - env.exception (new CORBA_INV_OBJREF (COMPLETED_NO)); - else { - data->do_call (env, &test1_please_exit_calldata - ); - data->Release (); - } -} - diff --git a/TAO/IIOP/test/test1.h b/TAO/IIOP/test/test1.h deleted file mode 100644 index 7d3bd0e08a5..00000000000 --- a/TAO/IIOP/test/test1.h +++ /dev/null @@ -1,124 +0,0 @@ -// @(#)test1.hh 1.2 95/09/12 -// Copyright 1995 by Sun Microsystems, Inc. -// All Rights Reserved -// -// TEST interface for "test1" -// - -#ifndef _TEST1_HH -#define _TEST1_HH - -#include <corba/orb.h> -#include <corba/stub.h> - - -#ifdef _MSC_VER -#pragma pack (push, 1) // VC++, known padding rules -#endif // VC++ - -typedef CORBA_UShort test1_ushort; -typedef CORBA_ULong test1_ulong; - -typedef CORBA_LongLong test1_longlong; -typedef CORBA_ULongLong test1_ulonglong; -typedef CORBA_LongDouble test1_longdouble; - -typedef CORBA_Object test1; -typedef test1 *test1_ptr; - -#define DECL_TEST(typename, truetype) \ - truetype \ - test1_test_ ## typename ( \ - test1_ptr target, \ - truetype in_a1, \ - truetype &out_a2, \ - truetype &inout_a3, \ - CORBA_Environment &env \ - ) - -void test_illegal (test1_ptr target, CORBA_Environment &env); -void test1_test_void (test1_ptr target, CORBA_Environment &env); - -DECL_TEST (short, CORBA_Short); -DECL_TEST (long, CORBA_Long); -DECL_TEST (ushort, CORBA_UShort); -DECL_TEST (ulong, CORBA_ULong); -DECL_TEST (float, CORBA_Float); -DECL_TEST (double, CORBA_Double); -DECL_TEST (boolean, CORBA_Boolean); -DECL_TEST (char, CORBA_Char); -DECL_TEST (octet, CORBA_Octet); - -CORBA_Any * -test1_test_any ( - test1_ptr target, - const CORBA_Any &in_a1, - CORBA_Any *&out_a2, - CORBA_Any &inout_a3, - CORBA_Environment &env -); - -DECL_TEST (TypeCode, CORBA_TypeCode_ptr); -DECL_TEST (Principal, CORBA_Principal_ptr); -DECL_TEST (Object, CORBA_Object_ptr); - -// NOTE: CORBA C++ mapping says the "in" string is const -DECL_TEST (string, CORBA_String); - -DECL_TEST (longlong, CORBA_LongLong); -DECL_TEST (ulonglong, CORBA_ULongLong); -DECL_TEST (wchar, CORBA_WChar); - -// NOTE: CORBA C++ mapping says the "in" string is const -DECL_TEST (wstring, CORBA_WString); - -DECL_TEST (longdouble, CORBA_LongDouble); - -#undef DECL_TEST - -extern CORBA_TypeCode_ptr _tc_test1_x1; - -class test1_x1 : public CORBA_UserException { - public: - CORBA_Long case_num; - - test1_x1 (CORBA_Long n) - : CORBA_UserException (_tc_test1_x1), case_num (n) - { } -}; - -extern CORBA_TypeCode_ptr _tc_test1_x2; - -class test1_x2 : public CORBA_UserException { - public: - CORBA_Object_ptr obj; - CORBA_Long case_num; - - test1_x2 (CORBA_Object_ptr obj1, - CORBA_Long n) - : CORBA_UserException (_tc_test1_x2), - obj (obj1), case_num (n) { } - - ~test1_x2 () - { CORBA_release (obj); } -}; - -void -test1_test_throw ( - test1_ptr target, - CORBA_Long case_num, - CORBA_Environment &env // throw (x1, x2) -); - -void -test1_please_exit ( - test1_ptr target, - CORBA_Environment &env -); - -#ifdef _MSC_VER -#pragma pack (pop) // VC++, go back to other padding rules -#endif // VC++ - -#endif // _TEST1_HH - diff --git a/TAO/IIOP/test/test1.idl b/TAO/IIOP/test/test1.idl deleted file mode 100644 index e6cf20cd2de..00000000000 --- a/TAO/IIOP/test/test1.idl +++ /dev/null @@ -1,78 +0,0 @@ -// @(#)test1.idl 1.1 95/09/11 -// Copyright 1994-1995 by Sun Microsystems, Inc. -// -// TEST basic marshaling tests for all IDL primitive types, modes -// -// This test omits constructed types (struct, union, enum, sequence, and -// array types), and only tests very simple user defined exceptions. -// -// Values returned are well defined functions of the input values: -// -// * For numeric types (octet, short, long, longlong, float, double, -// longdouble, and unsigned variants) the value is cubed. -// * For Boolean, it's the negation. -// * For Any, TypeCode, Principal, Object, char and wchar, -// string and wstring, it's the input value. -// -// The "return" and "out" parameter is the function of the "in" parameter; -// the "inout" parameter is the function of its original value. -// -// The "echo" test has all output values be the input values, with no -// changes to the bit patterns originally transmitted. While easier to -// use to identify some kinds of problem, it is not as complete a test. -// - -#define DECL_TEST(type) \ - type test_ ## type ( in type a1, out type a2, inout type a3) - -#pragma prefix "Eng.SUN.COM" // only for Sun-defined interfaces - -interface test1 { - void test_void (); - - typedef unsigned short ushort; - typedef unsigned long ulong; - - typedef long long longlong; - typedef unsigned long long ulonglong; - typedef long double longdouble; - - DECL_TEST (short); - DECL_TEST (long); - DECL_TEST (ushort); - DECL_TEST (ulong); - DECL_TEST (float); - DECL_TEST (double); - DECL_TEST (boolean); - DECL_TEST (char); - DECL_TEST (octet); - DECL_TEST (any); - DECL_TEST (TypeCode); - DECL_TEST (Principal); - DECL_TEST (Object); // CORBA::Object - DECL_TEST (string); // unbounded string - - DECL_TEST (longlong); - DECL_TEST (ulonglong); - DECL_TEST (wchar); - DECL_TEST (wstring); // unbounded wstring - DECL_TEST (longdouble); - - // - // All cases, "case_num" in the exception is the same as the 'in' param - // * negative or zero, throws x1 - // * positive even cases, throws x2 with obj = null objref - // * positive odd cases, throws x2 with obj = target objref - // - exception x1 { long case_num; }; - exception x2 { Object obj; long case_num; }; - - void test_throw (in long case_num) raises (x1, x2); - - // - // Aid for test cleanup in case server's not told to quit after - // being idle for some time period - // - oneway void please_exit (); -}; - diff --git a/TAO/IIOP/test/test1_clnt.cpp b/TAO/IIOP/test/test1_clnt.cpp deleted file mode 100644 index 831a0189371..00000000000 --- a/TAO/IIOP/test/test1_clnt.cpp +++ /dev/null @@ -1,636 +0,0 @@ -// @(#)test1_clnt.cpp 1.5 95/09/24 -// Copyright 1995 by Sun Microsystems, Inc. -// All Rights Reserved -// -// TEST client driver for "test1" -// - -#ifdef USE_IOSTREAM -#include <iostream.h> -#endif - -#include <stdio.h> -#include <string.h> -#include <ace/Get_Opt.h> - -#if unix -# include <unistd.h> - -#else // windows - -#endif // unix - -#include "test1.h" -#include <corba/debug.h> - - -#if !defined (_WIN32) -extern char *optarg; // missing on some platforms -#endif - -extern void -print_exception (const CORBA_Exception *, const char *, FILE *f=stdout); - - -// -// All tests are specified so that the return value and "out" (second) -// parameters are easily tested functions of the "in" (first) parameter, -// and the "inout" (third) parameter is the same function the its -// initial value. Caller is expected to specify two different "in" -// values. This helps make the marshaled bits vary, and turn up a class -// of potential problems that'd be hidden if parameter order had no -// effect on the test. -// -// PERFORM_TEST calls a test for a given type, reporting in cases where -// the ORB or operation failed. The COMPARE symbol can be redefined -// to achieve different functions -- e.g. cubing numbers, identity, -// negation, etc. It should return true iff the correct result was -// returned. -// -// BAD_COMPARE_VALUES is to produce diagnostics when a test fails, -// showing the actual and expected values of returned parameters. -// This helps diagnose specific porting problems. -// -// The RELEASE symbol may be defined to free memory, eliminating client -// side memory leaks in the test. -// -#define RELEASE(X) // NOP by default -#define PERFORM_TEST(name,type,value1,value2) \ - { \ - CORBA_ ## type v1, v2, v3; \ - \ - v1 = (CORBA_ ## type)(value1); \ - v2 = 0; \ - v3 = (CORBA_ ## type)(value2); \ - \ - test_count++; \ - v1 = test1_test_ ## name (target, v1, v2, v3, env); \ - if (env.exception () != 0) { \ - print_exception (env.exception (), "perform test_" #name); \ - error_count++; \ - } else if (!COMPARE (CORBA_ ## type, v1, value1) \ - || !COMPARE (CORBA_ ## type, v2, value1) \ - || !COMPARE (CORBA_ ## type, v3, value2) ) { \ - ACE_OS::fprintf (stderr, "bad comparison, test_" #name "\n"); \ - BAD_COMPARE_VALUES(type,v1,v2,v3,value1,value2) \ - error_count++; \ - } \ - RELEASE (v1); RELEASE (v2); RELEASE (v3); \ - } - -// -// This messing about is because the ostream op << cannot always -// be used with all kinds of data ... e.g. LongDouble, TypeCode. -// -#ifdef USE_IOSTREAM -# define DO_IO(x) x -#else -# define DO_IO(x) -#endif -#define BAD_COMPARE_VALUE_OUT(type,v1,v2,v3,value1,value2) \ - DO_IO( cerr << " v1=" << v1; \ - cerr << " expecting " << EXPVAL(CORBA_ ## type, value1) << "\n"; \ - cerr << " v2=" << v2; \ - cerr << " expecting " << EXPVAL(CORBA_ ## type, value1) << "\n"; \ - cerr << " v3=" << v3; \ - cerr << " expecting " << EXPVAL(CORBA_ ## type, value2) << "\n"); -#define BAD_COMPARE_VALUES(type,v1,v2,v3,value1,value2) \ - BAD_COMPARE_VALUE_OUT(type,v1,v2,v3,value1,value2) - - -// -// test utility -- should be able to just use is_equivalent() directly -// but this implementation uses null pointers for nil, so this must -// check for nulls first. (May be noncompliant with C++ mapping!) -// -static CORBA_Boolean -compare_objrefs ( - CORBA_Object_ptr v1, - CORBA_Object_ptr v2 -) -{ - CORBA_Boolean temp; - CORBA_Environment env; - - if (v1 == v2) - return CORBA_B_TRUE; - - if (CORBA_is_nil (v1)) - return CORBA_is_nil (v2); - - temp = v1->_is_equivalent (v2, env); - if (env.exception () != 0) { - print_exception (env.exception (), "compare objref"); - return CORBA_B_FALSE; - } - return temp; -} - - -// -// Helper routine to help sure math (especially for floating point) -// gets done correctly. -// -template <class Type> -Type cube (Type arg) -{ - Type temp = arg; - - temp = temp * arg; - temp = temp * arg; - return temp; -} - - -static int skip_longdouble = 0; - -// -// This just performs the tests ... -// -void -do_tests ( - test1_ptr target, - unsigned loop_count, - unsigned &test_count, - unsigned &error_count -) -{ - int count; - - for (count = 0; count < loop_count; count++) { - CORBA_Environment env; - CORBA_Environment env2; // XXX - - // - // test_void - // - test_count++; - test1_test_void (target, env); - if (env.exception () != 0) { - print_exception (env.exception (), "perform test_void"); - error_count++; - } - - // - // Numeric tests ... try some variety in computation, no real - // rationale in the choice of initial parameter values except - // not to use the same values all the time. - // -#define EXPVAL(type,original_value) ((type) cube((type)(original_value))) -#define COMPARE(type,retval,original_value) \ - ((retval) == EXPVAL(type, original_value)) - - PERFORM_TEST (octet, Octet, count + 29, count - 22); - - PERFORM_TEST (short, Short, count - 23, count + 19); - PERFORM_TEST (ushort, UShort, count + 23, count - 19); - - PERFORM_TEST (long, Long, count - 17, count + 20); - PERFORM_TEST (ulong, ULong, count + 17, count - 20); - -#if !defined (NONNATIVE_LONGLONG) - // don't try this on platforms that don't support - // math on longlongs ... - PERFORM_TEST (longlong, LongLong, count - 177, count + 3); - PERFORM_TEST (ulonglong, ULongLong, count + 177, count - 3); -#endif // !NONNATIVE_LONGLONG - -#if !defined (i386) - // - // XXX not sure what's wrong with the COMPARE macro with respect to - // floating point on x86, since fprintf shows the values basically - // look correct ... but these float/double tests fail. - // - PERFORM_TEST (float, Float, count - 0.29, count + 3.14159); - PERFORM_TEST (double, Double, count * 1.77, count * 2.71); -#endif // !defined (i386) - - -#ifndef NONNATIVE_LONGDOUBLE -#undef BAD_COMPARE_VALUES -#define BAD_COMPARE_VALUES(type,v1,v2,v3,value1,value2) // NOP - - // - // don't try this between two platforms that don't provide - // arithmetic support for LongDouble values ... - // - if (!skip_longdouble) { - PERFORM_TEST (longdouble, LongDouble, - count - 2.33, count * 3.14159); - } - -# undef BAD_COMPARE_VALUES -# define BAD_COMPARE_VALUES(type,v1,v2,v3,value1,value2) \ - BAD_COMPARE_VALUE_OUT(type,v1,v2,v3,value1,value2) -#endif // !NONNATIVE_LONGDOUBLE - -#undef COMPARE -#undef EXPVAL - - - // - // Boolean -- negation - // -#define EXPVAL(type,original_value) (!(type)(original_value)) -#define COMPARE(type,retval,original_value) \ - (((type)(retval)) == EXPVAL(type,original_value)) - - PERFORM_TEST (boolean, Boolean, - (count & 0x01) != 0, (count & 0x01) == 0); -#undef COMPARE -#undef EXPVAL - - // - // Char, WChar -- identity - // -#define EXPVAL(type,original_value) ((type)(original_value)) -#define COMPARE(type,retval,original_value) \ - (((type)(retval)) == EXPVAL(type,original_value)) - - PERFORM_TEST (char, Char, count + 26, count - 5); - PERFORM_TEST (wchar, WChar, count, count + 25); -#undef COMPARE -#undef EXPVAL - - // - // Object_ptr -- identity (special comparision) - // -#define EXPVAL(type,original_value) ((type)(original_value)) -#define COMPARE(type,retval,original_value) \ - (compare_objrefs (retval, original_value) == CORBA_B_TRUE) -#undef RELEASE -#define RELEASE(obj) \ - { CORBA_release (obj); } - - PERFORM_TEST (Object, Object_ptr, target, CORBA_Object::_nil ()); -#undef COMPARE -#undef EXPVAL - - // - // TypeCode_ptr -- identity (special comparision), and verifies - // that most of the built-in typecode constants exist. - // - // XXX should try this on all standard and system exceptions! - // - // XXX this currently tests only marshaling/unmarshaling of - // "no parameter" TypeCodes ... complex ones (objref, struct, - // union, enum, sequence, array, alias, exception) are _NOT_ - // currently attempted. - // - // XXX for the simple typecodes (string, wstring), the single - // "bound" parameter isn't exercised/verified as it should be. - // -#define EXPVAL(type,original_value) ((type)(original_value)) -#define COMPARE(type,retval,original) \ - (((retval) == (original)) || \ - ((retval)->_kind == (original)->_kind)) - -#undef RELEASE -#define RELEASE(tc) \ - { CORBA_release (tc); } - -#undef BAD_COMPARE_VALUES -#define BAD_COMPARE_VALUES(type,v1,v2,v3,value1,value2) // NOP - - { - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Null, _tc_CORBA_Void); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Short, _tc_CORBA_UShort); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Long, _tc_CORBA_ULong); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_LongLong, _tc_CORBA_ULongLong); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Float, _tc_CORBA_Double); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Boolean, _tc_CORBA_Octet); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Any, _tc_CORBA_TypeCode); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_LongDouble, _tc_CORBA_Principal); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_Char, _tc_CORBA_String); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_WChar, _tc_CORBA_WString); - - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_LongDouble, _tc_CORBA_Octet); - - // - // Try all of the standard exception typecodes. - // - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_UNKNOWN, _tc_CORBA_BAD_PARAM); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_NO_MEMORY, _tc_CORBA_IMP_LIMIT); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_COMM_FAILURE, _tc_CORBA_INV_OBJREF); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_OBJECT_NOT_EXIST, _tc_CORBA_NO_PERMISSION); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_INTERNAL, _tc_CORBA_MARSHAL); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_INITIALIZE, _tc_CORBA_NO_IMPLEMENT); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_BAD_TYPECODE, _tc_CORBA_BAD_OPERATION); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_NO_RESOURCES, _tc_CORBA_NO_RESPONSE); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_PERSIST_STORE, _tc_CORBA_BAD_INV_ORDER); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_TRANSIENT, _tc_CORBA_FREE_MEM); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_INV_IDENT, _tc_CORBA_INV_FLAG); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_INTF_REPOS, _tc_CORBA_BAD_CONTEXT); - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_OBJ_ADAPTER, _tc_CORBA_DATA_CONVERSION); - - // - // All the built-in "user defined" system exceptions. - // - PERFORM_TEST (TypeCode, TypeCode_ptr, - _tc_CORBA_BadKind, _tc_CORBA_Bounds); - } -#undef COMPARE -#undef RELEASE - - // - // string (unbounded)-- identity (special comparision) - // -#define COMPARE(type,retval,original_value) \ - (strcmp ((char *)(retval), (char*)(original_value)) == 0) -#undef RELEASE -#define RELEASE(obj) CORBA_string_free(obj) - static const CORBA_Char str1 [] = "small"; - static const CORBA_Char str2 [] = - "relatively long string, constructed" - " with the aid of C++ implicit string" - " catenation, which simplifies much stuff"; - PERFORM_TEST (string, String, str1, str2); -#undef COMPARE -#undef RELEASE - - - // XXX any, principal, wstring ... output _is_ input - - - // - // Three test cases involve throwing user-defined exceptions. - // - { - CORBA_Exception *xp; - - // - // Case one: with parameter <= zero, must throw - // an "x1" exception whose "case_num" is that parameter - // - test_count++; - - test1_test_throw (target, -5, env); - if (env.exception () != 0) { - xp = env.exception (); - - if (strcmp ((char *)xp->id (), - (char *) _tc_test1_x1->id (env2)) != 0) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 1, " - "wrong exception thrown (id = '%s')\n", - xp->id ()); - } else { - test1_x1 *xp2 = (test1_x1 *) xp; - - if (xp2->case_num != -5) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 1, " - "wrong value (case_num = '%ld')\n", - xp2->case_num); - } - - // else, right exception was thrown - } - } else { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 1, " - "no exception thrown !!\n"); - } - - - // - // Case two: with positive odd parameter, must throw - // an "x2" exception whose obj is null, and whose case_num - // is that parameter - // - test_count++; - - test1_test_throw (target, 101, env); - if (env.exception () != 0) { - xp = env.exception (); - - if (strcmp ((char *)xp->id (), - (char *) _tc_test1_x2->id (env2)) != 0) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 2, " - "wrong exception thrown (id = '%s')\n", - xp->id ()); - } else { - test1_x2 *xp2 = (test1_x2 *) xp; - - if (xp2->case_num != 101) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 2, " - "wrong value (case_num = '%ld')\n", - xp2->case_num); - } - - if (!CORBA_is_nil (xp2->obj)) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 2, " - "non-null objref thrown\n"); - } - - // else, right exception was thrown - } - } else { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 2, " - "no exception thrown !!\n"); - } - - -#if 0 -// 18-sept-95: commented this out. Work remains to be done in -// this area: (a) ServerRequest::target operation unimplemented, -// so for the servers of current interest this test is no help; -// (b) probable pointer leak in exceptions holding data. - - // - // Case three: with positive even parameter, must throw - // an "x2" exception whose obj is the target, and whose - // case_num is that parameter - // - test_count++; - - test1_test_throw (target, 42, env); - if (env.exception () != 0) { - xp = env.exception (); - - if (strcmp ((char *)xp->id (), - (char *) _tc_test1_x2->id (env2)) != 0) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 3, " - "wrong exception thrown (id = '%s')\n", - xp->id ()); - } else { - test1_x2 *xp2 = (test1_x2 *) xp; - - if (xp2->case_num != 42) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 3, " - "wrong value (case_num = '%ld')\n", - xp2->case_num); - } - - CORBA_Boolean status; - - status = target->_is_equivalent (xp2->obj, env); - - if (env.exception () != 0) { - error_count++; - print_exception (env.exception (), - "test_throw/3 call to is_equivalent"); - } else if (status != CORBA_B_TRUE) { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 3, " - "non-equivalent objref thrown\n"); - } - - // else, right exception was thrown - } - } else { - error_count++; - ACE_OS::fprintf (stderr, "test_throw case 3, " - "no exception thrown !!\n"); - } - - env.clear (); -#endif // 0 - - } - - // - // test_illegal -- generate a BAD_OPERATION system exception - // from the remote process - // - test_count++; - test_illegal (target, env); - if (env.exception () == 0 - || ACE_OS::strcmp ((char *) env.exception()->id(), - (char *) _tc_CORBA_BAD_OPERATION->id (env2)) != 0) { - ACE_OS::fprintf (stderr, "couldn't generate BAD_OPERATION exception\n"); - error_count++; - } - } -} - - -int -main (int argc, char *argv[]) -{ - CORBA_ORB_ptr orb_ptr; - CORBA_Environment env; - CORBA_Object_ptr objref = CORBA_Object::_nil(); - unsigned loop_count = 1; - unsigned tests = 0, errors = 0; - int exit_later = 0; - - orb_ptr = CORBA_ORB_init (argc, argv, "internet", env); - if (env.exception () != 0) { - dexc (env, "ORB initialisation"); - return 1; - } - - // - // Parse and verify parameters. - // - ACE_Get_Opt get_opt (argc, argv, "dln:O:x"); - int c; - - while ((c = get_opt ()) != -1) - switch (c) { - case 'd': // debug flag - TAO_debug_level++; - continue; - - case 'l': // skip "long double" test - skip_longdouble++; - continue; - - case 'n': // loop count - loop_count = (unsigned) ACE_OS::atoi (get_opt.optarg); - continue; - - case 'O': // stringified objref - { - objref = orb_ptr->string_to_object ( - (CORBA_String)get_opt.optarg, env); - if (env.exception () != 0) { - dexc (env, "string2object"); - return 1; - } - } - continue; - - case 'x': - exit_later++; - continue; - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-l]" - " [-n loopcount]" - " [-O objref]" - " [-x]" - "\n", argv [0] - ); - return 1; - } - - if (CORBA_is_nil (objref) == CORBA_B_TRUE) { - ACE_OS::fprintf (stderr, "%s: must identify non-null target objref\n", - argv [0]); - return 1; - } - - - do_tests (objref, loop_count, tests, errors); - - char *progname = ACE_OS::strrchr (argv [0], '/'); - - if (progname != 0) - progname += 1; - else - progname = argv [0]; - - ACE_OS::fprintf (stderr, "%s: %d loops, %d tests (%d errors)\n", - progname, loop_count, tests, errors); - - if (exit_later) { - test1_please_exit (objref, env); - if (env.exception () != 0) - print_exception (env.exception (), "test1_please_exit"); - } - - CORBA_release (objref); - - return errors != 0; -} diff --git a/TAO/IIOP/test/test1_svr.cpp b/TAO/IIOP/test/test1_svr.cpp deleted file mode 100644 index c4a51a036c7..00000000000 --- a/TAO/IIOP/test/test1_svr.cpp +++ /dev/null @@ -1,670 +0,0 @@ -// @(#)test1_svr.cpp 1.7 95/09/25 -// Copyright 1995 by Sun Microsystems Inc. -// All Rights Reserved -// -// TEST: simple IIOP server for "test1.idl" interface. -// -// Starts up, builds an objref, prints its string, listens for -// messages, responds to them. -// - -#include <stdio.h> -#include <string.h> -#include <ace/Get_Opt.h> - -#if unix -# include <unistd.h> // for getopt on some systems - -#else // windows - -#endif - -#include "test1.h" -#include <corba/boa.h> -#include <roa.h> - -#include <corba/debug.h> - - - -#if !defined (_WIN32) -extern char *optarg; // missing on some platforms -#endif - -// -// Skeleton code ... just a macro for a bunch of DSI-based method code, -// in lieu of having an IDL compmiler generate static skeletons. Static -// skeletons would be more efficient; most mallocation could go away. -// -// Use by: defining OPERATION macro, call DEFINE_SKEL3 as needed, then -// undef OPERATION. -// -// NOTE: "v1_copy" below is needed to work around a bug with the -// HP9000 G++ 2.6.3 compiler, with "LongLong". -// -// XXX this could probably be a template ... or could even be merged -// directly into the Dynamic Implementation Routine below. -// -// XXX we must currently use IN_COPY_VALUE since the memory consumed -// by the parameters must be deallocated by the ORB. When we get an -// updated version of DSI which provides "send it now" semantics, -// these should preallocate the values and not use IN_COPY_VALUE. A -// net decrease in malloc overhead can be had that way. (NVList should -// also get a public constructor, and a way to provide the buffer.) -// -#define DEFINE_SKEL3(name,truetype,truetypename) \ - static void \ - _test1_test_ ## name ( \ - CORBA_ServerRequest &req, \ - CORBA_Object_ptr obj, \ - CORBA_Environment &env \ - ) \ - { \ - CORBA_NVList_ptr nvlist; \ - CORBA_ ## truetype scratch = 0; \ - CORBA_Any temp_value (_tc_CORBA_ ## truetypename, \ - &scratch, CORBA_B_FALSE); \ - \ - req.orb ()->create_list (3, nvlist); \ - (void) nvlist->add_value (0, temp_value, \ - CORBA_IN_COPY_VALUE|CORBA_ARG_IN, env); \ - (void) nvlist->add_value (0, temp_value, \ - CORBA_IN_COPY_VALUE|CORBA_ARG_OUT, env); \ - (void) nvlist->add_value (0, temp_value, \ - CORBA_IN_COPY_VALUE|CORBA_ARG_INOUT, env); \ - \ - req.params (nvlist, env); \ - if (env.exception () != 0) { \ - dexc (env, "test1_test_" # name "skeleton, req.params"); \ - return; \ - } \ - \ - CORBA_ ## truetype *v1, *v2, *retval; \ - \ - v1 = (CORBA_ ## truetype *) nvlist->item (0)->value ()->value (); \ - v2 = new CORBA_ ## truetype; \ - *v2 = (CORBA_ ## truetype) OPERATION (*v1); \ - retval = new CORBA_ ## truetype; \ - *retval = (CORBA_ ## truetype) OPERATION (*v1); \ - \ - CORBA_Any_ptr any_val; \ - \ - any_val = nvlist->item (1)->value (); \ - any_val->replace (any_val->type (), v2, CORBA_B_TRUE, env); \ - if (env.exception () != 0) { \ - dexc (env, "test1_test_" # name "skeleton, val2 replace"); \ - return; \ - } \ - \ - v1 = (CORBA_ ## truetype *) nvlist->item (2)->value ()->value (); \ - CORBA_ ## truetype v1copy = *v1; \ - *v1 = (CORBA_ ## truetype) OPERATION (v1copy); \ - \ - any_val = new CORBA_Any (_tc_CORBA_ ## truetypename, \ - retval, CORBA_B_TRUE); \ - req.result (any_val, env); \ - if (env.exception () != 0) { \ - dexc (env, "test1_test_" # name "skeleton, result"); \ - return; \ - } \ - } \ - extern TAO_Call_Data test1_ ## name ## _calldata; - - -extern const TAO_Call_Data test1_void_calldata; - -static void -_test1_test_void (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env) -{ - CORBA_NVList_ptr nvlist; - - req.orb ()->create_list (0, nvlist); - req.params (nvlist, env); - - if (env.exception () != 0) - dexc (env, "test_throw, get params"); -} - - -// -// Dynamic Skeleton methods for numeric types ... these all just -// cube their parameters in various permutations -// -template <class Type> -Type cube (Type arg) -{ - Type temp = arg; - - temp = temp * arg; - temp = temp * arg; - return temp; -} - -#define OPERATION(n) cube(n) - -DEFINE_SKEL3 (octet, Octet, Octet) - -DEFINE_SKEL3 (short, Short, Short) -DEFINE_SKEL3 (ushort, UShort, UShort) - -DEFINE_SKEL3 (long, Long, Long) -DEFINE_SKEL3 (ulong, ULong, ULong) - -#if !defined (NONNATIVE_LONGLONG) - // don't try this on platforms that don't support - // math on longlongs ... -DEFINE_SKEL3 (longlong, LongLong, LongLong) -DEFINE_SKEL3 (ulonglong, ULongLong, ULongLong) -#endif // !NONNATIVE_LONGLONG - -DEFINE_SKEL3 (float, Float, Float) -DEFINE_SKEL3 (double, Double, Double) - -#if !defined (NONNATIVE_LONGDOUBLE) - // don't try this on platforms that don't support - // math on long doubles ... -DEFINE_SKEL3 (longdouble, LongDouble, LongDouble) -#endif // !NONNATIVE_LONGDOUBLE - -#undef OPERATION - -// -// Dynamic Skeleton methods for Boolean type ... just negates its -// parameters -// -#define OPERATION(x) (!(x)) -DEFINE_SKEL3 (boolean, Boolean, Boolean) -#undef OPERATION - -// -// For character types, output is same as input, no magic needed. -// -#define OPERATION(x) (x) -DEFINE_SKEL3 (char, Char, Char) -DEFINE_SKEL3 (wchar, WChar, WChar) -#undef OPERATION - -// -// For objref, typecode, output is same as input but duplication -// is needed -// -#define OPERATION(x) ((x) ? (x)->AddRef() : 0, x) -DEFINE_SKEL3 (Object, Object_ptr, Object) -DEFINE_SKEL3 (TypeCode, TypeCode_ptr, TypeCode) -#undef OPERATION - -// -// For string, output is copy of input -// -#define OPERATION(x) (CORBA_string_copy(x)) -DEFINE_SKEL3 (string, String, String) -#undef OPERATION - -// -// For wstring, output is copy of input -// -#define OPERATION(x) (CORBA_wstring_copy(x)) -DEFINE_SKEL3 (wstring, WString, WString) -#undef OPERATION - -// -// XXX IMPLEMENT THE REST OF THE DATA TYPES -// -// any, principal -- out is in -// - - -// -// All cases, "case_num" in the exception is the same as the 'in' param -// * negative or zero, throws x1 -// * positive even cases, throws x2 with obj = null objref -// * positive odd cases, throws x2 with obj = target objref -// -// exception x1 { long case_num; }; -// exception x2 { Object obj; long case_num; }; -// -// void test_throw (in long case_num) raises (x1, x2); -// - -extern const TAO_Call_Data test1_test_throw_calldata; - -static void -_test1_test_throw (CORBA_ServerRequest &req, - CORBA_Object_ptr obj, - CORBA_Environment &env) -{ - CORBA_NVList_ptr nvlist; - CORBA_NamedValue_ptr nv; - CORBA_Any temp_value (_tc_CORBA_Long); - CORBA_Long value; - - 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, "test_throw, get params"); - return; - } - - value = *(CORBA_Long *)nv->value ()->value (); - if (env.exception () != 0) - { - dexc (env, "test_throw, param value"); - return; - } - - CORBA_Any_ptr any; - - if (value <= 0) - { - test1_x1 *x; - - x = new test1_x1 (value); - any = new CORBA_Any (_tc_test1_x1, x, CORBA_B_TRUE); - - } - else if (value & 0x01) - { - test1_x2 *x; - - x = new test1_x2 (CORBA_Object::_nil (), value); - any = new CORBA_Any (_tc_test1_x2, x, CORBA_B_TRUE); - - } - else - { -#if 0 - test1_x2 *x; - - x = new test1_x2 (req.oa()->target (), value); - any = new CORBA_Any (_tc_test1_x2, x, CORBA_B_TRUE); -#else - // - // XXX right now, we don't have a target() operation on the - // BOA ... needs to be added. Verify the client side memory - // leak of pointers embedded in user exceptions is fixed, too. - // - env.exception (new CORBA_IMP_LIMIT (COMPLETED_NO)); - return; -#endif - } - - req.exception (USER_EXCEPTION, any, env); -} - - -// -// This table is used to associate operation names with the Dynamic -// Skeleton method ... someday it could return static skeletons. -// -#define DECL_SKEL(name) \ - { & test1_ ## name ## _calldata, _test1_test_ ## name } - -static const TAO_Skel_Entry test1_operations [] = { - DECL_SKEL (void), - - DECL_SKEL (octet), - DECL_SKEL (char), - - DECL_SKEL (wchar), - - DECL_SKEL (short), - DECL_SKEL (ushort), - DECL_SKEL (long), - DECL_SKEL (ulong), - -#if !defined (NONNATIVE_LONGLONG) - // don't try this on platforms that don't support - // math on longlongs ... - DECL_SKEL (longlong), - DECL_SKEL (ulonglong), -#endif - - DECL_SKEL (float), - DECL_SKEL (double), - -#if !defined (NONNATIVE_LONGDOUBLE) - // don't try this on platforms that don't support - // math on long doubles ... - DECL_SKEL (longdouble), -#endif // !NONNATIVE_LONGDOUBLE - - DECL_SKEL (boolean), - - DECL_SKEL (Object), - DECL_SKEL (TypeCode), - - DECL_SKEL (string), - DECL_SKEL (wstring), - - { & test1_test_throw_calldata, _test1_test_throw }, - - { 0, 0 } -}; - - -// -// Dispatch to method code ... -// -// Knows how to interpret "context" to get target objref, and where to -// get second level skeletons for that target. Both of those operations -// will generally be abstracted (into library and stub code) so the main -// body of this routine would be invisible to most applications. -// -// However, there are applications that need to do this stuff themselves -// (like bridging between environments, e.g. different ORBs, languages, or -// other object systems). Everything needed to work without using an IDL -// compiler is a public, supported API. -// -static void -level1_skeleton ( - CORBA_OctetSeq &key, - CORBA_ServerRequest &req, - void *context, - CORBA_Environment &env -) -{ - // - // Verify that the target object and "this" object have the - // same key. Normally, this would be used to figure out - // which object was the target, and hence which operations - // vector to dispatch the request. - // - CORBA_OctetSeq *obj_key; - - obj_key = (CORBA_OctetSeq *) context; - if (obj_key->length != key.length - || ACE_OS::memcmp (obj_key->buffer, key.buffer, - obj_key->length) != 0) - { - env.exception (new CORBA_OBJECT_NOT_EXIST (COMPLETED_NO)); -#ifdef DEBUG - if (TAO_debug_level) - dmsg_opaque ("request to nonexistent object, key = ", - key.buffer, key.length); -#endif - return; - } - - // - // Find a "level 2 skeleton" for this operation, then - // call it with the right per-object state. - // - const TAO_Skel_Entry *entry; - CORBA_String opname; - - opname = req.op_name (); - for (entry = &test1_operations [0]; entry->op_descriptor; entry++) - { - if (strcmp ((char *)opname, entry->op_descriptor->opname) == 0) - { - // We pass a bogus object because this version of the cubit example is - // so tightly coupled that it doesn't use it. Future modifications will, - // hopefully! - CORBA_Object_ptr bogus_object = 0; - entry->impl_skeleton (req, bogus_object, env); - return; - } - } - - // - // XXX True top-level skeleton code would also have to understand - // the built-in operations: - // - // * _is_a (for narrowing tests) ... can be derived by searching an - // appropriately structured graph of level2 skeletons. - // - // * _non_existent ... if the level1 skeleton consults a module - // which understands object lifespans, this should be simple. - // - // * _get_interface ... could either (a) fail; (b) return the ref - // from some IFR; or most interestingly (c) return a ref to some - // code in this process that can answer all IFR queries from the - // skeleton data structures. - // - // * _get_implementation ... return some administrative hook to - // the object implementation: - // - // No other legal operations start with a character that's not an - // ASCII alphanumeric, for what it's worth. - // - // The skeleton might want to use data in the object key to find - // the objref's type; if it's integrated with object creation, and - // an per-process implementation repository, this should be easy. - // - - // - // bypass level 2 skeletons for this one ... - // - if (strcmp ((char *) opname, "please_exit") == 0) - { - dmsg ("I've been asked to shut down..."); - req.oa ()->please_shutdown (env); - dexc (env, "please_exit, please_shutdown"); - return; - } - - // - // No match. Operation not implemented; say so. - // - dmsg1 ("unknown operation, %s", opname); - env.exception (new CORBA_BAD_OPERATION (COMPLETED_NO)); -} - - -// -// Create and print the objref, listen for calls on it until done. -// -extern void -print_exception (const CORBA_Exception *, const char *, FILE *f=stdout); - -int -OA_listen (CORBA_ORB_ptr orb_ptr, - CORBA_BOA_ptr oa_ptr, - CORBA_String key, - int idle) -{ - // - // Create the object we'll be implementing. - // - CORBA_OctetSeq obj_key; - CORBA_Object_ptr obj; - CORBA_Environment env; - - obj_key.buffer = (CORBA_Octet *) key; - obj_key.length = obj_key.maximum = ACE_OS::strlen (key); - - obj = oa_ptr->create (obj_key, (CORBA_String) "", env); - if (env.exception () != 0) - { - print_exception (env.exception (), "BOA::create"); - return 1; - } - - // - // Stringify the objref we'll be implementing, and - // print it to stdout. Someone will take that string - // and give it to some client. - // - CORBA_String str; - - str = orb_ptr->object_to_string (obj, env); - if (env.exception () != 0) - { - print_exception (env.exception (), "object2string"); - return 1; - } - ACE_OS::puts ((char *)str); - ACE_OS::fflush (stdout); - dmsg1 ("listening as object '%s'", str); - - // - // Clean up -- "key" is sufficient to dispatch all requests. - // - CORBA_release (obj); - CORBA_string_free (str); - env.clear (); - - // - // Handle requests for this object until we're killed, or one of - // the methods makes us exit. - // - // NOTE: apart from registering the top level skeleton, the rest - // of this loop is exactly what BOA::run() does. It's here to - // show there's no magic. - // -#if 0 - oa_ptr->register_dir (level1_skeleton, &obj_key, env); -#else - oa_ptr->register_dir (oa_ptr->dispatch, &obj_key, env); -#endif - if (env.exception () != 0) - { - print_exception (env.exception (), "register_dir"); - return 1; - } - - for (;;) { - if (idle == -1) - oa_ptr->get_request (CORBA_B_FALSE, 0, env); - else - { - timeval tv; - - tv.tv_sec = idle; - tv.tv_usec = 0; - oa_ptr->get_request (CORBA_B_FALSE, &tv, env); - } - - CORBA_Exception_ptr xp; - - if ((xp = env.exception ()) != 0) - { - CORBA_Environment env2; // XXX - char *id; - - id = env.exception ()->id (); - - // - // We get BAD_INV_ORDER if we call get_request() after - // shutdown was initiated. Simpler to rely on that - // than to arrange any handshaking in this simple app. - // - if (strcmp (id, _tc_CORBA_BAD_INV_ORDER->id (env2)) == 0) - { - break; - - // - // Other exceptions are errors. - // - } - else - { - print_exception (env.exception (), "BOA::get_request"); - return 1; - } - } - env.clear (); - } - - // - // Shut down the OA -- recycles all underlying resources (e.g. file - // descriptors, etc). - // - // XXX shutdown is not quite the same as release, unless we want mem - // leaks to cause some rude failure modes. BOA just hasn't been - // updated yet to have any handshake about this though. - // - oa_ptr->Release (); - return 0; -} - - -// -// Standard command line parsing utilities used. -// -int -main (int argc, char *argv[]) -{ - CORBA_Environment env; - CORBA_ORB_ptr orb_ptr; - CORBA_BOA_ptr oa_ptr; - CORBA_String key = (CORBA_String) "elvis"; - char *oa_name = 0; - char *orb_name = "internet"; - int idle = -1; - - // - // Parse the command line, get options - // - ACE_Get_Opt get_opt (argc, argv, "dln:O:x"); - int c; - - while ((c = get_opt ()) != -1) - switch (c) - { - case 'd': // more debug noise - TAO_debug_level++; - continue; - - case 'i': // idle seconds b4 exit - idle = ACE_OS::atoi (get_opt.optarg); - continue; - - case 'k': // key (str) - key = (CORBA_String) get_opt.optarg; - continue; - - case 'o': // orb name - orb_name = get_opt.optarg; - continue; - - case 'p': // portnum - oa_name = get_opt.optarg; - continue; - - // XXX set debug filters ... - - // - // XXX ignore OMG-specified options ... hope nobody ever tries - // to use that "-ORB* param" and "-OA* param" syntax, it flies - // in the face of standard command parsing algorithms which - // require single-character option specifiers. - // - - - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - " [-d]" - " [-i idle_seconds]" - " [-k object_key=elvis]" - " [-o orbname=internet]" - " [-p oa_name]" - "\n", argv [0] - ); - return 1; - } - - orb_ptr = CORBA_ORB_init (argc, argv, orb_name, env); - if (env.exception () != 0) { - print_exception (env.exception (), "ORB init"); - return 1; - } - - // - // The BOA may or may not actually be named ... - // - oa_ptr = CORBA_BOA::get_named_boa (orb_ptr, oa_name, env); - if (env.exception () != 0) { - print_exception (env.exception (), "OA init"); - return 1; - } - - return OA_listen (orb_ptr, oa_ptr, key, idle); -} - diff --git a/TAO/IIOP/test/tnf/Orbix.svr.summary b/TAO/IIOP/test/tnf/Orbix.svr.summary deleted file mode 100644 index 1c01995f7d5..00000000000 --- a/TAO/IIOP/test/tnf/Orbix.svr.summary +++ /dev/null @@ -1,32 +0,0 @@ - Profile for 10000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.04 8.505 3386 0.003 0.349 0.002 0.000 -mutex_unlock 0.04 8.205 3386 0.002 0.127 0.002 0.000 - - - Profile for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.01 8.875 3386 0.003 0.373 0.002 0.000 -mutex_unlock 0.01 8.353 3386 0.002 0.093 0.002 0.000 - - Profile for 30000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.02 8.979 3386 0.003 0.386 0.002 0.000 -mutex_unlock 0.02 8.465 3386 0.002 0.030 0.002 0.000 - - Profile for 40000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 0.01 8.849 3388 0.003 0.355 0.002 0.000 -mutex_unlock 0.01 7.937 3388 0.002 0.029 0.002 0.000 diff --git a/TAO/IIOP/test/tnf/clnt.summary b/TAO/IIOP/test/tnf/clnt.summary deleted file mode 100644 index bed4a22d35e..00000000000 --- a/TAO/IIOP/test/tnf/clnt.summary +++ /dev/null @@ -1,43 +0,0 @@ - Profile for 10000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -rw_rdlock 0.28 53.642 10006 0.005 0.192 0.004 0.000 -rw_unlock 0.28 52.672 10009 0.005 0.037 0.005 0.000 -mutex_lock 0.06 11.366 2765 0.004 0.161 0.002 0.000 -mutex_unlock 0.04 6.996 2771 0.003 0.028 0.002 0.000 -rw_wrlock 0.00 0.047 3 0.016 0.034 0.006 0.007 - - Profile for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -rw_rdlock 0.40 146.579 20006 0.007 1.200 0.005 0.000 -rw_unlock 0.25 91.386 20009 0.005 0.058 0.004 0.000 -mutex_lock 0.06 21.087 5265 0.004 0.178 0.002 0.000 -mutex_unlock 0.04 14.372 5271 0.003 0.075 0.002 0.000 -rw_wrlock 0.00 0.045 3 0.015 0.034 0.005 0.008 - - Profile for 30000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -rw_rdlock 0.41 241.807 30006 0.008 1.181 0.005 0.000 -rw_unlock 0.24 141.506 30009 0.005 0.503 0.004 0.000 -mutex_lock 0.07 38.545 7765 0.005 0.171 0.002 0.000 -mutex_unlock 0.03 19.591 7771 0.003 0.078 0.002 0.000 -rw_wrlock 0.00 0.045 3 0.015 0.033 0.005 0.007 - - Profile for 40000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -rw_rdlock 0.39 307.763 40006 0.008 2.031 0.005 0.000 -rw_unlock 0.23 184.537 40009 0.005 0.138 0.004 0.000 -mutex_lock 0.05 38.808 10265 0.004 0.173 0.002 0.000 -mutex_unlock 0.03 25.931 10271 0.003 0.078 0.002 0.000 -rw_wrlock 0.00 0.043 3 0.014 0.033 0.004 0.008 diff --git a/TAO/IIOP/test/tnf/svr.summary b/TAO/IIOP/test/tnf/svr.summary deleted file mode 100644 index 6e1c024aacd..00000000000 --- a/TAO/IIOP/test/tnf/svr.summary +++ /dev/null @@ -1,49 +0,0 @@ - Profile for 10000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_unlock 1.18 191.077 54588 0.004 1.158 0.003 0.000 -mutex_lock 1.18 190.652 54587 0.003 0.198 0.003 0.000 -rw_rdlock 0.29 46.844 6823 0.007 0.173 0.004 0.000 -rw_unlock 0.18 28.419 6823 0.004 0.064 0.004 0.000 - - Profile for 20000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 1.12 154.491 54507 0.003 0.140 0.002 0.000 -mutex_unlock 1.06 145.638 54508 0.003 0.310 0.002 0.000 -rw_rdlock 0.27 37.265 6813 0.005 0.037 0.004 0.000 -rw_unlock 0.20 27.792 6813 0.004 0.045 0.004 0.000 - - Profile for 30000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_lock 1.19 150.344 54654 0.003 0.621 0.002 0.000 -mutex_unlock 1.15 144.776 54655 0.003 0.071 0.002 0.000 -rw_rdlock 0.27 33.772 6832 0.005 0.078 0.004 0.000 -rw_unlock 0.19 23.613 6832 0.003 0.105 0.003 0.000 - - Profile for 40000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_unlock 1.48 209.259 54770 0.004 18.223 0.002 0.000 -mutex_lock 1.46 206.619 54769 0.004 10.473 0.002 0.000 -rw_rdlock 0.78 110.047 6846 0.016 38.115 0.003 0.006 -rw_unlock 0.17 23.844 6846 0.003 0.112 0.003 0.000 - - Profile for 50000 calls - -Function name % self+desc. mean max min std. - time ms calls ms/call ms/call ms/call err -________________________________________________________________________________ -mutex_unlock 1.19 150.149 54477 0.003 0.152 0.002 0.000 -mutex_lock 1.18 149.113 54477 0.003 1.376 0.002 0.000 -rw_rdlock 0.34 43.048 6809 0.006 10.113 0.003 0.001 -rw_unlock 0.19 23.796 6810 0.003 0.326 0.003 0.000 |