diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-20 00:56:04 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-20 00:56:04 +0000 |
commit | 6b78c08db6a99a1157925c86fd9812a5c185f0f7 (patch) | |
tree | 40167de439f50c986ccc92f54255834c736a44a0 /TAO | |
parent | b0bf513e96bf7492d826607b29ed10ecb30d72b4 (diff) | |
download | ATCD-6b78c08db6a99a1157925c86fd9812a5c185f0f7.tar.gz |
ChangeLogTag:Wed Apr 19 17:47:12 2000 Carlos O'Ryan <coryan@uci.edu>
Diffstat (limited to 'TAO')
164 files changed, 173 insertions, 27029 deletions
diff --git a/TAO/ChangeLogs/ChangeLog-02a b/TAO/ChangeLogs/ChangeLog-02a index 87739bb489a..4f16bf4299f 100644 --- a/TAO/ChangeLogs/ChangeLog-02a +++ b/TAO/ChangeLogs/ChangeLog-02a @@ -1,3 +1,174 @@ +Wed Apr 19 17:47:12 2000 Carlos O'Ryan <coryan@uci.edu> + + * performance-tests/Cubit/README: + * performance-tests/Cubit/COOL/Makefile: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/Makefile: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/README: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/client.cpp: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/client.h: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/cubit.idl: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.cpp: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.h: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/server.cpp: (removed) + * performance-tests/Cubit/COOL/IDL_Cubit/tmplinst.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/Makefile: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/README: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/Task_Client.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/Task_Client.h: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.h: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/client.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/client.h: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/cubit.idl: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/cubit_i.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/cubit_i.h: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/pccTimer.cpp: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/pccTimer.h: (removed) + * performance-tests/Cubit/COOL/MT_Cubit/server.cpp: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/Makefile: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/README: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.cpp: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.h: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit.idl: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.cpp: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.h: (removed) + * performance-tests/Cubit/CORBAplus/IDL_Cubit/svr.cpp: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/Makefile: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/README: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/client/Makefile: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.cpp: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.h: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/client/client.cpp: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/client/cubit.idl: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/server/Makefile: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit.idl: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.cpp: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.h: (removed) + * performance-tests/Cubit/CORBAplus/MT_Cubit/server/svr.cpp: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/Imakefile: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/Makefile: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/README: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/client.cpp: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.cpp: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.h: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/cubit.idl: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.cc: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.hh: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/initref.cfg: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/server.cpp: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.cpp: (removed) + * performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.h: (removed) + * performance-tests/Cubit/Orbix/Makefile: (removed) + * performance-tests/Cubit/Orbix/orb.mk: (removed) + * performance-tests/Cubit/Orbix/base_server/Makefile: (removed) + * performance-tests/Cubit/Orbix/base_server/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/base_server/cubit_impl.cpp: (removed) + * performance-tests/Cubit/Orbix/base_server/cubit_impl.h: (removed) + * performance-tests/Cubit/Orbix/base_server/server.cpp: (removed) + * performance-tests/Cubit/Orbix/client/Makefile: (removed) + * performance-tests/Cubit/Orbix/client/client.cpp: (removed) + * performance-tests/Cubit/Orbix/client/cubit.h: (removed) + * performance-tests/Cubit/Orbix/client/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/client/cubitC.cpp: (removed) + * performance-tests/Cubit/Orbix/factory_client/Makefile: (removed) + * performance-tests/Cubit/Orbix/factory_client/client.cpp: (removed) + * performance-tests/Cubit/Orbix/factory_client/cubit.h: (removed) + * performance-tests/Cubit/Orbix/factory_client/cubit.hh: (removed) + * performance-tests/Cubit/Orbix/factory_client/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/factory_client/cubitC.cpp: (removed) + * performance-tests/Cubit/Orbix/factory_client/cubitS.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/Makefile: (removed) + * performance-tests/Cubit/Orbix/tpool/cubit.h: (removed) + * performance-tests/Cubit/Orbix/tpool/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/tpool/cubitC.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/cubitS.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/cubit_impl.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/cubit_impl.h: (removed) + * performance-tests/Cubit/Orbix/tpool/server.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/tpool.cpp: (removed) + * performance-tests/Cubit/Orbix/tpool/tpool.h: (removed) + * performance-tests/Cubit/Orbix/tpr/Makefile: (removed) + * performance-tests/Cubit/Orbix/tpr/cubit.h: (removed) + * performance-tests/Cubit/Orbix/tpr/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/tpr/cubitC.cpp: (removed) + * performance-tests/Cubit/Orbix/tpr/cubitC.h: (removed) + * performance-tests/Cubit/Orbix/tpr/cubitS.cpp: (removed) + * performance-tests/Cubit/Orbix/tpr/cubitS.h: (removed) + * performance-tests/Cubit/Orbix/tpr/cubit_impl.cpp: (removed) + * performance-tests/Cubit/Orbix/tpr/cubit_impl.h: (removed) + * performance-tests/Cubit/Orbix/tpr/server.cpp: (removed) + * performance-tests/Cubit/Orbix/tpr/tpr.cpp: (removed) + * performance-tests/Cubit/Orbix/tpr/tpr.h: (removed) + * performance-tests/Cubit/Orbix/tps/Makefile: (removed) + * performance-tests/Cubit/Orbix/tps/cubit.h: (removed) + * performance-tests/Cubit/Orbix/tps/cubit.idl: (removed) + * performance-tests/Cubit/Orbix/tps/cubitC.cpp: (removed) + * performance-tests/Cubit/Orbix/tps/cubitS.cpp: (removed) + * performance-tests/Cubit/Orbix/tps/cubit_impl.cpp: (removed) + * performance-tests/Cubit/Orbix/tps/cubit_impl.h: (removed) + * performance-tests/Cubit/Orbix/tps/tps.cpp: (removed) + * performance-tests/Cubit/Orbix/tps/tps.h: (removed) + * performance-tests/Cubit/VisiBroker/base_server/Makefile: (removed) + * performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.cpp: (removed) + * performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.h: (removed) + * performance-tests/Cubit/VisiBroker/base_server/cubit.idl: (removed) + * performance-tests/Cubit/VisiBroker/base_server/cubit_impl.cpp: (removed) + * performance-tests/Cubit/VisiBroker/base_server/cubit_impl.h: (removed) + * performance-tests/Cubit/VisiBroker/base_server/server.cpp: (removed) + * performance-tests/Cubit/VisiBroker/base_server/stdmk: (removed) + * performance-tests/Cubit/VisiBroker/client/Makefile: (removed) + * performance-tests/Cubit/VisiBroker/client/Profile_Timer.cpp: (removed) + * performance-tests/Cubit/VisiBroker/client/Profile_Timer.h: (removed) + * performance-tests/Cubit/VisiBroker/client/client.cpp: (removed) + * performance-tests/Cubit/VisiBroker/client/cubit.idl: (removed) + * performance-tests/Cubit/VisiBroker/client/stdmk: (removed) + * performance-tests/Thruput/COOL/Makefile: (removed) + * performance-tests/Thruput/COOL/README: (removed) + * performance-tests/Thruput/COOL/client.cpp: (removed) + * performance-tests/Thruput/COOL/server.cpp: (removed) + * performance-tests/Thruput/COOL/ttcp.idl: (removed) + * performance-tests/Thruput/COOL/ttcp_decl.h: (removed) + * performance-tests/Thruput/COOL/ttcp_i.cpp: (removed) + * performance-tests/Thruput/COOL/ttcp_i.h: (removed) + * performance-tests/Thruput/COOL/utils.cpp: (removed) + * performance-tests/Thruput/CORBAplus/Makefile: (removed) + * performance-tests/Thruput/CORBAplus/README: (removed) + * performance-tests/Thruput/CORBAplus/client.cpp: (removed) + * performance-tests/Thruput/CORBAplus/extract: (removed) + * performance-tests/Thruput/CORBAplus/run: (removed) + * performance-tests/Thruput/CORBAplus/run_client: (removed) + * performance-tests/Thruput/CORBAplus/run_server: (removed) + * performance-tests/Thruput/CORBAplus/run_test: (removed) + * performance-tests/Thruput/CORBAplus/run_tests: (removed) + * performance-tests/Thruput/CORBAplus/server.cpp: (removed) + * performance-tests/Thruput/CORBAplus/ttcp.idl: (removed) + * performance-tests/Thruput/CORBAplus/ttcp_decl.h: (removed) + * performance-tests/Thruput/CORBAplus/ttcp_i.cpp: (removed) + * performance-tests/Thruput/CORBAplus/ttcp_i.h: (removed) + * performance-tests/Thruput/CORBAplus/utils.cpp: (removed) + * performance-tests/Thruput/Orbix/Client.cpp: (removed) + * performance-tests/Thruput/Orbix/Makefile: (removed) + * performance-tests/Thruput/Orbix/README: (removed) + * performance-tests/Thruput/Orbix/Srv_Main.cpp: (removed) + * performance-tests/Thruput/Orbix/extract: (removed) + * performance-tests/Thruput/Orbix/loop64: (removed) + * performance-tests/Thruput/Orbix/orbixsol2s4.mk: (removed) + * performance-tests/Thruput/Orbix/run: (removed) + * performance-tests/Thruput/Orbix/run_client: (removed) + * performance-tests/Thruput/Orbix/run_server: (removed) + * performance-tests/Thruput/Orbix/run_test: (removed) + * performance-tests/Thruput/Orbix/run_tests: (removed) + * performance-tests/Thruput/Orbix/ttcp.idl: (removed) + * performance-tests/Thruput/Orbix/ttcp_decl.h: (removed) + * performance-tests/Thruput/Orbix/ttcp_i.cpp: (removed) + * performance-tests/Thruput/Orbix/ttcp_i.h: (removed) + * performance-tests/Thruput/Orbix/utils.cpp: (removed) + Remove all the old performance tests for other ORBS. + The tests were not being actively maintained, nor where the ORBs + that they tested for. + If funding and time permits we could create tests for + next-generation ORBs. + Wed Apr 19 15:19:12 2000 Carlos O'Ryan <coryan@uci.edu> * orbsvcs/LifeCycle_Service/Makefile: diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/Makefile b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/Makefile deleted file mode 100644 index 0c15547eaaa..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/Makefile +++ /dev/null @@ -1,142 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the CHORUS COOL Cubit tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -IDL_SRC = cubit.cpp cubit.H sk_cubit.C sk_cubit.H - -SRC = $(IDL_SRC) cubit_i.cpp server.cpp client.cpp tmplinst.cpp - -SVR_OBJS = cubit_i.o server.o cubit.o tmplinst.o - -CLT_OBJS = client.o cubit.o tmplinst.o - -TAO_IDLFLAGS += -Ge 1 -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# CHORUS related macros and target settings. -#---------------------------------------------------------------------------- - -CHORUS_BINDIR = $(CHORUS_ROOT)/bin -CHORUS_LIBDIR = $(CHORUS_ROOT)/lib -CHORUS_INCDIR = $(CHORUS_ROOT)/include - -CPPFLAGS += -I$(CHORUS_INCDIR) -I$(CHORUS_ROOT) -LDFLAGS += -L$(CHORUS_LIBDIR) -R$(CHORUS_LIBDIR) -L$(ACE)/ace -IDLFLAGS = --stub-header --stub-impl --skeleton-header --skeleton-impl --no-local --binding Cubit Cubit_i --binding Cubit_Factory Cubit_Factory_i - -ifdef CHORUS - LDLIBS += -lOrb -else - LDLIBS += -lOrb-mt $(MATHLIB) -endif - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: $(IDL_SRC) server client - -$(IDL_SRC): cubit.idl - $(CHORUS_BINDIR)/chic $(IDLFLAGS) cubit.idl - -mv cubit.C cubit.cpp - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) $(POSTLINK) - -client: $(addprefix $(VDIR),$(CLT_OBJS)) - $(LINK.cc) -o client $(addprefix $(VDIR),$(CLT_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITCLT) $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) cubit.cpp cubit.H sk_cubit.C sk_cubit.H server client - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit.o .obj/cubit.so .shobj/cubit.o .shobj/cubit.so: cubit.cpp cubit.H -.obj/sk_cubit.o .obj/sk_cubit.so .shobj/sk_cubit.o .shobj/sk_cubit.so: sk_cubit.C -.obj/cubit_i.o .obj/cubit_i.so .shobj/cubit_i.o .shobj/cubit_i.so: cubit_i.cpp cubit_i.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i cubit.H sk_cubit.H -.obj/server.o .obj/server.so .shobj/server.o .shobj/server.so: server.cpp \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Get_Opt.i cubit_i.h cubit.H \ - sk_cubit.H sk_cubit.C -.obj/client.o .obj/client.so .shobj/client.o .shobj/client.so: client.cpp \ - $(ACE_ROOT)/ace/Profile_Timer.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/High_Res_Timer.h \ - $(ACE_ROOT)/ace/High_Res_Timer.i \ - $(ACE_ROOT)/ace/Profile_Timer.i \ - $(ACE_ROOT)/ace/Env_Value_T.h \ - $(ACE_ROOT)/ace/Env_Value_T.i client.h \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/Get_Opt.i cubit.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/cool.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/api/api.H \ - sk_cubit.H -.obj/tmplinst.o .obj/tmplinst.so .shobj/tmplinst.o .shobj/tmplinst.so: tmplinst.cpp cubit.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/cool.H - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/README b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/README deleted file mode 100644 index 06489e42f62..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/README +++ /dev/null @@ -1,33 +0,0 @@ -This is the cubit example that uses the TAO IDL compiler to generate -the stubs and skeletons. Additional features include presence of a -factory to create Cubit objects and testing the _bind call to get the -factory object reference. - -You can either run the server in the background in the same window as -the client or open a separate window for the client and server. - -server: -------- - -% server [-d] [-n <number-of-cubit-objects>] - -The server cubit factory maintained num_of_cubit objects (default = -1). They are assigned keys that look like "key0", "key1", ... - -When the server is started and you have used the -d flag, you should -see as the first line of output something that looks like - iiop:1.0//serverhost:10013/factory (using -ORBobjrefstyle url) -or - IOR:000000000000001649444c3a43756269745... (using default -ORBobjrefstyle ior) - -Using -d turns on debugging messages. It is additive, i.e., the more --d options provided, the more debugging you can get. At the moment, -only 2 levels of debugging are implemented, and more than 2 -d options -are ignored. - -client: -------- - -% client [-d] -h <hostname> -p <port> -k <cubit key> -n <iterations> - -cubit_key corresponds to "key0", "key1", ... diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.cpp b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.cpp deleted file mode 100644 index 2fc718168c6..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.cpp +++ /dev/null @@ -1,749 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// clnt.cpp -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA client for the Cubit -// example using stubs generated by the TAO ORB IDL compiler. -// -// = AUTHORS -// Copyright 1994-1995 by Sun Microsystems Inc. -// and -// Aniruddha Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "ace/Profile_Timer.h" -#include "ace/Env_Value_T.h" -#include "client.h" - -#include "api/api.H" -#include "cubit.H" -#include "sk_cubit.H" - -ACE_RCSID(IDL_Cubit, client, "$Id$") - -// Constants -u_int _debug_level = 0; -const u_int DEFAULT_PORT = 3000; -CORBA::Environment Cubit_Client::env_; - - -// Constructor. - -#define quote(x) #x - -Cubit_Client::Cubit_Client (void) - : cubit_factory_key_ ("factory"), - cubit_key_ ("key0"), - hostname_ (ACE_DEFAULT_SERVER_HOST), - loop_count_ (250), - exit_later_ (0), - factory_ (Cubit_Factory::_nil ()), - objref_ (CORBA::Object::_nil ()), - cubit_ (Cubit::_nil ()), - orb_ptr_ (0), - call_count_ (0), - error_count_ (0), - portnum_(DEFAULT_PORT) -{ -} - -// Simple function that returns the substraction of 117 from the -// parameter. - -int -Cubit_Client::func (u_int i) -{ - return i - 117; -} - -// Parses the command line arguments and returns an error status. - -int -Cubit_Client::parse_args (void) -{ - ACE_Get_Opt get_opts (argc_, argv_, "dn:h:p:k:x"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'd': // debug flag - _debug_level++; - break; - case 'n': // loop count - loop_count_ = (u_int) ACE_OS::atoi (get_opts.optarg); - break; - case 'h': - hostname_ = ACE_OS::strdup (get_opts.optarg); - break; - case 'p': - portnum_ = ACE_OS::atoi (get_opts.optarg); - break; - case 'k': // stringified objref - cubit_key_ = ACE_OS::strdup (get_opts.optarg); - break; - case 'x': - this->exit_later_++; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-d]" - " [-n loopcount]" - " [-k cubit-obj-ref-key]" - " [-h hostname]" - " [-p port]" - " [-x]" - "\n", - this->argv_ [0]), - -1); - } - - // Indicates successful parsing of command line. - return 0; -} - -// Exercise the union. Cube a union. - -void -Cubit_Client::cube_union_stub (void) -{ - CORBA::Environment env; - Cubit::oneof u, r; - - this->call_count_++; - - u.l (3); // use the long union branch - - // Cube a "union" ... - r = this->cubit_->cube_union (u, this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_union"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "cube union ...")); - u.l (u.l () * u.l () * u.l ()) ; - - if (u.l () != r.l ()) - { - ACE_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); - this->error_count_++; - } - - } - - this->call_count_++; - - u._d (Cubit::e_3rd); -#if 0 - u.cm ().l = this->func (i); - u.cm ().s = this->func (i); - u.cm ().o = this->func (i); -#endif - - u.cm ().l = 7; - u.cm ().s = 5; - u.cm ().o = 3; - - // Cube another "union" which uses the default arm ... NOT tested yet - r = this->cubit_->cube_union (u, this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_union"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "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_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); - this->error_count_++; - } - } -} - -// Exercise the union using dii. - -void -Cubit_Client::cube_union_dii (void) -{ - // Create the request ... - CORBA::Request_ptr req; - - this->call_count_++; - - req = this->cubit_->_request ((CORBA::String) "cube_union", this->env_); - - if (this->env_.exception () != 0) - { - this->error_count_++; - - this->print_exception ("cube_union_dii request create"); - return; - } - - // ... initialise the argument list and result ... - Cubit::oneof *u, r; - - u = new Cubit::oneof; - u->_d (Cubit::e_3rd); - - u->cm ().l = 5; - u->cm ().s = -7; - u->cm ().o = 3; - - CORBA::Any tmp_arg (Cubit::_tc_oneof, u, CORBA_FALSE); - - req->arguments ()->add_value ("values", tmp_arg, CORBA_ARG_IN, this->env_); - - if (this->env_.exception () != 0) - { - this->error_count_++; - this->print_exception ("cube_union_dii request arg add"); - CORBA::release (req); - return; - } - - req->result ()->value ()->replace (Cubit::_tc_oneof, 0, CORBA_TRUE); - - if (this->env_.exception () != 0) - { - this->error_count_++; - this->print_exception ("cube_union_dii result type"); - CORBA::release (req); - return; - } - - // Make the invocation, verify the result. - - req->invoke (); - - if (req->env ()->exception () != 0) - { - this->error_count_++; - this->print_exception ("cube_union_dii invoke", *req->env ()); - CORBA::release (req); - return; - } - - r = *(Cubit::oneof *) req->result ()->value ()->value (); - - if (r.cm ().o != 27 || r.cm ().l != 125 || r.cm ().s != -343) - { - this->error_count_++; - ACE_ERROR ((LM_ERROR, "cube_union_dii -- bad results\n")); - } - else - ACE_DEBUG ((LM_DEBUG, "cube_union_dii ... success!!")); - - CORBA::release (req); - delete u; -} - -// Cube a short. - -void -Cubit_Client::cube_short (int i) -{ - CORBA::Short arg_short = this->func (i); - // Cube a short. - CORBA::Short ret_short = cubit_->cube_short (arg_short, this->env_); - - this->call_count_++; - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_short"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "cube short: %d --> %d\n", - arg_short, - ret_short)); - arg_short = arg_short * arg_short * arg_short; - - if (arg_short != ret_short) - { - ACE_ERROR ((LM_ERROR, "** cube_short (%d) ERROR (--> %d)\n", - (CORBA::Short) this->func (i), - ret_short)); - this->error_count_++; - } - } -} - -// Cube an octet - -void -Cubit_Client::cube_octet (int i) -{ - CORBA::Octet arg_octet = this->func (i); - - // Cube an octet. - CORBA::Octet ret_octet = this->cubit_->cube_octet (arg_octet, this->env_); - - this->call_count_++; - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_octet"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "cube octet: %d --> %d\n", arg_octet, ret_octet)); - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_DEBUG ((LM_DEBUG, - "** cube_octet (%d) ERROR (--> %d)\n", - (CORBA::Octet) this->func (i), - ret_octet)); - this->error_count_++; - } - } -} - -// calculate the cube from a long - -void -Cubit_Client::cube_long (int i) -{ - CORBA::Long arg_long = this->func (i); - - // Cube a long. - CORBA::Long ret_long = this->cubit_->cube_long (arg_long, this->env_);; - - this->call_count_++; - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_long"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "cube long: %d --> %d\n", arg_long, ret_long)); - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - ACE_ERROR ((LM_ERROR, - "** cube_long (%ld) ERROR (--> %ld)\n", - (CORBA::Long) this->func (i), - ret_long)); - this->error_count_++; - } - } -} - -// Cube the numbers in a struct - -void -Cubit_Client::cube_struct (int i) -{ - Cubit::Many arg_struct; - Cubit::Many ret_struct; - - this->call_count_++; - - arg_struct.l = this->func (i); - arg_struct.s = this->func (i); - arg_struct.o = this->func (i); - - // Cube a "struct" ... - ret_struct = this->cubit_->cube_struct (arg_struct, this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("from cube_struct"); - this->error_count_++; - } - else - { - if (_debug_level > 0) - ACE_DEBUG ((LM_DEBUG, "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_ERROR ((LM_ERROR, "** cube_struct ERROR\n")); - this->error_count_++; - } - } -} - -// Cube the numbers in a struct - -void -Cubit_Client::cube_struct_dii (void) -{ - // Create the request ... - CORBA::Request_ptr req = - this->cubit_->_request ((CORBA::String) "cube_struct", this->env_); - - this->call_count_++; - - if (this->env_.exception () != 0) - { - this->print_exception ("DII request create"); - return; - } - - // ... initialise the argument list and result ... - Cubit::Many arg; - Cubit::Many result; - - arg.o = 3; - arg.l = 5; - arg.s = -7; - - CORBA::Any tmp_arg (Cubit::_tc_Many, &arg, CORBA_FALSE); - - req->arguments ()->add_value ("values", tmp_arg, CORBA_ARG_IN, this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("DII request arg add"); - CORBA::release (req); - return; - } - - req->result ()->value ()->replace (Cubit::_tc_Many, 0, CORBA_TRUE); - - if (this->env_.exception () != 0) - { - this->print_exception ("DII request result type"); - CORBA::release (req); - return; - } - - // Make the invocation, verify the result - - req->invoke (); - - if (req->env ()->exception () != 0) - { - this->print_exception ("DII invoke sending struct", *req->env ()); - CORBA::release (req); - return; - } - - result = *(Cubit::Many *) req->result ()->value ()->value (); - - if (result.o != 27 || result.l != 125 || result.s != -343) - ACE_ERROR ((LM_ERROR, "DII cube_struct -- bad results\n")); - else - ACE_DEBUG ((LM_DEBUG, "DII cube_struct ... success!!")); - - CORBA::release (req); -} - -void -Cubit_Client::print_stats (const char *call_name, ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time) -{ - double tmp; - - ACE_DEBUG ((LM_DEBUG, - "%s:\n", - call_name)); - - if (this->call_count_ > 0 && this->error_count_ == 0) - { - tmp = 1000 / elapsed_time.real_time; - - elapsed_time.real_time *= ACE_ONE_SECOND_IN_MSECS; - elapsed_time.user_time *= ACE_ONE_SECOND_IN_MSECS; - elapsed_time.system_time *= ACE_ONE_SECOND_IN_MSECS; - - elapsed_time.real_time /= this->call_count_; - elapsed_time.user_time /= this->call_count_; - elapsed_time.system_time /= this->call_count_; - - tmp = 1000 / elapsed_time.real_time; - - ACE_DEBUG ((LM_DEBUG, - "\treal_time\t= %0.06f ms, \n\t" - "user_time\t= %0.06f ms, \n\t" - "system_time\t= %0.06f ms\n" - "\t%0.00f calls/second\n", - elapsed_time.real_time < 0.0? 0.0:elapsed_time.real_time, - elapsed_time.user_time < 0.0? 0.0:elapsed_time.user_time, - elapsed_time.system_time < 0.0? 0.0:elapsed_time.system_time, - tmp < 0.0? 0.0 : tmp)); - } - else - { - ACE_ERROR ((LM_ERROR, "\tNo time stats printed. Call count zero or error ocurred.\n")); - } - - ACE_DEBUG ((LM_DEBUG, - "\t%d calls, %d errors\n", - this->call_count_, - this->error_count_)); -} - -// Execute client example code. - -int -Cubit_Client::run (void) -{ - u_int i; - - ACE_Profile_Timer timer; - ACE_Profile_Timer::ACE_Elapsed_Time elapsed_time; - - // ACE_Time_Value before; - - // We start an ACE_Profile_Timer here... - timer.start (); - - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_short (i); - this->cube_octet (i); - this->cube_long (i); - this->cube_struct (i); - } - - // stop the timer. - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube average call", elapsed_time); - - -#if 0 // this test is segfaulting, comment for now. - // 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). - - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_struct_dii (); - } - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_struct_dii call", elapsed_time); - - // ------------------> - // Two more tests, using the "cube_union" function - - // unions using stubs - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_union_stub (); - } - - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_union_stub call", elapsed_time); - - // union DII - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_union_dii (); - } - - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_union_dii call", elapsed_time); -#endif - if (this->exit_later_) - { - this->cubit_->please_exit (this->env_); - this->print_exception ("server, please ACE_OS::exit", this->env_); - } - - return this->error_count_ == 0 ? 0 : 1; -} - -Cubit_Client::~Cubit_Client (void) -{ - // Free resources - CORBA::release (this->factory_); - CORBA::release (this->cubit_); -} - -int -Cubit_Client::init (int argc, char **argv) -{ - this->argc_ = argc; - this->argv_ = argv; - - // Retrieve the ORB. - this->orb_ptr_ = CORBA::ORB_init (this->argc_, - this->argv_, - 0, - this->env_); - - // Parse command line and verify parameters. - if (this->parse_args () == -1) - return -1; - - if (this->env_.exception () != 0) - { - this->print_exception ("ORB initialization"); - return -1; - } - - if (this->cubit_key_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "%s: must specify an object reference using -k <key>\n", - this->argv_[0]), - -1); - - // Retrieve a factory objref. - char ior[BUFSIZ]; - sprintf ( ior, "cool-tcp://%s:%d", this->hostname_, this->portnum_ ); - - ACE_DEBUG ((LM_DEBUG, "ior is \"%s\"\n", ior)); - - COOL::EOABindingData bindingData (ior); - - this->factory_ = Cubit_Factory::_bind(bindingData, this->env_); - - // this->objref_ = Cubit_Factory::_bind (this->hostname_, - // this->portnum_, - // this->cubit_factory_key_, - // this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("Cubit_Factory::_bind"); - return -1; - } - - if (CORBA::is_nil (this->factory_) == CORBA_TRUE) - ACE_ERROR_RETURN ((LM_ERROR, - " _bind returned null object for host (%s), port (%d)\n", - this->hostname_, - this->portnum_), - -1); - - // Narrow the CORBA::Object reference to the stub object, checking - // the type along the way using _is_a. There is really no need to - // narrow <objref> because <_bind> will return us the - // <Cubit_Factory> pointer. However, we do it so that we can - // explicitly test the _narrow function. - -//this->factory_ = Cubit_Factory::_narrow (this->objref_, this->env_); - - //CORBA::release (this->objref_); - // this->objref_->Release (); - - // if (this->factory_ == 0) - // ACE_ERROR_RETURN ((LM_ERROR, - // " (%P|%t) Unable to narrow object reference to a Cubit_Factory_ptr.\n"), - // -1); - - // Now retrieve the Cubit obj ref corresponding to the key. - this->cubit_ = - this->factory_->make_cubit (this->cubit_key_, this->env_); - - if (this->env_.exception () != 0) - { - this->print_exception ("make_cubit"); - return -1; - } - - if (CORBA::is_nil (this->cubit_)) - ACE_ERROR_RETURN ((LM_ERROR, - "null cubit objref returned by factory\n"), - -1); - - return 0; -} - -void Cubit_Client::print_exception (const char * str, - const CORBA_Environment &env) -{ - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s: %s.\n", str, (const char *) msg); - } - else - { - fprintf(stderr, "%s: Unknown user exception.\n", str); - } -} - - - - -// This function runs the test. - -int -main (int argc, char **argv) -{ - Cubit_Client cubit_client; - - if (cubit_client.init (argc, argv) == -1) - return 1; - else - return cubit_client.run (); -} - -#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) -template class ACE_Env_Value<unsigned long>; -template class ACE_Env_Value<unsigned short>; -#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) -#pragma instantiate ACE_Env_Value<unsigned long> -#pragma instantiate ACE_Env_Value<unsigned short> -#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.h b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.h deleted file mode 100644 index 5c199c16815..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/client.h +++ /dev/null @@ -1,133 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// clnt.h -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA client for the Cubit -// example using stubs generated by the TAO ORB IDL compiler. -// -// = AUTHORS -// Copyright 1994-1995 by Sun Microsystems Inc. -// and -// Aniruddha Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "ace/Get_Opt.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "cubit.H" - -class Cubit_Client - // = TITLE - // Defines a class that encapsulates behaviour of the Cubit client - // example. Provides a better understanding of the logic in an - // object oriented way. - // - // = DESCRIPTION - // This class declares an interface to run the example client for - // Cubit CORBA server. All the complexity for initializing the - // server is hidden in the class. Just the run() interface is needed. -{ -public: - // = Constructor and destructor. - Cubit_Client (void); - ~Cubit_Client (void); - - int run (void); - // Execute client example code. - - int init (int argc, char **argv); - // Initialize the client communication endpoint with server. - - void print_exception (const char * str, - const CORBA_Environment &env=Cubit_Client::env_); - -private: - int func (u_int i); - // simple function that returns the substraction of 117 from the parameter. - - int parse_args (void); - // Parses the arguments passed on the command line. - - void print_stats (const char *call_name, ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time); - // prints the time stats - - void cube_union_stub (void); - // Exercise the union. Cube a union. - - void cube_union_dii (void); - // Exercise the union using dii. - - void cube_struct (int i); - // calculate the cube from a struct. - - void cube_long (int i); - // calculate the cube from a long - - void cube_octet (int i); - // Cube an octet - - void cube_short (int i); - // Cube a short. - - void cube_sequence (int i); - // Cube a sequence. - - void cube_struct_dii (void); - // Cube the numbers in a struct - - int argc_; - // # of arguments on the command line. - - char **argv_; - // arguments from command line. - - const char *cubit_factory_key_; - // Key of factory obj ref. - - char *cubit_key_; - // Key of the obj ref to be retrieved via the factory. - - char *hostname_; - // Hostname of server. - - CORBA::UShort portnum_; - // default port number of server. - - u_int loop_count_; - // Number of times to do the cube operations. - - int exit_later_; - // Flag to tell server to not exit immediately - - Cubit_Factory_ptr factory_; - // factory pointer for cubit. - - CORBA::Object_ptr objref_; - // storage of the factory objref - - static CORBA::Environment env_; - // Environment variable - - Cubit_ptr cubit_; - // Cubit obj ref - - CORBA::ORB_ptr orb_ptr_; - // Remember our orb - - u_int call_count_; - // # of calls made to functions - - u_int error_count_; - // # of errors incurred in the lifetime of the application. -}; diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit.idl b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit.idl deleted file mode 100644 index 9ddc2d8954f..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit.idl +++ /dev/null @@ -1,71 +0,0 @@ -// $Id$ - -interface Cubit - // = TITLE - // Defines an interface that encapsulates operations that cube - // numbers. - // - // = DESCRIPTION - // This interface encapsulates operations that cube - // octets, shorts, longs, structs and unions. - -{ - octet cube_octet (in octet o); - // cube an octet - - short cube_short (in short s); - // cube a short - - long cube_long (in long l); - // cube a long - - struct Many - { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - // Cube a struct - - enum discrim - { - e_0th, - e_1st, - e_2nd, - e_3rd - }; - // Enumeration of the different elements in a union. - - 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: - Many cm; - - // default: - // Many cm; - }; - // Union of different types. - - oneof cube_union (in oneof values); - // cube a union. - - oneway void please_exit (); - // shutdown the application. -}; - -interface Cubit_Factory - // = TITLE - // Creates Cubit objects -{ - Cubit make_cubit (in string key); -}; diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.cpp b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.cpp deleted file mode 100644 index 74ef088ee8e..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.cpp +++ /dev/null @@ -1,191 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// cubit_i.cpp -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "cubit_i.h" -#include <api/api.H> -#include <api/binding.H> -#include <corba/eoa.H> -#include <corba/eorb.H> - -ACE_RCSID(IDL_Cubit, cubit_i, "$Id$") - -extern void print_exception (const CORBA_Environment &env, const char * str); - -// Constructor - -Cubit_Factory_i::Cubit_Factory_i (const char *key, int numobjs) -{ - // Create implementation object with user specified key. - - this->numobjs_ = numobjs; - this->my_cubit_ = new Cubit_i_ptr [this->numobjs_]; - - static char obj_str [MAXNAMELEN]; - - for (u_int i = 0; i < this->numobjs_; i++) - { - ACE_OS::memset (obj_str, '\0', MAXNAMELEN); - ACE_OS::sprintf (obj_str, "key%d", i); - - my_cubit_[i] = new Cubit_i (obj_str); - - if (my_cubit_[i] == 0) - ACE_ERROR ((LM_ERROR, - " (%P|%t) Unable to create implementation object%d\n", - i)); - - } -} - -// Destructor - -Cubit_Factory_i::~Cubit_Factory_i (void) -{ - delete [] this->my_cubit_; -} - -Cubit_ptr -Cubit_Factory_i::make_cubit (const char *key, CORBA::Environment &env) -{ - Cubit_ptr cb = 0; - - for (size_t i = 0; i < this->numobjs_; i++) - { - const char *obj_str = this->my_cubit_[i]->_get_name (); - - // Keys matched. - if (!ACE_OS::strcmp (obj_str, key)) - { - COOL_bind(*(this->my_cubit_ [i]), cb, env); - if (env.exception() != 0) - print_exception (env, "COOL_bind"); - // return Cubit::_duplicate (this->my_cubit_ [i]); - return cb; - } - } - - return Cubit::_nil (); -} - -// Constructor - -Cubit_i::Cubit_i (const char *obj_name) - // : POA_Cubit (obj_name) -{ - obj_name_ = ACE_OS::strdup (obj_name); -} - -const char * -Cubit_i::_get_name (void) -{ - return this->obj_name_; -} - -// Destructor - -Cubit_i::~Cubit_i (void) -{ -} - -// Cube an octet - -CORBA::Octet -Cubit_i::cube_octet (CORBA::Octet o, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - return o * o * o; -} - -// Cube a short. - -CORBA::Short -Cubit_i::cube_short (CORBA::Short s, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - return s * s * s; -} - -// Cube a long - -CORBA::Long -Cubit_i::cube_long (CORBA::Long l, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (env); - return l * l * l; -} - -// Cube a struct - -Cubit::Many -Cubit_i::cube_struct (const Cubit::Many &values, - CORBA::Environment &env) -{ - Cubit::Many temp; - - ACE_UNUSED_ARG (env); - temp.o = values.o * values.o * values.o; - temp.s = values.s * values.s * values.s; - temp.l = values.l * values.l * values.l; - - return temp; -} - -// Cube a union - -Cubit::oneof -Cubit_i::cube_union (const Cubit::oneof &values, - CORBA::Environment &env) -{ - Cubit::oneof temp; - - ACE_UNUSED_ARG (env); - switch (values._d ()) - { - case Cubit::e_0th: - temp.o (values.o () * values.o () * values.o ()); - break; - case Cubit::e_1st: - temp.s (values.s () * values.s () * values.s ()); - break; - case Cubit::e_2nd: - temp.l (values.l () * values.l () * values.l ()); - break; - case Cubit::e_3rd: - default: - temp._d (values._d ()); // set the discriminant - // use the read/write accessor - temp.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o; - temp.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s; - temp.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l; - - } - return temp; -} - -// Shutdown. - -void Cubit_i::please_exit (CORBA::Environment &env) -{ - // Macro to avoid "warning: unused parameter" type warning. - ACE_UNUSED_ARG (env); - - ACE_DEBUG ((LM_DEBUG, "I've been asked to shut down...")); - thisCapsule->boa()->shutdown(); - - CORBA_BOA::deactivate_object(this, env); -} diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.h b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.h deleted file mode 100644 index abd6ad919ee..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/cubit_i.h +++ /dev/null @@ -1,113 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// cubit_i.h -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#ifndef _CUBIT_I_HH -#define _CUBIT_I_HH - -#include "ace/ACE.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include <api/api.H> -#include <api/binding.H> -#include <corba/eoa.H> -#include <corba/eorb.H> - -extern COOL_CurrentCapsule* thisCapsule; - -#include "cubit.H" -#include "sk_cubit.H" - -// Forward declarations -class Cubit_i; - -// Typedefs. -typedef Cubit_i *Cubit_i_ptr; -typedef Cubit_i_ptr Cubit_i_ref; - -class Cubit_i - // = TITLE - // Illustrates how to integrate a servant with the - // generated skeleton. - // = DESCRIPTION - // Implementation of the cubit example at the servant side. - // Cubes an octet, short, long, struct and union. -{ -public: - Cubit_i (const char *obj_name = 0); - // Constructor - - ~Cubit_i (void); - // Destructor - - virtual CORBA::Octet cube_octet (CORBA::Octet o, - CORBA::Environment &env); - // Cube an octet - - virtual CORBA::Short cube_short (CORBA::Short s, - CORBA::Environment &env); - // Cube a short - - virtual CORBA::Long cube_long (CORBA::Long l, - CORBA::Environment &env); - // Cube a long - - virtual Cubit::Many cube_struct (const Cubit::Many &values, - CORBA::Environment &env); - // Cube a struct. - - virtual Cubit::oneof cube_union (const Cubit::oneof &values, - CORBA::Environment &env); - // Cube a union. - - virtual void please_exit (CORBA::Environment &env); - // Shutdown routine. - - const char *_get_name (void); - - private: - const char * obj_name_; -}; - - -class Cubit_Factory_i; - -typedef Cubit_Factory_i *Cubit_Factory_i_ptr; - -class Cubit_Factory_i - // =TITLE - // Cubit_Factory_i - // - // DESCRIPTION - // factory object returning the cubit objrefs -{ -public: - Cubit_Factory_i (const char *key, int numobjs); - // constructor - - ~Cubit_Factory_i (void); - // destructor - - virtual Cubit_ptr make_cubit (const char *key, CORBA::Environment &env); - // make the cubit object whose key is "key" - -private: - Cubit_i_ptr *my_cubit_; - u_int numobjs_; -}; - -#endif /* _CUBIT_I_HH */ diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/server.cpp b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/server.cpp deleted file mode 100644 index 242810c72a5..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/server.cpp +++ /dev/null @@ -1,151 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// svr.cpp -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "ace/Get_Opt.h" -#include "ace/Log_Msg.h" - -#include "cubit_i.h" - -#include <api/binding.H> -#include <api/api.H> -#include "cubit.H" -#include "sk_cubit.H" -#include "sk_cubit.C" - -ACE_RCSID(IDL_Cubit, server, "$Id$") - -void print_exception (const CORBA_Environment &env, - const char * str) -{ - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s: %s.\n", str, (const char *) msg); - } - else - { - fprintf(stderr, "Unknown user exception.\n"); - } -} - - -// Global Variables -static int num_of_objs = 1; - -u_int _debug_level = 0; - -// Parses the command line arguments and returns an error status - -static int -parse_args (int argc, char *argv[]) -{ - ACE_Get_Opt get_opts (argc, argv, "dn:"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'd': // debug flag - _debug_level++; - break; - case 'n': // number of cubit objects we hold - num_of_objs = ACE_OS::atoi (get_opts.optarg); - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-d]" - " [-n] <num of cubit objects>" - "\n", argv [0]), 1); - } - - return 0; // Indicates successful parsing of command line -} - -// Standard command line parsing utilities used. - -int -main (int argc, char *argv[]) -{ - CORBA::Environment env; - - COOL::EOA::bind(argv[1], env); - if (env.exception()) { - ACE_DEBUG ((LM_ERROR, "Impossible to bind the ORB to the description:%s\n", argv[1])); - return -1; - } - - CORBA::ORB_ptr orb_ptr = CORBA::ORB_init (argc, argv, 0, env); - - if (env.exception () != 0) - { - print_exception (env, "ORB init"); - return 1; - } - - // Initialize the Object Adapter - CORBA_BOA_ptr oa_ptr = orb_ptr->OA_init (argc, argv, 0, env); - - if (env.exception() != 0) - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to initialize the POA.\n"), - 1); - - // Parse remaining command line and verify parameters. - parse_args (argc, argv); - - // create a factory implementation - Cubit_Factory_ptr factory; - Cubit_Factory_i *factory_i; - COOL::EOABindingData bindingData; - - ACE_NEW_RETURN (factory_i, Cubit_Factory_i ("factory", num_of_objs), 1); - - COOL_bind (*factory_i, factory, bindingData, env); - - if (_debug_level > 0) - { - // Stringify the objref we'll be implementing, and print it to - // stdout. Someone will take that string and give it to a - // client. Then release the object. - - CORBA::String str; - - str = orb_ptr->object_to_string (factory, env); - - if (env.exception () != 0) - { - print_exception (env, "object_to_string"); - return -1; - } - - ACE_OS::puts ((char *) str); - ACE_OS::fflush (stdout); - - ACE_DEBUG ((LM_DEBUG, "listening as object '%s'\n", str)); - } - - // Handle requests for this object until we're killed, or one of the - // methods asks us to exit. - ACE_DEBUG ((LM_DEBUG, "Entering boa->run ().\n")); - oa_ptr->run (); - - return 0; -} diff --git a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/tmplinst.cpp b/TAO/performance-tests/Cubit/COOL/IDL_Cubit/tmplinst.cpp deleted file mode 100644 index 0a3fd6572db..00000000000 --- a/TAO/performance-tests/Cubit/COOL/IDL_Cubit/tmplinst.cpp +++ /dev/null @@ -1,17 +0,0 @@ -// -// $Id$ -// - -// The contents of this file REALLY should be generated by the IDL -// compiler, but that functionality isn't available yet. - -#include "cubit.H" - -ACE_RCSID(IDL_Cubit, tmplinst, "$Id$") - -#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) -template class TAO_Unbounded_Sequence<long>; -#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) -#pragma instantiate TAO_Unbounded_Sequence<long> -#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ - diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Makefile b/TAO/performance-tests/Cubit/COOL/MT_Cubit/Makefile deleted file mode 100644 index 58945e87b1d..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the CHORUS COOL Cubit tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -IDL_SRC = cubit.cpp cubit.H sk_cubit.C sk_cubit.H - -SRC = $(IDL_SRC) \ - cubit_impl.cpp \ - server.cpp \ - client.cpp \ - Task_Client.cpp \ - Util_Thread.cpp - -SVR_OBJS = cubit_impl.o \ - server.o \ - cubit.o - -CLT_OBJS = Task_Client.o \ - client.o \ - cubit.o \ - Util_Thread.o - -TAO_IDLFLAGS += -Ge 1 -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# CHORUS related macros and target settings. -#---------------------------------------------------------------------------- - -CHORUS_BINDIR = $(CHORUS_ROOT)/bin -CHORUS_LIBDIR = $(CHORUS_ROOT)/lib -CHORUS_INCDIR = $(CHORUS_ROOT)/include - -CPPFLAGS += -I$(CHORUS_INCDIR) -I$(CHORUS_ROOT) -LDFLAGS += -L$(CHORUS_LIBDIR) -R$(CHORUS_LIBDIR) -L$(ACE)/ace -IDLFLAGS = --stub-header --stub-impl --skeleton-header --skeleton-impl --no-local --no-any --binding Cubit Cubit_Impl - -# pccTimer will eventually get integrated into ACE. It is specific for -# ClassiX on VME -ifdef CHORUS - SRC += pccTimer.cpp - CLT_OBJS += pccTimer.o - LDLIBS += -lOrb -else - LDLIBS += -lOrb-mt -endif - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: $(IDL_SRC) server client - -$(IDL_SRC): cubit.idl - $(CHORUS_BINDIR)/chic $(IDLFLAGS) cubit.idl - -mv cubit.C cubit.cpp - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) $(POSTLINK) - -client: $(addprefix $(VDIR),$(CLT_OBJS)) - $(LINK.cc) -o client $(addprefix $(VDIR),$(CLT_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITCLT) $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) cubit.cpp cubit.H sk_cubit.C sk_cubit.H server client - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/README b/TAO/performance-tests/Cubit/COOL/MT_Cubit/README deleted file mode 100644 index f8e7941cbdf..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/README +++ /dev/null @@ -1,166 +0,0 @@ -The MT-Cubit example for the CHORUS COOL ORB --------------------------------------------- - -Compiling ---------- - -Setup the CHORUS COOL environment variables before compiling, the -following is an example. You would typically want this in the shells' -resource file (e.g. .cshrc.mine). The example provided is for a C -shell. - - setenv CHORUS_ROOT /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt - set path = ($path /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/bin) - setenv LD_LIBRARY_PATH /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/lib:$LD_LIBRARY_PATH - setenv MANPATH /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/man:$MANPATH - -Makefiles are provided. Use make to compile. - -You can either run the server in the background in the same window as -the client or open a separate window for the client and server. - -server: -------- - -./server <tpr | tpool> - <cool-tcp://THIS_HOSTNAME:THIS_HOST_PORT | cool-chorus://:THIS_HOST_PORT> - -v - <-cool-tcp -cool-iiop | -cool-chorus> - -tpr : this indicates to the server to use the Thread Per Request concurrency model. - -tpool : this indicates to the server to use the Thread Pool concurrency model. - -THIS_HOSTNAME : the name of the host that the server will be running on. This is useful - if you want to specifya different interface (e.g. ATM, 100Mbit Ethernet) - -THIS_HOST_PORT: is the port number at which the server will start the high - priority servant. The low priority servant will be created at - (THIS_HOST_PORT+1). - -The server will print the IOR of the high and low priority servants, -but it is not required by the client. - -client: -------- - -./client [-n <LOOP_COUNT>] - [-t <NUM_THREADS>] - [-h SERVER_HOSTNAME] - [-p <SERVER_PORT_NUM>] - [-cool-tcp -cool-iiop | -cool-chorus] - [-I] - -[-I] indicates to the client to use Chorus IPC as the underlying transport - instead of TCP - -<SERVER_HOSTNAME>: is the hostname of the server. - -<SERVER_PORT_NUM>: is the port number of the servant. - -Based on the SERVER_HOSTNAME and the SERVER_PORT_NUM, the client constructs -the IOR's for the high priority servant and the low priority servant. - -<LOOP_COUNT> : is the number of times the group of CORBA twoway calls are to - be made. The group consists of the following calls: cube_octet(), cube_short(), - cube_long() and cube_struct(). The default is 100 loops (i.e. 400 calls are made). - -<NUM_THREADS> : is the total number of concurrent clients to be - created. One of these clients will be a high priority client (and thus - send requests to the high priority servant), and the rest will have - low priority. - -The high priority client makes requests at 20Hz, and the low priority -clients make requests at 10Hz. - -Results -------- - -The client prints the latency observed by the high priority client, -and the average latency observed by the low priority client. - -Examples --------- - -(1) An Example on a Sparc running SunOS 5.5.1 using TCP as the underlying transport - - - On the host lambada.cs.wustl.edu : - - % ./server tpool cool-tcp://lambada.cs.wustl.edu:3000 -v -cool-tcp -cool-iiop - - On the host merengue.cs.wustl.edu : - - % ./client -t 2 -h lambada.cs.wustl.edu -p 3000 -cool-tcp -cool-iiop - - The output of the client program may look like this: - - (5) Everyone's done, here I go!! - (4) Threads have bound, utilization test started - (9) Everyone's done, here I go!! - (8) Everyone's done, here I go!! - (6) Everyone's done, here I go!! - (7) Everyone's done, here I go!! - cube average call ACE_OS::time = 20.917016 msec, 47.807966 calls/second - (5) My latency was 20.917016 - 5 calls, 0 errors - cube average call ACE_OS::time = 19.299501 msec, 51.814811 calls/second - (8) My latency was 19.299501 - cube average call ACE_OS::time = 19.262436 msec, 51.914514 calls/second - 5 calls, 0 errors - (9) My latency was 19.262436 - 5 calls, 0 errors - cube average call ACE_OS::time = 15.101540 msec, 66.218412 calls/second - (6) My latency was 15.101540 - 5 calls, 0 errors - cube average call ACE_OS::time = 10.320359 msec, 96.895858 calls/second - (7) My latency was 10.320359 - 5 calls, 0 errors - Test done. - High priority client latency : 20.917016 msec, jitter: 36.582330 msec - Low priority client latency : 15.995959 msec, jitter: 527.515277 msec - utilization task performed 435 computations - -(2) An Example on a MVME177 backplane using 68k processors running ClassiX using - Chorus IPC as the underlying transport - - - On the host tambora2.cs.wustl.edu : - - % rsh tambora2 arun /tests/Cubit/COOL/MT_Cubit/server tpool cool-chorus://:1023 -v -cool-chorus - - On the host tambora1.cs.wustl.edu : - - % rsh tambora1 arun /tests/Cubit/COOL/MT_Cubit/client -n 400 -I -t 2 -p 1023 -cool-chorus - - The output of the client program might look like this: - - started aid = 12 - COOL:0000000001000000010000001C00750AA60000000200750AA65555555500000001429A00000000000A(13) Thread created - (13) Im the high priority client, my id is 0. - Using ior = cool-chorus://:1023 - Creating 1 clients with low priority of 125 - (13) Binding succeeded - (13) Cb == 2c6144 - Object Created at: '2908484l'connected to object 'COOL:0000000001000000010000001C00750AA60000000200750AA65555555500000001429A00000000000A' - COOL:0000000001000000010000001C00750AA60000000200750AA65555555500000001429A00000000000A - (13) Waiting for other threads to finish binding.. - (12) Thread created - (12) Im a low priority client, my id is 1 - Using ior = cool-chorus://:1023 - (12) Binding succeeded - (12) Cb == 2c6164 - Object Created at: '2908516l'connected to object 'COOL:0000000001000000010000001C00750AA60000000200750AA65555555500000001429A00000000000A'(12) Waiting for other threads to finish binding.. - (13) Everyone's done, here I go!! - (12) Everyone's done, here I go!! - (12|13) cube average call ACE_OS::time = 12835 usec, 77 calls/second - (13) My latency was 12835 - 400 calls, 0 errors - (12|12) cube average call ACE_OS::time = 12931 usec, 77 calls/second - (12) My latency was 12931 - Test done. - High priority client latency : 12835 usec - Low priority client latency : 12931 usec - 400 calls, 0 errors - --->Output file for latency data is "cb12__2.txt" - (8) utilization task performed 0 computations diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.cpp deleted file mode 100644 index 11d70407978..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.cpp +++ /dev/null @@ -1,629 +0,0 @@ -// $Id$ - -#include "Task_Client.h" - -ACE_RCSID(MT_Cubit, Task_Client, "$Id$") - -Task_State::Task_State (int argc, char **argv) - : start_count_ (0), - loop_count_ (5), - thread_count_ (5), - base_port_ (5000), - datatype_ (CB_OCTET), - argc_ (argc), - argv_ (argv), - thread_per_rate_ (0), - global_jitter_array_ (0), - use_chorus_ipc_ (0), - grain_ (1) -{ - int c; - int datatype; - - // defaults - ACE_OS::strcpy (server_host_, "localhost"); - ior_header_ = ACE_OS::strdup ("cool-tcp"); - ACE_Get_Opt opts (argc, argv, "Hh:n:t:p:d:rIg:"); - - while ((c = opts ()) != -1) - switch (c) { - case 'g': - grain_ = ACE_OS::atoi (opts.optarg); - if (grain_ < 1) - grain_ = 1; - break; - case 'I': - use_chorus_ipc_ = 1; - break; - case 'r': - thread_per_rate_ = 1; - break; - case 'd': - datatype = ACE_OS::atoi (opts.optarg); - switch (datatype) - { - case CB_OCTET: - ACE_DEBUG ((LM_DEBUG, "Testing Octets\n")); - datatype_ = CB_OCTET; - break; - case CB_LONG: - ACE_DEBUG ((LM_DEBUG, "Testing Longs\n")); - datatype_ = CB_LONG; - break; - case CB_STRUCT: - ACE_DEBUG ((LM_DEBUG, "Testing Structs\n")); - datatype_ = CB_STRUCT; - break; - case CB_SHORT: - default: - ACE_DEBUG ((LM_DEBUG, "Testing Shorts\n")); - datatype_ = CB_SHORT; - break; - } - continue; - case 'h': - ACE_OS::strcpy (server_host_, opts.optarg); - continue; - case 'p': - base_port_ = ACE_OS::atoi (opts.optarg); - continue; - case 'n': // loop count - loop_count_ = (u_int) ACE_OS::atoi (opts.optarg); - continue; - case 't': - thread_count_ = (u_int) ACE_OS::atoi (opts.optarg); - continue; - case 'H': - ACE_DEBUG ((LM_DEBUG, "usage: %s" - "[-d datatype Octet=0, Short=1, Long=2, Struct=3]" - " [-n num_calls]" - " [-h server_hostname]" - " [-p server_port_num]" - " [-t num_threads]" - " [-I Use Chorus IPC. (For Chorus ClassiX *only*) ]" - " [-g granularity_of_request_timing]" - "\n", argv [0])); - continue; - } - - if (use_chorus_ipc_ == 1) - { - ior_header_ = ACE_OS::strdup ("cool-chorus"); - ACE_OS::strcpy (server_host_, ""); - } - - // thread_count_ + 1 because there is one utilization thread also - // wanting to begin at the same time the clients begin.. - ACE_NEW (barrier_, ACE_Barrier (thread_count_ + 1)); - ACE_NEW (latency_, double [thread_count_]); - ACE_NEW (global_jitter_array_, double *[thread_count_]); -} - -Client::Client (Task_State *ts) - : ACE_Task<ACE_MT_SYNCH> (ACE_Thread_Manager::instance ()), - ts_ (ts) -{ -} - -void -Client::put_latency (double *jitter, double latency, u_int thread_id) -{ - ACE_MT (ACE_GUARD (ACE_SYNCH_MUTEX, ace_mon, ts_->lock_)); - - ts_->latency_[thread_id] = latency; - ts_->global_jitter_array_ [thread_id] = jitter; - -#if defined (ACE_LACKS_FLOATING_POINT) - ACE_DEBUG ((LM_DEBUG, - "(%t) My latency was %u\n", - latency)); -#else - ACE_DEBUG ((LM_DEBUG, - "(%t) My latency was %f\n", - latency)); -#endif /* ! ACE_LACKS_FLOATING_POINT */ -} - -double -Client::get_high_priority_latency (void) -{ - return (double) ts_->latency_ [0]; -} - -double -Client::get_low_priority_latency (void) -{ - double l = 0; - - for (u_int i = 1; i < ts_->start_count_; i++) - l += (double) ts_->latency_[i]; - return ts_->start_count_ > 1? l / (double) (ts_->start_count_ - 1) : 0; -} - -int -Client::get_latency (u_int thread_id) -{ - return ts_->latency_ [thread_id]; -} - -double -Client::get_high_priority_jitter (void) -{ - double jitter = 0; - double average = get_high_priority_latency (); - - // Compute the standard deviation (i.e. jitter) from the values - // stored in the global_jitter_array_. - - // we first compute the sum of the squares of the differences - // each latency has from the average - for (u_int i = 0; i < ts_->loop_count_; i ++) - { - double difference = - ts_->global_jitter_array_ [0][i] - average; - jitter += difference * difference; - } - - // Return the square root of the sum of the differences computed - // above, i.e. jitter. - return sqrt (jitter); -} - -double -Client::get_low_priority_jitter (void) -{ - double jitter = 0; - double average = get_low_priority_latency (); - - // Compute the standard deviation (i.e. jitter) from the values - // stored in the global_jitter_array_. - - // We first compute the sum of the squares of the differences each - // latency has from the average. - for (u_int j = 1; j < ts_->start_count_; j ++) - for (u_int i = 0; i < ts_->loop_count_; i ++) - { - double difference = ts_->global_jitter_array_ [j][i] - average; - jitter += difference * difference; - } - - // Return the square root of the sum of the differences computed - // above, i.e. jitter. - return sqrt (jitter); -} - -int -Client::svc (void) -{ - ACE_DEBUG ((LM_DEBUG, - "(%t) Thread created\n")); - - u_int thread_id; - Cubit_ptr cb; - char ior [1024]; - double frequency; - CORBA::ORB_ptr orb_ptr; - - { - ACE_GUARD_RETURN (ACE_Thread_Mutex, ace_mon, ts_->lock_, -1); - - thread_id = ts_->start_count_; - ts_->start_count_++; - - if (ts_->thread_per_rate_ == 0) - { - if (thread_id == 0) - { - ACE_DEBUG ((LM_DEBUG, - "(%t) Im the high priority client, my id is %d.\n", - thread_id)); - ACE_OS::sprintf (ior, - "%s://%s:%d", - ts_->ior_header_, - ts_->server_host_, - ts_->base_port_); - frequency = CB_HIGH_PRIORITY_RATE; - } - else - { - ACE_DEBUG ((LM_DEBUG, - "(%t) Im a low priority client, my id is %d\n", - thread_id)); - ACE_OS::sprintf (ior, - "%s://%s:%d", - ts_->ior_header_, - ts_->server_host_, - ts_->base_port_);// + thread_id); - frequency = CB_LOW_PRIORITY_RATE; - } - } - else - { - switch (thread_id) - { -///////////////////////////////////// -// THIS NEEDS TO BE UPDATED AS ABOVE. -///////////////////////////////////// - case CB_40HZ_CONSUMER: - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "cool-tcp://%s:%d", ts_->server_host_, ts_->base_port_); - frequency = CB_40HZ_CONSUMER_RATE; - break; - case CB_20HZ_CONSUMER: - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "cool-tcp://%s:%d", ts_->server_host_, ts_->base_port_);//+1); - frequency = CB_20HZ_CONSUMER_RATE; - break; - case CB_10HZ_CONSUMER: - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "cool-tcp://%s:%d", ts_->server_host_, ts_->base_port_);//+2); - frequency = CB_10HZ_CONSUMER_RATE; - break; - case CB_5HZ_CONSUMER: - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "cool-tcp://%s:%d", ts_->server_host_, ts_->base_port_);//+3); - frequency = CB_5HZ_CONSUMER_RATE; - break; - case CB_1HZ_CONSUMER: - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "cool-tcp://%s:%d", ts_->server_host_, ts_->base_port_);//+4); - frequency = CB_1HZ_CONSUMER_RATE; - break; - default: - ACE_DEBUG ((LM_DEBUG, "(%t) Invalid Thread ID.\n", thread_id)); - } - } /* else */ - - ACE_DEBUG ((LM_DEBUG, "Using ior = %s\n", ior)); - - CORBA::Object_ptr objref = CORBA::Object::_nil (); - CORBA::Environment env; - - orb_ptr = CORBA::ORB_init (ts_->argc_, ts_->argv_, 0, env); - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:ORB initialization", env.exception ()), 2); - - // CORBA_BOA_ptr oa_ptr = orb_ptr->OA_init (ts_->argc_, ts_->argv_, 0, env); - // - // if (oa_ptr == 0) - // ACE_ERROR_RETURN ((LM_ERROR, - // " (%P|%t) Unable to initialize the POA.\n"), - // 1); - - - // - // Initialize client's binding to an - // arbitrary cubit server (at some host) - // - COOL::EOABindingData bindingData (ior); - - cb = Cubit::_bind(bindingData, env); - - // objref = orb_ptr->string_to_object ((CORBA::String) ior, env); - - // if (env.exception () != 0) - // ACE_ERROR_RETURN ((LM_ERROR, - // "%s:string2object failed. Supply valid IOR with the -O option\n", - // env.exception ()), 2); - - // if (CORBA::is_nil (objref) == CORBA_TRUE) - // ACE_ERROR_RETURN ((LM_ERROR, - // "%s: must identify non-null target objref\n", - // ts_->argv_ [0]), - // 1); - - // Narrow the CORBA::Object reference to the stub object, checking - // the type along the way using _is_a. - // cb = Cubit::_narrow (objref); - - if ( (CORBA::is_nil (cb) == CORBA_TRUE) || (env.exception () != 0)) - { - ACE_ERROR_RETURN ((LM_ERROR, "%s:Create cubit failed\n", env.exception ()), 1); - } - ACE_DEBUG ((LM_DEBUG, "(%t) Binding succeeded\n")); - ACE_DEBUG ((LM_DEBUG, "(%t) Cb == %x\n", cb)); - - CORBA::String str; - - str = orb_ptr->object_to_string (cb, env); - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR, "object_to_string %s\n", env.exception ()), -1); - - ACE_OS::puts ((char *) str); - ACE_OS::fflush (stdout); - ACE_DEBUG ((LM_DEBUG, "Object Created at: '%ul'", cb)); - ACE_DEBUG ((LM_DEBUG, "connected to object '%s'", str)); - } - - ACE_DEBUG ((LM_DEBUG, "(%t) Waiting for other threads to finish binding..\n")); - ts_->barrier_->wait (); - ACE_DEBUG ((LM_DEBUG, "(%t) Everyone's done, here I go!!\n")); - - this->run_tests (cb, ts_->loop_count_, thread_id, ts_->datatype_, frequency); - - // Free resources - // CORBA::release (orb_ptr); - - return 0; -} - -int -Client::run_tests (Cubit_ptr cb, - u_int loop_count, - u_int thread_id, - Cubit_Datatypes datatype, - double frequency) -{ - CORBA::Environment env; - u_int i = 0; - u_int call_count = 0, error_count = 0; - double *my_jitter_array; - ACE_NEW_RETURN (my_jitter_array, double [ts_->loop_count_], 1); - - double latency = 0; - double sleep_time = (1/frequency) * (1000 * 1000); - double delta = 0; - - int pstartTime = 0; - int pstopTime = 0; - double real_time = 0.0; - -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); - quantify_clear_data (); -#endif /* ACE_HAS_QUANTIFY */ - - // Make the calls in a loop. - for (i = 0; i < loop_count; i++) - { - ACE_High_Res_Timer timer_; - ACE_Time_Value tv (0, (long int) (sleep_time - delta)); - ACE_OS::sleep (tv); - - // Elapsed time will be in microseconds. - ACE_Time_Value delta_t; - -#if defined (CHORUS) - pstartTime = pccTime1Get(); -#else /* CHORUS */ - timer_.start (); -#endif /* !CHORUS */ - - switch (datatype) - { - case CB_OCTET: - { - // Cube an octet. - CORBA::Octet arg_octet = func (i), ret_octet = 0; - -#if defined (ACE_HAS_QUANTIFY) - /* start recording quantify data from here */ - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - ret_octet = cb->cube_octet (arg_octet, env); - -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - if (env.exception () != 0) - { - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s.\n", (const char*) msg); - } - else - { - fprintf(stderr, "Unknown user exception.\n"); - } - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - } - - arg_octet = arg_octet * arg_octet * arg_octet; - - if (arg_octet != ret_octet) - { - ACE_DEBUG ((LM_DEBUG, "** cube_octet(%d) (--> %d)\n", arg_octet , ret_octet)); - error_count++; - } - call_count++; - } - break; - - case CB_SHORT: - // Cube a short. - { - call_count++; - - CORBA::Short arg_short = func (i), ret_short; - -#if defined (ACE_HAS_QUANTIFY) - // start recording quantify data from here. - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - - ret_short = cb->cube_short (arg_short, env); - -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR, - "%s:Call failed\n", - env.exception ()), - 2); - - arg_short = arg_short * arg_short * arg_short; - - if (arg_short != ret_short) - { - ACE_DEBUG ((LM_DEBUG, "** cube_short(%d) (--> %d)\n", arg_short , ret_short)); - error_count++; - } - break; - } - // Cube a long. - - case CB_LONG: - { - call_count++; - - CORBA::Long arg_long = func (i), ret_long; - -#if defined (ACE_HAS_QUANTIFY) - // start recording quantify data from here. - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - - ret_long = cb->cube_long (arg_long, env); - -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - - arg_long = arg_long * arg_long * arg_long; - - if (arg_long != ret_long) - { - ACE_DEBUG ((LM_DEBUG, "** cube_long(%d) (--> %d)\n", arg_long , ret_long)); - error_count++; - } - break; - } - - case CB_STRUCT: - // 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); - -#if defined (ACE_HAS_QUANTIFY) - // start recording quantify data from here. - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - - ret_struct = cb->cube_struct (arg_struct, env); - -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - - 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_DEBUG ((LM_DEBUG, "**cube_struct error!\n")); - error_count++; - } - - break; - } - } - - // use sysBench when CHORUS defined and option specified on command line -#if defined (CHORUS) - if ( (loop_count % ts_->grain_) == 0) - pstopTime = pccTime1Get(); -#else /* CHORUS */ - // if CHORUS is not defined just use plain timer_.stop (). - timer_.stop (); - timer_.elapsed_time (delta_t); -#endif /* !CHORUS */ - - // Calculate time elapsed -#if defined (ACE_LACKS_FLOATING_POINT) -# if defined (CHORUS) - real_time = pstopTime - pstartTime; - my_jitter_array [i/ts_->grain_] = real_time; // in units of microseconds. - // update the latency array, correcting the index using the granularity -# else /* CHORUS */ - // Store the time in usecs. - real_time = delta_t.sec () * ACE_ONE_SECOND_IN_USECS + - delta_t.usec (); - my_jitter_array [i] = real_time; // in units of microseconds. -# endif /* !CHORUS */ - delta = ((40 * fabs (real_time) / 100) + (60 * delta / 100)); // pow(10,6) - latency += real_time; -#else /* ACE_LACKS_FLOATING_POINT */ - // Store the time in secs. - real_time = delta_t.sec () + (double)delta_t.usec () / ACE_ONE_SECOND_IN_USECS; - delta = ((0.4 * fabs (real_time * (1000 * 1000))) + (0.6 * delta)); // pow(10,6) - latency += real_time; - my_jitter_array [i] = real_time * 1000; -#endif /* !ACE_LACKS_FLOATING_POINT */ - } - - if (call_count > 0) - { - if (error_count == 0) - { -#if defined (ACE_LACKS_FLOATING_POINT) - double calls_per_second = (call_count * ACE_ONE_SECOND_IN_USECS) / latency; -#endif /* ACE_LACKS_FLOATING_POINT */ - - latency /= call_count; - - if (latency > 0) - { -#if defined (ACE_LACKS_FLOATING_POINT) - ACE_DEBUG ((LM_DEBUG, - "(%P|%t) cube average call ACE_OS::time\t= %u usec, \t" - "%u calls/second\n", - latency, - calls_per_second)); - - this->put_latency (my_jitter_array, - latency, - thread_id); -#else - ACE_DEBUG ((LM_DEBUG, "(%P|%t) cube average call ACE_OS::time\t= %f msec, \t" - "%f calls/second\n", - latency * 1000, - 1 / latency)); - this->put_latency (my_jitter_array, - latency * 1000, - thread_id); -#endif /* ! ACE_LACKS_FLOATING_POINT */ - } - else - { - // still we have to call this function to store a valid array pointer. - this->put_latency (my_jitter_array, - 0, - thread_id); - ACE_DEBUG ((LM_DEBUG, - "*** Warning: Latency is less than or equal to zero." - " Precision may have been lost.\n")); - } - } - ACE_DEBUG ((LM_DEBUG, - "%d calls, %d errors\n", - call_count, - error_count)); - } - - // cb->please_exit (env); - return 0; -} diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.h b/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.h deleted file mode 100644 index 62ea98eb6e8..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Task_Client.h +++ /dev/null @@ -1,196 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests -// -// = FILENAME -// Task_Client.h -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#ifndef TASK_CLIENT_H -#define TASK_CLIENT_H - -#include <corba/cool.H> -#include "api/api.H" -#include "cubit.H" - -#include "ace/Synch.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Task.h" -#include "ace/Thread_Manager.h" -#include "ace/Get_Opt.h" -#include "ace/Profile_Timer.h" -#include <math.h> - -#if defined (CHORUS) -#include "pccTimer.h" -#endif /* CHORUS */ - -// @@ Should we put this into a more general file, e.g., OS.h? -// -// I will integrate this, together with the sqrt() function when -// the implementation is complete. --Sergio. -// @@ Sergio, can you please use the ACE_timer_t here rather than #define'ing double? -#if defined (ACE_LACKS_FLOATING_POINT) -#define double ACE_UINT32 -#define fabs(X) ((X) >= 0 ? (X) : -(X)) -// the following is just temporary, until we finish the sqrt() -// implementation. -#define sqrt(X) (1) -#endif /* ACE_LACKS_FLOATING_POINT */ - -// Arbitrary generator used by the client to create the numbers to be -// cubed. -inline int -func (unsigned i) -{ - return i - 117; -} - -// The various datatypes which the client and the server can exchange. -enum Cubit_Datatypes -{ - CB_OCTET, - CB_SHORT, - CB_LONG, - CB_STRUCT -}; - -const int CB_40HZ_CONSUMER = 0; -const int CB_20HZ_CONSUMER = 1; -const int CB_10HZ_CONSUMER = 2; -const int CB_5HZ_CONSUMER = 3; -const int CB_1HZ_CONSUMER = 4; - -const int CB_40HZ_CONSUMER_RATE = 40; -const int CB_20HZ_CONSUMER_RATE = 20; -const int CB_10HZ_CONSUMER_RATE = 10; -const int CB_5HZ_CONSUMER_RATE = 5; -const int CB_1HZ_CONSUMER_RATE = 1; - -const int CB_HIGH_PRIORITY_RATE = 20; -const int CB_LOW_PRIORITY_RATE = 10; - -class Task_State - // = TITLE - // Maintains state common to multiple Cubit clients - - // = DESCRIPTION - // This class maintains state which is common to the potentially - // multiple concurrent clients. -{ -public: - ACE_Barrier *barrier_; - // Barrier for the multiple clients to synchronize after - // binding to the servants. - - Task_State (int argc, char **argv); - // Constructor. Takes the command line arguments, which are - // later passed into ORB_init - - u_int start_count_; - // keeps a count of the number of clients started.. This - // count also serves as a thread-id. The first thread created - // gets an ID of 0, then 1, and so on.. - - u_int loop_count_; - // number of times to loop, making calls.. - - u_int thread_count_; - // number of concurrent clients to create.. - - u_int base_port_; - // this is the port at which the high priority servant is - // listening.. lower priority ports begin at base_port_ + 1 - - char server_host_ [1024]; - // Server hostname - - double *latency_; - // Array to store the latency for every client, indexed by - // thread-id. - - Cubit_Datatypes datatype_; - // Which datatype to use to make the calls - - ACE_Thread_Mutex lock_; - // lock to protect access to this object - - int argc_; - char **argv_; - // command line arguments - - u_int thread_per_rate_; - // Flag for the thread_per_rate test - - double **global_jitter_array_; - // this array stores the latency seen by each client for each - // request, to be used later to compute jitter - - u_int use_chorus_ipc_; - // flag that indicates that we are going to use Chorus IPC - // communication mechanism, instead of the TCP/IP protocol stack. - // This only applies to the CHORUS ClassiX OS. - - char * ior_header_; - // pointer to the ior part where you specify the type of transport - // for COOL (i.e. ipc or tcp) - - u_int grain_; - // this is the granularity of the timing of the CORBA requests. A - // value of 5 represents that we will take time every 5 requests, - // instead of the default of every request (1). -}; - -class Client : public ACE_Task<ACE_MT_SYNCH> - // = TITLE - // The Cubit client. -{ -public: - Client (Task_State *ts); - // constructor, with a pointer to the common task state. - - virtual int svc (void); - // the thread function - - double get_high_priority_latency (void); - double get_low_priority_latency (void); - double get_high_priority_jitter (void); - double get_low_priority_jitter (void); - int get_latency (u_int thread_id); - // accessors to get the various measured quantities - - -private: - - int run_tests (Cubit_ptr, - unsigned int, - unsigned int, - Cubit_Datatypes, - double frequency); - // makes the calls to the servant - - void put_latency (double *jitter, - double latency, - unsigned int); - // Records the latencies in the Task_State - - int parse_args (int, char **); - // parses the arguments - - Task_State *ts_; - // pointer to shared state - -}; - -#endif /* !defined (TASK_CLIENT_H) */ diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.cpp deleted file mode 100644 index 5a63a86339c..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.cpp +++ /dev/null @@ -1,62 +0,0 @@ -// $Id$ - -#include "Util_Thread.h" - -ACE_RCSID(MT_Cubit, Util_Thread, "$Id$") - -Util_Thread::Util_Thread (Task_State *ts, - ACE_Thread_Manager *thr_mgr) - : ACE_Task<ACE_MT_SYNCH> (thr_mgr), - done_ (0), - number_of_computations_ (0), - ts_ (ts) -{ -} - -int -Util_Thread::svc (void) -{ - ACE_DEBUG ((LM_DEBUG, - "(%t) Utilization Thread created, " - "waiting for threads to finish binding\n")); - - // this barrier synchronizes the utilization thread with - // the client threads - // i.e., the Util_thread should wait until all the - // clients have finished binding, and only then - // start measuring the utilization. - this->ts_->barrier_->wait (); - - ACE_DEBUG ((LM_DEBUG, - "(%t) Threads have bound, " - "utilization test started\n")); - - this->run_computations (); - return 0; -} - -double -Util_Thread::get_number_of_computations (void) -{ - return this->number_of_computations_; -} - -// Perform repeated prime factor computations on an arbitrary number. -// And you thought your life was boring... :-) - -int -Util_Thread::run_computations (void) -{ - while (this->done_ == 0) - { - // See if this number is prime. 2 and CUBIT_ARBIT_NUMBER / 2 are - // the recommended values for min_factor and max_factor, as - // explained in ACE.h (is_prime). - ACE::is_prime (CUBIT_ARBIT_NUMBER, - 2, - CUBIT_ARBIT_NUMBER / 2); - this->number_of_computations_ ++; - } - - return 0; -} diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.h b/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.h deleted file mode 100644 index b336c11c2de..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/Util_Thread.h +++ /dev/null @@ -1,45 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests -// -// = FILENAME -// Util_Thread.h -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "Task_Client.h" - -const int CUBIT_ARBIT_NUMBER = 2064885; - -class Util_Thread : public ACE_Task<ACE_MT_SYNCH> - // = TITLE - // The thread that computes utilization. -{ -public: - Util_Thread (Task_State *, - ACE_Thread_Manager *thr_mgr); - // constructor. - - virtual int svc (void); - // The thread entry point function. - - double get_number_of_computations (void); - // Gets the number of computations the thread was able to perform. - - int done_; - // Indicates whether we're done. - -private: - int run_computations (void); - // Run the computations. - - // Sumedh, please add comments here. - double number_of_computations_; - Task_State *ts_; -}; diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.cpp deleted file mode 100644 index a3c9e5c8c59..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.cpp +++ /dev/null @@ -1,289 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests -// -// = FILENAME -// client.cpp -// -// = AUTHOR -// Andy Gokhale, Brian Mendel, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "client.h" - -ACE_RCSID(MT_Cubit, client, "$Id$") - -int -initialize (void) -{ -#if defined (VXWORKS) - hostAdd ("mv2604d", "130.38.183.132"); -#if defined (VME_DRIVER) - STATUS status = vmeDrv (); - if (status != OK) - printf ("ERROR on call to vmeDrv()\n"); - status = vmeDevCreate ("/vme"); - if (status != OK) - printf ("ERROR on call to vmeDevCreate()\n"); -#endif /* defined (VME_DRIVER) */ -#endif /* defined (VXWORKS) */ - - // Make sure we've got plenty of socket handles. This call will use - // the default maximum. - ACE::set_handle_limit (); - return 0; -} - -int -do_priority_inversion_test (Task_State &ts) -{ - u_int i = 0; - - // Create the clients - Client high_priority_client (&ts); - Client low_priority_client (&ts); - - // Create the daemon thread in its own <ACE_Thread_Manager>. - ACE_Thread_Manager thr_mgr; - - Util_Thread util_thread (&ts, &thr_mgr); - - ACE_Sched_Priority priority = - ACE_Sched_Params::priority_min (ACE_SCHED_FIFO, - ACE_SCOPE_THREAD); - - // First activate the Utilization thread. It will wait until all - // threads have finished binding. - util_thread.activate (THR_BOUND, - 1, - 0, - priority); - - // Now activate the high priority client. - priority = ACE_THR_PRI_FIFO_DEF; - - if (high_priority_client.activate (THR_BOUND | THR_SCHED_FIFO, - 1, - 0, - priority) == -1) - ACE_ERROR ((LM_ERROR, - "%p\n", - "activate failed")); - - // Drop the priority, so that the priority of clients will increase - // with increasing client number. - for (i = 0; i < ts.thread_count_; i++) - priority = ACE_Sched_Params::previous_priority (ACE_SCHED_FIFO, - priority, - ACE_SCOPE_THREAD); - - ACE_DEBUG ((LM_DEBUG, - "Creating %d clients with low priority of %d\n", - ts.thread_count_ - 1, - priority)); - - for (i = 0; i < ts.thread_count_ - 1; i++) - { - // The first thread starts at min + 1, since the minimum - // priority thread is the utilization thread. - - if (low_priority_client.activate (THR_BOUND, - 1, - 1, - priority) == -1) - ACE_ERROR ((LM_ERROR, - "%p\n", - "activate failed")); - - // get the next higher priority - priority = ACE_Sched_Params::next_priority (ACE_SCHED_FIFO, - priority, - ACE_SCOPE_THREAD); - } - // Wait for all the threads to exit. - ACE_Thread_Manager::instance ()->wait (); - -#if defined (VXWORKS) - ACE_OS::printf ("Test done.\n" - "High priority client latency : %d usec\n" - "Low priority client latency : %d usec\n", - high_client.get_high_priority_latency (), - low_client.get_low_priority_latency ()); -#elif defined (CHORUS) - ACE_OS::printf ("Test done.\n" - "High priority client latency : %u usec\n" - "Low priority client latency : %u usec\n", - high_priority_client.get_high_priority_latency (), - low_priority_client.get_low_priority_latency ()); - - // output the latency values to a file, tab separated, to import it - // to Excel to calculate jitter, in the mean time we come up with - // the sqrt() function. - FILE *latency_file_handle = 0; - char latency_file[BUFSIZ]; - char buffer[BUFSIZ]; - - ACE_OS::sprintf (latency_file, - "cb__%d.txt", - ts.thread_count_); - - ACE_OS::fprintf(stderr, - "--->Output file for latency data is \"%s\"\n", - latency_file); - - latency_file_handle = ACE_OS::fopen (latency_file, "w"); - - for (u_int j = 0; j < ts.start_count_; j ++) - { - ACE_OS::sprintf(buffer, - "%s #%d", - j==0? "High Priority": "Low Priority", - j); - for (u_int i = 0; i < ts.loop_count_; i ++) - { - ACE_OS::sprintf(buffer+strlen(buffer), - "\t%u\n", - ts.global_jitter_array_[j][i]); - fputs (buffer, latency_file_handle); - buffer[0]=0; - } - } - - ACE_OS::fclose (latency_file_handle); -#else - ACE_DEBUG ((LM_DEBUG, "Test done.\n" - "High priority client latency : %f msec, jitter: %f msec\n" - "Low priority client latency : %f msec, jitter: %f msec\n", - high_priority_client.get_high_priority_latency (), - high_priority_client.get_high_priority_jitter (), - low_priority_client.get_low_priority_latency (), - low_priority_client.get_low_priority_jitter ())); -#endif /* !defined (CHORUS) && !defined (VXWORKS) */ - - // signal the utilization thread to finish with its work.. - util_thread.done_ = 1; - - // This will wait for the utilization thread to finish. - thr_mgr.wait (); - -#if defined (ACE_LACKS_FLOATING_POINT) - ACE_DEBUG ((LM_DEBUG, - "(%t) utilization task performed %u computations\n", - util_thread.get_number_of_computations ())); -#else - ACE_DEBUG ((LM_DEBUG, - "(%t) utilization task performed %g computations\n", - util_thread.get_number_of_computations ())); -#endif /* ! ACE_LACKS_FLOATING_POINT */ - - return 0; - -} - -int -do_thread_per_rate_test (Task_State &ts) -{ - // First activate the high priority client. - Client CB_40Hz_client (&ts); - Client CB_20Hz_client (&ts); - Client CB_10Hz_client (&ts); - Client CB_5Hz_client (&ts); - Client CB_1Hz_client (&ts); - - ACE_Sched_Priority priority = - ACE_Sched_Params::priority_max (ACE_SCHED_FIFO, - ACE_SCOPE_THREAD); - - // VxWorks priority of 0 causes problems. - priority = 10; - ACE_DEBUG ((LM_DEBUG, "Creating 40 Hz client with priority %d\n", priority)); - if (CB_40Hz_client.activate (THR_BOUND, 1, 0, priority++) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - ACE_DEBUG ((LM_DEBUG, "Creating 20 Hz client with priority %d\n", priority)); - if (CB_20Hz_client.activate (THR_BOUND, 1, 0, priority++) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - ACE_DEBUG ((LM_DEBUG, "Creating 10 Hz client with priority %d\n", priority)); - if (CB_10Hz_client.activate (THR_BOUND, 1, 0, priority++) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - ACE_DEBUG ((LM_DEBUG, "Creating 5 Hz client with priority %d\n", priority)); - if (CB_5Hz_client.activate (THR_BOUND, 1, 0, priority++) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - ACE_DEBUG ((LM_DEBUG, "Creating 1 Hz client with priority %d\n", priority)); - if (CB_1Hz_client.activate (THR_BOUND, 1, 0, priority++) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - // Wait for all the threads to exit. - ACE_Thread_Manager::instance ()->wait (); - - ACE_OS::printf ("Test done.\n" - "40Hz client latency : %d usec\n" - "20Hz client latency : %d usec\n" - "10Hz client latency : %d usec\n" - "5Hz client latency : %d usec\n" - "1Hz client latency : %d usec\n", - CB_40Hz_client.get_latency (0), - CB_20Hz_client.get_latency (1), - CB_10Hz_client.get_latency (2), - CB_5Hz_client.get_latency (3), - CB_1Hz_client.get_latency (4)); - return 0; -} - -// This is the main routine of the client, where we create a high -// priority and a low priority client. we then activate the clients -// with the appropriate priority threads, and wait for them to -// finish. After they aer done, we compute the latency and jitter -// metrics and print them. - -int -main (int argc, char *argv []) -{ -#if defined (FORCE_ARGS) - int argc = 7; - char *argv[] = {"main", - "-d", - "3", // Data Type - "-t", - "10", // Thread Count - "-h", - "mv2604d"}; // Host name -#endif /* defined (FORCE_ARGS) */ - - Task_State ts (argc, argv); - -#if defined (CHORUS) - // start the pccTimer for chorus classix - int pTime; - - // Initialize the PCC timer Chip - pccTimerInit(); - - if(pccTimer(PCC2_TIMER1_START,&pTime) !=K_OK) - { - printf("pccTimer has a pending bench mark\n"); - } -#endif - - if (ts.thread_per_rate_ == 0) - do_priority_inversion_test (ts); - else - do_thread_per_rate_test (ts); - -#if defined (CHORUS) - // stop the pccTimer for chorus ClassiX - if(pccTimer(PCC2_TIMER1_STOP,&pTime) !=K_OK) - { - printf("pccTimer has a pending benchmark\n"); - } -#endif - - return 0; -} diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.h b/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.h deleted file mode 100644 index 734b559dafe..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/client.h +++ /dev/null @@ -1,41 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests -// -// = FILENAME -// client.h -// -// = AUTHOR -// Andy Gokhale, Brian Mendel, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include <corba/cool.H> -#include "cubit.H" - -#include "ace/Task.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Thread_Manager.h" -#include "ace/Get_Opt.h" -#include "ace/Sched_Params.h" - -#include "Task_Client.h" -#include "Util_Thread.h" - -#if defined (CHORUS) -#include "pccTimer.h" -#endif /* CHORUS */ - -#if defined (VME_DRIVER) -#include <hostLib.h> -extern "C" STATUS vmeDrv (void); -extern "C" STATUS vmeDevCreate (char *); -#endif /* defined (VME_DRIVER) */ - diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit.idl b/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit.idl deleted file mode 100644 index d4f1610e2a8..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.cpp deleted file mode 100644 index baf630d7dc5..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.cpp +++ /dev/null @@ -1,69 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" -#include "ace/ACE.h" - -ACE_RCSID(MT_Cubit, cubit_impl, "$Id$") - -Cubit_Impl::Cubit_Impl (Task_State *ts) - :ts_ (ts), - util_started_ (0) -{ -} - -CORBA::Octet Cubit_Impl:: cube_octet (CORBA::Octet o, CORBA::Environment &IT_env) -{ - // ACE_DEBUG ((LM_DEBUG, "octet cubed is %d\n", o*o*o)); - if (ts_->run_server_utilization_test_ == 1 && - ts_->utilization_task_started_ == 0 && - this->util_started_ == 0 ) - { - this->util_started_ = 1; - ts_->barrier_->wait (); - } - - ts_->loop_count_++; - - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short Cubit_Impl:: cube_short (CORBA::Short s, CORBA::Environment &IT_env) { - return (CORBA::Short) (s * s * s); -} - -CORBA::Long Cubit_Impl:: cube_long (CORBA::Long l, CORBA::Environment &IT_env) { - return (CORBA::Long) (l * l * l); -} - -Cubit::Many Cubit_Impl:: cube_struct (const Cubit::Many& values, CORBA::Environment &IT_env) { - 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) { - 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) { -} diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.h b/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.h deleted file mode 100644 index 77eecdbbd10..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/cubit_i.h +++ /dev/null @@ -1,27 +0,0 @@ -// $Id$ - -#ifndef cubit_ih -#define cubit_ih - -#include <corba/cool.H> -#include "cubit.H" -#include "Task_Client.h" - -class Cubit_Impl { -public: - Cubit_Impl (Task_State *ts); - virtual CORBA_Octet cube_octet (CORBA_Octet o, CORBA_Environment &IT_env=_environment); - virtual CORBA_Short cube_short (CORBA_Short s, CORBA_Environment &IT_env=_environment); - virtual CORBA_Long cube_long (CORBA_Long l, CORBA_Environment &IT_env=_environment); - virtual Cubit::Many cube_struct (const Cubit::Many& values, CORBA_Environment &IT_env=_environment); - virtual Cubit::oneof cube_union (const Cubit::oneof& values, CORBA_Environment &IT_env=_environment); - virtual void please_exit (CORBA_Environment &IT_env=_environment); - -private: - Task_State *ts_; - //pointer to the task state - int util_started_; - // flag to indicate utilization test has started -}; - -#endif diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.cpp deleted file mode 100644 index a8846b631f9..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.cpp +++ /dev/null @@ -1,281 +0,0 @@ -// $Id$ - -/* - **************************************************************** - * - * Component = pccTimer.C - mvme167 - * - * Synopsis = - * - * Copyright (c) 1995, 1996, 1997 Chorus systemes - * (R) Chorus is a registered trademark of Chorus systemes - * - **************************************************************** - * - * - **************************************************************** - */ - -/* Everything is relative from -/vobs/chorus_work/merge1/mvme177/appl/include/chorus -*/ - -#include <stdio.h> -#include <chorus.h> -#include <exec/chContext.h> -//#include <exec/c_cpuContext.H> -#include <util/chKnTimeVal.h> -//#include <util/macro.h> -#include <tick/chTick.h> -//#include <kbim/p_chIntr.h> -//#include <stdconsio.h> -#include <bsp/pccchip2.h> -#include <bsp/nvram.h> -#include <bsp/board.h> -#include <exec/chPanic.h> -#include <bsp/intrLevel.h> -#include <timer/chProf.h> -#include <exec/f_chTrap.h> -#include <ims/ims_f.h> -//#include <sched/schedIntf.H> -//#include <p_boardInfo.H> -#include "pccTimer.h" - -ACE_RCSID(MT_Cubit, pccTimer, "$Id$") - - -static unsigned int quartz; -static unsigned int timer_reload_value; -int timerHz = 100; - -volatile struct -pccchip2 *pccchip2 = (volatile struct pccchip2 *) PCCchip2_BASE; - -volatile struct -nvram* nvram = ((volatile struct nvram*)NVRAM_BASE); - - -int -pccTimer(int option, int* uTime) -{ - KnTimeVal time; - - int res = K_EOK; - //option &= ~PCC_USERDATA; - static int benchEnable1 = 0; - static int benchEnable2 = 0; - static unsigned int benchLastTime = 0; - - switch(option) - { - - case PCC2_TIMER1_START: - if (benchEnable1) return K_EINVAL; - benchEnable1 = 1; - pccTimer1Start(); - benchLastTime = pccTimer1Reset(); - break; - - case PCC2_TIMER1_STOP: - benchLastTime = pccTime1Get(); - if (!benchEnable1) return K_EINVAL; - benchEnable1 = 0; - pccTimer1Stop(); - break; - - case PCC2_TIMER1_BPOINT: - benchLastTime = pccTime1Get(); - if (!benchEnable1) return K_EINVAL; - break; - - case PCC2_TIMER2_START: - if (benchEnable2) return K_EINVAL; - benchEnable2 = 1; - pccTimer2Start(); - benchLastTime = pccTimer2Reset(); - break; - - case PCC2_TIMER2_STOP: - benchLastTime = pccTime2Get(); - if (!benchEnable2) return K_EINVAL; - benchEnable2 = 0; - pccTimer2Stop(); - break; - - case PCC2_TIMER2_BPOINT: - benchLastTime = pccTime2Get(); - if (!benchEnable2) return K_EINVAL; - break; - - default: - return K_EINVAL; - } - - // Here only is last time must be returned - if (uTime) - { - *uTime = benchLastTime; - } - - return res; -} - - - // - // Return the value of the timer counter, in microseconds. - // - unsigned int -pccTime1Get() -{ - return pccchip2->timer1cnt; -} - - unsigned int -pccTimer1Reset() -{ - pccchip2->timer1cnt = 0; - return pccchip2->timer1cnt; -} - - void -pccTimer1Start() -{ - unsigned int temp; - - // Clear the counter - pccchip2->timer1cnt = 0; - // Start the counter running - // Do not reset the counter when it matches the compare register (~PCC2_COC) - // Clear the overflow counter - temp = pccchip2->timer1ctl; - pccchip2->timer1ctl = temp | PCC2_COVF | ~PCC2_COC | PCC2_CEN; - -} - - void -pccTimer1Stop() -{ - unsigned int temp; - - // Stop the counter running - temp = pccchip2->timer1ctl; - pccchip2->timer1ctl = temp | ~PCC2_CEN; - -} - - - // - // Return the value of the timer counter, in microseconds. - // - unsigned int -pccTime2Get() -{ - return pccchip2->timer2cnt; -} - - unsigned int -pccTimer2Reset() -{ - pccchip2->timer2cnt = 0; - return pccchip2->timer2cnt; -} - - void -pccTimer2Start() -{ - unsigned int temp; - - // Clear the counter - pccchip2->timer2cnt = 0; - // Start the counter running - // Do not reset the counter when it matches the compare register (~PCC2_COC) - // Clear the overflow counter - temp = pccchip2->timer2ctl; - pccchip2->timer2ctl = temp | PCC2_COVF | ~PCC2_COC | PCC2_CEN; - -} - - void -pccTimer2Stop() -{ - unsigned int temp; - - // Stop the counter running - temp = pccchip2->timer2ctl; - pccchip2->timer2ctl = temp | ~PCC2_CEN; - -} - - // - // Init the PCC2 timer - // - void -pccTimerInit() -{ - volatile unsigned int temp; - char c; - - /* compute board quartz frequency from nvram information */ - c = nvram->config_rom.speed[0]; - quartz = ((unsigned int) c - (unsigned int) '0') * 10; - c = nvram->config_rom.speed[1]; - quartz += ((unsigned int) c - (unsigned int) '0'); - - /* Step 1. Initialize prescaler control register */ - /* On a mvme177, the VME2Chip runs at half the MPU speed */ - temp = pccchip2->prescaleadjust & 0xFFFFFF00; - - switch(quartz) { - case 60 : pccchip2->prescaleadjust = temp | 0x000000E2; /* 256-30 */ - // ASSERT(((BoardInfo*)chorusContext->ctxBoardInfo)->boardId - // == BOARD_MVME177); - break; - default : { - char tab [80]; - printf(tab,"%s : %d", "Unknown clock frequency", quartz); - svSysPanic(KP_DEBUG, 0, 0, tab, __FILE__, __LINE__); - } - } - - timer_reload_value = 1000000 / timerHz; - - - /* Step 2. Set pcc timer 1 and timer 2 compare register */ -// pccchip2->timer1cmp = timer_reload_value; - pccchip2->timer1cmp = ~0; - pccchip2->timer2cmp = ~0; - - - /* Step 3. Clear timer 1 and timer 2 counter register */ - pccchip2->timer1cnt = 0; - pccchip2->timer2cnt = 0; - - - /* Step 4. Enable pcc timer 1 and timer 2*/ - temp = pccchip2->timer1ctl; - pccchip2->timer1ctl = temp | PCC2_COVF | PCC2_COC | PCC2_CEN; - - temp = pccchip2->timer2ctl; - pccchip2->timer2ctl = temp | PCC2_COVF | PCC2_COC | PCC2_CEN; - - - /* Step 5. VBR is already set */ -// No need to change the VBR if we are not Compare Feature of the PCC2 Timer - - /* Step 6. set the pcc timer 1 interrupt level */ -// temp = pccchip2->irqlvl1; -// temp = temp & 0xfffffff8; -// pccchip2->irqlvl1 = temp | TIMER_INT_LEVEL; - - - // KnIntrEntry clockConf; - - //clockConf.name = VME_CHIP2_TIMER1; - //clockConf.hdl = getHdlFromCf(); - //clockConf.on = clockStart_p; - //clockConf.off = clockStop_p; - //clockConf.down = clockDown_p; - //clockConf.ison = clockTest_p; - - //svIntrConnect (&clockConf); -} diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.h b/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.h deleted file mode 100644 index 2f4acc12fe2..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/pccTimer.h +++ /dev/null @@ -1,56 +0,0 @@ -// $Id$ -/* - **************************************************************** - * - * Component = PCC2 Timer Header File - * - * Synopsis = - * - * - **************************************************************** - * - * - **************************************************************** - */ - - - -#ifndef _PCCTIMER_H -#define _PCCTIMER_H - -int -pccTimer(int option, int* uTime); -unsigned int -pccTime1Get(); -unsigned int -pccTimer1Reset(); -void -pccTimer1Start(); -void -pccTimer1Stop(); -unsigned int -pccTime2Get(); -unsigned int -pccTimer2Reset(); -void -pccTimer2Start(); -void -pccTimer2Stop(); -void -pccTimerInit(); - - -#define PCC2_TIMER1_START 0x0 -#define PCC2_TIMER1_STOP 0x1 -#define PCC2_TIMER1_BPOINT 0x2 -#define PCC2_TIMER2_START 0x10 -#define PCC2_TIMER2_STOP 0x20 -#define PCC2_TIMER2_BPOINT 0x40 -#define PCC2_USERDATA 0x100 - -#include <c_defs.h> -#include <mem/chAddr_f.h> - -//extern_C int sysBench __((int, int*)); - -#endif /* _PCCTIMER_H */ diff --git a/TAO/performance-tests/Cubit/COOL/MT_Cubit/server.cpp b/TAO/performance-tests/Cubit/COOL/MT_Cubit/server.cpp deleted file mode 100644 index e19d39e7bad..00000000000 --- a/TAO/performance-tests/Cubit/COOL/MT_Cubit/server.cpp +++ /dev/null @@ -1,160 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests -// -// = FILENAME -// server.cpp -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include <api/binding.H> -#include <api/api.H> -#include <api/coolThreadPool.H> -#include <corba/eoa.H> -#include <corba/eorb.H> - -#include "cubit.H" -#include "cubit_impl.h" // server header file -#include "sk_cubit.H" -#include "sk_cubit.C" -#include "ace/OS.h" - -ACE_RCSID(MT_Cubit, server, "$Id$") - -CORBA_BOA_ptr boa; - -int -create_servant (void *arg) -{ - char ** argv = (char **) arg; - - CORBA_Environment env; - Cubit_ptr cubit; - Cubit_Impl cubit_impl; - - COOL_ThreadPool* MyPool_1; - u_int concurrencyModel = 0; - - if (strcmp (argv[1], "tpool") == 0) - { - // - // Defines a policy for using a pool of 20 threads. - // - concurrencyModel = THREAD_POOL; - ACE_DEBUG ((LM_DEBUG, "Using Thread Pool concurrency model\n")); - } - else if (strcmp (argv[1], "tpr") == 0) - { - // Defines policy to create a thread for each incoming - // request. - concurrencyModel = THREAD_PER_REQUEST; - ACE_DEBUG ((LM_DEBUG, "Using Thread Per Request concurrency model\n")); - } - else - { - ACE_ERROR ((LM_ERROR, "Concurrency model determination failed.\n")); - return -1; - } - - COOL_ThreadPoolControl poolCtl_1 (concurrencyModel, 1, 20, -1); - COOL_QueueControl qCtl; - - // Defines thread attributes for threads belonging to pools. - COOL_ThreadAttributes poolAttr; - struct sched_param sp; - poolAttr.init(); - poolAttr.stack_size(8192*2); - sp.sched_priority = 43; - poolAttr.sched_attr(&sp); - // - // Allocate and initialize first pool - // - MyPool_1 = new COOL_ThreadPool; - MyPool_1->init_pool(poolCtl_1, poolAttr, qCtl); - - COOL::EOABindingData bindingData (argv[2]); - bindingData.threadpool(MyPool_1); - - COOL_bind (cubit_impl, cubit, bindingData, env); - - if (env.exception ()) - { - ACE_DEBUG ((LM_ERROR, "Bind failed.\n")); - return -1; - } - - if (env.exception ()) { - ACE_DEBUG ((LM_ERROR, "Object Reference Export Failed.\n")); - return -1; - } - - ACE_DEBUG ((LM_DEBUG, "Entering boa->run ().\n")); - boa->run (); - return 0; -} - - -int -main (int argc, char** argv) -{ - CORBA_Environment env; - int i = 0; - - COOL::EOA::bind(argv[2], env); - if (env.exception()) { - ACE_DEBUG ((LM_ERROR, "Impossible to bind the ORB to the description: %s\n", argv[2])); - return -1; - } - - CORBA_ORB_ptr orb = CORBA_ORB_init (argc, argv, 0, env); - if (env.exception ()) { - ACE_DEBUG ((LM_ERROR, "ORB_init failed..\n")); - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - if (ex) { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s.\n", (const char*) msg); - } else { - fprintf(stderr, "Unknown user exception.\n"); - } - return -1; - } - - boa = orb->OA_init (argc, argv, 0, env); - if (env.exception ()) - { - ACE_DEBUG ((LM_ERROR, "OA_init failed..\n")); - return -1; - } - - COOL_Activity_ptr new_activity [2]; - - for (i = 0; i < 1; i++) - { - if (thisCapsule->createActivity ((COOL_ActivityFunc) create_servant, - (void *) argv, - new_activity [i]) != C_OK) - { - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed\n")); - } - } - - CORBA_Long status; - for (i = 0; i < 1; i++) - { - if (new_activity [i]->join (status) != C_OK) - { - ACE_ERROR ((LM_ERROR, "%p\n", "join failed\n")); - } - } - - ACE_DEBUG ((LM_DEBUG, "Cubit server is exiting\n")); - return 0; -} diff --git a/TAO/performance-tests/Cubit/COOL/Makefile b/TAO/performance-tests/Cubit/COOL/Makefile deleted file mode 100644 index b0a5e0a8a8f..00000000000 --- a/TAO/performance-tests/Cubit/COOL/Makefile +++ /dev/null @@ -1,22 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the COOL tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -DIRS = MT_Cubit - -#---------------------------------------------------------------------------- -# 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/performance-tests/Cubit/CORBAplus/IDL_Cubit/Makefile b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/Makefile deleted file mode 100644 index c4016edd1a0..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/Makefile +++ /dev/null @@ -1,84 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -LDLIBS = -lcorba -lunixsvc -lpbroker -lboadc -lnaming -llifecycl -lfsstream - -IDL_SRC = cubit.cpp cubit_s.cpp -PROG_SRCS = $(IDL_SRC) svr.cpp clnt.cpp - -LSRC = $(PROG_SRCS) - -CUBIT_SVR_OBJS = cubit.o cubit_s.o svr.o cubit_i.o -CUBIT_CLT_OBJS = cubit.o clnt.o - -BIN = svr clnt - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -exceptions = 1 - -#include $(PBHOME)/make/make.cfg - -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 - -#$(VDIR)%.o: %.C -#VOBJS = $(LSRC:%.C=$(VDIR)%.o) - -LDFLAGS += -L$(PBHOME)/lib -CPPFLAGS += -I$(PBHOME)/include - -$(IDL_SRC): cubit.idl - $(PBHOME)/bin/idlc cubit.idl - -mv cubit.C cubit.cpp - -mv cubit_s.C cubit_s.cpp - -svr: $(addprefix $(VDIR),$(CUBIT_SVR_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) $(POSTLINK) - -clnt: $(addprefix $(VDIR),$(CUBIT_CLT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) $(POSTLINK) - -######## -# 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 '' - -realclean: - -$(RM) *.o cubit.cpp cubit.h cubit_s.cpp cubit_s.h $(CUBIT_SVR_OBJS) $(CUBIT_CLT_OBJS) $(BIN) core - diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/README b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/README deleted file mode 100644 index 7e3219a7d4c..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/README +++ /dev/null @@ -1,54 +0,0 @@ -This is the cubit example that uses the CORBAplus IDL compiler to generate -the stubs and skeletons. Additional features include presence of a -factory to create Cubit objects. - -You can either run the server in the background in the same window as -the client or open a separate window for the client and server. - -server: -------- - -% svr [-d] [-n <number-of-cubit-objects>] [-pbtrace] - -The server cubit factory maintained num_of_cubit objects (default = -1). They are assigned keys that look like "key0", "key1", ... - -When the server is started and you have used the -d flag, you should -see a line of output that looks something like: -XpsIiopServerProfileFactory::XpsIiopServerProfileFactory() : new tcp server listening at port 45372 - -Using -d turns on debugging messages. It is additive, i.e., the more --d options provided, the more debugging you can get. At the moment, -only 2 levels of debugging are implemented, and more than 2 -d options -are ignored. - -NOTE: - -0. $PBHOME is the directory where CORBAplus is installed. - -1. Set the appropriate environment variables for CORBAplus to work. Look at the example script at -$PBHOME/.cshrc_pb You can append this script to your .cshrc.mine file assuming you run a csh shell. -You can also execute it, like: - - source $PBHOME/.cshrc_pb - -2. Make sure the CORBAplus BOA server is running, before trying to run the server example. - - To run the BOA server execute: - - $PBHOME/bin/pbboad -pbtrace - -client: -------- - -% clnt [-d] [-k <cubit key>] [-n <iterations>] -pbinit Cubit_Factory iiop://<host>:<port>/cubit_factory - - where - <host> is the machine where the server is running. - <port> is the port number that was displayed when the server was run. See example output above. - -<cubit_key> corresponds to "key0", "key1", ... - -<iterations> are the number of times you want to execute a call. - --d : see same option for server above.
\ No newline at end of file diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.cpp b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.cpp deleted file mode 100644 index a6f07896f86..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.cpp +++ /dev/null @@ -1,727 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Cubit/CORBAplus/IDL_Cubit -// -// = FILENAME -// clnt.cpp -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA client for the Cubit -// example using stubs generated by the CORBAplus ORB IDL compiler. -// -// = AUTHORS -// Andy Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "pbroker/pberr.h" -//#include <pbroker/corba/ifr/ifrc.h> -#include "ace/Profile_Timer.h" -#include "clnt.h" - -ACE_RCSID(IDL_Cubit, clnt, "$Id$") - -int _debug_level = 1; - -// Constructor. - -Cubit_Client::Cubit_Client (void) - : cubit_factory_key_ ("cubit_factory"), - cubit_key_ ("key0"), - hostname_ (ACE_DEFAULT_SERVER_HOST), - portnum_ (ACE_DEFAULT_SERVER_PORT), - loop_count_ (250), - exit_later_ (0), - factory_ (Cubit_Factory::_nil ()), - objref_ (CORBA::Object::_nil ()), - cubit_ (Cubit::_nil ()), - orb_ptr_ (0), - call_count_ (0), - error_count_ (0) -{ -} - -// Simple function that returns the substraction of 117 from the -// parameter. - -int -Cubit_Client::func (u_int i) -{ - return i - 117; -} - -// Parses the command line arguments and returns an error status. - -int -Cubit_Client::parse_args (void) -{ - ACE_Get_Opt get_opts (argc_, argv_, "dn:k:xp:"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'd': // debug flag - _debug_level++; - break; - case 'n': // loop count - loop_count_ = (u_int) ACE_OS::atoi (get_opts.optarg); - break; - case 'h': - hostname_ = ACE_OS::strdup (get_opts.optarg); - break; - case 'p': - portnum_ = ACE_OS::atoi (get_opts.optarg); - break; - case 'k': // stringified objref - cubit_key_ = ACE_OS::strdup (get_opts.optarg); - break; - case 'x': - this->exit_later_++; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-d]" - " [-n loopcount]" - " [-k cubit-obj-ref-key]" - " [-x]" - " [-pbtrace]" - " -pbinit Cubit_Factory <Object_Reference>" - "\n", - this->argv_ [0]), - -1); - } - - // Indicates successful parsing of command line. - return 0; -} - -// Exercise the union. Cube a union. - -void -Cubit_Client::cube_union_stub (void) -{ - CORBA::Environment env; - Cubit::oneof u, r; - - this->call_count_++; - - u.l (3); // use the long union branch - - // Cube a "union" ... - // @@ Put exception handling here !!! - r = this->cubit_->cube_union (u); - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_union"); - this->error_count_++; - } - else - { - dmsg1 ((LM_DEBUG, "cube union ...\n")); - u.l (u.l () * u.l () * u.l ()) ; - - if (u.l () != r.l ()) - { - ACE_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); - this->error_count_++; - } - - } - - this->call_count_++; - - u._d (Cubit::e_3rd); -#if 0 - u.cm ().l = this->func (i); - u.cm ().s = this->func (i); - u.cm ().o = this->func (i); -#endif - - u.cm ().l = 7; - u.cm ().s = 5; - u.cm ().o = 3; - - // Cube another "union" which uses the default arm ... NOT tested yet - r = this->cubit_->cube_union (u); -//, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_union"); - this->error_count_++; - } - else - { - dmsg1 ((LM_DEBUG, "cube union ...\n")); - 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_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); - this->error_count_++; - } - } -} - -// Exercise the union using dii. - -void -Cubit_Client::cube_union_dii (void) -{ - // Create the request ... - CORBA::Request_ptr req; - - this->call_count_++; - - req = this->cubit_->_request ((CORBA::String) "cube_union"); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - this->error_count_++; - - // this->env_.print_exception ("cube_union_dii request create"); - return; - } - - // ... initialise the argument list and result ... - Cubit::oneof *u, r; - - u = new Cubit::oneof; - u->_d (Cubit::e_3rd); - - u->cm ().l = 5; - u->cm ().s = -7; - u->cm ().o = 3; - - CORBA::Any tmp_arg (Cubit::_tc_oneof, u, CORBA_FALSE); - - req->arguments ()->add_value ("values", tmp_arg, CORBA::ARG_IN); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - this->error_count_++; - // this->env_.print_exception ("cube_union_dii request arg add"); - CORBA::release (req); - return; - } - - req->result ()->value ()->replace (Cubit::_tc_oneof, 0, CORBA_TRUE); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - this->error_count_++; - // this->env_.print_exception ("cube_union_dii result type"); - CORBA::release (req); - return; - } - - // Make the invocation, verify the result. - - req->invoke (); - - if (req->env ()->exception () != 0) - { - this->error_count_++; - // req->env ()->print_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) - { - this->error_count_++; - ACE_ERROR ((LM_ERROR, "cube_union_dii -- bad results\n")); - } - else - dmsg1 ((LM_DEBUG, "cube_union_dii ... success!!\n")); - - CORBA::release (req); - delete u; -} - -// Cube a short. - -void -Cubit_Client::cube_short (int i) -{ - CORBA::Short arg_short = this->func (i); - // Cube a short. - CORBA::Short ret_short = cubit_->cube_short (arg_short); - //, this->env_); @@ put exception handling here !! - - this->call_count_++; - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_short"); - this->error_count_++; - } - else - { - dmsg2 ((LM_DEBUG, "cube short: %d --> %d\n", - arg_short, - ret_short)); - - arg_short = arg_short * arg_short * arg_short; - - if (arg_short != ret_short) - { - ACE_ERROR ((LM_ERROR, "** cube_short (%d) ERROR (--> %d)\n", - (CORBA::Short) this->func (i), - ret_short)); - this->error_count_++; - } - } -} - -// Cube an octet - -void -Cubit_Client::cube_octet (int i) -{ - CORBA::Octet arg_octet = this->func (i); - - // Cube an octet. - CORBA::Octet ret_octet = this->cubit_->cube_octet (arg_octet); - //, this->env_); @@ put exception handling here !! - - this->call_count_++; - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_octet"); - this->error_count_++; - } - else - { - dmsg2 ((LM_DEBUG, "cube octet: %d --> %d\n", - arg_octet, - ret_octet)); - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_DEBUG ((LM_DEBUG, - "** cube_octet (%d) ERROR (--> %d)\n", - (CORBA::Octet) this->func (i), - ret_octet)); - this->error_count_++; - } - } -} - -// calculate the cube from a long - -void -Cubit_Client::cube_long (int i) -{ - CORBA::Long arg_long = this->func (i); - - // Cube a long. - CORBA::Long ret_long = this->cubit_->cube_long (arg_long); - //, this->env_);; @@ put exception handling here !! - - this->call_count_++; - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_long"); - this->error_count_++; - } - else - { - dmsg2 ((LM_DEBUG, "cube long: %d --> %d\n", - arg_long, - ret_long)); - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) { - ACE_ERROR ((LM_ERROR, - "** cube_long (%ld) ERROR (--> %ld)\n", - (CORBA::Long) this->func (i), - ret_long)); - this->error_count_++; - } - } -} - -// Cube the numbers in a struct - -void -Cubit_Client::cube_struct (int i) -{ - Cubit::Many arg_struct; - Cubit::Many ret_struct; - - this->call_count_++; - - arg_struct.l = this->func (i); - arg_struct.s = this->func (i); - arg_struct.o = this->func (i); - - // Cube a "struct" ... - ret_struct = this->cubit_->cube_struct (arg_struct); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("from cube_struct"); - this->error_count_++; - } - else - { - dmsg1 ((LM_DEBUG, "cube struct ...\n")); - 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_ERROR ((LM_ERROR, "** cube_struct ERROR\n")); - this->error_count_++; - } - } -} - -// Cube the numbers in a struct - -void -Cubit_Client::cube_struct_dii (void) -{ - // Create the request ... - CORBA::Request_ptr req = - this->cubit_->_request ((CORBA::String) "cube_struct"); - //, this->env_); @@ put exception handling here !! - - this->call_count_++; - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("DII request create"); - return; - } - - // ... initialise the argument list and result ... - Cubit::Many arg; - Cubit::Many result; - - arg.o = 3; - arg.l = 5; - arg.s = -7; - - CORBA::Any tmp_arg (Cubit::_tc_Many, &arg, CORBA_FALSE); - - req->arguments ()->add_value ("values", tmp_arg, CORBA::ARG_IN); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("DII request arg add"); - CORBA::release (req); - return; - } - - req->result ()->value ()->replace (Cubit::_tc_Many, 0, CORBA_TRUE); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("DII request result type"); - CORBA::release (req); - return; - } - - // Make the invocation, verify the result - - req->invoke (); - - if (req->env ()->exception () != 0) - { - // req->env ()->print_exception ("DII invoke sending struct"); - CORBA::release (req); - return; - } - - result = *(Cubit::Many *) req->result ()->value ()->value (); - - if (result.o != 27 || result.l != 125 || result.s != -343) - ACE_ERROR ((LM_ERROR, "DII cube_struct -- bad results\n")); - else - dmsg1 ((LM_DEBUG, "DII cube_struct ... success!!\n")); - - CORBA::release (req); -} - -void -Cubit_Client::print_stats (const char *call_name, ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time) -{ - double tmp; - - ACE_DEBUG ((LM_DEBUG, - "%s:\n", - call_name)); - - if (this->call_count_ > 0 && this->error_count_ == 0) - { - tmp = 1000 / elapsed_time.real_time; - - elapsed_time.real_time *= ACE_ONE_SECOND_IN_MSECS; - elapsed_time.user_time *= ACE_ONE_SECOND_IN_MSECS; - elapsed_time.system_time *= ACE_ONE_SECOND_IN_MSECS; - - elapsed_time.real_time /= this->call_count_; - elapsed_time.user_time /= this->call_count_; - elapsed_time.system_time /= this->call_count_; - - tmp = 1000 / elapsed_time.real_time; - - ACE_DEBUG ((LM_DEBUG, - "\treal_time\t= %0.06f ms, \n\t" - "user_time\t= %0.06f ms, \n\t" - "system_time\t= %0.06f ms\n" - "\t%0.00f calls/second\n", - elapsed_time.real_time < 0.0? 0.0:elapsed_time.real_time, - elapsed_time.user_time < 0.0? 0.0:elapsed_time.user_time, - elapsed_time.system_time < 0.0? 0.0:elapsed_time.system_time, - tmp < 0.0? 0.0 : tmp)); - } - else - { - ACE_ERROR ((LM_ERROR, "\tNo time stats printed. Call count zero or error ocurred.\n")); - } - - ACE_DEBUG ((LM_DEBUG, - "\t%d calls, %d errors\n", - this->call_count_, - this->error_count_)); -} - -// Execute client example code. - -int -Cubit_Client::run (void) -{ - u_int i; - - ACE_Profile_Timer timer; - ACE_Profile_Timer::ACE_Elapsed_Time elapsed_time; - - // ACE_Time_Value before; - - // We start an ACE_Profile_Timer here... - timer.start (); - - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_short (i); - this->cube_octet (i); - this->cube_long (i); - this->cube_struct (i); - } - - // stop the timer. - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube average call", elapsed_time); - - -#if 0 // cube_struct_dii() is not enabled for now in this test - - // 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). - - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_struct_dii (); - } - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_struct_dii call", elapsed_time); - -#endif /* DII test not enabled for now */ - - // ------------------> - // Two more tests, using the "cube_union" function - - // unions using stubs - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_union_stub (); - } - - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_union_stub call", elapsed_time); - -#if 0 // cube_union_dii() is not enabled for now in this test - // union DII - timer.start (); - - this->call_count_ = 0; - this->error_count_ = 0; - // Make the calls in a loop. - for (i = 0; i < this->loop_count_; i++) - { - this->cube_union_dii (); - } - - timer.stop (); - - timer.elapsed_time (elapsed_time); - // compute call average call time. - this->print_stats ("cube_union_dii call", elapsed_time); -#endif /* cube_union_dii test not enabled for now */ - - if (this->exit_later_) - { - this->cubit_->please_exit (); - //this->env_); @@ put exception handling here !! - //dexc (this->env_, "server, please ACE_OS::exit"); - } - - return this->error_count_ == 0 ? 0 : 1; -} - -Cubit_Client::~Cubit_Client (void) -{ - // Free resources - CORBA::release (this->orb_ptr_); - CORBA::release (this->objref_); - CORBA::release (this->factory_); - CORBA::release (this->cubit_); -} - -int -Cubit_Client::init (int argc, char **argv) -{ - this->argc_ = argc; - this->argv_ = argv; - - int check = 0; - - try { - // Parse command line and verify parameters. - if (this->parse_args () == -1) - return -1; - - // Retrieve the ORB. - this->orb_ptr_ = CORBA::ORB_init (this->argc_, - this->argv_); - - // @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("ORB initialization"); - return -1; - } - - // Retrieve a factory objref. - this->objref_ = this->orb_ptr_->resolve_initial_references ("Cubit_Factory"); - // @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("Cubit_Factory::_bind"); - return -1; - } - - if (CORBA::is_nil (this->objref_) == CORBA_TRUE) - ACE_ERROR_RETURN ((LM_ERROR, - "resolve_initial_references returned null object for Cubit_Factory\n"), - -1); - - // Narrow the CORBA::Object reference to the stub object - this->factory_ = Cubit_Factory::_narrow (this->objref_); - - //, this->env_); @@ put exception handling here !! - - CORBA::release (this->objref_); - - if (this->factory_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to narrow object reference to a Cubit_Factory_ptr.\n"), - -1); - - // Now retrieve the Cubit obj ref corresponding to the key. - this->cubit_ = this->factory_->make_cubit (this->cubit_key_); - //, this->env_); @@ put exception handling here !! - - if (this->env_.exception () != 0) - { - // this->env_.print_exception ("string2object"); - return -1; - } - - if (CORBA::is_nil (this->cubit_)) - ACE_ERROR_RETURN ((LM_ERROR, - "null cubit objref returned by factory\n"), - -1); - } - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): clnt.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: clnt.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: clnt.cpp\n\n")); - } - - return 0; -} - -// This function runs the test. - -int -main (int argc, char **argv) -{ - Cubit_Client cubit_client; - - if (cubit_client.init (argc, argv) == -1) - return 1; - else - return cubit_client.run (); -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.h b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.h deleted file mode 100644 index cf6e3187228..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/clnt.h +++ /dev/null @@ -1,140 +0,0 @@ -// $Id$ -// -*- C++ -*- -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Cubit/CORBAplus/IDL_Cubit -// -// = FILENAME -// clnt.h -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA client for the Cubit -// example using stubs generated by the TAO ORB IDL compiler. -// -// = AUTHORS -// Andy Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ -#ifndef _CLNT_H_ -#define _CLNT_H_ - -#include "ace/Get_Opt.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "pbroker/corba/orb.h" -#include "pbroker/corba/request.h" -#include "pbroker/corba/environ.h" -#include "cubit.h" - -class Cubit_Client - // = TITLE - // Defines a class that encapsulates behaviour of the Cubit client - // example. Provides a better understanding of the logic in an - // object oriented way. - // - // = DESCRIPTION - // This class declares an interface to run the example client for - // Cubit CORBA server. All the complexity for initializing the - // server is hidden in the class. Just the run() interface is needed. -{ - public: - // = Constructor and destructor. - Cubit_Client (void); - ~Cubit_Client (void); - - int run (void); - // Execute client example code. - - int init (int argc, char **argv); - // Initialize the client communication endpoint with server. - -private: - int func (u_int i); - // simple function that returns the substraction of 117 from the parameter. - - int parse_args (void); - // Parses the arguments passed on the command line. - - void print_stats (const char *call_name, ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time); - // prints the time stats - - void cube_union_stub (void); - // Exercise the union. Cube a union. - - void cube_union_dii (void); - // Exercise the union using dii. - - void cube_struct (int i); - // calculate the cube from a struct. - - void cube_long (int i); - // calculate the cube from a long - - void cube_octet (int i); - // Cube an octet - - void cube_short (int i); - // Cube a short. - - void cube_struct_dii (void); - // Cube the numbers in a struct - - int argc_; - // # of arguments on the command line. - - char **argv_; - // arguments from command line. - - const char *cubit_factory_key_; - // Key of factory obj ref. - - char *cubit_key_; - // Key of the obj ref to be retrieved via the factory. - - char *hostname_; - // Hostname of server. - - CORBA::ULong portnum_; - // default port number of server. - - u_int loop_count_; - // Number of times to do the cube operations. - - int exit_later_; - // Flag to tell server to not exit immediately - - Cubit_Factory_ptr factory_; - // factory pointer for cubit. - - CORBA::Object_ptr objref_; - // storage of the factory objref - - CORBA::Environment env_; - // Environment variable - - Cubit_ptr cubit_; - // Cubit obj ref - - CORBA::ORB_ptr orb_ptr_; - // Remember our orb - - u_int call_count_; - // # of calls made to functions - - u_int error_count_; - // # of errors incurred in the lifetime of the application. -}; - -#if defined (DEBUG) -#define dmsg1(X) { if (_debug_level > 0) ACE_DEBUG (X); } -#define dmsg2(X) { if (_debug_level > 1) ACE_DEBUG (X); } -#else -#define dmsg1(X) { } -#define dmsg2(X) { } -#endif /* DEBUG */ - -#endif /* _CLNT_H_ */ diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit.idl b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit.idl deleted file mode 100644 index 9ddc2d8954f..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit.idl +++ /dev/null @@ -1,71 +0,0 @@ -// $Id$ - -interface Cubit - // = TITLE - // Defines an interface that encapsulates operations that cube - // numbers. - // - // = DESCRIPTION - // This interface encapsulates operations that cube - // octets, shorts, longs, structs and unions. - -{ - octet cube_octet (in octet o); - // cube an octet - - short cube_short (in short s); - // cube a short - - long cube_long (in long l); - // cube a long - - struct Many - { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - // Cube a struct - - enum discrim - { - e_0th, - e_1st, - e_2nd, - e_3rd - }; - // Enumeration of the different elements in a union. - - 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: - Many cm; - - // default: - // Many cm; - }; - // Union of different types. - - oneof cube_union (in oneof values); - // cube a union. - - oneway void please_exit (); - // shutdown the application. -}; - -interface Cubit_Factory - // = TITLE - // Creates Cubit objects -{ - Cubit make_cubit (in string key); -}; diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.cpp b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.cpp deleted file mode 100644 index 2eb422b10f8..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.cpp +++ /dev/null @@ -1,174 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Cubit/CORBAplus/IDL_Cubit -// -// = FILENAME -// cubit_i.cpp -// -// = AUTHOR -// Sergio Flores-Gaitan -// -// ============================================================================ - -#include "pbroker/corba/orb.h" -#include "pbroker/corba/environ.h" -#include <pbroker/corba/xpsboa.h> -#include <pbroker/corba/lifecycl/impldecl.h> -#include "cubit_i.h" - -ACE_RCSID(IDL_Cubit, cubit_i, "$Id$") - -// Declare the Implementation -XPS_DECLARE_IMPLEMENTATION_ID(Cubit_Factory_iId,"Cubit_Factory_iId") -XPS_DECLARE_IMPLEMENTATION(Cubit_Factory_decl,Cubit_Factory_iId,Cubit_Factory) - -// Declare the associated activator, -XPS_DECLARE_DEFAULT_ACTIVATOR(Cubit_Factory_decl,Cubit_FactoryDefActivator,Cubit_Factory,Cubit_Factory_i) - -XPS_CAST1_IMPL(Cubit_Factory_i,Cubit_Factory_base_impl) - -// Constructor - -Cubit_Factory_i::Cubit_Factory_i (const char *key, int numobjs) - :numobjs_ (numobjs) -{ - // Create implementation object with user specified key. - this->my_cubit_ = new Cubit_i_ptr [this->numobjs_]; - - static char obj_str [MAXNAMELEN]; - - for (u_int i = 0; i < this->numobjs_; i++) - { - ACE_OS::memset (obj_str, '\0', MAXNAMELEN); - ACE_OS::sprintf (obj_str, "key%d", i); - - my_cubit_[i] = new Cubit_i (obj_str); - - if (my_cubit_[i] == 0) - ACE_ERROR ((LM_ERROR, - " (%P|%t) Unable to create implementation object%d\n", - i)); - } -} - -// Destructor - -Cubit_Factory_i::~Cubit_Factory_i (void) -{ - ACE_DEBUG ((LM_DEBUG, "~~~ in destructor ~Cubit_Factory_i()\n")); - delete [] this->my_cubit_; -} - -Cubit_ptr -Cubit_Factory_i::make_cubit (const char *key) -{ - CORBA_Environment env; - - for (size_t i = 0; i < this->numobjs_; i++) - { - const char *obj_str = this->my_cubit_[i]->_get_name (); - - // Keys matched. - if (!ACE_OS::strcmp (obj_str, key)) - return Cubit::_duplicate (this->my_cubit_ [i]); - } - - return Cubit::_nil (); -} - -// Constructor - -Cubit_i::Cubit_i (const char *obj_name) - : key_(obj_name) -{ -} - -const char * -Cubit_i::_get_name (void) -{ - return key_; -} - -// Destructor - -Cubit_i::~Cubit_i (void) -{ -} - -// Cube an octet - -CORBA::Octet -Cubit_i::cube_octet (CORBA::Octet o) -{ - return o * o * o; -} - -// Cube a short. - -CORBA::Short -Cubit_i::cube_short (CORBA::Short s) -{ - return s * s * s; -} - -// Cube a long - -CORBA::Long -Cubit_i::cube_long (CORBA::Long l) -{ - return l * l * l; -} - -// Cube a struct - -Cubit::Many -Cubit_i::cube_struct (const Cubit::Many &values) -{ - Cubit::Many temp; - - temp.o = values.o * values.o * values.o; - temp.s = values.s * values.s * values.s; - temp.l = values.l * values.l * values.l; - - return temp; -} - -// Cube a union - -Cubit::oneof -Cubit_i::cube_union (const Cubit::oneof &values) -{ - Cubit::oneof temp; - - switch (values._d ()) - { - case e_0th: - temp.o (values.o () * values.o () * values.o ()); - break; - case e_1st: - temp.s (values.s () * values.s () * values.s ()); - break; - case e_2nd: - temp.l (values.l () * values.l () * values.l ()); - break; - case e_3rd: - default: - temp._d (values._d ()); // set the discriminant - // use the read/write accessor - temp.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o; - temp.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s; - temp.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l; - - } - return temp; -} - -// Shutdown. - -void Cubit_i::please_exit (void) -{ - ACE_DEBUG ((LM_DEBUG, "I've been asked to shut down...\n")); -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.h b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.h deleted file mode 100644 index b1b21e9deeb..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/cubit_i.h +++ /dev/null @@ -1,112 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Cubit/CORBAplus/IDL_Cubit -// -// = FILENAME -// cubit_i.h -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#ifndef _CUBIT_I_HH -#define _CUBIT_I_HH - -#include <pbroker/corba/lifecycl/actvtr.h> -#include <pbroker/corba/lifecycl/impldecl.h> - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "cubit_s.h" - -// Forward declarations -class Cubit_i; - -// Typedefs. -typedef Cubit_i *Cubit_i_ptr; -typedef Cubit_i_ptr Cubit_i_ref; - -class Cubit_i : public Cubit_base_impl - // = TITLE - // Illustrates how to integrate a servant with the - // generated skeleton. - // = DESCRIPTION - // Implementation of the cubit example at the servant side. - // Cubes an octet, short, long, struct and union. -{ -public: - Cubit_i (const char *obj_name = 0); - // Constructor - - ~Cubit_i (void); - // Destructor - - virtual CORBA::Octet cube_octet (CORBA::Octet o); - // Cube an octet - - virtual CORBA::Short cube_short (CORBA::Short s); - // Cube a short - - virtual CORBA::Long cube_long (CORBA::Long l); - // Cube a long - - virtual Cubit::Many cube_struct (const Cubit::Many &values); - // Cube a struct. - - virtual Cubit::oneof cube_union (const Cubit::oneof &values); - // Cube a union. - - virtual void please_exit (void); - // Shutdown routine. - - const char *_get_name (void); - // get the key of the object. - private: - const char *key_; -}; - - -class Cubit_Factory_i; - -typedef Cubit_Factory_i *Cubit_Factory_i_ptr; - -class Cubit_Factory_i: public Cubit_Factory_base_impl - // =TITLE - // Cubit_Factory_i - // - // DESCRIPTION - // factory object returning the cubit objrefs -{ -public: - XPS_CAST1_DECL(Cubit_Factory_i,Cubit_Factory_base_impl) - XPS_DEFINE_IMPLEMENTATION(Cubit_Factory_decl) - - Cubit_Factory_i (void) - {Cubit_Factory_i ("keyone", 1);} - - Cubit_Factory_i (const CORBA_ReferenceData & refData) - {Cubit_Factory_i ("keyone", 1);} - - Cubit_Factory_i (const char *key, int numobjs); - // constructor - - ~Cubit_Factory_i (void); - // destructor - - virtual Cubit_ptr make_cubit (const char *key); - // make the cubit object whose key is "key" - -private: - Cubit_i_ptr *my_cubit_; - u_int numobjs_; -}; - -#endif /* _CUBIT_I_HH */ diff --git a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/svr.cpp b/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/svr.cpp deleted file mode 100644 index 5b66fc448ca..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/IDL_Cubit/svr.cpp +++ /dev/null @@ -1,143 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/Cubit/CORBAplus/IDL_Cubit -// -// = FILENAME -// svr.cpp -// -// = AUTHOR -// Andy Gokhale, Sumedh Mungee and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "ace/Get_Opt.h" -#include "ace/Log_Msg.h" -#include "pbroker/corba/orb.h" -#include "pbroker/corba/environ.h" -#include "pbroker/pberr.h" -#include <pbroker/corba/xpsorb.h> -#include <pbroker/corba/xpsboa.h> -#include "pbroker/corba/boad/boafull.h" // will force usage of "Full" BOA API - -#include <pbroker/unixsvc/unixsvc.h> - -#include "cubit_i.h" - -ACE_RCSID(IDL_Cubit, svr, "$Id$") - -// Global Variables -static int num_of_objs = 1; -static pbbool killSelf = pbfalse; - -// Declare the server activation policy -XPS_DECLARE_SERVER(Cubit_Factory,"Cubit_Factory",SHARED_SERVER) - -// Parses the command line arguments and returns an error status - -static int -parse_args (int argc, char *argv[]) -{ - ACE_Get_Opt get_opts (argc, argv, "dn:"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'd': // debug flag - break; - case 'n': // number of cubit objects we hold - num_of_objs = ACE_OS::atoi (get_opts.optarg); - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-d]" - " [-n] <num of cubit objects>" - "\n", argv [0]), 1); - } - - return 0; // Indicates successful parsing of command line -} - -// Standard command line parsing utilities used. - -int -main (int argc, char *argv[]) -{ - CORBA_Environment env; - // char *orb_name = "internet"; - - XpsORB_ptr orb_ptr = XpsORB::_nil(); - XpsBOA * oa_ptr = XpsBOA::_nil (); - CORBA_Object_ptr obj_ptr = CORBA_Object::_nil(); - - try - { - // Initialize the ORB pointer - orb_ptr = XpsORB::init (argc, argv); - - // Initialize the Object Adapter - oa_ptr = XpsBOA::init (argc, argv); - - if (CORBA::is_nil(orb_ptr) || CORBA::is_nil(oa_ptr)) - { - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to initialize the ORB and/or the BOA\n"), - 1); - } - - - // Parse remaining command line and verify parameters. - // parse_args (argc, argv); - - // create a factory implementation - Cubit_Factory_ptr factory; - - ACE_NEW_RETURN (factory, Cubit_Factory_i ("factory", num_of_objs), 1); - - // Stringify the objref we'll be implementing, and print it to - // stdout. Someone will take that string and give it to a - // client. Then release the object. - - CORBA::String str = 0; - - str = orb_ptr->object_to_url (factory); - - ACE_DEBUG ((LM_DEBUG, "listening as object '%s'\n", str)); - CORBA_string_free (str); - - oa_ptr->obj_is_ready (factory, nil); - oa_ptr->registerAlias (factory, "cubit_factory"); - - XpsEventService eventService; - eventService.mainloop(); // control will not return to this point - } - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): svr.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: svr.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: svr.cpp\n\n")); - } - - // Free resources - CORBA::release (oa_ptr); - CORBA::release (orb_ptr); - - return 0; -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/Makefile b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/Makefile deleted file mode 100644 index edc6dd9d8f9..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/Makefile +++ /dev/null @@ -1,23 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the TAO MT-Cubit tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -DIRS = client \ - server - -#---------------------------------------------------------------------------- -# 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/performance-tests/Cubit/CORBAplus/MT_Cubit/README b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/README deleted file mode 100644 index a27939bd690..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/README +++ /dev/null @@ -1,58 +0,0 @@ -The MT-Cubit example --------------------- - -Compiling ---------- - -Makefiles are provided. Use make to compile. - -You can either run the server in the background in the same window as -the client or open a separate window for the client and server. - -server: -------- - -./svr -pbtrace - -port_num is the port number at which the server will start the high -priority servant. The low priority servant will be created at -(port_num+1). - -The server will print the IOR of the high and low priority servants, -but it is not required by the client. - -client: -------- - -./client -d <datatype> -n <num_calls> -t <num_threads> -pbtrace -pbinit Cubit iiop://<remoteHost>:<port>/Cubit00 - -<datatype> is one of the following: - -0 Octet -1 Short -2 Long -3 Struct of the above 3 types - -<port_num> is the port number of the high priority servant. The low -priority servant is assumed to be at (port_num+1). - -<server_hostname> is the hostname of the server. - -Based on the server_hostname and the port_num, the client constructs -the IOR's for the high priority servant and the low priority servant. - -<num_calls> is the number of CORBA twoway calls to be made - -<num_threads> is the total number of concurrent clients to be -created. One of these clients will be a high priority client (and thus -send requests to the high priority servant), and the rest will have -low priority. - -The high priority client makes requests at 20Hz, and the low priority -clients make requests at 10Hz. - -Results -------- - -The client prints the latency observed by the high priority client, -and the average latency observed by the low priority client. diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Makefile b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Makefile deleted file mode 100644 index de794049ebc..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Makefile +++ /dev/null @@ -1,138 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Top-level Makefile for the ACE-ified Sun Ref. implementation -# of IIOP ORB -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -LDLIBS = -lmtcorba -lmtunixsvc -lmtpbroker -lmtboadc -lmtnaming -lmtlifecycl -lmtfsstream - -IDL_SRC = cubit.cpp -PROG_SRCS = $(IDL_SRC) Task_Client.cpp client.cpp - -LSRC = $(PROG_SRCS) - -CUBIT_CLIENT_OBJS = cubit.o Task_Client.o client.o - -BIN = client - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -#enable C++ exceptions -exceptions = 1 - -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 - -LDFLAGS += -L$(PBHOME)/lib -CPPFLAGS += -I$(PBHOME)/include - -$(IDL_SRC): cubit.idl - $(PBHOME)/bin/idlc cubit.idl - -mv cubit.C cubit.cpp - -client: $(addprefix $(VDIR),$(CUBIT_CLIENT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(PBHOME)/lib/mtiiop_s.o $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) cubit.cpp cubit.h cubit_s.* - -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit.o .shobj/cubit.: cubit.cpp -.obj/Task_Client.o .shobj/Task_Client.: Task_Client.cpp Task_Client.h \ - $(ACE_ROOT)/ace/Synch.h \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i \ - $(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/Event_Handler.h \ - $(ACE_ROOT)/ace/Event_Handler.i \ - $(ACE_ROOT)/ace/Synch_T.i \ - $(ACE_ROOT)/ace/Thread.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Atomic_Op.i \ - $(ACE_ROOT)/ace/Task.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.i \ - $(ACE_ROOT)/ace/Service_Object.i \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.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/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(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 \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/Get_Opt.i cubit.h \ - $(ACE_ROOT)/ace/Profile_Timer.h \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/High_Res_Timer.h \ - $(ACE_ROOT)/ace/High_Res_Timer.i \ - $(ACE_ROOT)/ace/Profile_Timer.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.cpp b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.cpp deleted file mode 100644 index 4f5e72b36ad..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.cpp +++ /dev/null @@ -1,359 +0,0 @@ -// $Id$ - -#include "pbroker/corba/xpsorb.h" -#include "pbroker/corba/xpsboa.h" -#include "pbroker/corba/boad/boafull.h" // will force usage of "Full" BOA API -#include "Task_Client.h" - -ACE_RCSID(client, Task_Client, "$Id$") - -Task_State::Task_State (int argc, char **argv) - : start_count_ (0), - loop_count_ (5), - thread_count_ (5), - base_port_ (5000), - datatype_ (CB_OCTET), - argc_ (argc), - argv_ (argv) -{ - ACE_OS::strcpy (server_host_, "localhost"); - ACE_Get_Opt opts (argc, argv, "h:n:t:p:d:"); - int c; - int datatype; - - while ((c = opts ()) != -1) - switch (c) { - case 'd': - datatype = ACE_OS::atoi (opts.optarg); - switch (datatype) - { - case CB_OCTET: - ACE_DEBUG ((LM_DEBUG, "Testing Octets\n")); - datatype_ = CB_OCTET; - break; - case CB_LONG: - ACE_DEBUG ((LM_DEBUG, "Testing Longs\n")); - datatype_ = CB_LONG; - break; - case CB_STRUCT: - ACE_DEBUG ((LM_DEBUG, "Testing Structs\n")); - datatype_ = CB_STRUCT; - break; - case CB_SHORT: - default: - datatype_ = CB_SHORT; - ACE_DEBUG ((LM_DEBUG, "Testing Shorts\n")); - break; - } - continue; - case 'h': - ACE_OS::strcpy (server_host_, opts.optarg); - continue; - case 'p': - base_port_ = ACE_OS::atoi (opts.optarg); - continue; - case 'n': // loop count - loop_count_ = (unsigned) ACE_OS::atoi (opts.optarg); - continue; - case 't': - thread_count_ = (unsigned) ACE_OS::atoi (opts.optarg); - continue; - case '?': - default: - ACE_OS::fprintf (stderr, "usage: %s" - "[-d datatype Octet=0, Short=1, Long=2, Struct=3]" - " [-n num_calls]" - " [-h server_hostname]" - " [-p server_port_num]" - " [-t num_threads]" - "\n", argv [0] - ); - } - barrier_ = new ACE_Barrier (thread_count_); - latency_ = new double [thread_count_]; -} - -Client::Client (Task_State *ts) - : ACE_Task<ACE_MT_SYNCH> (ACE_Thread_Manager::instance ()), - ts_ (ts) -{ -} - -void -Client::put_latency (double latency, u_int thread_id) { - ts_->lock_.acquire (); - ts_->latency_[thread_id] = latency; - ACE_DEBUG ((LM_DEBUG, "(%t) My latency was %f\n", latency)); - ts_->lock_.release (); -} - -double -Client::get_high_priority_latency () { - return (double) ts_->latency_ [0]; -} - -double -Client::get_low_priority_latency () { - double l = 0; - for (u_int i = 1; i < ts_->start_count_; i++) - l += (double) ts_->latency_[i]; - return l / (double) (ts_->start_count_ - 1); -} - -int -Client::svc (void) -{ - ACE_DEBUG ((LM_DEBUG, "(%t) Thread created\n")); - u_int thread_id; - Cubit_ptr cb; - char ior [1024]; - double frequency; - XpsORB_ptr orb_ptr = XpsORB::_nil(); - // XpsBOA * oa_ptr = XpsBOA::_nil (); - //CORBA_Object_ptr obj_ptr = CORBA_Object::_nil(); - // CORBA::ORB_ptr orb_ptr; - try { - { - ACE_GUARD_RETURN (ACE_Thread_Mutex, ace_mon, ts_->lock_, -1); - - thread_id = ts_->start_count_; - ts_->start_count_++; - - if (thread_id == 0) - { - ACE_DEBUG ((LM_DEBUG, "(%t) Im the high priority client, my id is %d.\n", thread_id)); - ::sprintf (ior, "iiop:1.0//%s:%d/Cubit00", ts_->server_host_, ts_->base_port_); - frequency = CB_HIGH_PRIORITY_RATE; - } - else - { - ACE_DEBUG ((LM_DEBUG, "(%t) Im a low priority client, my id is %d\n", thread_id)); - ::sprintf (ior, "iiop:1.0//%s:%d/Cubit00", ts_->server_host_, ts_->base_port_ + 1); - frequency = CB_LOW_PRIORITY_RATE; - } - - ACE_DEBUG ((LM_DEBUG, "Using ior = %s\n", ior)); - - CORBA::Object_ptr objref = CORBA::Object::_nil (); - CORBA::Environment env; - - orb_ptr = XpsORB::init (ts_->argc_, ts_->argv_); - //orb_ptr = CORBA::ORB_init (ts_->argc_, ts_->argv_); - //if (env.exception () != 0) @@ put exception handling here !! - // ACE_ERROR_RETURN ((LM_ERROR,"%s:ORB initialization", env.exception ()), 2); - - // Retrieve a factory objref. - objref = orb_ptr->resolve_initial_references ("Cubit"); - - if (CORBA::is_nil (objref) == CORBA_TRUE) - ACE_ERROR_RETURN ((LM_ERROR, - "%s: must identify non-null target objref\n", - ts_->argv_ [0]), - 1); - - // Narrow the CORBA::Object reference to the stub object, checking - // the type along the way using _is_a. - cb = Cubit::_narrow (objref); - - if (cb == NULL) - { - ACE_ERROR_RETURN ((LM_ERROR, "Create cubit failed\n"), 1); - } - ACE_DEBUG ((LM_DEBUG, "(%t) Binding succeeded\n")); - ACE_DEBUG ((LM_DEBUG, "(%t) Cb == %x\n", cb)); - - CORBA::String str; - - str = orb_ptr->object_to_url (cb); - // - //ACE_ERROR_RETURN ((LM_ERROR, "object_to_string\n"), -1); - - ACE_OS::puts ((char *) str); - ACE_OS::fflush (stdout); - ACE_DEBUG ((LM_DEBUG, "Object Created at: '%ul'", cb)); - ACE_DEBUG ((LM_DEBUG, "connected to object '%s'", str)); - // if (cb->cube_short (2, env) == 8) // dummy call. - // ACE_DEBUG ((LM_DEBUG, "(%t) Made successful dummy call")); - } - - ACE_DEBUG ((LM_DEBUG, "(%t) Waiting for other threads to finish binding..\n")); - ts_->barrier_->wait (); - ACE_DEBUG ((LM_DEBUG, "(%t) Everyone's done, here I go!!\n")); - - this->run_tests (cb, ts_->loop_count_, thread_id, ts_->datatype_, frequency); - - // Free resources - CORBA::release (orb_ptr); - } - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): client.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: client.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: client.cpp\n\n")); - } - - return 0; -} - -int -Client::run_tests (Cubit_ptr cb, - u_int loop_count, - u_int thread_id, - Cubit_Datatypes datatype, - double frequency) -{ - CORBA::Environment env; - unsigned i = 0; - unsigned call_count = 0, error_count = 0; - - double latency = 0; - double sleep_time = (1/frequency) * (1000 * 1000); - double delta = 0; - - // - // Make the calls in a loop. - // - for (i = 0; i < loop_count; i++) - { - ACE_Profile_Timer timer; - ACE_Time_Value tv (0, (long int) (sleep_time - delta)); - ACE_OS::sleep (tv); - timer.start (); - - switch (datatype) - { - case CB_OCTET: - { - // Cube an octet. - call_count++; - - CORBA::Octet arg_octet = func (i), ret_octet = 0; - - ret_octet = cb->cube_octet (arg_octet); - - if (env.exception () != 0) - { - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - } - 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++; - } - } - break; - - case CB_SHORT: - // Cube a short. - { - call_count++; - - CORBA::Short arg_short = func (i), ret_short; - - ret_short = cb->cube_short (arg_short); - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - - 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++; - } - } - break; - // Cube a long. - - case CB_LONG: - { - call_count++; - - CORBA::Long arg_long = func (i), ret_long; - - ret_long = cb->cube_long (arg_long); - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - - 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++; - } - } - break; - - case CB_STRUCT: - // 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 = cb->cube_struct (arg_struct); - - if (env.exception () != 0) - ACE_ERROR_RETURN ((LM_ERROR,"%s:Call failed\n", env.exception ()), 2); - - 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++; - } - - } - break; - } - timer.stop(); - ACE_Profile_Timer::ACE_Elapsed_Time et; - timer.elapsed_time (et); - delta = ( (0.4 * fabs (et.real_time * (1000 * 1000))) + (0.6 * delta) ); // pow(10,6) - latency += et.real_time; - } - - if (call_count > 0) - { - if (error_count == 0) - { - - latency /= call_count; - - if (latency > 0) { - ACE_OS::printf ("cube average call ACE_OS::time\t= %f msec, \t" - "%f calls/second\n", - latency * 1000, - 1 / latency); - this->put_latency (latency * 1000, thread_id); - } - - } - ACE_OS::printf ("%d calls, %d errors\n", call_count, error_count); - } - - // cb->please_exit (env); - return 0; -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.h b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.h deleted file mode 100644 index 6a5d2782b22..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/Task_Client.h +++ /dev/null @@ -1,57 +0,0 @@ -// $Id$ - -#include "pbroker/corba/orb.h" -#include "pbroker/corba/request.h" -#include "pbroker/corba/environ.h" - -#include "ace/Synch.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Task.h" -#include "ace/Thread_Manager.h" -#include "ace/Get_Opt.h" -#include "cubit.h" -#include "ace/Profile_Timer.h" -#include <math.h> - -inline int func (unsigned i) { return i - 117; } - -enum Cubit_Datatypes {CB_OCTET, CB_SHORT, CB_LONG, CB_STRUCT}; - -#define CB_HIGH_PRIORITY_RATE 20 -#define CB_LOW_PRIORITY_RATE 10 - -class Task_State -{ - public: - ACE_Barrier *barrier_; - Task_State (int argc, char **argv); - unsigned int start_count_; - unsigned int loop_count_; - unsigned int thread_count_; - unsigned int base_port_; - char server_host_ [1024]; - double *latency_; - Cubit_Datatypes datatype_; - ACE_Thread_Mutex lock_; - int argc_; - char **argv_; -}; - -class Client : public ACE_Task<ACE_MT_SYNCH> -{ -public: - // Client (char *hostname, unsigned int n_threads, unsigned int loop_count_); - Client (Task_State *ts); - virtual int svc (void); - double get_high_priority_latency (); - double get_low_priority_latency (); -private: - int run_tests (Cubit_ptr, unsigned int, unsigned int, Cubit_Datatypes, double frequency); - void put_latency (double latency, unsigned int); - int parse_args (int, char **); - Task_State *ts_; -}; diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/client.cpp b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/client.cpp deleted file mode 100644 index d7716944625..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/client.cpp +++ /dev/null @@ -1,63 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include "ace/Task.h" -#include "ace/Thread_Manager.h" -#include "ace/Get_Opt.h" -#include "ace/Sched_Params.h" -#include "cubit.h" -#include "Task_Client.h" - -ACE_RCSID(client, client, "$Id$") - -// -// Mainline -// -int -main (int argc, char *argv[]) -{ - Task_State ts (argc, argv); - - ACE::set_handle_limit (); - - Client low_client (&ts); - - // First activate the high priority client. - - Client high_client (&ts); - - ACE_Sched_Priority priority = - ACE_Sched_Params::priority_max (ACE_SCHED_FIFO, ACE_SCOPE_THREAD); - - ACE_DEBUG ((LM_DEBUG, "Creating client with high priority\n")); - - if (high_client.activate (THR_BOUND, 1, 0, priority) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - priority = - ACE_Sched_Params::priority_min (ACE_SCHED_FIFO, ACE_SCOPE_THREAD); - - ACE_DEBUG ((LM_DEBUG, "Creating %d clients with low priority\n", ts.thread_count_ - 1)); - - if (low_client.activate (THR_BOUND, ts.thread_count_ - 1, 0, priority) == -1) - ACE_ERROR ((LM_ERROR, "%p\n", "activate failed")); - - - ACE_Thread_Manager::instance ()->wait (); - - ACE_OS::printf ("Test done.\n" - "High priority client latency : %f msec\n" - "Low priority client latency : %f msec\n", - high_client.get_high_priority_latency (), - low_client.get_low_priority_latency ()); - - return 0; -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/cubit.idl b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/cubit.idl deleted file mode 100644 index 5ae02365ddf..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/client/cubit.idl +++ /dev/null @@ -1,41 +0,0 @@ -// $Id$ - - 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: - Many cm; - }; - - oneof cube_union (in oneof values); */ - - oneway void please_exit (); - }; - - - interface Cubit_Factory { - Cubit create_cubit (in short priority); - }; - diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/Makefile b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/Makefile deleted file mode 100644 index 406ac91aa26..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/Makefile +++ /dev/null @@ -1,59 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Top-level Makefile for the ACE-ified Sun Ref. implementation -# of IIOP ORB -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -#LDLIBS = -lmtcorba -lmtunixsvc -lmtpbroker -lmtboadc -lmtnaming -lmtlifecycl -lmtfsstream -LDLIBS = -lcorba -lunixsvc -lpbroker -lboadc -lnaming -llifecycl -lfsstream - -IDL_SRC = cubit.cpp cubit_s.cpp -PROG_SRCS = svr.cpp cubit_i.cpp - -LSRC = $(IDL_SRC) $(PROG_SRCS) - -CUBIT_SVR_OBJS = cubit.o cubit_s.o svr.o cubit_i.o - -BIN = svr - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -#enable C++ exceptions -exceptions = 1 - -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$(PBHOME)/lib -CPPFLAGS += -I$(PBHOME)/include - -$(IDL_SRC): cubit.idl - $(PBHOME)/bin/idlc cubit.idl - -mv cubit.C cubit.cpp - -mv cubit_s.C cubit_s.cpp - -svr: $(addprefix $(VDIR),$(CUBIT_SVR_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(PBHOME)/lib/iiop_s.o $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) cubit.cpp cubit.h cubit_s.* - -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubit.o .shobj/cubit.: cubit.cpp -.obj/cubit_s.o .shobj/cubit_s.: cubit_s.cpp - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit.idl b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit.idl deleted file mode 100644 index 2ed3ec01499..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit.idl +++ /dev/null @@ -1,41 +0,0 @@ -// $Id$ - - 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: - Many cm; - }; - - oneof cube_union (in oneof values); */ - - oneway void please_exit (); - }; - - - interface Cubit_Factory { - Cubit create_cubit (in short priority); - }; - diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.cpp b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.cpp deleted file mode 100644 index e6883abba0c..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.cpp +++ /dev/null @@ -1,82 +0,0 @@ -// $Id$ - -// @(#)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 "pbroker/corba/orb.h" -#include "pbroker/corba/environ.h" -#include "cubit_i.h" - -ACE_RCSID(server, cubit_i, "$Id$") - -Cubit_i::Cubit_i (const char *obj_name) -{ -} - -Cubit_i::~Cubit_i (void) -{ -} - -CORBA::Octet -Cubit_i::cube_octet (CORBA::Octet o) -{ - return (CORBA::Octet) (o * o * o); -} - -CORBA::Short -Cubit_i::cube_short (CORBA::Short s) -{ - return (CORBA::Short) (s * s * s); -} - -CORBA::Long -Cubit_i::cube_long (CORBA::Long l) -{ - return (CORBA::Long) (l * l * l); -} - -Cubit::Many -Cubit_i::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_i::cube_union (Cubit_oneof &values, - CORBA::Environment &env) -{ - ACE_UNUSED_ARG (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::please_exit (void) -{ -} diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.h b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.h deleted file mode 100644 index 2e4e350ed09..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/cubit_i.h +++ /dev/null @@ -1,52 +0,0 @@ -// $Id$ - -// @(#)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 "cubit_s.h" - -class Cubit_i; -typedef Cubit_i *Cubit_i_ptr; -typedef Cubit_i_ptr Cubit_i_ref; - -class Cubit_i : public Cubit_base_impl -{ -public: - Cubit_i (const char *obj_name = 0); - ~Cubit_i (void); - - 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 (Cubit::oneof &values, - CORBA::Environment &env); */ - - virtual - void please_exit (void); -}; - -#endif // _CUBIT_I_HH diff --git a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/svr.cpp b/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/svr.cpp deleted file mode 100644 index 25cc92e2797..00000000000 --- a/TAO/performance-tests/Cubit/CORBAplus/MT_Cubit/server/svr.cpp +++ /dev/null @@ -1,288 +0,0 @@ -// $Id$ - -// @(#)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 "pbroker/corba/orb.h" -#include "pbroker/corba/request.h" -#include "pbroker/corba/environ.h" -#include "pbroker/unixsvc/unixsvc.h" -#include "pbroker/corba/xpsorb.h" -#include "pbroker/corba/xpsboa.h" -#include "pbroker/corba/boad/boafull.h" // will force usage of "Full" BOA API -#include "ace/Get_Opt.h" -#include "ace/Log_Msg.h" -#include "ace/Task.h" -#include "ace/ARGV.h" -#include "ace/Sched_Params.h" - -#include "cubit_i.h" - -ACE_RCSID(server, svr, "$Id$") - -// Global Variables -static CORBA::String key = (CORBA::String) "Cubit"; - - -class Cubit_Task : public ACE_Task<ACE_NULL_SYNCH> -// = TITLE -// Encapsulates an ORB for the Cubit application -{ -public: - Cubit_Task (const char* args, const char* orbname, unsigned int num_of_objs); // - - virtual int svc (void); - -protected: - Cubit_Task () {}; - -private: - char* orbname_; - char* orbargs_; - unsigned int num_of_objs_; -}; - -Cubit_Task::Cubit_Task (const char* args, const char* orbname, unsigned int num_of_objs) - : orbname_ ((char*)orbname), - orbargs_ ((char*)args), - num_of_objs_ (num_of_objs) -{} - - -int -Cubit_Task::svc (void) -{ - CORBA::Environment env; - ACE_DEBUG ((LM_DEBUG, "(%P|%t) Beginning Cubit task with args = '%s'\n", orbargs_)); - ACE_ARGV args (orbargs_); - - int argc = args.argc (); - char** argv = args.argv (); - - XpsORB_ptr orb_ptr = XpsORB::_nil(); - XpsBOA * oa_ptr = XpsBOA::_nil (); - CORBA_Object_ptr obj_ptr = CORBA_Object::_nil(); - - try { - // Initialize the ORB pointer - orb_ptr = XpsORB::init (argc, argv); - - // Initialize the Object Adapter - oa_ptr = XpsBOA::init (argc, argv); - - if (CORBA::is_nil(orb_ptr) || CORBA::is_nil(oa_ptr)) - { - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to initialize the ORB and/or the BOA\n"), - 1); - } - - // Create implementation object with user specified key. - Cubit_i_ptr *my_cubit = new Cubit_i_ptr[num_of_objs_]; - - u_int i; - for (i = 0; i < num_of_objs_; i++) - { - CORBA::String obj_str = CORBA::string_alloc (ACE_OS::strlen ((char *) key)+30); - -#if 0 - ACE_OS::sprintf (obj_str, "%s-%u-%02d", (char *) key, ACE_Thread::self (), i); -#else - ACE_OS::sprintf (obj_str, "%s%02d", (char *) key, i); -#endif - - my_cubit[i] = new Cubit_i (obj_str); - - if (my_cubit[i] == 0) - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to create implementation object&d\n", - i), - 2); - - //CORBA::OctetSeq obj_key; - //obj_key.buffer = (CORBA::Octet *) obj_str; - //obj_key.length = obj_key.maximum = ACE_OS::strlen (obj_str); - - //CORBA::Object_ptr obj = 0; - - // 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); - str = orb_ptr->object_to_url (my_cubit[i]); - - ACE_DEBUG ((LM_DEBUG, "listening as object '%s'\n", str)); - CORBA_string_free (str); - - oa_ptr->obj_is_ready (my_cubit[i], nil); - oa_ptr->registerAlias (my_cubit[i], obj_str); - - if (env.exception () != 0) - { - // env.print_exception ("object2string"); - return 1; - } - - ACE_OS::puts ((char *) str); - ACE_OS::fflush (stdout); - //ACE_DEBUG ((LM_DEBUG,"Object Created at: '%ul'", obj)); - CORBA::string_free (obj_str); - } - - // Handle requests for this object until we're killed, or one of the - // methods asks us to exit. - XpsEventService eventService; - eventService.mainloop(); // control will not return to this point - // orb_ptr->run (); - - // Shut down the OA -- recycles all underlying resources (e.g. file - // descriptors, etc). - - // oa_ptr->clean_shutdown (env); - - // Need to clean up and do a CORBA::release on everything we've - // created! - for (i = 0; i < num_of_objs_; i++) - { - delete my_cubit[i]; - } - - // Free resources - CORBA::release (orb_ptr); - CORBA::release (oa_ptr); - } - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): svr.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: svr.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: svr.cpp\n\n")); - } - - return 0; -} - -static char *hostname = NULL; -static int base_port = 0; - -// Parses the command line arguments and returns an error status - -static int num_of_objs = 1; - -static int -parse_args (int argc, char *argv[]) -{ - ACE_Get_Opt opts (argc, argv, "h:p:n:"); - int c; - - while ((c = opts ()) != -1) - switch (c) - { - case 'h': - hostname = opts.optarg; - break; - case 'p': - base_port = ACE_OS::atoi (opts.optarg); - break; - case 'n': - num_of_objs = ACE_OS::atoi (opts.optarg); - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " -p port" - " -h my_hostname" - " -n num_objects" - "\n", argv [0]), 1); - } - - return 0; // Indicates successful parsing of command line -} - -// Standard command line parsing utilities used. - -int -main (int argc, char *argv[]) -{ - -#if 0 - parse_args (argc, argv); - - if ((hostname == NULL) || (base_port == 0)) - { - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s " - " -p port -h my_hostname" - "\n",argv [0]), 1); - - } -#endif - - const size_t arg_size = - strlen("rate20") - + 5 /* port number */ - + MAXHOSTNAMELEN /* hostname */ - + 1 /* zero terminator */; - - char *args1 = 0; - ACE_NEW_RETURN (args1, char[arg_size], -1); - - ::sprintf (args1, "rate20"); - Cubit_Task task1 (args1 , "internet", 1); - ACE_Sched_Priority priority; -#if defined(VXWORKS) - priority = ACE_Sched_Params::priority_max (ACE_SCHED_FIFO, ACE_SCOPE_THREAD) + 6; -#else - priority = ACE_Sched_Params::priority_max (ACE_SCHED_FIFO, ACE_SCOPE_THREAD); -#endif - ACE_DEBUG ((LM_DEBUG, "Creating servant with high priority\n")); - task1.activate (THR_BOUND, 1, 0, priority); - - - char *args2 = 0; - ACE_NEW_RETURN (args2, char[arg_size], -1); - - ::sprintf (args2, "rate10");//, base_port+1, hostname); - Cubit_Task task2 (args2 , "internet", 1); - priority = - ACE_Sched_Params::priority_min (ACE_SCHED_FIFO, ACE_SCOPE_THREAD); - ACE_DEBUG ((LM_DEBUG, "Creating servant with low priority\n")); - task2.activate (THR_BOUND, 1, 0, priority); - - ACE_Thread_Manager::instance ()->wait (); - - delete [] args1; - delete [] args2; - - return 0; -} diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Imakefile b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Imakefile deleted file mode 100644 index 633ac06056a..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Imakefile +++ /dev/null @@ -1,34 +0,0 @@ -COMMENT @(#) (C) Copyright Lockheed Martin 1996, 1997, 1998 (Unpublished). All rights reserved. Imakefile 1.3 changed 5/22/98 13:34:14 - -BUILD=/project/doc/pkg/Hardpack/dsi_5.1/SunOS_5.5.1 -PREPRO = $(BUILD)/bin/idlpp_cc - -CCFLAGS += -mt -xildoff - -#if defined(T_SunOS) -INC=-I$(BUILD)/include -I$(ACE_ROOT) -I/usr/include -I/usr/include/sys -LIBS=$(BUILD)/Templates.DB/$()*.o -L$(BUILD)/lib -lORB++ -lORB -lES -L$(ACE_ROOT)/ace -lACE -#else -INC=-I$(BUILD)/include -I$(ACE_ROOT) -I/usr/include -I/usr/include/sys -LIBS=-L$(BUILD)/lib -lORB++ -lORB -lES -lIR++ -lACE -L$(ACE_ROOT)/ace -#endif - - -all: cubit.hh client server - -client: client.cpp client_i.cpp cubit_c.cc cubit.hh - $(CCC) $(CCFLAGS) $(INC) -o client \ - cubit_c.cc client_i.cpp client.cpp \ - $(LIBS) $(OSLIBS) - -server: server.cpp server_i.cpp cubit_impl.cc cubit_s.cc cubit_c.cc cubit.hh - $(CCC) $(CCFLAGS) $(INC) -o server \ - server.cpp server_i.cpp cubit_s.cc cubit_c.cc cubit_impl.cc \ - $(LIBS) $(OSLIBS) - -cubit.hh: cubit.idl - $(PREPRO) cubit.idl - -clean: - rm -f client server cubit.hh *_s.cc *_c.cc *.o; - rm -rf Templates.DB; rm -f *~ diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Makefile b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Makefile deleted file mode 100644 index 3e8129e6517..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/Makefile +++ /dev/null @@ -1,55 +0,0 @@ -/* $Id$ */ -# Makefile generated by imake - do not edit! -# $XConsortium: imake.c,v 1.72 92/09/14 11:44:22 rws Exp $ -# -# The cpp used on this machine replaces all newlines and multiple tabs and -# spaces in a macro expansion with a single space. Imake tries to compensate -# for this, but is not always successful. -# - -CCC=CC -CC=cc - -CFLAGS=-g -D_DEBUG=3 -DDSI_DEBUG=3 $(INC) -xs -DBSD_COMP -CCFLAGS=-g -D_DEBUG=3 -DDSI_DEBUG=3 -D_IR_hh $(INC) -xs -DBSD_COMP -i -OSLIBS=-lthread -lposix4 -lsocket -lnsl -lm - -# @(#) (C) Copyright Lockheed Martin 1996, 1997, 1998 (Unpublished). All rights reserved. Imakefile 1.3 changed 5/22/98 13:34:14 - -BUILD=/project/doc/pkg/Hardpack/dsi_5.1/SunOS_5.5.1 -PREPRO = $(BUILD)/bin/idlpp_cc - -CCFLAGS += -mt -xildoff - -INC=-I$(BUILD)/include -I$(ACE_ROOT) -I/usr/include -I/usr/include/sys -LIBS=$(BUILD)/Templates.DB/$()*.o -L$(BUILD)/lib -lORB++ -lORB -lES -L$(ACE_ROOT)/ace -lACE - -all: cubit.hh client server - -client: client.cpp client_i.cpp cubit_c.cc cubit.hh - $(CCC) $(CCFLAGS) $(INC) -o client \ - cubit_c.cc client_i.cpp client.cpp \ - $(LIBS) $(OSLIBS) - -server: server.cpp server_i.cpp cubit_impl.cc cubit_s.cc cubit_c.cc cubit.hh - $(CCC) $(CCFLAGS) $(INC) -o server \ - server.cpp server_i.cpp cubit_s.cc cubit_c.cc cubit_impl.cc \ - $(LIBS) $(OSLIBS) - -cubit.hh: cubit.idl - $(PREPRO) cubit.idl - -clean: - $(RM) client server cubit.hh *_s.cc *_c.cc *.o; - $(RM) -r Templates.DB; $(RM) *~ - -.SUFFIXES: .cc - -.cc.a: - $(CCC) -c $(CCFLAGS) $< - $(AR) $(ARFLAGS) $@ $*.o - $(RM) $*.o - -.cc: - $(CCC) $(CCFLAGS) $(LDFLAGS) $< -o $@ - diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/README b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/README deleted file mode 100644 index 1241a57984c..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/README +++ /dev/null @@ -1,43 +0,0 @@ -The IDL_Cubit test for Hardpack ORB ------------------------------------- - -Compiling ---------- - -setup the HARDPACK_ROOT environment variables before compiling. - -The following is an example configuration for SunOS_5.5.1: - -setenv HARDPACK_ROOT /project/doc/pkg/Hardpack/dsi_5.1 -setenv PATH ${HARDPACK_ROOT}/bin:${HARDPACK_ROOT}/SunOS_5.5.1/bin:${PATH} -setenv LD_LIBRARY_PATH ${HARDPACK_ROOT}/SunOS_5.5.1/lib:${LD_LIBRARY_PATH} - -1. Hardpack provides a build tool to build the Makefile from the Imakefile. -You should set the BUILD variable in the Imakefile to the directory of -your Hardpack for your platform. - -2.To build and compile - - $build SUN - - $build clean - will clean the object files and executables and also the Makefile. - -To Run: ------- - -1. Edit the initref.cfg file in this directory by putting the hostname -on which you want the name server to run. - -2. Run the Hardpack nameserver - - $nameserver - -3. Run the server - - $server - -4. Run the client - - $client - diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client.cpp b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client.cpp deleted file mode 100644 index e43c60643f0..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client.cpp +++ /dev/null @@ -1,22 +0,0 @@ -// $Id$ - -#include "client_i.h" - -ACE_RCSID(IDL_Cubit, client, "$Id$") - -// This function runs the test. - -int -main (int argc, char **argv) -{ - Cubit_Client cubit_client; - - ACE_DEBUG ((LM_DEBUG, - "\n \t IDL_Cubit: client \n\n")); - - if (cubit_client.init (argc, argv) == -1) - return 1; - else - return cubit_client.run (); -} - diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.cpp b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.cpp deleted file mode 100644 index 073dbaca8a0..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.cpp +++ /dev/null @@ -1,824 +0,0 @@ -// $Id$ - -#include "ace/Env_Value_T.h" -#include "ace/Read_Buffer.h" -#include "client_i.h" - -ACE_RCSID(IDL_Cubit, client_i, "$Id$") - -#if defined (ACE_ENABLE_TIMEPROBES) - -static const char *Cubit_Client_Timeprobe_Description[] = -{ - "Cubit_Client::cube_octet - start", - "Cubit_Client::cube_octet - end", - - "Cubit_Client::cube_short - start", - "Cubit_Client::cube_short - end", - - "Cubit_Client::cube_long - start", - "Cubit_Client::cube_long - end", - - "Cubit_Client::cube_struct - start", - "Cubit_Client::cube_struct - end", - - "Cubit_Client::cube_union - start", - "Cubit_Client::cube_union - end", - - "Cubit_Client::cube_long_sequence - start", - "Cubit_Client::cube_long_sequence - end", - - "Cubit_Client::cube_octet_sequence - start", - "Cubit_Client::cube_octet_sequence - end" -}; - -enum -{ - // Timeprobe description table start key - CUBIT_CLIENT_CUBE_OCTET_START = 10000, - CUBIT_CLIENT_CUBE_OCTET_END, - - CUBIT_CLIENT_CUBE_SHORT_START, - CUBIT_CLIENT_CUBE_SHORT_END, - - CUBIT_CLIENT_CUBE_LONG_START, - CUBIT_CLIENT_CUBE_LONG_END, - - CUBIT_CLIENT_CUBE_STRUCT_START, - CUBIT_CLIENT_CUBE_STRUCT_END, - - CUBIT_CLIENT_CUBE_UNION_START, - CUBIT_CLIENT_CUBE_UNION_END, - - CUBIT_CLIENT_CUBE_LONG_SEQUENCE_START, - CUBIT_CLIENT_CUBE_LONG_SEQUENCE_END, - - CUBIT_CLIENT_CUBE_OCTET_SEQUENCE_START, - CUBIT_CLIENT_CUBE_OCTET_SEQUENCE_END -}; - -// Setup Timeprobes -ACE_TIMEPROBE_EVENT_DESCRIPTIONS (Cubit_Client_Timeprobe_Description, - CUBIT_CLIENT_CUBE_OCTET_START); - -#endif /* ACE_ENABLE_TIMEPROBES */ - -// Constructor. -Cubit_Client::Cubit_Client (void) - : cubit_factory_key_ (0), - cubit_key_ (ACE_OS::strdup ("key0")), - loop_count_ (250), - shutdown_ (0), - cubit_ (Cubit::_nil ()), - call_count_ (0), - error_count_ (0), - cubit_factory_ior_file_ (0), - f_handle_ (ACE_INVALID_HANDLE), - use_naming_service_ (1) -{ -} - -// Simple function that returns the substraction of 117 from the -// parameter. - -int -Cubit_Client::func (u_int i) -{ - return i - 117; -} - -// Reads the Cubit factory ior from a file - -int -Cubit_Client::read_ior (char *filename) -{ - // Open the file for reading. - this->f_handle_ = ACE_OS::open (filename,0); - - if (this->f_handle_ == ACE_INVALID_HANDLE) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to open %s for writing: %p\n", - filename), - -1); - ACE_Read_Buffer ior_buffer (this->f_handle_); - this->cubit_factory_key_ = ior_buffer.read (); - - if (this->cubit_factory_key_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to allocate memory to read ior: %p\n"), - -1); - return 0; -} - -// Parses the command line arguments and returns an error status. - -int -Cubit_Client::parse_args (void) -{ - ACE_Get_Opt get_opts (argc_, argv_, "n:f:k:xs"); - int c; - int result; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'n': // loop count - this->loop_count_ = (u_int) ACE_OS::atoi (get_opts.optarg); - break; - case 'f': // read the IOR from the file. - result = this->read_ior (get_opts.optarg); - if (result < 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to read ior from %s : %p\n", - get_opts.optarg), - -1); - break; - case 'k': // read the cubit IOR from the command-line. - this->cubit_factory_key_ = - ACE_OS::strdup (get_opts.optarg); - break; - case 'x': - this->shutdown_ = 1; - break; - case 's': // Don't use the TAO Naming Service. - this->use_naming_service_ = 0; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-n loopcount]" - " [-f cubit_factory-obj-ref-key-file]" - " [-k cubit-obj-ref-key]" - " [-x]" - " [-s]" - "\n", - this->argv_ [0]), - -1); - } - - // Indicates successful parsing of command line. - return 0; -} - -// Exercise the union. Cube a union. - -// void -// Cubit_Client::cube_union (void) -// { -// Cubit::oneof u; - -// this->call_count_++; - -// u.l (3); // use the long union branch. - -// // Cube a "union" ... -// Cubit::oneof r; -// { -// ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_UNION_START); - -// try -// { -// r = this->cubit_->cube_union (u); -// } -// catch (...) -// { -// cout << "An unknown exception in cube_long\n"; -// this->error_count_++; -// return; -// } -// } -// u.l (u.l () * u.l () * u.l ()) ; - -// if (u.l () != r.l ()) -// { -// ACE_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); -// this->error_count_++; -// } - -// this->call_count_++; - -// u._d (Cubit::e_3rd); - -// u.cm ().l = 7; -// u.cm ().s = 5; -// u.cm ().o = 3; - -// // Cube another "union" which uses the default arm ... NOT tested yet -// { -// ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_UNION_START); -// try -// { -// r = this->cubit_->cube_union (u); -// } -// catch (...) -// { -// cout << "An unknown exception in cube_long\n"; -// this->error_count_++; -// return; -// } -// } -// 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_DEBUG ((LM_DEBUG, "** cube_union ERROR\n")); -// this->error_count_++; -// } -// } - -// Cube a short. - -void -Cubit_Client::cube_short (int i) -{ - CORBA::Short arg_short = this->func (i); - - this->call_count_++; - // Cube a short. - CORBA::Short ret_short; - { - ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_SHORT_START); - try - { - ret_short = this->cubit_->cube_short (arg_short); - } - catch (...) - { - cout << "An unknown exception in cube_short\n"; - this->error_count_++; - return; - } - arg_short = arg_short * arg_short * arg_short; - if (arg_short != ret_short) - { - ACE_ERROR ((LM_ERROR, "** cube_short (%d) ERROR (--> %d)\n", - (CORBA::Short) i-117, - ret_short)); - this->error_count_++; - } - } -} - -void -Cubit_Client::cube_oneway (int i) -{ - try - { - this->cubit_->cube_oneway (); - } - catch (...) - { - cout << "An unknown exception in cube_short\n"; - this->error_count_++; - return; - } - - this->call_count_++; - return; -} - -void -Cubit_Client::cube_void (int i) -{ - try - { - this->cubit_->cube_void (); - } - catch (...) - { - cout << "An unknown exception in cube_short\n"; - this->error_count_++; - return; - } - this->call_count_++; -} - - -// Cube an octet - -void -Cubit_Client::cube_octet (int i) -{ - CORBA::Octet arg_octet = this->func (i); - - this->call_count_++; - // Cube an octet. - CORBA::Octet ret_octet; - { - ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_OCTET_START); - try - { - ret_octet = this->cubit_->cube_octet (arg_octet); - } - catch (...) - { - cout << "An unknown exception in cube_long\n"; - this->error_count_++; - return; - } - arg_octet = arg_octet * arg_octet * arg_octet; - if (arg_octet != ret_octet) { - ACE_DEBUG ((LM_DEBUG, - "** cube_octet (%d) ERROR (--> %d)\n", - (CORBA::Octet) this->func (i), - ret_octet)); - this->error_count_++; - } - } -} - - // calculate the cube from a long - -void -Cubit_Client::cube_long (int i) -{ - CORBA::Long arg_long = this->func (i); - - // Cube a long. - CORBA::Long ret_long; - { - ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_LONG_START); - try - { - ret_long = this->cubit_->cube_long (arg_long); - this->call_count_++; - } - catch (...) - { - cout << "An unknown exception in cube_long\n"; - this->error_count_++; - this->call_count_++; - return; - } - arg_long = arg_long * arg_long * arg_long; - if (arg_long != ret_long) - { - ACE_ERROR ((LM_ERROR, - "** cube_long (%ld) ERROR (--> %ld)\n", - (CORBA::Long) this->func (i), - ret_long)); - this->error_count_++; - } - } -} - -// // Cube the numbers in a struct - -void -Cubit_Client::cube_struct (int i) -{ - Cubit::Many arg_struct; - Cubit::Many ret_struct; - - this->call_count_++; - - arg_struct.l = this->func (i); - arg_struct.s = this->func (i); - arg_struct.o = this->func (i); - - // Cube a "struct" ... - { - ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_STRUCT_START); - try - { - ret_struct = this->cubit_->cube_struct (arg_struct); - } - catch (...) - { - cout << "An unknown exception in cube_struct\n"; - this->error_count_++; - return; - } - } - - 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_ERROR ((LM_ERROR, "** cube_struct ERROR\n")); - this->error_count_++; - } -} - - -// Cube the numbers in a sequence - -// void -// Cubit_Client::cube_long_sequence (int i, int l) -// { -// this->call_count_++; - -// Cubit::long_seq input (l); -// input.length (l); - -// // Just set the first item, otherwise it is hard to compare the -// // results for longer sequences, i.e. more than just marshalling -// // gets in the way. -// input[0] = 4; - -// Cubit::long_seq_var output ; - -// // Cube the sequence -// { -// ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_LONG_SEQUENCE_START); -// try -// { -// this->cubit_->cube_long_sequence (input,output); -// } -// catch (...) -// { -// cout << "An unknown exception in cube_long_sequence\n"; -// this->error_count_++; -// return; -// } -// } -// if (output->length () != input.length ()) -// { -// ACE_ERROR ((LM_ERROR, "** cube sequence, wrong length\n")); -// this->error_count_++; -// } - -// u_int rl = output->length (); -// if (input.length () < rl) -// rl = input.length (); -// CORBA::Long x = input[0]; -// if (x * x *x != output[0]) -// { -// ACE_ERROR ((LM_ERROR, "** cube_long_sequence ERROR\n")); -// this->error_count_++; -// } -// } - -// void -// Cubit_Client::cube_octet_sequence (int i, int l) -// { -// this->call_count_++; - -// Cubit::octet_seq input (l); -// input.length (l); - -// // Just set the first item, otherwise it is hard to compare the -// // results for longer sequences, i.e. more than just marshalling -// // gets in the way. -// input[0] = 4; - -// Cubit::octet_seq* output; - -// // Cube the sequence -// { -// ACE_FUNCTION_TIMEPROBE (CUBIT_CLIENT_CUBE_OCTET_SEQUENCE_START); - -// try -// { -// this->cubit_->cube_octet_sequence (input, output); -// } -// catch (...) -// { -// cout << "An unknown exception in cube_octec_sequence\n"; -// this->error_count_++; -// return; -// } -// } -// u_int rl = output->length (); -// if (rl != input.length ()) -// { -// ACE_ERROR ((LM_ERROR, "** cube octet, wrong length\n")); -// this->error_count_++; -// } - -// if (input.length () < rl) -// rl = input.length (); -// CORBA::Octet x = input[0]; -// if (x * x *x != output[0]) -// { -// ACE_ERROR ((LM_ERROR, "** cube_octet ERROR\n")); -// this->error_count_++; -// } -// } - -void -Cubit_Client::print_stats (const char *call_name, - ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time) -{ - ACE_DEBUG ((LM_DEBUG, - "%s:\n", - call_name)); - - if (this->call_count_ > 0 && this->error_count_ == 0) - { -#if defined (ACE_LACKS_FLOATING_POINT) - // elapsed_time.real_time is in units of microseconds. - const u_int calls_per_sec = - this->call_count_ * 1000000u / elapsed_time.real_time; - - ACE_DEBUG ((LM_DEBUG, - "\treal_time\t= %u ms,\n" - "\t%u calls/second\n", - elapsed_time.real_time / 1000u, - calls_per_sec)); -#else /* ! ACE_LACKS_FLOATING_POINT */ - // elapsed_time.real_time is in units of seconds. - double calls_per_sec = this->call_count_ / elapsed_time.real_time; - - ACE_DEBUG ((LM_DEBUG, - "\treal_time\t= %0.06f ms, \n\t" - "user_time\t= %0.06f ms, \n\t" - "system_time\t= %0.06f ms\n" - "\t%0.00f calls/second\n", - elapsed_time.real_time < 0.0 ? 0.0 - : elapsed_time.real_time * ACE_ONE_SECOND_IN_MSECS, - elapsed_time.user_time < 0.0 ? 0.0 - : elapsed_time.user_time * ACE_ONE_SECOND_IN_MSECS, - elapsed_time.system_time < 0.0 ? 0.0 - : elapsed_time.system_time * ACE_ONE_SECOND_IN_MSECS, - calls_per_sec < 0.0 ? 0.0 : calls_per_sec)); -#endif /* ! ACE_LACKS_FLOATING_POINT */ - } - else - ACE_ERROR ((LM_ERROR, - "\tNo time stats printed. Call count zero or error ocurred.\n")); - - ACE_DEBUG ((LM_DEBUG, - "\t%d calls, %d errors\n", - this->call_count_, - this->error_count_)); -} - -// Execute client example code. - -int -Cubit_Client::run (int testing_collocation) -{ - u_int i; - - ACE_Profile_Timer timer; - ACE_Profile_Timer::ACE_Elapsed_Time elapsed_time; - // ACE_Time_Value before; - - - // - // Show the results one type at a time. - // - - // ONEWAY - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_oneway (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_oneway", elapsed_time); - - // VOID - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_void (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_void", elapsed_time); - - // SHORT - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_short (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_short", elapsed_time); - - // OCTET - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_octet (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_octet", elapsed_time); - - // LONG - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_long (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_long", elapsed_time); - - // STRUCT - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - this->cube_struct (i); - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube_struct", elapsed_time); - -// // UNION -// this->call_count_ = 0; -// this->error_count_ = 0; -// timer.start (); -// for (i = 0; i < this->loop_count_; i++) -// this->cube_union (); -// timer.stop (); -// timer.elapsed_time (elapsed_time); -// this->print_stats ("cube_union_stub call", elapsed_time); - -// // SMALL LONG SEQUENCES -// this->call_count_ = 0; -// this->error_count_ = 0; -// timer.start (); -// for (i = 0; i < this->loop_count_; i++) -// this->cube_long_sequence (this->loop_count_, 4); -// timer.stop (); -// timer.elapsed_time (elapsed_time); -// this->print_stats ("cube_small_sequence<long>", elapsed_time); - -// // LARGE LONG SEQUENCES -// this->call_count_ = 0; -// this->error_count_ = 0; -// timer.start (); -// for (i = 0; i < this->loop_count_; i++) -// this->cube_long_sequence (this->loop_count_, 1024); -// timer.stop (); -// timer.elapsed_time (elapsed_time); -// this->print_stats ("cube_large_sequence<long>", elapsed_time); - -// // SMALL OCTET SEQUENCES -// this->call_count_ = 0; -// this->error_count_ = 0; -// timer.start (); -// for (i = 0; i < this->loop_count_; i++) -// this->cube_octet_sequence (this->loop_count_, 16); -// timer.stop (); -// timer.elapsed_time (elapsed_time); -// this->print_stats ("cube_small_sequence<octet>", elapsed_time); - -// // LARGE OCTET SEQUENCES -// this->call_count_ = 0; -// this->error_count_ = 0; -// timer.start (); -// for (i = 0; i < this->loop_count_; i++) -// this->cube_octet_sequence (this->loop_count_, 4096); -// timer.stop (); -// timer.elapsed_time (elapsed_time); -// this->print_stats ("cube_large_sequence<octet>", elapsed_time); - - - // MIXIN - this->call_count_ = 0; - this->error_count_ = 0; - timer.start (); - for (i = 0; i < this->loop_count_; i++) - { - this->cube_short (i); - this->cube_octet (i); - this->cube_long (i); - } - timer.stop (); - timer.elapsed_time (elapsed_time); - this->print_stats ("cube mixin (short/octet/long)", elapsed_time); - - - return this->error_count_ == 0 ? 0 : 1; -} - -Cubit_Client::~Cubit_Client (void) -{ - // Free resources - // Close the ior files - if (this->cubit_factory_ior_file_) - ACE_OS::fclose (this->cubit_factory_ior_file_); - if (this->f_handle_ != ACE_INVALID_HANDLE) - ACE_OS::close (this->f_handle_); - - CORBA::release (this->cubit_); - - if (this->cubit_factory_key_ != 0) - ACE_OS::free (this->cubit_factory_key_); - if (this->cubit_key_ != 0) - ACE_OS::free (this->cubit_key_); -} - -int -Cubit_Client::init_naming_service (void) -{ - CORBA::Object_ptr dummy_object; - CosNaming::NamingContext_var nameserver; - CosNaming::Name name; - - try { - // Resolve initial reference to the nameserver - dummy_object = this->orb_-> resolve_initial_references("NameService"); - // Narrow the initial reference to the nameserver - nameserver = CosNaming::NamingContext::_narrow(dummy_object); - } catch (CORBA::BAD_PARAM) { - cout << "Bad parameter exception caught - narrow on the NameService" << endl; - exit(-1); - } catch (CORBA::SystemException) { - cout << "A general system exception was caught - resolve_initial_references" << endl; - exit(-1); - } catch (...) { - cout << "An exception of unknown type was caught - initializing the NameService" << endl; - exit(-1); - } - - // Resolve the server interface object which was bound under the name "cubit" - name.length(2); - - name[0].id = "cubit_S"; - name[0].kind = "ASE"; - name[1].id = "cubit"; - name[1].kind = "interface"; - - try { - dummy_object = nameserver -> resolve(name); - this->cubit_ = Cubit::_narrow(dummy_object); - } catch (CORBA::BAD_PARAM) { - cout << "Bad parameter exception caught - resolve or narrow on the cubit server object" << endl; - exit(-1); - } catch (...) { - cout << "An exception of unknown type was caught - resolve or narrow on the cubit server object" << endl; - exit(-1); - } - - cout << "cubit object resolved successfully\n"; - - return 0; -} - -int -Cubit_Client::init (int argc, char **argv) -{ - int argct; - char *argvt[1]; - int naming_result; - this->argc_ = argc; - this->argv_ = argv; - cout << "Starting the cubit client." << endl; - - try { - // Obtain an object reference to the ORB - argvt[0] = "-ORBase cubit_client"; - argct = 1; - this->orb_ = CORBA::ORB_init(argct, argvt, ORBIDENT); - } catch (CORBA::BAD_PARAM) { - cout << "Bad parameter exception caught - ORB_init" << endl; - exit(-1); - } catch (CORBA::INITIALIZE) { - cout << "Initialize exception caught - ORB_init" << endl; - exit(-1); - } catch (CORBA::INTERNAL) { - cout << "Internal exception caught - ORB_init" << endl; - exit(-1); - } catch (CORBA::UNKNOWN) { - cout << "Unknown exception caught - ORB_init" << endl; - exit(-1); - } catch(...) { - cout << "An exception of unknown type was caught - ORB_init" << endl; - exit(-1); - } - - try { - // Obtain an object reference to the BOA - argct = 0; - this->boa_ = this->orb_-> BOA_init(argct, argvt, BOAIDENT); - } catch (CORBA::UNKNOWN) { - cout << "Unknown exception caught - ORB_init" << endl; - exit(-1); - } catch (CORBA::SystemException) { - cout << "General system exception caught - BOA_init" << endl; - exit(-1); - } catch (...) { - cout << "An exception of unknown type was caught - BOA_init" << endl; - exit(-1); - } - naming_result = this->init_naming_service (); - if (naming_result < 0) - return naming_result; - - return 0; -} - -#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) -template class ACE_Env_Value<unsigned long>; -template class ACE_Env_Value<unsigned short>; -#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) -#pragma instantiate ACE_Env_Value<unsigned long> -#pragma instantiate ACE_Env_Value<unsigned short> -#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.h b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.h deleted file mode 100644 index a8769d7b1c1..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/client_i.h +++ /dev/null @@ -1,145 +0,0 @@ -// -*- c++ -*- -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// client.h -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA client for the Cubit -// example using stubs generated by the TAO ORB IDL compiler. -// -// = AUTHORS -// Aniruddha Gokhale, Sumedh Mungee, and Sergio Flores-Gaitan -// -// ============================================================================ - -#include "ace/Get_Opt.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Profile_Timer.h" -#include "ace/Timeprobe.h" -#include "gpp_header.hh" -#include "naming.hh" -#include "cubit.hh" -#include "es.h" - -class Cubit_Client -{ - // = TITLE - // Defines a class that encapsulates behaviour of the Cubit client - // example. Provides a better understanding of the logic in an - // object oriented way. - // - // = DESCRIPTION - // This class declares an interface to run the example client for - // Cubit CORBA server. All the complexity for initializing the - // server is hidden in the class. Just the run() interface is needed. -public: - // = Constructor and destructor. - Cubit_Client (void); - ~Cubit_Client (void); - - int run (int testing_collocation = 0); - // Execute client example code. - - int init (int argc, char **argv); - // Initialize the client communication endpoint with server. - -private: - int init_naming_service (void); - // Function to initialize the naming service. - - int func (u_int i); - // Simple function that returns the substraction of 117 from the - // parameter. - - int read_ior (char *filename); - // Function to read the cubit factory ior from a file. - - int parse_args (void); - // Parses the arguments passed on the command line. - - void print_stats (const char *call_name, - ACE_Profile_Timer::ACE_Elapsed_Time &elapsed_time); - // Prints the time stats. - void cube_oneway (int i); - // Oneway operation test. - - void cube_void (int i); - // Twoway operation test. - - void cube_union (void); - // Exercise the union. Cube a union. - - void cube_struct (int i); -// // calculate the cube from a struct. - - void cube_long (int i); - // calculate the cube from a long. - - void cube_octet (int i); - // Cube an octet. - - void cube_short (int i); - // Cube a short. - - void cube_long_sequence (int i, int l); - // Cube a sequence <l> is the length of the sequence. - - void cube_octet_sequence (int i, int l); - // Cube a sequence of octets, <l> is the length of the sequence. - - int argc_; - // # of arguments on the command line. - - char **argv_; - // arguments from command line. - - char *cubit_factory_key_; - // Key of factory obj ref. - - char *cubit_key_; - // Key of the obj ref to be retrieved via the factory. - - u_int loop_count_; - // Number of times to do the cube operations. - - int shutdown_; - // Flag to tell server to shutdown. - - //Cubit_Factory_var factory_; - // factory pointer for cubit. - - Cubit_ptr cubit_; - // Cubit obj ref. - - CORBA::ORB_ptr orb_; - // Remember our orb. - - CORBA::BOA_ptr boa_; - // Basic object adapter - - u_int call_count_; - // # of calls made to functions. - - u_int error_count_; - // # of errors incurred in the lifetime of the application. - - FILE *cubit_factory_ior_file_; - // File from which to obtain the IOR. - - ACE_HANDLE f_handle_; - // File handle to read the IOR. - - int use_naming_service_; - // Flag to tell client not to use Namingservice to find the cubit - // Factory. -}; diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit.idl b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit.idl deleted file mode 100644 index cc14781d7da..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit.idl +++ /dev/null @@ -1,96 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -interface Cubit - // = TITLE - // Defines an interface that encapsulates operations that cube - // numbers. - // - // = DESCRIPTION - // This interface encapsulates operations that cube - // octets, shorts, longs, structs and unions. -{ - oneway void cube_oneway (); - // test the basic latency of a nil oneway operation - - void cube_void (); - // Test the bassic latency of a nil operation - octet cube_octet (in octet o); - // cube an octet - - short cube_short (in short s); - // cube a short - - long cube_long (in long l); - // cube a long - - struct Many - { - octet o; // + 3 bytes padding (normally) ... - long l; - short s; // + 2 bytes padding (normally) ... - }; - - Many cube_struct (in Many values); - // Cube a struct - -// enum discrim -// { -// e_0th, -// e_1st, -// e_2nd, -// e_3rd -// }; -// // Enumeration of the different elements in a union. - -// 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: -// Many cm; - -// // default: -// // Many cm; -// }; -// // Union of different types. - -// oneof cube_union (in oneof values); -// // cube a union. - - typedef sequence<long> long_seq; - - void cube_long_sequence (in long_seq input, - out long_seq output); - // Cube several longs. - - - typedef sequence<octet> octet_seq; - void cube_octet_sequence (in octet_seq input, out octet_seq output); - // Cube an octet sequence. - - oneway void shutdown (); - // shutdown the application. -}; - -// interface Cubit_Shutdown -// { -// // = TITLE -// // We need this class to shutdown the server -// // when testing collocation. -// oneway void shutdown (); -// // shutdown the program. -// }; - -// interface Cubit_Factory -// // = TITLE -// // Creates Cubit objects. -// { -// Cubit make_cubit (); -// }; diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.cc b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.cc deleted file mode 100644 index 24e38720f87..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.cc +++ /dev/null @@ -1,163 +0,0 @@ -// $Id$ -#include "cubit_impl.hh" - -// This file is a skeleton of the implementation of the _impl class. - - -//============== Cubit implementation ============== -Cubit_impl::Cubit_impl() : _sk_Cubit(0) { -// Do not change the signature for this constructor - -} - -Cubit_impl::~Cubit_impl() { - -} - -void Cubit_impl::cube_oneway( - ) { -} - - -void Cubit_impl::cube_void( - ) { -} - -CORBA::Octet Cubit_impl::cube_octet( - CORBA::Octet o - ) { - return o * o * o; -} - - -CORBA::Short Cubit_impl::cube_short( - CORBA::Short s - ) { - return s * s * s; -} - - -CORBA::Long Cubit_impl::cube_long( - CORBA::Long l - ) { - return l * l * l; -} - - -Cubit::Many Cubit_impl::cube_struct( - const Cubit::Many& values - ) { - Cubit::Many temp; - - temp.o = values.o * values.o * values.o; - temp.s = values.s * values.s * values.s; - temp.l = values.l * values.l * values.l; - - return temp; - -} - -// Cubit::oneof Cubit_impl::cube_union( -// const Cubit::oneof& values -// ) { -// Cubit::oneof temp; - -// ACE_UNUSED_ARG (env); -// switch (values._d ()) -// { -// case Cubit::e_0th: -// temp.o (values.o () * values.o () * values.o ()); -// break; -// case Cubit::e_1st: -// temp.s (values.s () * values.s () * values.s ()); -// break; -// case Cubit::e_2nd: -// temp.l (values.l () * values.l () * values.l ()); -// break; -// case Cubit::e_3rd: -// default: -// temp._d (values._d ()); // set the discriminant -// // use the read/write accessor -// temp.cm ().o = values.cm ().o * values.cm ().o * values.cm ().o; -// temp.cm ().s = values.cm ().s * values.cm ().s * values.cm ().s; -// temp.cm ().l = values.cm ().l * values.cm ().l * values.cm ().l; - -// } -// return temp; -// } - -void Cubit_impl::cube_long_sequence( - const Cubit::long_seq& input, - Cubit::long_seq*& output - ) { - - if (output == 0) - output = new Cubit::long_seq (input.length ()); - - output->length (input.length ()); - CORBA::ULong i = 0; - CORBA::Long x = input[0]; - output[i] = x * x * x; - -} - - -void Cubit_impl::cube_octet_sequence( - const Cubit::octet_seq& input, - Cubit::octet_seq*& output - ) { - if (output == 0) - { - output = new Cubit::octet_seq (input.length ()); - } - // We don't want to cube all the elements on the sequence because - // that will take too long and will affect the performance. Further, - // we want to show that octet sequences have constant marshalling - // time, but making a copy of each element will hide that. - CORBA::ULong i = 0; - CORBA::Octet x = input[0]; - output[i] = x * x * x; - -} - - -void Cubit_impl::shutdown( - ) { - -} - - - -// //============== Cubit_Shutdown implementation ============== -// Cubit_Shutdown_impl::Cubit_Shutdown_impl() : _sk_Cubit_Shutdown(0) { -// // Do not change the signature for this constructor - -// } - -// Cubit_Shutdown_impl::~Cubit_Shutdown_impl() { - -// } - -// void Cubit_Shutdown_impl::shutdown( -// ) { - -// } - - - -// //============== Cubit_Factory implementation ============== -// Cubit_Factory_impl::Cubit_Factory_impl() : _sk_Cubit_Factory(0) { -// // Do not change the signature for this constructor - -// } - -// Cubit_Factory_impl::~Cubit_Factory_impl() { - -// } - -// Cubit_ptr Cubit_Factory_impl::make_cubit( -// ) { -// return this->my_cubit_; -// } - - diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.hh b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.hh deleted file mode 100644 index 8cb5312cc1f..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/cubit_impl.hh +++ /dev/null @@ -1,48 +0,0 @@ -#ifndef __cubit__impl_hh_def -#define __cubit__impl_hh_def - -#include "cubit.hh" - -// This file is a skeleton for the _impl class. - - -//============== Cubit_impl ============== -class Cubit_impl; -typedef Cubit_impl * Cubit_impl_ptr; - -class Cubit_impl : public virtual _sk_Cubit { -public: - -Cubit_impl(); -~Cubit_impl(); - -void cube_oneway( - ); -void cube_void( - ); -CORBA::Octet cube_octet( - CORBA::Octet o - ); -CORBA::Short cube_short( - CORBA::Short s - ); -CORBA::Long cube_long( - CORBA::Long l - ); -Cubit::Many cube_struct( - const Cubit::Many& values - ); -void cube_long_sequence( - const Cubit::long_seq& input, - Cubit::long_seq*& output - ); -void cube_octet_sequence( - const Cubit::octet_seq& input, - Cubit::octet_seq*& output - ); -void shutdown( - ); -private: -}; // End of class Cubit_impl - -#endif diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/initref.cfg b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/initref.cfg deleted file mode 100644 index d08f36322c2..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/initref.cfg +++ /dev/null @@ -1,18 +0,0 @@ - #***************************************************************/ - #* initref.cfg */ - #***************************************************************/ - # This file contains information for resolving initial references. - # An entry for the Naming Service is required; others are optional. - # - # The ORB will use this file to locate the NameService which is a server - # which supports the CosNaming_NamingContext interface. The current working - # directory will be checked for the existence of this file. If it is not - # found it will be looked for in your $HOME directory. This will allow - # concurrent users to execute a unique NameService, thereby allowing for - # concurrent development on the same system. - # - #***************************************************************/ - # - # Identifier Host Name ASE Name Port Number Interface Name - - NameService polka NAMING_S 10000 CosNaming_NamingContext diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server.cpp b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server.cpp deleted file mode 100644 index e82e1d84cc9..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server.cpp +++ /dev/null @@ -1,21 +0,0 @@ -// $Id$ - -#include "server_i.h" - -ACE_RCSID(IDL_Cubit, server, "$Id$") - -int -main (int argc, char *argv[]) -{ - Cubit_Server cubit_server; - - ACE_DEBUG ((LM_DEBUG, - "\n\tIDL_Cubit:SERVER\n\n")); - if (cubit_server.init (argc, argv) == -1) - return 1; - else - { - cubit_server.run (); - } - return 0; -} diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.cpp b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.cpp deleted file mode 100644 index 13208fa19c8..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.cpp +++ /dev/null @@ -1,180 +0,0 @@ -// $Id$ - -#include "server_i.h" - -ACE_RCSID(IDL_Cubit, server_i, "$Id$") - -Cubit_Server::Cubit_Server (void) - : num_of_objs_ (1), - use_naming_service_ (1), - ior_output_file_ (0) -{ -} - -int -Cubit_Server::parse_args (void) -{ - ACE_Get_Opt get_opts (argc_, argv_, "n:o:s"); - int c; - - while ((c = get_opts ()) != -1) - switch (c) - { - case 'n': // number of cubit objects we export - this->num_of_objs_ = ACE_OS::atoi (get_opts.optarg); - break; - case 'o': // output the IOR to a file. - this->ior_output_file_ = ACE_OS::fopen (get_opts.optarg, "w"); - if (this->ior_output_file_ == 0) - ACE_ERROR_RETURN ((LM_ERROR, - "Unable to open %s for writing: %p\n", - get_opts.optarg), -1); - break; - case 's': // Don't use the TAO Naming Service. - this->use_naming_service_=0; - break; - case '?': - default: - ACE_ERROR_RETURN ((LM_ERROR, - "usage: %s" - " [-n num of cubit objects]" - " [-o ior_output_file]" - " [-s]" - "\n", - argv_ [0]), - 1); - } - - // Indicates successful parsing of command line. - return 0; -} - -int -Cubit_Server::init (int argc, - char** argv) -{ - int argct; - char *argvt[1]; - - this->argc_ = argc; - this->argv_ = argv; - - if (this->parse_args () == -1) - return -1; - - try { - // Obtain an object reference to the ORB - argvt[0] = "-ORBase cubit_S"; - argct = 1; - this->orb_ = CORBA::ORB_init(argct, argvt, ORBIDENT); - } catch (CORBA::BAD_PARAM) { - cout << "Bad parameter exception caught - ORB_init" << endl; - return -1; - } catch (CORBA::INITIALIZE) { - cout << "Initialize exception caught - ORB_init" << endl; - return -1; - } catch (CORBA::INTERNAL) { - cout << "Internal exception caught - ORB_init" << endl; - return -1; - } catch (CORBA::UNKNOWN) { - cout << "Unknown exception caught - ORB_init" << endl; - return -1; - } catch(...) { - cout << "An exception of unknown type was caught - ORB_init" << endl; - return -1; - } - - - try { - // Obtain an object reference to the BOA - argct = 0; - this->boa_ = this->orb_->BOA_init(argct, argvt, BOAIDENT); - } catch (CORBA::UNKNOWN) { - cout << "Unknown exception caught - ORB_init" << endl; - return -1; - } catch (CORBA::SystemException) { - cout << "General system exception caught - BOA_init" << endl; - return -1; - } catch (...) { - cout << "An exception of unknown type was caught - BOA_init" << endl; - return -1; - } - - ACE_NEW_RETURN (this->cubit_, - Cubit_impl, - -1); - - if (this->use_naming_service_) - return this->init_naming_service (); - - return 0; -} - -// Initialisation of Naming Service and register IDL_Cubit Context and -// cubit_factory object. - -int -Cubit_Server::init_naming_service (void) -{ - CosNaming::Name name; - CosNaming::NamingContext_ptr cubit_S_context; - CORBA::Object_ptr dummy_object; - try { - // Resolve initial references to the nameserver - dummy_object = this->orb_->resolve_initial_references("NameService"); - this->nameserver_ = CosNaming::NamingContext::_narrow(dummy_object); - } catch (CORBA::BAD_PARAM) { - cout << "Bad parameter exception caught - narrow on the NameService" << endl; - return -1; - } catch (CORBA::SystemException) { - cout << "A general system exception was caught - resolve_initial_references" << endl; - return -1; - } catch (...) { - cout << "An exception of unknown type was caught - initializing the NameService" << endl; - return -1; - } - - try { - // Bind the new context of the server name to the nameserver - name.length(1); - name[0].id = "cubit_S"; - name[0].kind = "ASE"; - cubit_S_context = this->nameserver_ -> bind_new_context(name); - } catch(...) { - cout << "Naming service exception caught - bind of cubit_S context" << endl; - return -1; - } - - try { - // Bind the server interface object to the nameserver, so the client - // can resolve this server interface object - name[0].id = "cubit"; - name[0].kind = "interface"; - cubit_S_context -> bind(name, this->cubit_); - } catch (...) { - cout << "Naming service exception caught - bind of name to cubit object" << endl; - return -1; - } - - - return 0; -} - -int -Cubit_Server::run (void) -{ - - try { - // Process client requests forever - while (1) - select_wait(-1.0); - } catch (...) { - cout << "Exception of unknown type caught when servicing requests" << endl; - return -1; - } - return 0; -} - -Cubit_Server::~Cubit_Server (void) -{ -} diff --git a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.h b/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.h deleted file mode 100644 index 2ac0625197c..00000000000 --- a/TAO/performance-tests/Cubit/Hardpack/IDL_Cubit/server_i.h +++ /dev/null @@ -1,112 +0,0 @@ -// -*- c++ -*- -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO/tests/IDL_Cubit -// -// = FILENAME -// server_i.h -// -// = DESCRIPTION -// This class implements a simple "cube" CORBA server for the Cubit -// example using skeletons generated by the TAO ORB IDL compiler. -// -// = AUTHORS -// Nagarajan Surendran (naga@cs.wustl.edu) -// -// ============================================================================ - -#ifndef _C_SERVER_H -#define _C_SERVER_H - -#include "ace/Get_Opt.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Log_Msg.h" -#include "gpp_header.hh" -#include "naming.hh" -#include "cubit_impl.hh" - -class Cubit_Server -{ - // = TITLE - // Defines a Cubit Server class that implements the functionality - // of a server process as an object. - // - // = DESCRIPTION - // The interface is quite simple. A server program has to call - // init to initialize the cubit_server's state and then call run - // to run the orb. -public: - // = Initialization and termination methods. - Cubit_Server (void); - // Default constructor - - ~Cubit_Server (void); - // Destructor - - int init (int argc, - char **argv); - // Initialize the Cubit_Server state - parsing arguments and ... - - int run (void); - // Run the orb - -private: - int parse_args (void); - // Parses the commandline arguments. - - int init_naming_service (void); - // Initialises the name server and registers cubit factory with the - // name server. - - int num_of_objs_; - // Number of cubit objects we export. - - int use_naming_service_; - //Flag to tell server not to use the TAO Naming Service to register - //the cubit factory. - - FILE* ior_output_file_; - // File to output the cubit factory IOR. - - // Cubit_Factory_i factory_impl_; - // Implementation object of the cubit factory. - - //Cubit_Factory_var factory; - // Factory_var to register with NamingService. - - // Cubit_Shutdown_i shutdown_impl_; - // Implementation object of shutdown object. - - // Cubit_Shutdown_var shutdown_; - - CosNaming::NamingContext_var cubit_context_; - // Naming context for the cubit_factory. - - CosNaming::NamingContext_var nameserver_; - // Naming context for the Naming Service. - - Cubit_impl_ptr cubit_; - // pointer to the cubit object - - int argc_; - // Number of commandline arguments. - - char **argv_; - // commandline arguments. - - CORBA::ORB_ptr orb_; - // pointer to the ORB - - CORBA::BOA_ptr boa_; - // pointer to the BOA - -}; - -#endif /* _C_SERVER_H */ diff --git a/TAO/performance-tests/Cubit/Orbix/Makefile b/TAO/performance-tests/Cubit/Orbix/Makefile deleted file mode 100644 index 4dad4109daa..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/Makefile +++ /dev/null @@ -1,28 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# 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/performance-tests/Cubit/Orbix/base_server/Makefile b/TAO/performance-tests/Cubit/Orbix/base_server/Makefile deleted file mode 100644 index 3712d7efe3d..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/base_server/Makefile +++ /dev/null @@ -1,65 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# 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 = -lorbixmt - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- -exceptions = 1 - -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 - -#---------------------------------------------------------------------------- -# Orbix related macros and target settings. -#---------------------------------------------------------------------------- - - -ORBIX_BINDIR = $(ORBIX_ROOT)/bin -ORBIX_LIBDIR = $(ORBIX_ROOT)/lib -ORBIX_INCDIR = $(ORBIX_ROOT)/inc - -# 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) $(POSTLINK) - -realclean: clean - -$(RM) server cubitC.* cubitS.* cubit.hh - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - - - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/Orbix/base_server/cubit.idl b/TAO/performance-tests/Cubit/Orbix/base_server/cubit.idl deleted file mode 100644 index d4f1610e2a8..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/base_server/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/base_server/cubit_impl.cpp b/TAO/performance-tests/Cubit/Orbix/base_server/cubit_impl.cpp deleted file mode 100644 index 4661cba6809..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/base_server/cubit_impl.cpp +++ /dev/null @@ -1,50 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -ACE_RCSID(base_server, cubit_impl, "$Id$") - -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/performance-tests/Cubit/Orbix/base_server/cubit_impl.h b/TAO/performance-tests/Cubit/Orbix/base_server/cubit_impl.h deleted file mode 100644 index 5fb494ad4cf..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/base_server/cubit_impl.h +++ /dev/null @@ -1,29 +0,0 @@ -// $Id$ - - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.hh" - - -#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/performance-tests/Cubit/Orbix/base_server/server.cpp b/TAO/performance-tests/Cubit/Orbix/base_server/server.cpp deleted file mode 100644 index 21cc6adf755..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/base_server/server.cpp +++ /dev/null @@ -1,45 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "ace/streams.h" -#include "cubit_impl.h" // server header file - -ACE_RCSID(base_server, server, "$Id$") - -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/performance-tests/Cubit/Orbix/client/Makefile b/TAO/performance-tests/Cubit/Orbix/client/Makefile deleted file mode 100644 index 9fa121bef88..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/client/Makefile +++ /dev/null @@ -1,101 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitC.cpp client.cpp - -CLT_OBJS = cubitC.o client.o - -LDLIBS = - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# 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) $(POSTLINK) - - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitC.o .obj/cubitC.so .shobj/cubitC.o .shobj/cubitC.so: cubitC.cpp cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/client.o .obj/client.so .shobj/client.o .shobj/client.so: client.cpp \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.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/performance-tests/Cubit/Orbix/client/client.cpp b/TAO/performance-tests/Cubit/Orbix/client/client.cpp deleted file mode 100644 index 163aaf5b8f7..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/client/client.cpp +++ /dev/null @@ -1,299 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include "ace/OS.h" -#include "ace/Get_Opt.h" -#include "cubit.h" - -ACE_RCSID(client, client, "$Id$") - -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; - - ACE_Time_Value before, after; - - - // - // Cube an octet. - // - - call_count = 0; - error_count = 0; - before = ACE_OS::gettimeofday(); - - 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 = 0; - error_count = 0; - before = ACE_OS::gettimeofday(); - - for (i = 0; i < loop_count; i++) - { - 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++; - } - - } - 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); - } - - // - // Cube a long. - // - - call_count = 0; - error_count = 0; - before = ACE_OS::gettimeofday(); - - for (i = 0; i < loop_count; i++) - { - - 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++; - } - - } - 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); - } - - // - // Cube a "struct" ... - // - Cubit::Many arg_struct, ret_struct; - - call_count = 0; - error_count = 0; - before = ACE_OS::gettimeofday(); - - for (i = 0; i < loop_count; i++) - { - - 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/performance-tests/Cubit/Orbix/client/cubit.h b/TAO/performance-tests/Cubit/Orbix/client/cubit.h deleted file mode 100644 index 37fb9f317d4..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/client/cubit.h +++ /dev/null @@ -1,734 +0,0 @@ -// $Id$ - - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/client/cubit.idl b/TAO/performance-tests/Cubit/Orbix/client/cubit.idl deleted file mode 100644 index d4f1610e2a8..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/client/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/client/cubitC.cpp b/TAO/performance-tests/Cubit/Orbix/client/cubitC.cpp deleted file mode 100644 index 0913c5bb786..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/client/cubitC.cpp +++ /dev/null @@ -1,561 +0,0 @@ -// $Id$ - -#include "cubit.h" - -ACE_RCSID(client, cubitC, "$Id$") - -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/performance-tests/Cubit/Orbix/factory_client/Makefile b/TAO/performance-tests/Cubit/Orbix/factory_client/Makefile deleted file mode 100644 index ebdcbc9782e..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/Makefile +++ /dev/null @@ -1,74 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the ACE_MT_CORBA_Handler tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -SRC = cubitC.cpp client.cpp - -CLT_OBJS = cubitC.o client.o - -LDLIBS = - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# 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) $(POSTLINK) - - -#---------------------------------------------------------------------------- -# 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/streams.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/performance-tests/Cubit/Orbix/factory_client/client.cpp b/TAO/performance-tests/Cubit/Orbix/factory_client/client.cpp deleted file mode 100644 index d39892c91fe..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/client.cpp +++ /dev/null @@ -1,239 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : client.C -// DESCRIPTION: -// -// Client for the Cubit example -// -//**************************************************************************** - -#include "ace/OS.h" -#include "ace/Get_Opt.h" -#include "cubit.h" - -ACE_RCSID(factory_client, client, "$Id$") - -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/performance-tests/Cubit/Orbix/factory_client/cubit.h b/TAO/performance-tests/Cubit/Orbix/factory_client/cubit.h deleted file mode 100644 index 80e2c0590f5..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/cubit.h +++ /dev/null @@ -1,1113 +0,0 @@ -// $Id$ - - -#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/performance-tests/Cubit/Orbix/factory_client/cubit.hh b/TAO/performance-tests/Cubit/Orbix/factory_client/cubit.hh deleted file mode 100644 index 72e2fb81395..00000000000 --- a/TAO/performance-tests/Cubit/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/performance-tests/Cubit/Orbix/factory_client/cubit.idl b/TAO/performance-tests/Cubit/Orbix/factory_client/cubit.idl deleted file mode 100644 index 41309e997ea..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/cubit.idl +++ /dev/null @@ -1,48 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/factory_client/cubitC.cpp b/TAO/performance-tests/Cubit/Orbix/factory_client/cubitC.cpp deleted file mode 100644 index e265863e99a..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/cubitC.cpp +++ /dev/null @@ -1,714 +0,0 @@ -// $Id$ - - - -#include "cubit.h" - -ACE_RCSID(factory_client, cubitC, "$Id$") - -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/performance-tests/Cubit/Orbix/factory_client/cubitS.cpp b/TAO/performance-tests/Cubit/Orbix/factory_client/cubitS.cpp deleted file mode 100644 index f967ad02ee1..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/factory_client/cubitS.cpp +++ /dev/null @@ -1,286 +0,0 @@ -// $Id$ - - - -#include "cubit.hh" - - -ACE_RCSID(factory_client, cubitS, "$Id$") - -#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/performance-tests/Cubit/Orbix/orb.mk b/TAO/performance-tests/Cubit/Orbix/orb.mk deleted file mode 100644 index cf7b12d3b1b..00000000000 --- a/TAO/performance-tests/Cubit/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/performance-tests/Cubit/Orbix/tpool/Makefile b/TAO/performance-tests/Cubit/Orbix/tpool/Makefile deleted file mode 100644 index 11d2891442c..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/Makefile +++ /dev/null @@ -1,344 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# 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 = - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# 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) $(POSTLINK) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitS.o .obj/cubitS.so .shobj/cubitS.o .shobj/cubitS.so: cubitS.cpp cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - cubitC.cpp -.obj/cubit_impl.o .obj/cubit_impl.so .shobj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/server.o .obj/server.so .shobj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - tpool.h \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(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/Signal.h \ - $(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.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Atomic_Op.i \ - $(ACE_ROOT)/ace/Synch_T.cpp \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Containers_T.h \ - $(ACE_ROOT)/ace/Containers_T.i \ - $(ACE_ROOT)/ace/Containers_T.cpp \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Free_List.cpp \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Malloc_T.cpp \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.i \ - $(ACE_ROOT)/ace/Managed_Object.cpp \ - $(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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.cpp \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread_Manager.i \ - $(ACE_ROOT)/ace/Task.h \ - $(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/Message_Block.i \ - $(ACE_ROOT)/ace/Message_Block_T.h \ - $(ACE_ROOT)/ace/Message_Block_T.i \ - $(ACE_ROOT)/ace/Message_Block_T.cpp \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Message_Queue_T.h \ - $(ACE_ROOT)/ace/Message_Queue_T.i \ - $(ACE_ROOT)/ace/Message_Queue_T.cpp \ - $(ACE_ROOT)/ace/Strategies.h \ - $(ACE_ROOT)/ace/Strategies_T.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Synch_Options.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Functor.h \ - $(ACE_ROOT)/ace/Functor.i \ - $(ACE_ROOT)/ace/Functor_T.h \ - $(ACE_ROOT)/ace/Functor_T.i \ - $(ACE_ROOT)/ace/Functor_T.cpp \ - $(ACE_ROOT)/ace/Hash_Map_Manager.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.cpp \ - $(ACE_ROOT)/ace/Strategies_T.i \ - $(ACE_ROOT)/ace/Strategies_T.cpp \ - $(ACE_ROOT)/ace/Service_Repository.h \ - $(ACE_ROOT)/ace/Service_Types.h \ - $(ACE_ROOT)/ace/Service_Types.i \ - $(ACE_ROOT)/ace/Service_Repository.i \ - $(ACE_ROOT)/ace/WFMO_Reactor.h \ - $(ACE_ROOT)/ace/WFMO_Reactor.i \ - $(ACE_ROOT)/ace/Strategies.i \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i \ - $(ACE_ROOT)/ace/Task_T.cpp \ - $(ACE_ROOT)/ace/Module.h \ - $(ACE_ROOT)/ace/Module.i \ - $(ACE_ROOT)/ace/Module.cpp \ - $(ACE_ROOT)/ace/Stream_Modules.h \ - $(ACE_ROOT)/ace/Stream_Modules.i \ - $(ACE_ROOT)/ace/Stream_Modules.cpp -.obj/tpool.o .obj/tpool.so .shobj/tpool.o .shobj/tpool.so: tpool.cpp tpool.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(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/Signal.h \ - $(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.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Atomic_Op.i \ - $(ACE_ROOT)/ace/Synch_T.cpp \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Containers_T.h \ - $(ACE_ROOT)/ace/Containers_T.i \ - $(ACE_ROOT)/ace/Containers_T.cpp \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Free_List.cpp \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Malloc_T.cpp \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.i \ - $(ACE_ROOT)/ace/Managed_Object.cpp \ - $(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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.cpp \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread_Manager.i \ - $(ACE_ROOT)/ace/Task.h \ - $(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/Message_Block.i \ - $(ACE_ROOT)/ace/Message_Block_T.h \ - $(ACE_ROOT)/ace/Message_Block_T.i \ - $(ACE_ROOT)/ace/Message_Block_T.cpp \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Message_Queue_T.h \ - $(ACE_ROOT)/ace/Message_Queue_T.i \ - $(ACE_ROOT)/ace/Message_Queue_T.cpp \ - $(ACE_ROOT)/ace/Strategies.h \ - $(ACE_ROOT)/ace/Strategies_T.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Synch_Options.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Functor.h \ - $(ACE_ROOT)/ace/Functor.i \ - $(ACE_ROOT)/ace/Functor_T.h \ - $(ACE_ROOT)/ace/Functor_T.i \ - $(ACE_ROOT)/ace/Functor_T.cpp \ - $(ACE_ROOT)/ace/Hash_Map_Manager.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.cpp \ - $(ACE_ROOT)/ace/Strategies_T.i \ - $(ACE_ROOT)/ace/Strategies_T.cpp \ - $(ACE_ROOT)/ace/Service_Repository.h \ - $(ACE_ROOT)/ace/Service_Types.h \ - $(ACE_ROOT)/ace/Service_Types.i \ - $(ACE_ROOT)/ace/Service_Repository.i \ - $(ACE_ROOT)/ace/WFMO_Reactor.h \ - $(ACE_ROOT)/ace/WFMO_Reactor.i \ - $(ACE_ROOT)/ace/Strategies.i \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i \ - $(ACE_ROOT)/ace/Task_T.cpp \ - $(ACE_ROOT)/ace/Module.h \ - $(ACE_ROOT)/ace/Module.i \ - $(ACE_ROOT)/ace/Module.cpp \ - $(ACE_ROOT)/ace/Stream_Modules.h \ - $(ACE_ROOT)/ace/Stream_Modules.i \ - $(ACE_ROOT)/ace/Stream_Modules.cpp - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/Orbix/tpool/cubit.h b/TAO/performance-tests/Cubit/Orbix/tpool/cubit.h deleted file mode 100644 index 37fb9f317d4..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubit.h +++ /dev/null @@ -1,734 +0,0 @@ -// $Id$ - - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/tpool/cubit.idl b/TAO/performance-tests/Cubit/Orbix/tpool/cubit.idl deleted file mode 100644 index d4f1610e2a8..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/tpool/cubitC.cpp b/TAO/performance-tests/Cubit/Orbix/tpool/cubitC.cpp deleted file mode 100644 index afd00fd5c23..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubitC.cpp +++ /dev/null @@ -1,561 +0,0 @@ -// $Id$ - -#include "cubit.h" - -ACE_RCSID(tpool, cubitC, "$Id$") - -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/performance-tests/Cubit/Orbix/tpool/cubitS.cpp b/TAO/performance-tests/Cubit/Orbix/tpool/cubitS.cpp deleted file mode 100644 index bfa6c30e86d..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubitS.cpp +++ /dev/null @@ -1,230 +0,0 @@ -// $Id$ - -#include "cubit.h" - - -ACE_RCSID(tpool, cubitS, "$Id$") - -#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/performance-tests/Cubit/Orbix/tpool/cubit_impl.cpp b/TAO/performance-tests/Cubit/Orbix/tpool/cubit_impl.cpp deleted file mode 100644 index e1ed154b9f6..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubit_impl.cpp +++ /dev/null @@ -1,50 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -ACE_RCSID(tpool, cubit_impl, "$Id$") - -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/performance-tests/Cubit/Orbix/tpool/cubit_impl.h b/TAO/performance-tests/Cubit/Orbix/tpool/cubit_impl.h deleted file mode 100644 index 033aa7f0cb1..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/cubit_impl.h +++ /dev/null @@ -1,29 +0,0 @@ -// $Id$ - - -#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/performance-tests/Cubit/Orbix/tpool/server.cpp b/TAO/performance-tests/Cubit/Orbix/tpool/server.cpp deleted file mode 100644 index fd486ba5d6f..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/server.cpp +++ /dev/null @@ -1,50 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file -#include "tpool.h" - -ACE_RCSID(tpool, server, "$Id$") - -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/performance-tests/Cubit/Orbix/tpool/tpool.cpp b/TAO/performance-tests/Cubit/Orbix/tpool/tpool.cpp deleted file mode 100644 index 008f777cb22..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/tpool.cpp +++ /dev/null @@ -1,46 +0,0 @@ -// $Id$ - -#include "tpool.h" - -ACE_RCSID(tpool, tpool, "$Id$") - -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/performance-tests/Cubit/Orbix/tpool/tpool.h b/TAO/performance-tests/Cubit/Orbix/tpool/tpool.h deleted file mode 100644 index 536aeedad22..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpool/tpool.h +++ /dev/null @@ -1,22 +0,0 @@ -// $Id$ - -#include "cubit.h" -#include "ace/Service_Config.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/tpr/Makefile b/TAO/performance-tests/Cubit/Orbix/tpr/Makefile deleted file mode 100644 index 6eacf888a96..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/Makefile +++ /dev/null @@ -1,197 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# 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 = - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# 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) $(POSTLINK) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitS.o .obj/cubitS.so .shobj/cubitS.o .shobj/cubitS.so: cubitS.cpp cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - cubitC.cpp -.obj/cubit_impl.o .obj/cubit_impl.so .shobj/cubit_impl.o .shobj/cubit_impl.so: cubit_impl.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/server.o .obj/server.so .shobj/server.o .shobj/server.so: server.cpp cubit_impl.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i -.obj/tpr.o .obj/tpr.so .shobj/tpr.o .shobj/tpr.so: tpr.cpp tpr.h cubit.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.i \ - $(ACE_ROOT)/ace/Service_Config.h \ - $(ACE_ROOT)/ace/Service_Object.h \ - $(ACE_ROOT)/ace/Shared_Object.h \ - $(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/Signal.h \ - $(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.h \ - $(ACE_ROOT)/ace/Thread.i \ - $(ACE_ROOT)/ace/Atomic_Op.i \ - $(ACE_ROOT)/ace/Synch_T.cpp \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Containers_T.h \ - $(ACE_ROOT)/ace/Containers_T.i \ - $(ACE_ROOT)/ace/Containers_T.cpp \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Free_List.cpp \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Malloc_T.cpp \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.i \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.i \ - $(ACE_ROOT)/ace/Managed_Object.cpp \ - $(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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.cpp \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Thread_Manager.h \ - $(ACE_ROOT)/ace/Thread_Manager.i - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/Orbix/tpr/cubit.h b/TAO/performance-tests/Cubit/Orbix/tpr/cubit.h deleted file mode 100644 index 37fb9f317d4..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubit.h +++ /dev/null @@ -1,734 +0,0 @@ -// $Id$ - - -#ifndef cubit_hh -#define cubit_hh - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/tpr/cubit.idl b/TAO/performance-tests/Cubit/Orbix/tpr/cubit.idl deleted file mode 100644 index d4f1610e2a8..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/tpr/cubitC.cpp b/TAO/performance-tests/Cubit/Orbix/tpr/cubitC.cpp deleted file mode 100644 index 4bc7a548c54..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubitC.cpp +++ /dev/null @@ -1,561 +0,0 @@ -// $Id$ - -#include "cubit.h" - -ACE_RCSID(tpr, cubitC, "$Id$") - -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/performance-tests/Cubit/Orbix/tpr/cubitC.h b/TAO/performance-tests/Cubit/Orbix/tpr/cubitC.h deleted file mode 100644 index 5c020bd0c4b..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubitC.h +++ /dev/null @@ -1,345 +0,0 @@ -// $Id$ - -#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/performance-tests/Cubit/Orbix/tpr/cubitS.cpp b/TAO/performance-tests/Cubit/Orbix/tpr/cubitS.cpp deleted file mode 100644 index 4dff3946d8b..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubitS.cpp +++ /dev/null @@ -1,230 +0,0 @@ -// $Id$ - -#include "cubit.h" - - -ACE_RCSID(tpr, cubitS, "$Id$") - -#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/performance-tests/Cubit/Orbix/tpr/cubitS.h b/TAO/performance-tests/Cubit/Orbix/tpr/cubitS.h deleted file mode 100644 index 7132e9d229c..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubitS.h +++ /dev/null @@ -1,120 +0,0 @@ -// $Id$ - -#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/performance-tests/Cubit/Orbix/tpr/cubit_impl.cpp b/TAO/performance-tests/Cubit/Orbix/tpr/cubit_impl.cpp deleted file mode 100644 index d0fea470713..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubit_impl.cpp +++ /dev/null @@ -1,50 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -ACE_RCSID(tpr, cubit_impl, "$Id$") - -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/performance-tests/Cubit/Orbix/tpr/cubit_impl.h b/TAO/performance-tests/Cubit/Orbix/tpr/cubit_impl.h deleted file mode 100644 index 033aa7f0cb1..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/cubit_impl.h +++ /dev/null @@ -1,29 +0,0 @@ -// $Id$ - - -#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/performance-tests/Cubit/Orbix/tpr/server.cpp b/TAO/performance-tests/Cubit/Orbix/tpr/server.cpp deleted file mode 100644 index a47b9aea225..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/server.cpp +++ /dev/null @@ -1,44 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -//**************************************************************************** -#define IT_EX_MACROS - -#include "cubit_impl.h" // server header file - -ACE_RCSID(tpr, server, "$Id$") - -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/performance-tests/Cubit/Orbix/tpr/tpr.cpp b/TAO/performance-tests/Cubit/Orbix/tpr/tpr.cpp deleted file mode 100644 index 571188cc77a..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/tpr.cpp +++ /dev/null @@ -1,32 +0,0 @@ -// $Id$ - -#include "tpr.h" - -ACE_RCSID(tpr, tpr, "$Id$") - -ACE_RCSID(tpr, tpr, "$Id$") - -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/performance-tests/Cubit/Orbix/tpr/tpr.h b/TAO/performance-tests/Cubit/Orbix/tpr/tpr.h deleted file mode 100644 index 7912a2dc92c..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tpr/tpr.h +++ /dev/null @@ -1,17 +0,0 @@ -// $Id$ - -#include "cubit.h" -#include "ace/Service_Config.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/tps/Makefile b/TAO/performance-tests/Cubit/Orbix/tps/Makefile deleted file mode 100644 index 409dc333ec3..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/Makefile +++ /dev/null @@ -1,303 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# 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 = - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# 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) $(POSTLINK) - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -.obj/cubitS.o .obj/cubitS.so .shobj/cubitS.o .shobj/cubitS.so: cubitS.cpp cubit.h cubitC.cpp -.obj/cubit_impl.o .obj/cubit_impl.so .shobj/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/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.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/Atomic_Op.i \ - $(ACE_ROOT)/ace/Synch_T.cpp \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Containers_T.h \ - $(ACE_ROOT)/ace/Containers_T.i \ - $(ACE_ROOT)/ace/Containers_T.cpp \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Free_List.cpp \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Malloc_T.cpp \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.i \ - $(ACE_ROOT)/ace/Managed_Object.cpp \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.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/Message_Block.i \ - $(ACE_ROOT)/ace/Message_Block_T.h \ - $(ACE_ROOT)/ace/Message_Block_T.i \ - $(ACE_ROOT)/ace/Message_Block_T.cpp \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Message_Queue_T.h \ - $(ACE_ROOT)/ace/Message_Queue_T.i \ - $(ACE_ROOT)/ace/Message_Queue_T.cpp \ - $(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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.cpp \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Synch_Options.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Functor.h \ - $(ACE_ROOT)/ace/Functor.i \ - $(ACE_ROOT)/ace/Functor_T.h \ - $(ACE_ROOT)/ace/Functor_T.i \ - $(ACE_ROOT)/ace/Functor_T.cpp \ - $(ACE_ROOT)/ace/Hash_Map_Manager.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.cpp \ - $(ACE_ROOT)/ace/Strategies_T.i \ - $(ACE_ROOT)/ace/Strategies_T.cpp \ - $(ACE_ROOT)/ace/Service_Repository.h \ - $(ACE_ROOT)/ace/Service_Types.h \ - $(ACE_ROOT)/ace/Service_Types.i \ - $(ACE_ROOT)/ace/Service_Repository.i \ - $(ACE_ROOT)/ace/WFMO_Reactor.h \ - $(ACE_ROOT)/ace/WFMO_Reactor.i \ - $(ACE_ROOT)/ace/Strategies.i \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i \ - $(ACE_ROOT)/ace/Task_T.cpp \ - $(ACE_ROOT)/ace/Module.h \ - $(ACE_ROOT)/ace/Module.i \ - $(ACE_ROOT)/ace/Module.cpp \ - $(ACE_ROOT)/ace/Stream_Modules.h \ - $(ACE_ROOT)/ace/Stream_Modules.i \ - $(ACE_ROOT)/ace/Stream_Modules.cpp -.obj/tps.o .obj/tps.so .shobj/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/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/config-sunos5.5.h \ - $(ACE_ROOT)/ace/config-g++-common.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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.i \ - $(ACE_ROOT)/ace/Log_Priority.h \ - $(ACE_ROOT)/ace/SString.h \ - $(ACE_ROOT)/ace/SString.i \ - $(ACE_ROOT)/ace/Malloc_Base.h \ - $(ACE_ROOT)/ace/Log_Record.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/Atomic_Op.i \ - $(ACE_ROOT)/ace/Synch_T.cpp \ - $(ACE_ROOT)/ace/Containers.h \ - $(ACE_ROOT)/ace/Containers.i \ - $(ACE_ROOT)/ace/Containers_T.h \ - $(ACE_ROOT)/ace/Containers_T.i \ - $(ACE_ROOT)/ace/Containers_T.cpp \ - $(ACE_ROOT)/ace/Malloc.h \ - $(ACE_ROOT)/ace/Malloc.i \ - $(ACE_ROOT)/ace/Malloc_T.h \ - $(ACE_ROOT)/ace/Free_List.h \ - $(ACE_ROOT)/ace/Free_List.i \ - $(ACE_ROOT)/ace/Free_List.cpp \ - $(ACE_ROOT)/ace/Malloc_T.i \ - $(ACE_ROOT)/ace/Malloc_T.cpp \ - $(ACE_ROOT)/ace/Memory_Pool.h \ - $(ACE_ROOT)/ace/Signal.h \ - $(ACE_ROOT)/ace/Signal.i \ - $(ACE_ROOT)/ace/Object_Manager.h \ - $(ACE_ROOT)/ace/Object_Manager.i \ - $(ACE_ROOT)/ace/Managed_Object.h \ - $(ACE_ROOT)/ace/Managed_Object.i \ - $(ACE_ROOT)/ace/Managed_Object.cpp \ - $(ACE_ROOT)/ace/Mem_Map.h \ - $(ACE_ROOT)/ace/Mem_Map.i \ - $(ACE_ROOT)/ace/Memory_Pool.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/Message_Block.i \ - $(ACE_ROOT)/ace/Message_Block_T.h \ - $(ACE_ROOT)/ace/Message_Block_T.i \ - $(ACE_ROOT)/ace/Message_Block_T.cpp \ - $(ACE_ROOT)/ace/IO_Cntl_Msg.h \ - $(ACE_ROOT)/ace/Message_Queue_T.h \ - $(ACE_ROOT)/ace/Message_Queue_T.i \ - $(ACE_ROOT)/ace/Message_Queue_T.cpp \ - $(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/Timer_Queue_T.i \ - $(ACE_ROOT)/ace/Timer_Queue_T.cpp \ - $(ACE_ROOT)/ace/Reactor.i \ - $(ACE_ROOT)/ace/Reactor_Impl.h \ - $(ACE_ROOT)/ace/Svc_Conf_Tokens.h \ - $(ACE_ROOT)/ace/Synch_Options.h \ - $(ACE_ROOT)/ace/Synch_Options.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager.h \ - $(ACE_ROOT)/ace/Functor.h \ - $(ACE_ROOT)/ace/Functor.i \ - $(ACE_ROOT)/ace/Functor_T.h \ - $(ACE_ROOT)/ace/Functor_T.i \ - $(ACE_ROOT)/ace/Functor_T.cpp \ - $(ACE_ROOT)/ace/Hash_Map_Manager.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.h \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.i \ - $(ACE_ROOT)/ace/Hash_Map_Manager_T.cpp \ - $(ACE_ROOT)/ace/Strategies_T.i \ - $(ACE_ROOT)/ace/Strategies_T.cpp \ - $(ACE_ROOT)/ace/Service_Repository.h \ - $(ACE_ROOT)/ace/Service_Types.h \ - $(ACE_ROOT)/ace/Service_Types.i \ - $(ACE_ROOT)/ace/Service_Repository.i \ - $(ACE_ROOT)/ace/WFMO_Reactor.h \ - $(ACE_ROOT)/ace/WFMO_Reactor.i \ - $(ACE_ROOT)/ace/Strategies.i \ - $(ACE_ROOT)/ace/Message_Queue.i \ - $(ACE_ROOT)/ace/Task_T.i \ - $(ACE_ROOT)/ace/Task_T.cpp \ - $(ACE_ROOT)/ace/Module.h \ - $(ACE_ROOT)/ace/Module.i \ - $(ACE_ROOT)/ace/Module.cpp \ - $(ACE_ROOT)/ace/Stream_Modules.h \ - $(ACE_ROOT)/ace/Stream_Modules.i \ - $(ACE_ROOT)/ace/Stream_Modules.cpp - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Cubit/Orbix/tps/cubit.h b/TAO/performance-tests/Cubit/Orbix/tps/cubit.h deleted file mode 100644 index 80e2c0590f5..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubit.h +++ /dev/null @@ -1,1113 +0,0 @@ -// $Id$ - - -#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/performance-tests/Cubit/Orbix/tps/cubit.idl b/TAO/performance-tests/Cubit/Orbix/tps/cubit.idl deleted file mode 100644 index 41309e997ea..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubit.idl +++ /dev/null @@ -1,48 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/Orbix/tps/cubitC.cpp b/TAO/performance-tests/Cubit/Orbix/tps/cubitC.cpp deleted file mode 100644 index 5791756e6a4..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubitC.cpp +++ /dev/null @@ -1,714 +0,0 @@ -// $Id$ - - - -#include "cubit.h" - -ACE_RCSID(tps, cubitC, "$Id$") - -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/performance-tests/Cubit/Orbix/tps/cubitS.cpp b/TAO/performance-tests/Cubit/Orbix/tps/cubitS.cpp deleted file mode 100644 index 19a128e2bca..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubitS.cpp +++ /dev/null @@ -1,285 +0,0 @@ -// $Id$ - - - -#include "cubit.h" - -ACE_RCSID(tps, cubitS, "$Id$") - -#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/performance-tests/Cubit/Orbix/tps/cubit_impl.cpp b/TAO/performance-tests/Cubit/Orbix/tps/cubit_impl.cpp deleted file mode 100644 index 94c1c4262d1..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubit_impl.cpp +++ /dev/null @@ -1,85 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -ACE_RCSID(tps, cubit_impl, "$Id$") - -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/performance-tests/Cubit/Orbix/tps/cubit_impl.h b/TAO/performance-tests/Cubit/Orbix/tps/cubit_impl.h deleted file mode 100644 index 13e65492916..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/cubit_impl.h +++ /dev/null @@ -1,52 +0,0 @@ -// $Id$ - - -#ifndef cubit_ih -#define cubit_ih - -#include "cubit.h" -#include "ace/Task.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/Orbix/tps/tps.cpp b/TAO/performance-tests/Cubit/Orbix/tps/tps.cpp deleted file mode 100644 index 9ab83e9bc8d..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/tps.cpp +++ /dev/null @@ -1,30 +0,0 @@ -// $Id$ - -#include "tps.h" - -ACE_RCSID(tps, tps, "$Id$") - -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/performance-tests/Cubit/Orbix/tps/tps.h b/TAO/performance-tests/Cubit/Orbix/tps/tps.h deleted file mode 100644 index 169b44dfd62..00000000000 --- a/TAO/performance-tests/Cubit/Orbix/tps/tps.h +++ /dev/null @@ -1,18 +0,0 @@ -// $Id$ - -#include "cubit.h" -#include "cubit_impl.h" -#include "ace/Service_Config.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#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/performance-tests/Cubit/README b/TAO/performance-tests/Cubit/README index 218935ebfad..422612af3c9 100644 --- a/TAO/performance-tests/Cubit/README +++ b/TAO/performance-tests/Cubit/README @@ -1,4 +1,2 @@ -This directory contains performance tests for COOL, CORBAplus, -Hardpack, Orbix, TAO, and VisiBroker. These tests measure the -latency, jitter, CPU utilization, and priority inversion of these -ORBs. +This directory contains the Cubit performance test for TAO. + diff --git a/TAO/performance-tests/Cubit/VisiBroker/base_server/Makefile b/TAO/performance-tests/Cubit/VisiBroker/base_server/Makefile deleted file mode 100644 index 537f619e828..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/Makefile +++ /dev/null @@ -1,21 +0,0 @@ -# $Id$ - -include stdmk - -EXE = server - -all: $(EXE) - -clean: - -$(RM) core *.o cubitC.* cubitS.* $(EXE) - -$(RM) -r 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/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.cpp b/TAO/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.cpp deleted file mode 100644 index 42dce7eb80a..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.cpp +++ /dev/null @@ -1,131 +0,0 @@ -// $Id$ - -#include "Profile_Timer.h" - -ACE_RCSID(base_server, Profile_Timer, "$Id$") - -/* 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/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.h b/TAO/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.h deleted file mode 100644 index 8a4f73314ce..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/Profile_Timer.h +++ /dev/null @@ -1,62 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -/* An interval timer class using C++. */ - -#ifndef 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/performance-tests/Cubit/VisiBroker/base_server/cubit.idl b/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit.idl deleted file mode 100644 index 7eedbe786ab..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.cpp b/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.cpp deleted file mode 100644 index 123406d993c..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.cpp +++ /dev/null @@ -1,50 +0,0 @@ -// $Id$ - -#include "cubit_impl.h" - -ACE_RCSID(base_server, cubit_impl, "$Id$") - -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/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.h b/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.h deleted file mode 100644 index f1f5e3fa3ea..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/cubit_impl.h +++ /dev/null @@ -1,35 +0,0 @@ -// $Id$ - - -#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/performance-tests/Cubit/VisiBroker/base_server/server.cpp b/TAO/performance-tests/Cubit/VisiBroker/base_server/server.cpp deleted file mode 100644 index 5a2bccfa186..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/base_server/server.cpp +++ /dev/null @@ -1,53 +0,0 @@ -// $Id$ - -// ************************************************************************** -// -// NAME : tpr_server.cpp -// DESCRIPTION: -// -// Server mainline -// -// **************************************************************************** -#include "cubit_impl.h" // server header file - -ACE_RCSID(base_server, server, "$Id$") - -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/performance-tests/Cubit/VisiBroker/base_server/stdmk b/TAO/performance-tests/Cubit/VisiBroker/base_server/stdmk deleted file mode 100644 index df4125a38d8..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/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/performance-tests/Cubit/VisiBroker/client/Makefile b/TAO/performance-tests/Cubit/VisiBroker/client/Makefile deleted file mode 100644 index c834d8f74ee..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/client/Makefile +++ /dev/null @@ -1,21 +0,0 @@ -# $Id$ - -include stdmk - -EXE = client - -all: $(EXE) - -clean: - -$(RM) core *.o cubitC.* cubitS.* $(EXE) - -$(RM) -r 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/performance-tests/Cubit/VisiBroker/client/Profile_Timer.cpp b/TAO/performance-tests/Cubit/VisiBroker/client/Profile_Timer.cpp deleted file mode 100644 index 2d1f74b2e69..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/client/Profile_Timer.cpp +++ /dev/null @@ -1,131 +0,0 @@ -// $Id$ - -#include "Profile_Timer.h" - -ACE_RCSID(client, Profile_Timer, "$Id$") - -/* 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/performance-tests/Cubit/VisiBroker/client/Profile_Timer.h b/TAO/performance-tests/Cubit/VisiBroker/client/Profile_Timer.h deleted file mode 100644 index 8a4f73314ce..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/client/Profile_Timer.h +++ /dev/null @@ -1,62 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -/* An interval timer class using C++. */ - -#ifndef 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/performance-tests/Cubit/VisiBroker/client/client.cpp b/TAO/performance-tests/Cubit/VisiBroker/client/client.cpp deleted file mode 100644 index 1d8c9115bea..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/client/client.cpp +++ /dev/null @@ -1,320 +0,0 @@ -// $Id$ - -//************************************************************************** -// -// 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" - -ACE_RCSID(client, client, "$Id$") - -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; - - Profile_Timer pt; - Elapsed_Time et; - - // - // Cube an octet. - // - - call_count = 0; - error_count = 0; - pt.start(); - - 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++; - } - } - - pt.stop(); - 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 octet 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); - } - - - // - // Cube a short. - // - call_count = 0; - error_count = 0; - pt.start(); - - for (i = 0; i < loop_count; i++) - { - - 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++; - } - } - - pt.stop(); - 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 short 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); - } - - // - // Cube a long. - // - - call_count = 0; - error_count = 0; - pt.start(); - - for (i = 0; i < loop_count; i++) - { - - 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++; - } - } - - pt.stop(); - 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 long 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); - } - - - // - // Cube a "struct" ... - // - Cubit::Many arg_struct, ret_struct; - - call_count = 0; - error_count = 0; - pt.start(); - - for (i = 0; i < loop_count; i++) - { - - 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(); - 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 struuct 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/performance-tests/Cubit/VisiBroker/client/cubit.idl b/TAO/performance-tests/Cubit/VisiBroker/client/cubit.idl deleted file mode 100644 index 7eedbe786ab..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/client/cubit.idl +++ /dev/null @@ -1,42 +0,0 @@ -// $Id$ - -// @(#)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/performance-tests/Cubit/VisiBroker/client/stdmk b/TAO/performance-tests/Cubit/VisiBroker/client/stdmk deleted file mode 100644 index df4125a38d8..00000000000 --- a/TAO/performance-tests/Cubit/VisiBroker/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/performance-tests/Thruput/COOL/Makefile b/TAO/performance-tests/Thruput/COOL/Makefile deleted file mode 100644 index 3e9cc04623f..00000000000 --- a/TAO/performance-tests/Thruput/COOL/Makefile +++ /dev/null @@ -1,130 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Makefile for the CHORUS COOL Cubit tests -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -IDL_SRC = ttcp.cpp ttcp.H sk_ttcp.C sk_ttcp.H - -SRC = $(IDL_SRC) ttcp_i.cpp server.cpp client.cpp utils.cpp - -SVR_OBJS = ttcp_i.o server.o ttcp.o utils.o - -CLT_OBJS = client.o ttcp.o utils.o - -LDLIBS = -lm -lOrb-mt -lposix4 - -#---------------------------------------------------------------------------- -# 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 - -#---------------------------------------------------------------------------- -# CHORUS related macros and target settings. -#---------------------------------------------------------------------------- - -CHORUS_BINDIR = $(CHORUS_ROOT)/bin -CHORUS_LIBDIR = $(CHORUS_ROOT)/lib -CHORUS_INCDIR = $(CHORUS_ROOT)/include - -CPPFLAGS += -I$(CHORUS_INCDIR) -I$(CHORUS_ROOT) -LDFLAGS += -L$(CHORUS_LIBDIR) -R $(CHORUS_LIBDIR) -L$(ACE)/ace -IDLFLAGS = --stub-header --stub-impl --skeleton-header --skeleton-impl --no-local --no-any --binding ttcp_sequence ttcp_sequence_i - -#---------------------------------------------------------------------------- -# Local targets -#---------------------------------------------------------------------------- - -all: $(IDL_SRC) server client - -$(IDL_SRC): ttcp.idl - $(CHORUS_BINDIR)/chic $(IDLFLAGS) ttcp.idl - -mv ttcp.C ttcp.cpp - -server: $(addprefix $(VDIR),$(SVR_OBJS)) - $(LINK.cc) -o server $(addprefix $(VDIR),$(SVR_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITSRV) $(VLDLIBS) $(POSTLINK) - -client: $(addprefix $(VDIR),$(CLT_OBJS)) - $(LINK.cc) -o client $(addprefix $(VDIR),$(CLT_OBJS)) $(LDFLAGS) $(ITIIOP) $(ITCLT) $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) ttcp.cpp ttcp.H sk_ttcp.C sk_ttcp.H server client - -#---------------------------------------------------------------------------- -# Dependencies -#---------------------------------------------------------------------------- -# DO NOT DELETE THIS LINE -- g++dep uses it. -# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY. - -ttcp.o: ttcp.cpp ttcp.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/shortSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/longSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/doubleSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/charSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/octetSeq.H -sk_ttcp.o: sk_ttcp.C -ttcp_i.o: ttcp_i.cpp \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i ttcp_i.h ttcp.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/cool.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/shortSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/longSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/doubleSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/charSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/octetSeq.H \ - ttcp_decl.h \ - $(ACE_ROOT)/ace/Profile_Timer.h \ - $(ACE_ROOT)/ace/Time_Value.h \ - $(ACE_ROOT)/ace/High_Res_Timer.h \ - $(ACE_ROOT)/ace/High_Res_Timer.i \ - $(ACE_ROOT)/ace/Profile_Timer.i -server.o: server.cpp \ - $(ACE_ROOT)/ace/ACE.h \ - $(ACE_ROOT)/ace/OS.h \ - $(ACE_ROOT)/ace/inc_user_config.h \ - $(ACE_ROOT)/ace/config.h \ - $(ACE_ROOT)/ace/streams.h \ - $(ACE_ROOT)/ace/Basic_Types.h \ - $(ACE_ROOT)/ace/Basic_Types.i \ - $(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/Version.h \ - $(ACE_ROOT)/ace/ACE.i ttcp_i.h ttcp.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/cool.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/shortSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/longSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/doubleSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/charSeq.H \ - /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/include/corba/octetSeq.H \ - $(ACE_ROOT)/ace/Get_Opt.h \ - $(ACE_ROOT)/ace/Get_Opt.i sk_ttcp.H \ - sk_ttcp.C - -# IF YOU PUT ANYTHING HERE IT WILL GO AWAY diff --git a/TAO/performance-tests/Thruput/COOL/README b/TAO/performance-tests/Thruput/COOL/README deleted file mode 100644 index f227cfeea21..00000000000 --- a/TAO/performance-tests/Thruput/COOL/README +++ /dev/null @@ -1,117 +0,0 @@ - TTCP Benchmark README file - -This directory contains a modified version of the TTCP benchmark that -uses the TAO ORB. TTCP is used to measure the throughput of COOL -for sending different data types. This code tests sequences of short, -long, octet, char, double, and richly-typed data such as a struct. - -Organization ------------- - -client.cpp Client main program -server.cpp Server main program -ttcp.cpp Client & Server side stub -ttcp.H Client & Server side stub header file -sk_ttcp.C Server skeleton implementation file -sk_ttcp.H Server skeleton implementation header file -ttcp_i.cpp Implementation of the interface -ttcp_i.h Header for the implementation -utils.cpp Utilities to calculate throughput -ttcp_decl.h Common declarations - -Results -------- -Throughput results are displayed on stdout. - -Running the test ------------------ - Server - ------ - Usage: - server [COOL options] [Common options] - - [COOL options] ** these are required ** - cool-tcp://<THIS_HOSTNAME>:<THIS_HOST_PORT> -cool-tcp -cool-iiop - - THIS_HOSTNAME : the name of the host that the server will be running on. This is useful - if you want to specifya different interface (e.g. ATM, 100Mbit Ethernet) - - THIS_HOST_PORT: is the port number at which the server will start the high - priority servant. The low priority servant will be created at - (THIS_HOST_PORT+1). - - [Common options]: - -l ## length of bufs read from or written to network (default 8192) - -v verbose: print more statistics - -d ## set debug level - -f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga - -L ## Output file name to store results - - Example: - - server cool-tcp://tango.cs.wustl.edu:3000 -cool-tcp -cool-iiop -d 1 - - The Output might look like this: - stringified obj reference = IOR:000000000000001649444C3A747463705F73657175656E63653A312E3000000000000002000000000000004900010000000000103132382E3235322E3136352E313430000BB80000000000290000000001000000010000001C0073193B00000002EFFFED98000000000000000A80FCA58C00000BB8000000434F4F4C000000290000000001000000010000001C0073193B00000002EFFFED98000000000000000A80FCA58C00000BB8 - Entering boa->run (). - - - Client - ------ - - Usage: - client -cool-tcp -cool-iiop [Common options] - - [Common options]: - -l ## length of bufs read from or written to network (default 8192) - -v verbose: print more statistics - -d ## debug level - -f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga - -h ## Remote host to send data to - -p ## Port number" - -S ## Total Data Size to be sent - -L ## Output file name to store results - -q <type> Send Sequence: Enumeration for various data types: - s = short, l = long, d = double, c = char - o = octet, S = BinStruct - - Example: - - # The following example will send 10Mb of data, using a megabyte rate, - in 1024 byte chunks, to host tango.cs.wustl.edu, to port 3000, and will send shorts - - client -cool-tcp -cool-iiop -S 10240000 -f m -l 1024 -h tango.cs.wustl.edu -p 3000 -q s - - The Output might look like this: - - Composed IOR string as: cool-tcp://tango.cs.wustl.edu:3000 - data size = 10240000, buflen = 1024, nbuf = 10000 - ttcp-t: 10240000 bytes in 2.81 real seconds = 27.82 Mbit/sec +++ - ttcp-t: 10000 Server Method calls, msec/call = 0.29, calls/sec = 3561.29 - ttcp-r: 10236928 bytes in 2.81 real seconds = 3560.03 KB/sec +++ - ttcp-r: 9993 Server Method calls, msec/call = 0.29, calls/sec = 3558.60 - ttcp-t: 176224.1user -1.-2674sys 0:02real 6261769% 0i+0d 101622maxrss -268440216+-277460652pf 10002+458757csw - ttcp-r: -268441649.-103user 728.0sys 0:02real -194852% 0i+0d 420maxrss -280679408+0pf -268441576+-277738728csw - - -Compiling ---------- - -Setup the CHORUS COOL environment variables before compiling, the -following is an example. You would typically want this in the shells' -resource file (e.g. .cshrc.mine). The example provided is for a C -shell. - - setenv CHORUS_ROOT /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt - set path = ($path /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/bin) - setenv LD_LIBRARY_PATH /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/lib:$LD_LIBRARY_PATH - setenv MANPATH /project/doc/miniCOOL/minicool.r4.3/solaris2.5-CC-mt/man:$MANPATH - -Makefiles are provided. Use make to compile. - -You can either run the server in the background in the same window as -the client or open a separate window for the client and server. - - --Sergio Flores-Gaitan -(sergio@cs.wustl.edu)
\ No newline at end of file diff --git a/TAO/performance-tests/Thruput/COOL/client.cpp b/TAO/performance-tests/Thruput/COOL/client.cpp deleted file mode 100644 index 547489f83c4..00000000000 --- a/TAO/performance-tests/Thruput/COOL/client.cpp +++ /dev/null @@ -1,290 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = Chorus COOL tests -// Throughput measurement using the TTCP benchmark adapted to work using COOL -// -// = FILENAME -// client.cpp -// -// Main program for the client -// -// = AUTHOR -// Aniruddha Gokhale -// Sergio Flores Ported code to use Chorus COOL ORB -// -// ============================================================================ - -#include "ace/ACE.h" -#include "ace/Get_Opt.h" -#include "ace/stream.h" -#include "ttcp.H" -#include "ttcp_decl.h" - -#include "api/api.H" - -ACE_RCSID(COOL, client, "$Id$") - -int print_usage (void); - -char Usage[] = - "Usage: client -cool-tcp -cool-iiop [Common options] \n" - "[Common options]:\n" - " -l ## length of bufs read from or written to network (default 8192)\n" - " -v verbose: print more statistics\n" - " -d ## debug level\n" - " -f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n" - " -h ## Remote host to send data to\n" - " -p ## Port number" - " -L ## Output file name to store results\n" - " -S ## Total Data Size to be sent\n" - " -q <type> Send Sequence: Enumeration for various data types:\n" - " s = short, l = long, d = double, c = char\n" - " o = octet, S = BinStruct \n"; - -CORBA::Long trans = 1; // we are a client - used for debugging purposes -CORBA::Long buflen = 8 * 1024; // length of buffer, default 8,192 bytes -char *buf; // ptr to dynamic buffer -CORBA::Long nbuf; // number of buffers to send in sinkmode -CORBA::Short port = 3000; // default TCP port number -char *host = "localhost"; // ptr to name of host -CORBA::Long verbose = 0; // 0=print basic info, 1=print cpu - // rate, proc resource usage. -CORBA::Char fmt = 'K'; // output - // format:k=kilobits,K=kilobytes, m = megabits, - // M = megabytes, g = gigabits, G = gigabytes -CORBA::String title = 0; // title of file to gather statistics -char stats[128]; // gathering the statistics -unsigned long srcDataSize; // Total amount of source data -unsigned long nbytes; // bytes on net -unsigned long numCalls; // # of I/O system calls -double cput, realt; // user, real time (seconds) -unsigned long dt; // data type - -u_int debug_level = 0; - -// declare variables for various message types -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; - -int -main (int argc, char *argv[]) -{ - - int c; - CORBA_ORB_ptr orb_ptr; // underlying ORB - CORBA::Object_ptr objref = CORBA::Object::_nil(); // object reference - ttcp_sequence_ptr ttcp_seq = 0; // obj reference to TTCP object - CORBA::Environment env; // environment - CORBA::String str; // holds the IOR - - fstream iorfile; - - // parse the arguments - ACE_Get_Opt get_opt (argc, argv, "d:vh:p:f:l:L:S:q:", 3); // Command line options - debug_level = 0; - while ((c = get_opt ()) != -1) - { - switch (c) - { - case 'h': - host = ACE_OS::strdup (get_opt.optarg); - break; - case 'L': - title = ACE_OS::strdup (get_opt.optarg); - break; - case 'p': - port = ACE_OS::atoi (get_opt.optarg); - break; - case 'd': - debug_level = ACE_OS::atoi (get_opt.optarg); - if (debug_level > 10) - debug_level = 10; - break; - case 'l': - buflen = ACE_OS::atoi (get_opt.optarg); - break; - case 'v': - verbose = 1; - break; - case 'f': - fmt = *get_opt.optarg; - break; - case 'S': /* total source data to send. */ - srcDataSize = ACE_OS::atoi (get_opt.optarg); - break; - case 'q': /* Send sequence of desired data type */ - switch(*get_opt.optarg){ - case 's': - dt = SEND_SHORT; - break; - case 'l': - dt = SEND_LONG; - break; - case 'd': - dt = SEND_DOUBLE; - break; - case 'c': - dt = SEND_CHAR; - break; - case 'o': - dt = SEND_OCTET; - break; - case 'S': - dt = SEND_STRUCT; - break; - case 'C': - dt = SEND_COMPOSITE; - break; - } - break; - default: - return print_usage (); - } - } - - // - // Transmitter - // - - // get a handle to the ORB - orb_ptr = CORBA_ORB_init (argc, argv, 0, env); - if (env.exception () != 0) - { - ACE_DEBUG ((LM_DEBUG, "ORB initialization\n")); - //env.print_exception ("ORB initialization", stdout); - return -1; - } - - // allocate storage to read the IOR string - str = CORBA::string_alloc (500); - - sprintf (str, "cool-tcp://%s:%d", host, port); - - ACE_DEBUG ((LM_DEBUG, "Composed IOR string as: %s\n" , str)); - - COOL::EOABindingData bindingData (str); - ttcp_seq = ttcp_sequence::_bind(bindingData, env); - - CORBA::string_free (str); - - if (!CORBA::is_nil (ttcp_seq)) - { - // the number of iterations is based on the total data size and the - // individual buffer size sent - nbuf = srcDataSize/buflen; - ACE_DEBUG ((LM_DEBUG, "data size = %d, buflen = %d, nbuf = %d\n", - srcDataSize, buflen, nbuf)); - - // - // Prepare the Message to be sent - // - - - // first allocate a buffer of the desired size and alignment - errno = 0; - if ((buf = (char *) ACE_OS::malloc (buflen)) == (char *) NULL) - err ("malloc"); - - // fill the buffer with the data type to be sent - FillPattern (buf, buflen, dt); - - // - // Start the timers on the client and server sides - // - - prep_timer (); // start our time - ttcp_seq->start_timer (env); // ask the server to start its timer - if (env.exception () != 0) - { - ACE_DEBUG ((LM_DEBUG, "start_timer operation\n")); - //env.print_exception ("start_timer operation", stdout); - return -1; - } - -#if defined (ACE_HAS_QUANTIFY) - /* start recording quantify data from here */ - quantify_clear_data (); - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - // send the same buffer nbuf times - while (nbuf--) - { - switch (dt){ - case SEND_SHORT: - ttcp_seq->sendShortSeq (*sseq, env); - nbytes += sseq->length () * sizeof (CORBA::Short); - break; - case SEND_LONG: - ttcp_seq->sendLongSeq (*lseq, env); - nbytes += lseq->length () * sizeof (CORBA::Long); - break; - case SEND_OCTET: - ttcp_seq->sendOctetSeq (*oseq, env); - nbytes += oseq->length () * sizeof (CORBA::Octet); - break; - case SEND_DOUBLE: - ttcp_seq->sendDoubleSeq (*dseq, env); - nbytes += dseq->length () * sizeof (CORBA::Double); - break; - case SEND_CHAR: - ttcp_seq->sendCharSeq (*cseq, env); - nbytes += cseq->length () * sizeof (CORBA::Char); - break; - case SEND_STRUCT: - ttcp_seq->sendStructSeq (*Sseq, env); - nbytes += Sseq->length () * sizeof (BinStruct); - break; - } - numCalls++; // nbytes and numCalls are used in the thruput - // measurement - if (env.exception () != 0) - { - ACE_DEBUG ((LM_DEBUG, "send operation\n")); - //env.print_exception ("send operation", stdout); - return -1; - } - } -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - // - // Stop the timer - // - // stop the timer on the server side - ttcp_seq->stop_timer (env); - if (env.exception () != 0) - { - ACE_DEBUG ((LM_DEBUG, "stop_timer operation\n")); - //env.print_exception ("stop_timer operation", stdout); - return -1; - } - // stop our timer - (void) read_timer (stats, sizeof (stats)); - - // print results - PrintStats(); - } - else - { - ACE_ERROR ((LM_ERROR, "error: objref is nil\n")); - } - - - CORBA::release (ttcp_seq); - CORBA::release (objref); - - return (0); -} - -int print_usage (void) -{ - ACE_ERROR ((LM_ERROR, "Usage error\n")); - ACE_ERROR ((LM_ERROR, "%s\n", Usage)); - return -1; -} diff --git a/TAO/performance-tests/Thruput/COOL/server.cpp b/TAO/performance-tests/Thruput/COOL/server.cpp deleted file mode 100644 index 83ad78bbf4b..00000000000 --- a/TAO/performance-tests/Thruput/COOL/server.cpp +++ /dev/null @@ -1,224 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = Chorus COOL tests -// Throughput measurement using the TTCP benchmark adapted to work using -// Chorus COOL -// -// = FILENAME -// server.cpp -// -// = AUTHOR -// Aniruddha Gokhale -// Sergio Flores Ported from TAO -// -// ============================================================================ - -#include "ace/ACE.h" -#include "ace/Get_Opt.h" -#include "ace/stream.h" - -#include "ttcp_i.h" - -#include <api/binding.H> -#include <api/api.H> -#include <api/coolThreadPool.H> -#include <corba/eoa.H> -#include <corba/eorb.H> - -#include "ttcp.H" -#include "sk_ttcp.H" -#include "sk_ttcp.C" - -ACE_RCSID(COOL, server, "$Id$") - -char Usage[] = "\ -Usage: server [COOL options] [Common options] \n\ - [COOL options] ** these are required ** \n\ - cool-tcp://<THIS_HOSTNAME>:<THIS_HOST_PORT> -cool-tcp -cool-iiop \n\n\ - THIS_HOSTNAME : the name of the host that the server will be running on. \n\ - This is useful if you want to specify a different interface (e.g. ATM, \n\ - 100Mbit Ethernet)\n\n\ - THIS_HOST_PORT: is the port number at which the server will start the high\n\ - priority servant. The low priority servant will be created at\n\ - (THIS_HOST_PORT+1).\n\n\ - [Common options]:\n\ - -l ## length of bufs read from or written to network (default 8192)\n\ - -v verbose: print more statistics\n\ - -d ## set debug level \n\ - -f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n\ - -L ## Output file name for the data type used\n\n\ -"; - -CORBA::Long trans = 0; // we are the receiver -CORBA::Long buflen = 8 * 1024; // length of buffer -CORBA::Char *buf; // ptr to dynamic buffer -CORBA::Long nbuf; // number of buffers to send in sinkmode -CORBA::Long verbose = 0; // 0=print basic info, 1=print cpu rate, proc - // resource usage. -CORBA::Char fmt = 'K'; // output format:k=kilobits,K=kilobytes, m = - // megabits, M = megabytes, g = gigabits, G = - // gigabytes -u_int debug_level = 0; - -CORBA::String title = 0; // results filename - -CORBA::Char stats[128]; // gathering the statistics -CORBA::ULong srcDataSize; // Total amount of source data -CORBA::ULong nbytes; // bytes on net -CORBA::ULong numCalls; // # of I/O system calls -CORBA::Double cput, realt; // user, real time (seconds) -CORBA::ULong dt; // data type - -/* declare struct variables for various message types */ -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; - -// main program - Driver -int -main (int argc, char **argv) -{ - - int c; // option - CORBA::Environment env; // environment - CORBA_ORB_ptr orb_ptr; // handle to the ORB - CORBA_BOA_ptr oa_ptr; // Object adapter - CORBA::String str; // for stringified representation of the object reference - ttcp_sequence_i my_ttcp_i ("TTCP_IIOP_test"); // instance of the target object - ttcp_sequence_ptr my_ttcp; - - COOL::EOA::bind(argv[1], env); - if (env.exception() != 0) - { - ACE_ERROR_RETURN ((LM_ERROR, - "Impossible to bind the ORB to the description:%s\n", - argv[1]), -1); - } - - // initialize the underlying ORB and get a handle to it - orb_ptr = CORBA_ORB_init (argc, argv, 0, env); - if (env.exception () != 0) - { - ACE_DEBUG ((LM_ERROR, "ORB_init failed..\n")); - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s.\n", (const char*) msg); - } - else - { - fprintf(stderr, "Unknown user exception.\n"); - } - return -1; - } - - // now get a handle to the object adapter - oa_ptr = orb_ptr->OA_init (argc, argv, 0, env); - if (env.exception () != 0) - { - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s.\n", (const char*) msg); - } - else - { - fprintf(stderr, "Unknown user exception.\n"); - } - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to initialize the POA.\n"), - -1); - } - - // for parsing the arguments - ACE_Get_Opt get_opt (argc, argv, "l:vd:f:L:", 2, 1); - debug_level = 0; - while ((c = get_opt ()) != -1) - { - switch (c) - { - case 'v': - verbose = 1; - break; - case 'L': - // title of output file that stores result - title = ACE_OS::strdup (get_opt.optarg); - break; - case 'd': - // debugging level - debug_level = ACE_OS::atoi (get_opt.optarg); - if (debug_level > 10) - debug_level = 10; - break; - case 'f': - // output format i.e., Mbps, Kbps, etc - fmt = *get_opt.optarg; - break; - default: - ACE_ERROR ((LM_ERROR, "Usage error\n")); - ACE_ERROR ((LM_ERROR, "%s\n", Usage)); - return -1; - } - } - - // - // Receiver - // - - COOL::EOABindingData bindingData; - - COOL_bind (my_ttcp_i, my_ttcp, bindingData, env); - - if (env.exception ()) - { - ACE_DEBUG ((LM_ERROR, "Bind failed.\n")); - return -1; - } - - if (debug_level > 0) - { - // get a stringified representation of the object reference created above - str = orb_ptr->object_to_string (my_ttcp, env); - if (env.exception() != 0) - { - CORBA::SystemException* ex; - - ex = CORBA::SystemException::_narrow(env.exception()); - if (ex) - { - CORBA::String_var msg = ex->message(); - fprintf(stderr, "%s.\n", (const char*) msg); - } - else - { - fprintf(stderr, "Unknown user exception.\n"); - } - return -1; - } - ACE_DEBUG ((LM_DEBUG, "stringified obj reference = %s\n", str)); - } - -#if defined (ACE_HAS_QUANTIFY) - // gather profile data - quantify_clear_data(); - quantify_start_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - // Handle requests for this object until we're killed, or one of the - // methods asks us to exit. - ACE_DEBUG ((LM_DEBUG, "Entering boa->run ().\n")); - oa_ptr->run (); - - return 0; -} diff --git a/TAO/performance-tests/Thruput/COOL/ttcp.idl b/TAO/performance-tests/Thruput/COOL/ttcp.idl deleted file mode 100644 index bccdf4e374e..00000000000 --- a/TAO/performance-tests/Thruput/COOL/ttcp.idl +++ /dev/null @@ -1,36 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -struct BinStruct -{ - short s; - char c; - long l; - octet o; - double d; - // octet pad[8]; // to make it 32 bytes - // commented out until IDL support for arrays is added -}; - -// Richly typed data -interface ttcp_sequence -{ - typedef sequence<short> ShortSeq; - typedef sequence<long> LongSeq; - typedef sequence<double> DoubleSeq; - typedef sequence<char> CharSeq; - typedef sequence<octet> OctetSeq; - typedef sequence<BinStruct> StructSeq; - - - // Routines to send sequences of various data types - oneway void sendShortSeq (in ShortSeq ttcp_seq); - oneway void sendLongSeq (in LongSeq ttcp_seq); - oneway void sendDoubleSeq (in DoubleSeq ttcp_seq); - oneway void sendCharSeq (in CharSeq ttcp_seq); - oneway void sendOctetSeq (in OctetSeq ttcp_seq); - oneway void sendStructSeq (in StructSeq ttcp_seq); - - oneway void start_timer (); - oneway void stop_timer (); -}; diff --git a/TAO/performance-tests/Thruput/COOL/ttcp_decl.h b/TAO/performance-tests/Thruput/COOL/ttcp_decl.h deleted file mode 100644 index 7f8d161e143..00000000000 --- a/TAO/performance-tests/Thruput/COOL/ttcp_decl.h +++ /dev/null @@ -1,82 +0,0 @@ -// $Id$ - -/* - * T T C P Header File - * - */ - -/* This file includes all the declarations and prototypes */ - -#ifndef _TTCP_DECL_H_ -#define _TTCP_DECL_H_ - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Profile_Timer.h" - -/* File to be included if Quantify is to be used */ -#if defined (ACE_HAS_QUANTIFY) -# include <quantify.h> -#endif /* ACE_HAS_QUANTIFY */ - - -/* define the data types to be sent */ -#define SEND_SHORT ((CORBA::ULong)(1)) -#define SEND_LONG ((CORBA::ULong)(2)) -#define SEND_CHAR ((CORBA::ULong)(3)) -#define SEND_OCTET ((CORBA::ULong)(4)) -#define SEND_DOUBLE ((CORBA::ULong)(5)) -#define SEND_STRUCT ((CORBA::ULong)(6)) -#define SEND_COMPOSITE ((CORBA::ULong)(7)) - -/************** -// Prototypes -***************/ -int err (char *s); -void mes (CORBA::Char *s); -CORBA::String outfmt (CORBA::Double b); -void prep_timer (void); -CORBA::Double read_timer (char *str, CORBA::Long len); -void prusage (register struct rusage *r0, struct rusage *r1, struct timeval *e, struct timeval *b, char *outp); -void tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1); -void tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0); -void psecs (CORBA::Long l, register char *cp); -void delay (CORBA::Long us); -void FillPattern (register char *cp, register CORBA::Long bufLen, CORBA::ULong dt); -void PrintStats (void); - -/* Global variables defined here as extern */ -extern ACE_Svc_Export CORBA::Long trans; // whether we are transmitter - // or receiver -extern ACE_Svc_Export CORBA::Long buflen; /* length of buffer */ -extern ACE_Svc_Export char *buf; /* ptr to dynamic buffer */ -extern ACE_Svc_Export CORBA::Long nbuf; /* number of buffers to send in sinkmode */ -extern ACE_Svc_Export CORBA::Short port; /* TCP port number */ -extern ACE_Svc_Export char *host; /* ptr to name of host */ -extern ACE_Svc_Export CORBA::Long verbose; /* 0=print basic info, 1=prCORBA::Long cpu rate, proc - * resource usage. */ -extern ACE_Svc_Export CORBA::Char fmt; /* output format:k=kilobits,K=kilobytes, - * m = megabits, M = megabytes, - * g = gigabits, G = gigabytes */ -extern ACE_Svc_Export char *title; - -extern ACE_Svc_Export char stats[128]; -extern ACE_Svc_Export CORBA::ULong srcDataSize; /* Total amount of source data */ -extern ACE_Svc_Export CORBA::ULong nbytes; /* bytes on net */ -extern ACE_Svc_Export CORBA::ULong numCalls; /* # of I/O system calls */ -extern ACE_Svc_Export CORBA::Double cput, realt; /* user, real time (seconds) */ -extern ACE_Svc_Export CORBA::ULong dt; - -/* declare struct variables for various message types */ -extern ACE_Svc_Export ttcp_sequence::ShortSeq *sseq; -extern ACE_Svc_Export ttcp_sequence::LongSeq *lseq; -extern ACE_Svc_Export ttcp_sequence::OctetSeq *oseq; -extern ACE_Svc_Export ttcp_sequence::DoubleSeq *dseq; -extern ACE_Svc_Export ttcp_sequence::CharSeq *cseq; -extern ACE_Svc_Export ttcp_sequence::StructSeq *Sseq; - -#endif diff --git a/TAO/performance-tests/Thruput/COOL/ttcp_i.cpp b/TAO/performance-tests/Thruput/COOL/ttcp_i.cpp deleted file mode 100644 index 9686de3d056..00000000000 --- a/TAO/performance-tests/Thruput/COOL/ttcp_i.cpp +++ /dev/null @@ -1,103 +0,0 @@ -// $Id$ - -//#include <iostream.h> -#include "ace/ACE.h" -#include "ace/streams.h" -#include "ttcp_i.h" -#include "ttcp_decl.h" - -ACE_RCSID(COOL, ttcp_i, "$Id$") - -/* the ttcp_i class implementation */ -ttcp_sequence_i::ttcp_sequence_i (const char *obj_name) -{ - this->nbytes_ = 0; - numCalls = 0; -} - -void -ttcp_sequence_i::start_timer (CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - this->nbytes_ = 0; - ::prep_timer (); -} - -void -ttcp_sequence_i::stop_timer (CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - - (void) ::read_timer (stats, sizeof (stats)); - ::nbytes = this->nbytes_; - ::PrintStats(); - // reset - this->nbytes_ = 0; - numCalls = 0; -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); - ACE_Service_Config::end_reactor_event_loop(); - ACE_OS::fprintf (stderr, "*********** just before exiting\n"); -#endif -#if defined (ACE_HAS_PURIFY) - ACE_Service_Config::end_reactor_event_loop(); - ACE_OS::fprintf (stderr, "*********** just before exiting\n"); -#endif -} - -void -ttcp_sequence_i::sendShortSeq (const ttcp_sequence::ShortSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Short); -} - -void -ttcp_sequence_i::sendLongSeq (const ttcp_sequence::LongSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Long) ; -} - -void -ttcp_sequence_i::sendOctetSeq (const ttcp_sequence::OctetSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Octet) ; -} - -void -ttcp_sequence_i::sendDoubleSeq (const ttcp_sequence::DoubleSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Double) ; -} - -void -ttcp_sequence_i::sendCharSeq (const ttcp_sequence::CharSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Char) ; -} - -void -ttcp_sequence_i::sendStructSeq (const ttcp_sequence::StructSeq& ttcp_seq, - CORBA::Environment &IT_env) -{ - ACE_UNUSED_ARG (IT_env); - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(BinStruct) ; -#ifdef DEBUG - // cout << "Bytes received so far = " << this->nbytes_ << endl; -#endif -} diff --git a/TAO/performance-tests/Thruput/COOL/ttcp_i.h b/TAO/performance-tests/Thruput/COOL/ttcp_i.h deleted file mode 100644 index 3fb4ebe6152..00000000000 --- a/TAO/performance-tests/Thruput/COOL/ttcp_i.h +++ /dev/null @@ -1,49 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = COOL tests -// Throughput measurement using the TTCP benchmark adapted to work using COOL -// -// = FILENAME -// ttcp_i.h -// -// = AUTHOR -// Aniruddha Gokhale -// Sergio Flores-Gaitan Ported to COOL -// -// ============================================================================ - -#ifndef TTCP_I_H -#define TTCP_I_H - -#include "ttcp.H" - -class ttcp_sequence_i -{ -public: - ttcp_sequence_i (const char *obj_name = 0); - - virtual void sendShortSeq (const ttcp_sequence::ShortSeq& ttcp_seq, - CORBA::Environment &IT_env); - virtual void sendLongSeq (const ttcp_sequence::LongSeq& ttcp_seq, - CORBA::Environment &IT_env); - virtual void sendDoubleSeq (const ttcp_sequence::DoubleSeq& ttcp_seq, - CORBA::Environment &IT_env); - virtual void sendCharSeq (const ttcp_sequence::CharSeq& ttcp_seq, - CORBA::Environment &IT_env); - virtual void sendStructSeq (const ttcp_sequence::StructSeq& ttcp_seq, - CORBA::Environment &IT_env); - virtual void sendOctetSeq (const ttcp_sequence::OctetSeq& ttcp_seq, - CORBA::Environment &IT_env); - - /* Routines to calculate the time required to transfer */ - virtual void start_timer (CORBA::Environment &IT_env); - virtual void stop_timer (CORBA::Environment &IT_env); - -private: - unsigned long nbytes_; -}; - -#endif // defined (TTCP_I_H) - diff --git a/TAO/performance-tests/Thruput/COOL/utils.cpp b/TAO/performance-tests/Thruput/COOL/utils.cpp deleted file mode 100644 index 7894658d5c7..00000000000 --- a/TAO/performance-tests/Thruput/COOL/utils.cpp +++ /dev/null @@ -1,469 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = TAO tests -// Throughput measurement using the TTCP benchmark adapted to work using TAO -// -// = FILENAME -// utils.cpp -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -// This file has all the helper functions that do the computation of -// throughput, system time used, user time, etc based on data collected. - -#include "ttcp.H" -#include "ttcp_decl.h" - -ACE_RCSID(COOL, utils, "$Id$") - -// the error function. -// displays the error message and exits -int err (char * s) -{ - ACE_OS::fprintf (stderr, "ttcp%s: ", trans ? "-t" : "-r"); - ACE_OS::perror (s); - ACE_OS::fprintf (stderr, "errno=%d\n", errno); - return -1; -} - -// prints a message indicating if it is a transmitter or a receiver -void mes (CORBA::String s) -{ - ACE_OS::fprintf (stderr, "ttcp%s: %s\n", trans ? "-t" : "-r", s); -} - -// does the formatting for the desired units in which the result is to be -// displayed -CORBA::String -outfmt (CORBA::Double b) -{ - static char obuf[50]; - switch (fmt) - { - case 'G': - ACE_OS::sprintf (obuf, "%.2f GB", b / 1024.0 / 1024.0 / 1024.0); - break; - default: - case 'K': - ACE_OS::sprintf (obuf, "%.2f KB", b / 1024.0); - break; - case 'M': - ACE_OS::sprintf (obuf, "%.2f MB", b / 1024.0 / 1024.0); - break; - case 'g': - ACE_OS::sprintf (obuf, "%.2f Gbit", b * 8.0 / 1024.0 / 1024.0 / 1024.0); - break; - case 'k': - ACE_OS::sprintf (obuf, "%.2f Kbit", b * 8.0 / 1024.0); - break; - case 'm': - ACE_OS::sprintf (obuf, "%.2f Mbit", b * 8.0 / 1024.0 / 1024.0); - break; - } - return obuf; -} - -static struct itimerval itime0; /* Time at which timing started */ -static struct rusage ru0; /* Resource utilization at the start */ - -/* - * P R E P _ T I M E R - */ -// this is in fact the internals of the "start_timer" operation -void -prep_timer (void) -{ - itime0.it_interval.tv_sec = 0; - itime0.it_interval.tv_usec = 0; - itime0.it_value.tv_sec = LONG_MAX / 22; /* greatest possible value , itimer() count backwards */ - itime0.it_value.tv_usec = 0; - - - ACE_OS::getrusage (RUSAGE_SELF, &ru0); - - /* Init REAL Timer */ - if (setitimer (ITIMER_REAL, &itime0, NULL)) - { - perror ("Setting 'itimer' REAL failed"); - return; - } - -} - -/* - * R E A D _ T I M E R - * - */ -// This implements the internals of the "stop_timer" method -double -read_timer (char *str, CORBA::Long len) -{ - struct itimerval itimedol; - struct rusage ru1; - struct timeval td; - struct timeval tend, tstart; - char line[132]; - - ACE_OS::getrusage (RUSAGE_SELF, &ru1); - - if (getitimer (ITIMER_REAL, &itimedol)) - { - perror ("Getting 'itimer' REAL failed"); - return (0.0); - } - - prusage (&ru0, &ru1, &itime0.it_value, &itimedol.it_value, line); - (void) strncpy (str, line, len); - - /* Get real time */ - tvsub (&td, &itime0.it_value, &itimedol.it_value); - realt = td.tv_sec + ((double) td.tv_usec) / 1000000; - - /* Get CPU time (user+sys) */ - tvadd (&tend, &ru1.ru_utime, &ru1.ru_stime); - tvadd (&tstart, &ru0.ru_utime, &ru0.ru_stime); - tvsub (&td, &tend, &tstart); - cput = td.tv_sec + ((double) td.tv_usec) / 1000000; - if (cput < 0.00001) - cput = 0.00001; - return (cput); -} - -// prints the rusage stats -void -prusage (register struct rusage *r0, struct rusage *r1, - struct timeval *e, struct timeval *b, char *outp) -{ - struct timeval tdiff; - register time_t t; - register char *cp; - register int i; - int ms; - - t = (r1->ru_utime.tv_sec - r0->ru_utime.tv_sec) * 100 + - (r1->ru_utime.tv_usec - r0->ru_utime.tv_usec) / 10000 + - (r1->ru_stime.tv_sec - r0->ru_stime.tv_sec) * 100 + - (r1->ru_stime.tv_usec - r0->ru_stime.tv_usec) / 10000; - ms = (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000; - -#define END(x) {while(*x) x++;} -#if defined(SYSV) - cp = "%Uuser %Ssys %Ereal %P"; -#else -#if defined(sgi) /* IRIX 3.3 will show 0 for %M,%F,%R,%C */ - cp = "%Uuser %Ssys %Ereal %P %Mmaxrss %F+%Rpf %Ccsw"; -#else - cp = "%Uuser %Ssys %Ereal %P %Xi+%Dd %Mmaxrss %F+%Rpf %Ccsw"; -#endif -#endif - for (; *cp; cp++) - { - if (*cp != '%') - *outp++ = *cp; - else if (cp[1]) - switch (*++cp) - { - - case 'U': - tvsub (&tdiff, &r1->ru_utime, &r0->ru_utime); - ACE_OS::sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'S': - tvsub (&tdiff, &r1->ru_stime, &r0->ru_stime); - ACE_OS::sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'E': - psecs (ms / 100, outp); - END (outp); - break; - - case 'P': - ACE_OS::sprintf (outp, "%d%%", (int) (t * 100 / ((ms ? ms : 1)))); - END (outp); - break; - -#if !defined(SYSV) - case 'W': - i = r1->ru_nswap - r0->ru_nswap; - ACE_OS::sprintf (outp, "%d", i); - END (outp); - break; - - case 'X': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : (r1->ru_ixrss - r0->ru_ixrss) / t); - END (outp); - break; - - case 'D': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : - (r1->ru_idrss + r1->ru_isrss - (r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'K': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : - ((r1->ru_ixrss + r1->ru_isrss + r1->ru_idrss) - - (r0->ru_ixrss + r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'M': - ACE_OS::sprintf (outp, "%d", r1->ru_maxrss / 2); - END (outp); - break; - - case 'F': - ACE_OS::sprintf (outp, "%d", r1->ru_majflt - r0->ru_majflt); - END (outp); - break; - - case 'R': - ACE_OS::sprintf (outp, "%d", r1->ru_minflt - r0->ru_minflt); - END (outp); - break; - - case 'I': - ACE_OS::sprintf (outp, "%d", r1->ru_inblock - r0->ru_inblock); - END (outp); - break; - - case 'O': - ACE_OS::sprintf (outp, "%d", r1->ru_oublock - r0->ru_oublock); - END (outp); - break; - case 'C': - ACE_OS::sprintf (outp, "%d+%d", r1->ru_nvcsw - r0->ru_nvcsw, - r1->ru_nivcsw - r0->ru_nivcsw); - END (outp); - break; -#endif /* !SYSV */ - } - } - *outp = '\0'; -} - -// adds two "timeval" structures -void -tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1) -{ - - tsum->tv_sec = t0->tv_sec + t1->tv_sec; - tsum->tv_usec = t0->tv_usec + t1->tv_usec; - if (tsum->tv_usec > 1000000) - tsum->tv_sec++, tsum->tv_usec -= 1000000; -} - -// finds difference between two timevals -void -tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0) -{ - - tdiff->tv_sec = t1->tv_sec - t0->tv_sec; - tdiff->tv_usec = t1->tv_usec - t0->tv_usec; - if (tdiff->tv_usec < 0) - tdiff->tv_sec--, tdiff->tv_usec += 1000000; -} - -// print in seconds -void -psecs (CORBA::Long l, register char *cp) -{ - register int i; - - i = l / 3600; - if (i) - { - ACE_OS::sprintf (cp, "%d:", i); - END (cp); - i = l % 3600; - ACE_OS::sprintf (cp, "%d%d", (i / 60) / 10, (i / 60) % 10); - END (cp); - } - else - { - i = l; - ACE_OS::sprintf (cp, "%d", i / 60); - END (cp); - } - i %= 60; - *cp++ = ':'; - ACE_OS::sprintf (cp, "%d%d", i / 10, i % 10); -} - -// generate the specified delay in microseconds -void -delay (int us) -{ - struct timeval tv; - - tv.tv_sec = 0; - tv.tv_usec = us; - (void) select (1, (fd_set *) 0, (fd_set *) 0, (fd_set *) 0, &tv); -} - -// fill up a buffer with a data type that we want to send -void -FillPattern (register char *cp, register CORBA::Long bufLen, CORBA::ULong dt) -{ - unsigned long - num, i; - - switch(dt){ - case SEND_SHORT: - { - register short *SeqPtr = (short *)cp; - num = bufLen/sizeof(short); - for (i=0; i < num; i++) - SeqPtr[i] = (short)lrand48(); - sseq = new ttcp_sequence::ShortSeq(num,num, SeqPtr); - } - break; - case SEND_LONG: - { - register long *SeqPtr = (long *)cp; - num = bufLen/sizeof(long); - for (i=0; i < num; i++) - SeqPtr[i] = lrand48(); - lseq = new ttcp_sequence::LongSeq(num, num, SeqPtr); - } - break; - case SEND_DOUBLE: - { - register double *SeqPtr = (double *)cp; - num = bufLen/sizeof(double); - for (i=0; i < num; i++) - SeqPtr[i] = drand48(); - dseq = new ttcp_sequence::DoubleSeq(num, num, SeqPtr); - } - break; - case SEND_CHAR: - { - register CORBA::Char *SeqPtr = (CORBA::Char *)cp; - register char c = 0; - num = bufLen/sizeof(char); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - cseq = new ttcp_sequence::CharSeq(num, num, SeqPtr); - } - break; - case SEND_STRUCT: - { - register BinStruct *SeqPtr = (BinStruct *)cp; - register char c = 0; - num = bufLen/sizeof(BinStruct); - for (i=0; i < num; i++){ - SeqPtr[i].s = (short)lrand48(); - SeqPtr[i].l = lrand48(); - SeqPtr[i].d = drand48(); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].c = (c++ & 0x7f); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].o = (unsigned char)(c++ & 0x7f); - } - Sseq = new ttcp_sequence::StructSeq(num, num, SeqPtr); - - } - break; - case SEND_OCTET: - default: - { - register CORBA::Octet *SeqPtr = (CORBA::Octet *)cp; - register char c = 0; - num = bufLen/sizeof(CORBA::Octet); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - oseq = new ttcp_sequence::OctetSeq(num, num, SeqPtr); - } - break; - } -} - -// print all the statistics -void PrintStats (void) -{ - if (cput <= 0.0) - cput = 0.001; - if (realt <= 0.0) - realt = 0.001; - - if (title != 0) - { - double tmp; - FILE *outFile; - char filename[BUFSIZ]; - - strcpy(filename, title); - switch(dt){ - case SEND_SHORT: - strcat(filename, ".shortSeq.results"); - break; - case SEND_LONG: - strcat(filename, ".longSeq.results"); - break; - case SEND_DOUBLE: - strcat(filename, ".doubleSeq.results"); - break; - case SEND_CHAR: - strcat(filename, ".charSeq.results"); - break; - case SEND_STRUCT: - strcat(filename, ".structSeq.results"); - break; - case SEND_COMPOSITE: - strcat(filename, ".compositeSeq.results"); - break; - case SEND_OCTET: - default: - strcat(filename, ".octetSeq.results"); - break; - } - outFile = fopen (filename, "a+"); - ACE_OS::fprintf (outFile, "\n%ldk \t", buflen / 1024); - tmp = ((double) nbytes) / realt; - ACE_OS::fprintf (outFile, "%.2f ", tmp * 8.0 / 1024.0 / 1024.0); - fclose (outFile); - } - - ACE_OS::fprintf (stdout, - "ttcp%s: %ld bytes in %.2f real seconds = %s/sec +++\n", - trans ? "-t" : "-r", - nbytes, realt, outfmt (((double) nbytes) / realt)); - if (verbose) - { - ACE_OS::fprintf (stdout, - "ttcp%s: %ld bytes in %.2f CPU seconds = %s/cpu sec\n", - trans ? "-t" : "-r", - nbytes, cput, outfmt (((double) nbytes) / cput)); - } - ACE_OS::fprintf (stdout, - "ttcp%s: %d Server Method calls, msec/call = %.2f, calls/sec = %.2f\n", - trans ? "-t" : "-r", - numCalls, - 1024.0 * realt / ((double) numCalls), - ((double) numCalls) / realt); - ACE_OS::fprintf (stdout, "ttcp%s: %s\n", trans ? "-t" : "-r", stats); - if (verbose) - { - ACE_OS::fprintf (stdout, - "ttcp%s: buffer address %#x\n", - trans ? "-t" : "-r", - buf); - } -} diff --git a/TAO/performance-tests/Thruput/CORBAplus/Makefile b/TAO/performance-tests/Thruput/CORBAplus/Makefile deleted file mode 100644 index 257d5983bf6..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/Makefile +++ /dev/null @@ -1,58 +0,0 @@ -#---------------------------------------------------------------------------- -# $Id$ -# -# Top-level Makefile for the Thruput benchmark -#---------------------------------------------------------------------------- - -#---------------------------------------------------------------------------- -# Local macros -#---------------------------------------------------------------------------- - -LDLIBS = -lcorba -lunixsvc -lpbroker -lboadc -lnaming -llifecycl -lfsstream - -IDL_SRC = ttcp.cpp ttcp_s.cpp -PROG_SRCS = $(IDL_SRC) client.cpp ttcp_i.cpp server.cpp utils.cpp - -LSRC = $(PROG_SRCS) - -TTCP_CLIENT_OBJS = ttcp.o client.o utils.o - -TTCP_SERVER_OBJS = ttcp.o ttcp_s.o server.o ttcp_i.o utils.o - -BIN = client server - -#---------------------------------------------------------------------------- -# Include macros and targets -#---------------------------------------------------------------------------- - -exceptions = 1 - -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.local.GNU - -#---------------------------------------------------------------------------- -# Local modifications to variables imported by includes above. -#---------------------------------------------------------------------------- - -LDFLAGS += -L$(PBHOME)/lib -CPPFLAGS += -I$(PBHOME)/include - -$(IDL_SRC): ttcp.idl - $(PBHOME)/bin/idlc ttcp.idl - -mv ttcp.C ttcp.cpp - -mv ttcp_s.C ttcp_s.cpp - -server: $(addprefix $(VDIR),$(TTCP_SERVER_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(PBHOME)/lib/iiop_s.o $(VLDLIBS) $(POSTLINK) -#patch on the previous line to allow reading from an environment variable -#the host (interface) I would like the server to bind to. -#The patch is "$(PBHOME)/lib/iiop_s.o" - -client: $(addprefix $(VDIR),$(TTCP_CLIENT_OBJS)) - $(LINK.cc) $(LDFLAGS) -o $@ $^ $(VLDLIBS) $(POSTLINK) - -realclean: clean - -$(RM) ttcp.cpp ttcp.h ttcp_s.cpp ttcp_s.h diff --git a/TAO/performance-tests/Thruput/CORBAplus/README b/TAO/performance-tests/Thruput/CORBAplus/README deleted file mode 100644 index 14ffcd4e0e3..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/README +++ /dev/null @@ -1,47 +0,0 @@ - CORBAplus TTCP Benchmark README file - -This directory contains a modified version of the TTCP benchmark that -uses the TAO ORB. TTCP is used to measure the throughput of CORBAplus -for sending different data types. This code tests sequences of short, -long, octet, char, double, and richly-typed data such as a struct. - -Organization ------------- - -client.cpp Client main program -server.cpp Server main program -ttcp.cpp Client side stubs -ttcp_s.cpp Server side skeletons -ttcp.h Header file for stubs -ttcp_s.h Header file for the skeletons -ttcp_i.cpp Implementaion of the interface -ttcp_i.h Header for the implementation -utils.cpp Utilities to calculate throughput -ttcp_decls.h Common declarations - -Results -------- -//Throughput results are stored under the results directory. If testing -//for REMOTE transfers, use the ./results/REMOTE directory. - -Running the tests ------------------ -Three scripts are provided - -(0) run_tests : run several clients sequentially. transmits 10Mb - -(1) run_server : runs the server. Be sure to change the host name -(2) run_client : runs tests for various data types -(3) run_test : called by run_client - -Compiling ---------- - -Type make - -To provide for 2way tests (no data is sent in the reverse -direction. Sender blocks for a minimal ACK), comment out the -DONEWAY -flag from the CPPFLAGS - --Aniruddha Gokhale -(gokhale@cs.wustl.edu) diff --git a/TAO/performance-tests/Thruput/CORBAplus/client.cpp b/TAO/performance-tests/Thruput/CORBAplus/client.cpp deleted file mode 100644 index ef2421c6b4e..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/client.cpp +++ /dev/null @@ -1,305 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = TAO tests -// Throughput measurement using the TTCP benchmark adapted to work using TAO -// -// = FILENAME -// client.cpp -// -// Main program for the client -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -#include <iostream.h> -#include <fstream.h> - -#include "pbroker/corba/orb.h" -#include "pbroker/corba/request.h" -#include "pbroker/corba/environ.h" -#include "ace/ACE.h" -#include "ace/Get_Opt.h" -#include "ttcp.h" -#include "ttcp_decl.h" - -ACE_RCSID(CORBAplus, client, "$Id$") - -int print_usage (void); - -char Usage[] = - "Usage: client [-options] \n" - "Common options:\n" - "-l ## length of bufs read from or written to network (default 8192)\n" - "-v verbose: print more statistics\n" - "-d ## debug level\n" - "-f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n" - "-h ## Remote host to send data to\n" - "-p ## Port number" - "-L ## Output file name to store results\n" - "-S ## Total Data Size to be sent\n" - "-q <type> Send Sequence: Enumeration for various data types:\n" - "s = short, l = long, d = double, c = char\n" - "o = octet, S = BinStruct \n"; - -u_int _debug_level = 0; - -CORBA::Long trans = 1; // we are a client - used for debugging purposes -CORBA::Long buflen = 8 * 1024; // length of buffer, default 8,192 bytes -char *buf; // ptr to dynamic buffer -CORBA::Long nbuf; // number of buffers to send in sinkmode -CORBA::Short port = ACE_DEFAULT_SERVER_PORT; // TCP port number -char *host = "localhost"; // ptr to name of host -CORBA::Long verbose = 0; // 0=print basic info, 1=print cpu - // rate, proc resource usage. -CORBA::Char fmt = 'K'; // output - // format:k=kilobits,K=kilobytes, m = megabits, - // M = megabytes, g = gigabits, G = gigabytes -char *title = 0; // title of file to gather statistics -char stats[128]; // gathering the statistics -unsigned long srcDataSize; // Total amount of source data -unsigned long nbytes; // bytes on net -unsigned long numCalls; // # of I/O system calls -double cput, realt; // user, real time (seconds) -unsigned long dt; // data type - -// declare variables for various message types -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; - -int -main (int argc, char *argv[]) -{ - try { - int c; - CORBA::ORB_ptr orb_ptr; // underlying ORB - CORBA::String objkey = "TTCP_IIOP_test"; // name of the TTCP object on the - // server - CORBA::Object_ptr objref = CORBA::Object::_nil(); // object reference - ttcp_sequence_ptr ttcp_seq = 0; // obj reference to TTCP object - CORBA::Environment env; // environment - CORBA::String str; // holds the IOR - - fstream iorfile; - - ACE_UNUSED_ARG (objkey); - - // parse the arguments - ACE_Get_Opt get_opt (argc, argv, "d:vh:f:l:L:S:q:"); // Command line options - _debug_level = 0; - while ((c = get_opt ()) != -1) - { - switch (c) - { - case 'h': - host = ACE_OS::strdup (get_opt.optarg); - break; - case 'L': - title = ACE_OS::strdup (get_opt.optarg); - break; - case 'd': - _debug_level = ACE_OS::atoi (get_opt.optarg); - if (_debug_level > 10) - _debug_level = 10; - break; - case 'l': - buflen = ACE_OS::atoi (get_opt.optarg); - break; - case 'v': - verbose = 1; - break; - case 'f': - fmt = *get_opt.optarg; - break; - case 'S': /* total source data to send. */ - srcDataSize = ACE_OS::atoi (get_opt.optarg); - break; - case 'q': /* Send sequence of desired data type */ - switch(*get_opt.optarg){ - case 's': - dt = SEND_SHORT; - break; - case 'l': - dt = SEND_LONG; - break; - case 'd': - dt = SEND_DOUBLE; - break; - case 'c': - dt = SEND_CHAR; - break; - case 'o': - dt = SEND_OCTET; - break; - case 'S': - dt = SEND_STRUCT; - break; - case 'C': - dt = SEND_COMPOSITE; - break; - } - break; - // default: - //return print_usage (); - } - } - - // - // Transmitter - // - - // get a handle to the ORB - orb_ptr = CORBA::ORB_init (argc, - argv); - if (env.exception () != 0) - { - // env.print_exception ("ORB initialization", stdout); - return -1; - } - - // Retrieve a factory objref. - objref = orb_ptr->resolve_initial_references ("TTCP_IIOP_test"); - // @@ put exception handling here !! - - if (CORBA::is_nil (objref) == CORBA_TRUE) - ACE_ERROR_RETURN ((LM_ERROR, - "resolve_initial_references returned null object for ttcp_sequence\n"), - -1); - - - if (!CORBA::is_nil (objref)) - { - // if it is a valid obj ref, narrow it to a ttcp_sequence CORBA object - ttcp_seq = ttcp_sequence::_narrow (objref); - - if (!CORBA::is_nil (ttcp_seq)) - { - - // the number of iterations is based on the total data size and the - // individual buffer size sent - nbuf = srcDataSize/buflen; - ACE_DEBUG ((LM_DEBUG, "data size = %d, buflen = %d, nbuf = %d\n", - srcDataSize, buflen, nbuf)); - - // - // Prepare the Message to be sent - // - - // first allocate a buffer of the desired size and alignment - errno = 0; - if ((buf = (char *) ACE_OS::malloc (buflen)) == (char *) NULL) - err ("malloc"); - - // fill the buffer with the data type to be sent - FillPattern (buf, buflen, dt); - - // - // Start the timers on the client and server sides - // - prep_timer (); // start our time - ttcp_seq->start_timer (); // ask the server to start its timer - if (env.exception () != 0) - { - // env.print_exception ("start_timer operation", stdout); - return -1; - } - -#if defined (ACE_HAS_QUANTIFY) - /* start recording quantify data from here */ - quantify_clear_data (); - quantify_start_recording_data (); -#endif /* ACE_HAS_QUANTIFY */ - // send the same buffer nbuf times - while (nbuf--) - { - switch (dt){ - case SEND_SHORT: - ttcp_seq->sendShortSeq (*sseq); - nbytes += sseq->length () * sizeof (CORBA::Short); - break; - case SEND_LONG: - ttcp_seq->sendLongSeq (*lseq); - nbytes += lseq->length () * sizeof (CORBA::Long); - break; - case SEND_OCTET: - ttcp_seq->sendOctetSeq (*oseq); - nbytes += oseq->length () * sizeof (CORBA::Octet); - break; - case SEND_DOUBLE: - ttcp_seq->sendDoubleSeq (*dseq); - nbytes += dseq->length () * sizeof (CORBA::Double); - break; - case SEND_CHAR: - ttcp_seq->sendCharSeq (*cseq); - nbytes += cseq->length () * sizeof (CORBA::Char); - break; - case SEND_STRUCT: - ttcp_seq->sendStructSeq (*Sseq); - nbytes += Sseq->length () * sizeof (BinStruct); - break; - } - - numCalls++; // nbytes and numCalls are used in the thruput - // measurement - } -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - // - // Stop the timer - // - // stop the timer on the server side - ttcp_seq->stop_timer (); - - if (env.exception () != 0) - { - // env.print_exception ("stop_timer operation", stdout); - return -1; - } - // stop our timer - (void) read_timer (stats, sizeof (stats)); - - // print results - PrintStats(); - } - } - - CORBA::release (ttcp_seq); - CORBA::release (objref); - CORBA::release (orb_ptr); - } - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): client.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: client.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: client.cpp\n\n")); - } - - return (0); -} - -int print_usage (void) -{ - ACE_ERROR ((LM_ERROR, "Usage error\n")); - ACE_ERROR ((LM_ERROR, "%s\n", Usage)); - return -1; -} diff --git a/TAO/performance-tests/Thruput/CORBAplus/extract b/TAO/performance-tests/Thruput/CORBAplus/extract deleted file mode 100644 index f0fc2947b92..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/extract +++ /dev/null @@ -1,4 +0,0 @@ -rm -f outfile -touch outfile -grep "Mbit/sec\|Send" results.CP | head -20 > outfile -grep "msec/call\|Send" results.CP | head -20 >> outfile diff --git a/TAO/performance-tests/Thruput/CORBAplus/run b/TAO/performance-tests/Thruput/CORBAplus/run deleted file mode 100644 index 009677fdcde..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/run +++ /dev/null @@ -1 +0,0 @@ -client -S 67108864 -f m -l $1 -L temp -q $2 -d $3 diff --git a/TAO/performance-tests/Thruput/CORBAplus/run_client b/TAO/performance-tests/Thruput/CORBAplus/run_client deleted file mode 100644 index 9e6932f8ae6..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/run_client +++ /dev/null @@ -1,25 +0,0 @@ -#!/bin/csh -f -# All ATM tests: 64k socket Queue Size -# -# shorts -run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 s $2 -sleep 5 -# longs -run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 l $2 -sleep 5 -# octets -run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 o $2 -sleep 5 -# doubles -run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 d $2 -sleep 5 -# chars -#run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 c $2 -#sleep 5 -# structures -run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 S $2 -sleep 5 -# Composite Structs -#run_test 67108864 128 $1 ./results/REMOTE/$1/sun-iiop.atm.64 C $2 -#sleep 5 -# diff --git a/TAO/performance-tests/Thruput/CORBAplus/run_server b/TAO/performance-tests/Thruput/CORBAplus/run_server deleted file mode 100644 index e0a0fc5888d..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/run_server +++ /dev/null @@ -1,9 +0,0 @@ -#!/bin/csh -# -# Usage: server <switches> -# -u : use IOR -# -f m : output results in Mbps -# -b <sock Q size> ** not implemented ** -# - -server -f m diff --git a/TAO/performance-tests/Thruput/CORBAplus/run_test b/TAO/performance-tests/Thruput/CORBAplus/run_test deleted file mode 100644 index 622b0b4fee6..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/run_test +++ /dev/null @@ -1,34 +0,0 @@ -#!/bin/csh -f -echo $* -if ($#argv < 3) then - echo "Usage: sclt <Total Data Size> <Max msg size> <destination> <TitleOfThisTest> <seq type> <destination-port>" - exit 1 -endif -# -@ msize=1024 -@ limit= ($argv[2] * 1024) -#echo $limit -#echo $msize -test -d $4 || mkdir $4 -echo "Iteration#" 1 ": client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S" $1 "-D -f m -s -t -l" $msize "-h" $3 "-x -L" $4 "-q" $5 -b 65536 -client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S $1 -f m -l $msize -h $3 -L $4 -q $5 -set flag=0 -while ($msize <= $limit) - if ($flag == 0) goto label - echo "Iteration#" 1 ": client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S" $1 "-D -f m -l" $msize "-h" $3 "-x -L" $4 "-q" $5 -b 65536 - client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S $1 -f m -l $msize -h $3 -L $4 -q $5 - label: - set flag=1 - sleep 5 - foreach i (2) - echo "Iteration#" $i ": client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S" $1 "-D -f m -s -t -l" $msize "-h" $3 "-x -L " $4 "-q" $5 -b 65536 - client -pbtrace -pbinit TTCP_IIOP_test iiop://$3:$6/TTCP_IIOP_test -S $1 -f m -l $msize -h $3 -L $4 -q $5 - end - echo "---------------------------" - @ msize = ($msize * 2) - sleep 5 -end - -echo " " -echo "Done at:" -date diff --git a/TAO/performance-tests/Thruput/CORBAplus/run_tests b/TAO/performance-tests/Thruput/CORBAplus/run_tests deleted file mode 100644 index 0cbf595fe84..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/run_tests +++ /dev/null @@ -1,41 +0,0 @@ -#! /bin/csh -# -# Usage: run_tests <arguments> -# <host> : remote hostname server -# <port> : remote port to send requests. -# - -rm -f results.CP -touch results.CP - -echo "CORBAplus throughput test" -echo "=========================" -echo "CORBAplus throughput test" >>& results.CP -echo "=========================" >>& results.CP - - -echo "Send Struct --------------------------------------------------------" >>& results.CP - ./client -S 10485760 -f m -l 1024 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 2048 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 4096 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 8192 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 16384 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 32768 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 65536 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 131072 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 262144 -q S -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - -echo "Send Short ---------------------------------------------------------" >>& results.CP - ./client -S 10485760 -f m -l 1024 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 2048 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 4096 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 8192 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 16384 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 32768 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 65536 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 131072 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - ./client -S 10485760 -f m -l 262144 -q s -pbtrace -pbinit TTCP_IIOP_test iiop://$1:$2/TTCP_IIOP_test >>& results.CP - - -grep "Mbit/sec\|Send" results.CP - diff --git a/TAO/performance-tests/Thruput/CORBAplus/server.cpp b/TAO/performance-tests/Thruput/CORBAplus/server.cpp deleted file mode 100644 index cf49ba9b46e..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/server.cpp +++ /dev/null @@ -1,178 +0,0 @@ -// $Id$ -// ============================================================================ -// -// = TAO tests -// Throughput measurement using the TTCP benchmark adapted to work using TAO -// -// = FILENAME -// server.cpp -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -#include <iostream.h> -#include <fstream.h> - -#include <pbroker/corba/xpsorb.h> -#include <pbroker/corba/xpsboa.h> -#include <pbroker/corba/boad/boafull.h> // will force usage of "Full" BOA API -#include <pbroker/unixsvc/unixsvc.h> - -#include "ace/ACE.h" -#include "ttcp_i.h" -#include "ace/Get_Opt.h" - -ACE_RCSID(CORBAplus, server, "$Id$") - -char Usage[] = "\ -Usage: server [TAO options] [options] \n\ -Common options:\n\ --l ## length of bufs read from or written to network (default 8192)\n\ --v verbose: print more statistics\n\ --d ## set debug level \n\ --f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n\ --L ## Output file name for the data type used\n\n\ -"; - -CORBA::Long trans = 0; // we are the receiver -CORBA::Long buflen = 8 * 1024; // length of buffer -CORBA::Char *buf; // ptr to dynamic buffer -CORBA::Long nbuf; // number of buffers to send in sinkmode -CORBA::Long verbose = 0; // 0=print basic info, 1=print cpu rate, proc - // resource usage. -CORBA::Char fmt = 'K'; // output format:k=kilobits,K=kilobytes, m = - // megabits, M = megabytes, g = gigabits, G = - // gigabytes - -char *title = 0; // results filename - -CORBA::Char stats[128]; // gathering the statistics -CORBA::ULong srcDataSize; // Total amount of source data -CORBA::ULong nbytes; // bytes on net -CORBA::ULong numCalls; // # of I/O system calls -CORBA::Double cput, realt; // user, real time (seconds) -CORBA::ULong dt; // data type - -/* declare struct variables for various message types */ -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; - -ttcp_sequence_i *my_ttcp; // instance of the target object - -u_int _debug_level = 0; - -// main program - Driver -int -main (int argc, char **argv) -{ - - int c; // option - CORBA::Environment env; // environment - XpsORB_ptr orb_ptr = XpsORB::_nil (); // handle to the ORB - XpsBOA * oa_ptr = XpsBOA::_nil (); // Object adapter - CORBA::String key = (CORBA::String) "key0"; // key assigned to our - // target object - CORBA::String str; // for stringified representation of the object reference - - ACE_UNUSED_ARG (key); - - try - { - // initialize the underlying ORB and get a handle to it - orb_ptr = XpsORB::init (argc, argv); - - // now get a handle to the object adapter - oa_ptr = XpsBOA::init (argc, argv); - - if (CORBA::is_nil(orb_ptr) || CORBA::is_nil(oa_ptr)) - { - ACE_ERROR_RETURN ((LM_ERROR, - " (%P|%t) Unable to initialize the ORB and/or the BOA\n"), - 1); - } - - // for parsing the arguments - ACE_Get_Opt get_opt (argc, argv, "l:vd:f:L:"); - - _debug_level = 0; - for (; (c = get_opt ()) != EOF;) - { - switch (c) - { - case 'L': - // title of output file that stores result - title = ACE_OS::strdup (get_opt.optarg); - break; - case 'd': - // debugging level - _debug_level = ACE_OS::atoi (get_opt.optarg); - if (_debug_level > 10) - _debug_level = 10; - break; - case 'f': - // output format i.e., Mbps, Kbps, etc - fmt = *get_opt.optarg; - break; - } - } - - // - // Receiver - // - - // create an instance of an object implementing the "ttcp" interface - my_ttcp = new ttcp_sequence_i ("TTCP_IIOP_test"); // this is its name - - if (1)//_debug_level > 0) - { - // get a stringified representation of the object reference created above - str = orb_ptr->object_to_url (my_ttcp); - ACE_DEBUG ((LM_DEBUG, "stringified obj reference = %s\n", str)); - } - -#if defined (ACE_HAS_QUANTIFY) - // gather profile data - quantify_clear_data(); - quantify_start_recording_data(); -#endif /* ACE_HAS_QUANTIFY */ - - oa_ptr->obj_is_ready (my_ttcp, nil); - oa_ptr->registerAlias (my_ttcp, "TTCP_IIOP_test"); - - // Handle requests for this object until we're killed, or one of the - // methods asks us to exit. - XpsEventService eventService; - eventService.mainloop(); // control will not return to this point - - } /* end of try() */ - catch(const CORBA::SystemException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::SystemException caught: %s (minor: %d): server.cpp\n\n", - exc._repository_id (), - exc.minor ())); - } - catch(const CORBA::UserException& exc) - { - ACE_DEBUG ((LM_DEBUG, - "CORBA::UserException caught: %s: server.cpp\n\n", - exc._repository_id ())); - } - catch(...) - { - ACE_DEBUG ((LM_DEBUG, - "Exception caught: server.cpp\n\n")); - } - - return 0; - - // usage: - // fprintf (stderr, Usage); - // return(1); -} diff --git a/TAO/performance-tests/Thruput/CORBAplus/ttcp.idl b/TAO/performance-tests/Thruput/CORBAplus/ttcp.idl deleted file mode 100644 index bccdf4e374e..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/ttcp.idl +++ /dev/null @@ -1,36 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -struct BinStruct -{ - short s; - char c; - long l; - octet o; - double d; - // octet pad[8]; // to make it 32 bytes - // commented out until IDL support for arrays is added -}; - -// Richly typed data -interface ttcp_sequence -{ - typedef sequence<short> ShortSeq; - typedef sequence<long> LongSeq; - typedef sequence<double> DoubleSeq; - typedef sequence<char> CharSeq; - typedef sequence<octet> OctetSeq; - typedef sequence<BinStruct> StructSeq; - - - // Routines to send sequences of various data types - oneway void sendShortSeq (in ShortSeq ttcp_seq); - oneway void sendLongSeq (in LongSeq ttcp_seq); - oneway void sendDoubleSeq (in DoubleSeq ttcp_seq); - oneway void sendCharSeq (in CharSeq ttcp_seq); - oneway void sendOctetSeq (in OctetSeq ttcp_seq); - oneway void sendStructSeq (in StructSeq ttcp_seq); - - oneway void start_timer (); - oneway void stop_timer (); -}; diff --git a/TAO/performance-tests/Thruput/CORBAplus/ttcp_decl.h b/TAO/performance-tests/Thruput/CORBAplus/ttcp_decl.h deleted file mode 100644 index 66a87dadee2..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/ttcp_decl.h +++ /dev/null @@ -1,82 +0,0 @@ -// $Id$ - -/* - * T T C P Header File - * - */ - -/* This file includes all the declarations and prototypes */ - -#ifndef _TTCP_DECL_H_ -#define _TTCP_DECL_H_ - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ace/Profile_Timer.h" - -/* File to be included if Quantify is to be used */ -#if defined (ACE_HAS_QUANTIFY) -# include <quantify.h> -#endif /* ACE_HAS_QUANTIFY */ - - -/* define the data types to be sent */ -#define SEND_SHORT ((CORBA::ULong)(1)) -#define SEND_LONG ((CORBA::ULong)(2)) -#define SEND_CHAR ((CORBA::ULong)(3)) -#define SEND_OCTET ((CORBA::ULong)(4)) -#define SEND_DOUBLE ((CORBA::ULong)(5)) -#define SEND_STRUCT ((CORBA::ULong)(6)) -#define SEND_COMPOSITE ((CORBA::ULong)(7)) - -/************** -// Prototypes -***************/ -int err (char *s); -void mes (CORBA::Char *s); -char *outfmt (CORBA::Double b); -void prep_timer (void); -CORBA::Double read_timer (char *str, CORBA::Long len); -void prusage (register struct rusage *r0, struct rusage *r1, struct timeval *e, struct timeval *b, char *outp); -void tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1); -void tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0); -void psecs (CORBA::Long l, register char *cp); -void delay (CORBA::Long us); -void FillPattern (register char *cp, register CORBA::Long bufLen, CORBA::ULong dt); -void PrintStats (void); - -/* Global variables defined here as extern */ -extern ACE_Svc_Export CORBA::Long trans; // whether we are transmitter - // or receiver -extern ACE_Svc_Export CORBA::Long buflen; /* length of buffer */ -extern ACE_Svc_Export char *buf; /* ptr to dynamic buffer */ -extern ACE_Svc_Export CORBA::Long nbuf; /* number of buffers to send in sinkmode */ -extern ACE_Svc_Export CORBA::Short port; /* TCP port number */ -extern ACE_Svc_Export char *host; /* ptr to name of host */ -extern ACE_Svc_Export CORBA::Long verbose; /* 0=print basic info, 1=prCORBA::Long cpu rate, proc - * resource usage. */ -extern ACE_Svc_Export CORBA::Char fmt; /* output format:k=kilobits,K=kilobytes, - * m = megabits, M = megabytes, - * g = gigabits, G = gigabytes */ -extern ACE_Svc_Export char *title; - -extern ACE_Svc_Export char stats[128]; -extern ACE_Svc_Export CORBA::ULong srcDataSize; /* Total amount of source data */ -extern ACE_Svc_Export CORBA::ULong nbytes; /* bytes on net */ -extern ACE_Svc_Export CORBA::ULong numCalls; /* # of I/O system calls */ -extern ACE_Svc_Export CORBA::Double cput, realt; /* user, real time (seconds) */ -extern ACE_Svc_Export CORBA::ULong dt; - -/* declare struct variables for various message types */ -extern ACE_Svc_Export ttcp_sequence::ShortSeq *sseq; -extern ACE_Svc_Export ttcp_sequence::LongSeq *lseq; -extern ACE_Svc_Export ttcp_sequence::OctetSeq *oseq; -extern ACE_Svc_Export ttcp_sequence::DoubleSeq *dseq; -extern ACE_Svc_Export ttcp_sequence::CharSeq *cseq; -extern ACE_Svc_Export ttcp_sequence::StructSeq *Sseq; - -#endif diff --git a/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.cpp b/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.cpp deleted file mode 100644 index b8e32621ea9..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.cpp +++ /dev/null @@ -1,100 +0,0 @@ -// $Id$ - -#include "pbroker/corba/orb.h" -#include "pbroker/corba/environ.h" -#include <pbroker/corba/xpsboa.h> -#include <pbroker/corba/lifecycl/impldecl.h> -#include "ace/ACE.h" -#include "ttcp_i.h" -#include "ttcp_decl.h" -#ifdef DEBUG -# include "ace/streams.h" -#endif - -ACE_RCSID(CORBAplus, ttcp_i, "$Id$") - -/* the ttcp_i class implementation */ -ttcp_sequence_i::ttcp_sequence_i(const char *obj_name) - : key_(obj_name) -{ - this->nbytes_ = 0; - numCalls = 0; -} - -const char * -ttcp_sequence_i::_get_name (void) -{ - return key_; -} - -void -ttcp_sequence_i::start_timer (void) -{ - this->nbytes_ = 0; - ::prep_timer (); -} - -void -ttcp_sequence_i::stop_timer (void) -{ - (void) ::read_timer (stats, sizeof (stats)); - ::nbytes = this->nbytes_; - ::PrintStats(); - // reset - this->nbytes_ = 0; - numCalls = 0; -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); - ACE_Service_Config::end_reactor_event_loop(); - ACE_OS::fprintf (stderr, "*********** just before exiting\n"); -#endif -#if defined (ACE_HAS_PURIFY) - ACE_Service_Config::end_reactor_event_loop(); - ACE_OS::fprintf (stderr, "*********** just before exiting\n"); -#endif -} - -void -ttcp_sequence_i::sendShortSeq(const ttcp_sequence::ShortSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Short); -} - -void -ttcp_sequence_i::sendLongSeq(const ttcp_sequence::LongSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Long) ; -} - -void -ttcp_sequence_i::sendOctetSeq(const ttcp_sequence::OctetSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Octet) ; -} - -void -ttcp_sequence_i::sendDoubleSeq(const ttcp_sequence::DoubleSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Double) ; -} - -void -ttcp_sequence_i::sendCharSeq(const ttcp_sequence::CharSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Char) ; -} - -void -ttcp_sequence_i::sendStructSeq(const ttcp_sequence::StructSeq& ttcp_seq) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(BinStruct) ; -#ifdef DEBUG - // cout << "Bytes received so far = " << this->nbytes_ << endl; -#endif -} diff --git a/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.h b/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.h deleted file mode 100644 index e969820f2a4..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/ttcp_i.h +++ /dev/null @@ -1,66 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = TAO tests -// Throughput measurement using the TTCP benchmark adapted to work using -// CORBAplus PowerBroker from Expersoft -// = FILENAME -// ttcp_i.h -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -#ifndef TTCP_I_H -#define TTCP_I_H - -#include <pbroker/corba/lifecycl/actvtr.h> -#include <pbroker/corba/lifecycl/impldecl.h> -#include "pbroker/corba/orb.h" -#include "pbroker/corba/request.h" -#include "pbroker/corba/environ.h" - -#include "ace/OS.h" - -#if !defined (ACE_LACKS_PRAGMA_ONCE) -# pragma once -#endif /* ACE_LACKS_PRAGMA_ONCE */ - -#include "ttcp_s.h" - -class ttcp_sequence_i: public ttcp_sequence_base_impl -{ -public: - // XPS_CAST1_DECL(ttcp_sequence_i,ttcp_sequence_base_impl) - // XPS_DEFINE_IMPLEMENTATION(ttcp_sequence_decl) - - ttcp_sequence_i(const char *obj_name); - - ttcp_sequence_i (void) - { ttcp_sequence_i ("keyone");} - - ttcp_sequence_i (const CORBA_ReferenceData & refData) - { ttcp_sequence_i ("keyone");} - - virtual void sendShortSeq (const ttcp_sequence::ShortSeq& ttcp_seq); - virtual void sendLongSeq (const ttcp_sequence::LongSeq& ttcp_seq); - virtual void sendDoubleSeq (const ttcp_sequence::DoubleSeq& ttcp_seq); - virtual void sendCharSeq (const ttcp_sequence::CharSeq& ttcp_seq); - virtual void sendStructSeq (const ttcp_sequence::StructSeq& ttcp_seq); - virtual void sendOctetSeq (const ttcp_sequence::OctetSeq& ttcp_seq); - - /* Routines to calculate the time required to transfer */ - virtual void start_timer (void); - virtual void stop_timer (void); - - const char *_get_name (void); - // get the key of the object. -private: - unsigned long nbytes_; - const char *key_; -}; - -#endif // defined (TTCP_I_H) - diff --git a/TAO/performance-tests/Thruput/CORBAplus/utils.cpp b/TAO/performance-tests/Thruput/CORBAplus/utils.cpp deleted file mode 100644 index 0b4ae4f39a8..00000000000 --- a/TAO/performance-tests/Thruput/CORBAplus/utils.cpp +++ /dev/null @@ -1,469 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = TAO tests -// Throughput measurement using the TTCP benchmark adapted to work using TAO -// -// = FILENAME -// utils.cpp -// -// = AUTHOR -// Aniruddha Gokhale -// -// ============================================================================ - -// This file has all the helper functions that do the computation of -// throughput, system time used, user time, etc based on data collected. - -#include "ttcp.h" -#include "ttcp_decl.h" - -ACE_RCSID(CORBAplus, utils, "$Id$") - -// the error function. -// displays the error message and exits -int err (char *s) -{ - ACE_OS::fprintf (stderr, "ttcp%s: ", trans ? "-t" : "-r"); - ACE_OS::perror (s); - ACE_OS::fprintf (stderr, "errno=%d\n", errno); - return -1; -} - -// prints a message indicating if it is a transmitter or a receiver -void mes (CORBA::String s) -{ - ACE_OS::fprintf (stderr, "ttcp%s: %s\n", trans ? "-t" : "-r", s); -} - -// does the formatting for the desired units in which the result is to be -// displayed -char * -outfmt (CORBA::Double b) -{ - static char obuf[50]; - switch (fmt) - { - case 'G': - ACE_OS::sprintf (obuf, "%.2f GB", b / 1024.0 / 1024.0 / 1024.0); - break; - default: - case 'K': - ACE_OS::sprintf (obuf, "%.2f KB", b / 1024.0); - break; - case 'M': - ACE_OS::sprintf (obuf, "%.2f MB", b / 1024.0 / 1024.0); - break; - case 'g': - ACE_OS::sprintf (obuf, "%.2f Gbit", b * 8.0 / 1024.0 / 1024.0 / 1024.0); - break; - case 'k': - ACE_OS::sprintf (obuf, "%.2f Kbit", b * 8.0 / 1024.0); - break; - case 'm': - ACE_OS::sprintf (obuf, "%.2f Mbit", b * 8.0 / 1024.0 / 1024.0); - break; - } - return obuf; -} - -static struct itimerval itime0; /* Time at which timing started */ -static struct rusage ru0; /* Resource utilization at the start */ - -/* - * P R E P _ T I M E R - */ -// this is in fact the internals of the "start_timer" operation -void -prep_timer (void) -{ - itime0.it_interval.tv_sec = 0; - itime0.it_interval.tv_usec = 0; - itime0.it_value.tv_sec = LONG_MAX / 22; /* greatest possible value , itimer() count backwards */ - itime0.it_value.tv_usec = 0; - - - ACE_OS::getrusage (RUSAGE_SELF, &ru0); - - /* Init REAL Timer */ - if (setitimer (ITIMER_REAL, &itime0, NULL)) - { - perror ("Setting 'itimer' REAL failed"); - return; - } - -} - -/* - * R E A D _ T I M E R - * - */ -// This implements the internals of the "stop_timer" method -double -read_timer (char *str, CORBA::Long len) -{ - struct itimerval itimedol; - struct rusage ru1; - struct timeval td; - struct timeval tend, tstart; - char line[132]; - - ACE_OS::getrusage (RUSAGE_SELF, &ru1); - - if (getitimer (ITIMER_REAL, &itimedol)) - { - perror ("Getting 'itimer' REAL failed"); - return (0.0); - } - - prusage (&ru0, &ru1, &itime0.it_value, &itimedol.it_value, line); - (void) strncpy (str, line, len); - - /* Get real time */ - tvsub (&td, &itime0.it_value, &itimedol.it_value); - realt = td.tv_sec + ((double) td.tv_usec) / 1000000; - - /* Get CPU time (user+sys) */ - tvadd (&tend, &ru1.ru_utime, &ru1.ru_stime); - tvadd (&tstart, &ru0.ru_utime, &ru0.ru_stime); - tvsub (&td, &tend, &tstart); - cput = td.tv_sec + ((double) td.tv_usec) / 1000000; - if (cput < 0.00001) - cput = 0.00001; - return (cput); -} - -// prints the rusage stats -void -prusage (register struct rusage *r0, struct rusage *r1, - struct timeval *e, struct timeval *b, char *outp) -{ - struct timeval tdiff; - register time_t t; - register char *cp; - register int i; - int ms; - - t = (r1->ru_utime.tv_sec - r0->ru_utime.tv_sec) * 100 + - (r1->ru_utime.tv_usec - r0->ru_utime.tv_usec) / 10000 + - (r1->ru_stime.tv_sec - r0->ru_stime.tv_sec) * 100 + - (r1->ru_stime.tv_usec - r0->ru_stime.tv_usec) / 10000; - ms = (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000; - -#define END(x) {while(*x) x++;} -#if defined(SYSV) - cp = "%Uuser %Ssys %Ereal %P"; -#else -#if defined(sgi) /* IRIX 3.3 will show 0 for %M,%F,%R,%C */ - cp = "%Uuser %Ssys %Ereal %P %Mmaxrss %F+%Rpf %Ccsw"; -#else - cp = "%Uuser %Ssys %Ereal %P %Xi+%Dd %Mmaxrss %F+%Rpf %Ccsw"; -#endif -#endif - for (; *cp; cp++) - { - if (*cp != '%') - *outp++ = *cp; - else if (cp[1]) - switch (*++cp) - { - - case 'U': - tvsub (&tdiff, &r1->ru_utime, &r0->ru_utime); - ACE_OS::sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'S': - tvsub (&tdiff, &r1->ru_stime, &r0->ru_stime); - ACE_OS::sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'E': - psecs (ms / 100, outp); - END (outp); - break; - - case 'P': - ACE_OS::sprintf (outp, "%d%%", (int) (t * 100 / ((ms ? ms : 1)))); - END (outp); - break; - -#if !defined(SYSV) - case 'W': - i = r1->ru_nswap - r0->ru_nswap; - ACE_OS::sprintf (outp, "%d", i); - END (outp); - break; - - case 'X': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : (r1->ru_ixrss - r0->ru_ixrss) / t); - END (outp); - break; - - case 'D': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : - (r1->ru_idrss + r1->ru_isrss - (r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'K': - ACE_OS::sprintf (outp, "%d", t == 0 ? 0 : - ((r1->ru_ixrss + r1->ru_isrss + r1->ru_idrss) - - (r0->ru_ixrss + r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'M': - ACE_OS::sprintf (outp, "%d", r1->ru_maxrss / 2); - END (outp); - break; - - case 'F': - ACE_OS::sprintf (outp, "%d", r1->ru_majflt - r0->ru_majflt); - END (outp); - break; - - case 'R': - ACE_OS::sprintf (outp, "%d", r1->ru_minflt - r0->ru_minflt); - END (outp); - break; - - case 'I': - ACE_OS::sprintf (outp, "%d", r1->ru_inblock - r0->ru_inblock); - END (outp); - break; - - case 'O': - ACE_OS::sprintf (outp, "%d", r1->ru_oublock - r0->ru_oublock); - END (outp); - break; - case 'C': - ACE_OS::sprintf (outp, "%d+%d", r1->ru_nvcsw - r0->ru_nvcsw, - r1->ru_nivcsw - r0->ru_nivcsw); - END (outp); - break; -#endif /* !SYSV */ - } - } - *outp = '\0'; -} - -// adds two "timeval" structures -void -tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1) -{ - - tsum->tv_sec = t0->tv_sec + t1->tv_sec; - tsum->tv_usec = t0->tv_usec + t1->tv_usec; - if (tsum->tv_usec > 1000000) - tsum->tv_sec++, tsum->tv_usec -= 1000000; -} - -// finds difference between two timevals -void -tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0) -{ - - tdiff->tv_sec = t1->tv_sec - t0->tv_sec; - tdiff->tv_usec = t1->tv_usec - t0->tv_usec; - if (tdiff->tv_usec < 0) - tdiff->tv_sec--, tdiff->tv_usec += 1000000; -} - -// print in seconds -void -psecs (CORBA::Long l, register char *cp) -{ - register int i; - - i = l / 3600; - if (i) - { - ACE_OS::sprintf (cp, "%d:", i); - END (cp); - i = l % 3600; - ACE_OS::sprintf (cp, "%d%d", (i / 60) / 10, (i / 60) % 10); - END (cp); - } - else - { - i = l; - ACE_OS::sprintf (cp, "%d", i / 60); - END (cp); - } - i %= 60; - *cp++ = ':'; - ACE_OS::sprintf (cp, "%d%d", i / 10, i % 10); -} - -// generate the specified delay in microseconds -void -delay (int us) -{ - struct timeval tv; - - tv.tv_sec = 0; - tv.tv_usec = us; - (void) select (1, (fd_set *) 0, (fd_set *) 0, (fd_set *) 0, &tv); -} - -// fill up a buffer with a data type that we want to send -void -FillPattern (register char *cp, register CORBA::Long bufLen, CORBA::ULong dt) -{ - unsigned long - num, i; - - switch(dt){ - case SEND_SHORT: - { - register short *SeqPtr = (short *)cp; - num = bufLen/sizeof(short); - for (i=0; i < num; i++) - SeqPtr[i] = (short)lrand48(); - sseq = new ttcp_sequence::ShortSeq(num,num, SeqPtr); - } - break; - case SEND_LONG: - { - register long *SeqPtr = (long *)cp; - num = bufLen/sizeof(long); - for (i=0; i < num; i++) - SeqPtr[i] = lrand48(); - lseq = new ttcp_sequence::LongSeq(num, num, SeqPtr); - } - break; - case SEND_DOUBLE: - { - register double *SeqPtr = (double *)cp; - num = bufLen/sizeof(double); - for (i=0; i < num; i++) - SeqPtr[i] = drand48(); - dseq = new ttcp_sequence::DoubleSeq(num, num, SeqPtr); - } - break; - case SEND_CHAR: - { - register CORBA::Char *SeqPtr = (CORBA::Char *)cp; - register char c = 0; - num = bufLen/sizeof(char); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - cseq = new ttcp_sequence::CharSeq(num, num, SeqPtr); - } - break; - case SEND_STRUCT: - { - register BinStruct *SeqPtr = (BinStruct *)cp; - register char c = 0; - num = bufLen/sizeof(BinStruct); - for (i=0; i < num; i++){ - SeqPtr[i].s = (short)lrand48(); - SeqPtr[i].l = lrand48(); - SeqPtr[i].d = drand48(); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].c = (c++ & 0x7f); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].o = (unsigned char)(c++ & 0x7f); - } - Sseq = new ttcp_sequence::StructSeq(num, num, SeqPtr); - - } - break; - case SEND_OCTET: - default: - { - register CORBA::Octet *SeqPtr = (CORBA::Octet *)cp; - register char c = 0; - num = bufLen/sizeof(CORBA::Octet); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - oseq = new ttcp_sequence::OctetSeq(num, num, SeqPtr); - } - break; - } -} - -// print all the statistics -void PrintStats (void) -{ - if (cput <= 0.0) - cput = 0.001; - if (realt <= 0.0) - realt = 0.001; - - if (title != 0) - { - double tmp; - FILE *outFile; - char filename[BUFSIZ]; - - strcpy(filename, title); - switch(dt){ - case SEND_SHORT: - strcat(filename, ".shortSeq.results"); - break; - case SEND_LONG: - strcat(filename, ".longSeq.results"); - break; - case SEND_DOUBLE: - strcat(filename, ".doubleSeq.results"); - break; - case SEND_CHAR: - strcat(filename, ".charSeq.results"); - break; - case SEND_STRUCT: - strcat(filename, ".structSeq.results"); - break; - case SEND_COMPOSITE: - strcat(filename, ".compositeSeq.results"); - break; - case SEND_OCTET: - default: - strcat(filename, ".octetSeq.results"); - break; - } - outFile = fopen (filename, "a+"); - ACE_OS::fprintf (outFile, "\n%ldk \t", buflen / 1024); - tmp = ((double) nbytes) / realt; - ACE_OS::fprintf (outFile, "%.2f ", tmp * 8.0 / 1024.0 / 1024.0); - fclose (outFile); - } - - ACE_OS::fprintf (stdout, - "ttcp%s: %ld bytes in %.2f real seconds = %s/sec +++\n", - trans ? "-t" : "-r", - nbytes, realt, outfmt (((double) nbytes) / realt)); - if (verbose) - { - ACE_OS::fprintf (stdout, - "ttcp%s: %ld bytes in %.2f CPU seconds = %s/cpu sec\n", - trans ? "-t" : "-r", - nbytes, cput, outfmt (((double) nbytes) / cput)); - } - ACE_OS::fprintf (stdout, - "ttcp%s: %d Server Method calls, msec/call = %.2f, calls/sec = %.2f\n", - trans ? "-t" : "-r", - numCalls, - 1024.0 * realt / ((double) numCalls), - ((double) numCalls) / realt); - ACE_OS::fprintf (stdout, "ttcp%s: %s\n", trans ? "-t" : "-r", stats); - if (verbose) - { - ACE_OS::fprintf (stdout, - "ttcp%s: buffer address %#x\n", - trans ? "-t" : "-r", - buf); - } -} diff --git a/TAO/performance-tests/Thruput/Orbix/Client.cpp b/TAO/performance-tests/Thruput/Orbix/Client.cpp deleted file mode 100644 index 899a075669f..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/Client.cpp +++ /dev/null @@ -1,328 +0,0 @@ -// $Id$ - -#include "ttcp_decl.h" - -ACE_RCSID(Orbix, Client, "$Id$") - -char Usage[] = "\ -Usage: client [-options] [ORBeline options] host \n\ -Common options:\n\ --l ## length of bufs read from or written to network (default 8192)\n\ --A align the start of buffers to this modulus (default 16384)\n\ --o start buffers at this offset from the modulus (default 0)\n\ --v verbose: print more statistics\n\ --d set SO_DEBUG socket option\n\ --b ## set socket buffer size (if supported)\n\ --f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n\ --n ## number of source bufs written to network (default 2048)\n\ --x Use new lines after each entry in output file\n\ --h ## Remote host to send data to\n\ --D don't buffer TCP writes (sets TCP_NODELAY socket option)\n\ --L ## Output file name for the data type used\n\ --S <Total Data Size>\n\ --q <type> Send Sequence: Enumeration for various data types:\n\ -s = short, l = long, d = double, c = char\n\ -o = octet, S = struct, C = composite\n\ -"; - -#if !defined (__cplusplus) -typedef void (*SIG_TYP)(); -#endif - -#ifdef SVR4 -void -sigpipe (int foo) -#else - void -sigpipe () -#endif -{ -} - -int fromlen; -int domain = PF_INET; /* Default is to use Internet domain sockets. */ -char *domainname; /* Rendezvous address for UNIX domain sockets. */ -int fd; /* fd of network socket */ -int buflen = 8 * 1024; /* length of buffer */ -char *buf; /* ptr to dynamic buffer */ -int nbuf = 2 * 1024; /* number of buffers to send in sinkmode */ - -int bufoffset = 0; /* align buffer to this */ -int bufalign = 16 * 1024; /* modulo this */ - -int udp = 0; /* 0 = tcp, !0 = udp */ -int options = 0; /* socket options */ -int one = 1; /* for 4.3 BSD style setsockopt() */ -short port = 5001; /* TCP port number */ -char *host; /* ptr to name of host */ -int trans =1; /* 0=receive, !0=transmit mode */ -int sinkmode = 1; /* 0=normal I/O, !0=sink/source mode */ -int verbose = 0; /* 0=print basic info, 1=print cpu rate, proc -* resource usage. */ -int nodelay = 0; /* set TCP_NODELAY socket option */ -int b_flag = 0; /* use mread() */ -int sockbufsize = 0; /* socket buffer size to use */ -int new_line=0; /* This is a special flag */ -int write_to_file=1; /* indecates writing to file (default)*/ -char fmt = 'K'; /* output format:k=kilobits,K=kilobytes, -* m = megabits, M = megabytes, -* g = gigabits, G = gigabytes */ -int touchdata = 0; /* access data after reading */ - -struct hostent *addr; -char *title = 0; - -char stats[128]; -unsigned long srcDataSize; /* Total amount of source data */ -unsigned long nbytes; /* bytes on net */ -unsigned long numCalls; /* # of I/O system calls */ -double cput, realt; /* user, real time (seconds) */ -unsigned long dt; - -/* declare struct variables for various message types */ -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; -ttcp_sequence::CompositeSeq *Cseq; - - -int -main (int argc, char *argv[]) -{ - - unsigned long addr_tmp; - unsigned short done = 0; - int c; - - CORBA::Environment env; - CORBA::Object_ptr target; // will hold handle to proxy - ttcp_sequence_ptr ttcp_seq; - - if (argc < 2) - goto usage; - - - while (!done && ((c = getopt (argc, argv, "dvDb:h:f:l:n:A:o:L:xS:q:O")) != -1)) - { - switch (c) - { - case 'h': - host = optarg; - break; - case 'x': - new_line = 1; - break; - case 'L': - title = optarg; - break; - case 'd': - options |= SO_DEBUG; - break; - case 'D': -#ifdef TCP_NODELAY - nodelay = 1; -#else - fprintf (stderr, - "ttcp: -D option ignored: TCP_NODELAY socket option not supported\n"); -#endif - break; - case 'n': - nbuf = atoi (optarg); - break; - case 'l': - buflen = atoi (optarg); - break; - case 'v': - verbose = 1; - break; - case 'A': - bufalign = atoi (optarg); - break; - case 'o': - bufoffset = atoi (optarg); - break; - case 'b': -#if defined(SO_SNDBUF) || defined(SO_RCVBUF) - sockbufsize = atoi (optarg); -#else - fprintf (stderr, - "ttcp: -b option ignored: SO_SNDBUF/SO_RCVBUF socket options not supported\n"); -#endif - break; - case 'f': - fmt = *optarg; - break; - case 'S': /* total source data to send. */ - /* modify nbuf accordingly */ - srcDataSize = atoi(optarg); - break; - case 'q': /* Send sequence of desired data type */ - switch(*optarg){ - case 's': - dt = SEND_SHORT; - break; - case 'l': - dt = SEND_LONG; - break; - case 'd': - dt = SEND_DOUBLE; - break; - case 'c': - dt = SEND_CHAR; - break; - case 'o': - dt = SEND_OCTET; - break; - case 'S': - dt = SEND_STRUCT; - break; - case 'C': - dt = SEND_COMPOSITE; - break; - } - break; - case 'O': - case '?': - done = 1; - break; - default: - goto usage; - } - } - - // - // Transmitter - // - - // now bind to server - try { - char *service_name = new char[15]; - strcpy(service_name,":SII_ttcp"); // server object's name - - target = ttcp_sequence::_bind (service_name, host); - if (!CORBA::is_nil(target)){ - ttcp_seq = ttcp_sequence::_narrow(target); - - if (!CORBA::is_nil(ttcp_seq)){ - /* start recording quantify data from here */ - if (sockbufsize) - { - /* file descriptor of a proxy is obtained using the _fd() method */ - if (setsockopt (ttcp_seq->_fd (), SOL_SOCKET, SO_SNDBUF, (char *) &sockbufsize, - sizeof sockbufsize) < 0) - err ("setsockopt: sndbuf"); - mes ("sndbuf"); - } - - if (nodelay) - { - struct protoent *p; - p = getprotobyname ("tcp"); - if (setsockopt (ttcp_seq->_fd (), - p->p_proto, - TCP_NODELAY, - (char *)& one, - sizeof (one))) - err ("setsockopt: nodelay"); - mes ("nodelay"); - } - - /* modify nbuf according to Total data size */ - nbuf = srcDataSize/buflen; - fprintf(stderr, "data size = %d, buflen = %d, nbuf = %d\n",srcDataSize, buflen, nbuf); - - // - // Prepare the Message to be sent - // - - errno = 0; - if ((buf = (char *) malloc (buflen + bufalign)) == (char *) NULL) - err ("malloc"); - if (bufalign != 0) - buf += (bufalign - ((int) buf % bufalign) + bufoffset) % bufalign; - - - // fill the appropriate buffers - FillPattern (buf, buflen, dt); - // - // Start the timers on the client and server sides - // - - prep_timer (); - ttcp_seq->start_timer (); -#if defined (ACE_HAS_QUANTIFY) - quantify_clear_data(); - quantify_start_recording_data(); -#endif - while (nbuf--) - { - switch(dt){ - case SEND_SHORT: - ttcp_seq->sendShortSeq(*sseq); - nbytes += sseq->length()*sizeof(CORBA::Short); - break; - case SEND_LONG: - ttcp_seq->sendLongSeq(*lseq); - nbytes += lseq->length()*sizeof(CORBA::Long); - break; - case SEND_OCTET: - ttcp_seq->sendOctetSeq(*oseq); - nbytes += oseq->length()*sizeof(CORBA::Octet); - break; - case SEND_DOUBLE: - ttcp_seq->sendDoubleSeq(*dseq); - nbytes += dseq->length()*sizeof(CORBA::Double); - break; - case SEND_CHAR: - ttcp_seq->sendCharSeq(*cseq); - nbytes += cseq->length()*sizeof(CORBA::Char); - break; - case SEND_STRUCT: - ttcp_seq->sendStructSeq(*Sseq); - nbytes += Sseq->length()*sizeof(PerfStruct); - break; - case SEND_COMPOSITE: - ttcp_seq->sendCompositeSeq(*Cseq); - nbytes += Cseq->length()*sizeof(CompositeStruct); - break; - } - numCalls++; - } -#if defined(ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); -#endif - // - // Stop the timer - // - ttcp_seq->stop_timer(); - (void) read_timer (stats, sizeof (stats)); - - // print results - PrintStats(); - - } - } - } - catch(CORBA::SystemException &se){ - // an error occurred while trying to bind to the object. - cerr << "Bind to object failed" << endl; - cerr << "System exception " << &se << endl; - return -1; - } - catch(...) - { - // an error occurred while trying to bind to the object. - cerr << "Bind to object failed" << endl; - cerr << "Unexpected exception " << endl; - return -1; - }; - - CORBA::release(ttcp_seq); - return(0); - usage: - fprintf (stderr, Usage); - return 1; -} diff --git a/TAO/performance-tests/Thruput/Orbix/Makefile b/TAO/performance-tests/Thruput/Orbix/Makefile deleted file mode 100644 index 0c22b7c128c..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/Makefile +++ /dev/null @@ -1,60 +0,0 @@ -#### $Id$ - -include orbixsol2s4.mk - -all: client server - @echo - - @echo "\"client\" and \"server\" have been compiled." - @echo - @echo "To run tests, check the how_to_run_tests file." - @echo - -C++FLAGS += -DSYSV -DWANT_ORBIX_FDS -DLM_RESULTS #-DUSE_TIE -SERVER_OBJS = ttcpS.o ttcp_i.o utils.o Srv_Main.o -CLIENT_OBJS = ttcpC.o utils.o Client.o - -ifdef unpad -C++FLAGS += -DUNPAD -endif - -ifeq ($(OSRELEASE),5.4) -C++FLAGS += -DSUNOS54 -endif - -client: $(CLIENT_OBJS) - $(PRELINK) $(C++) $(C++FLAGS) -o client $(CLIENT_OBJS) $(LDFLAGS) $(ITSRV) $(SYSLIBS) - -server: $(SERVER_OBJS) - $(PRELINK) $(C++) $(C++FLAGS) -o server $(SERVER_OBJS) $(LDFLAGS) $(ITSRV) $(SYSLIBS) - -ttcp.h ttcpC.$(C++SUFFIX) ttcpS.$(C++SUFFIX):ttcp.idl - $(IDL) $(IDLFLAGS) $< - -.PHONY: clean - -clean: - $(RM) core *.o *~ client server *C.cpp *S.cpp ttcp.h - -checkin: - ci ttcp.idl - ci ttcp_i.h - ci ttcp_i.cpp - ci Srv_Main.cpp - ci Client.cpp - ci ttcp_decl.h - ci utils.cpp - $(RM) core *.o *~ client server *C.cpp *S.cpp ttcp.h - -checkout: - co -l ttcp.idl - co -l ttcp_i.h - co -l ttcp_i.cpp - co -l Srv_Main.cpp - co -l Client.cpp - co -l ttcp_decl.h - co -l utils.cpp - -release: - test -d $(RDIR)/SII/1way/Orbix || mkdir -p $(RDIR)/SII/1way/Orbix - cp *.idl *.cpp *.h Makefile run* README* $(RDIR)/SII/1way/Orbix/. diff --git a/TAO/performance-tests/Thruput/Orbix/README b/TAO/performance-tests/Thruput/Orbix/README deleted file mode 100644 index 21e58670e48..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/README +++ /dev/null @@ -1,40 +0,0 @@ -This directory contains code that has a modified version of the TTCP benchmark that uses -Orbix. Our intent is to test the performance of Orbix over ATM using the CORBA IDL "sequence" -data type. - -We define sequences of "short", "long", "double", "octet", "char", a user-defined -"struct" and a composite struct. - -We run our server program using the following command line: (this is -an example) - -putit SII_ttcp "/project/mambo/gokhale/TTCP-testbed/SII/1way/Orbix/server -f m -b 65536" - -The client program is run using the following command line: -client -S <data size> -f m -l <chunk size> -h <host> -L <filename> -q <data type> -b <socketQ> - -<data type> implies what sequence type you want to send: -s short -c chars -o octet -d double -l long -S user defined struct -C composite struct -<filename> will store the result that indicates the thruput observed in Mbps (because -we chose -f m as the option). - -An example is given from the "run" script - -client -S 67108864 -f m -l $1 -h encip1-merengue.cs.wustl.edu -L temp -q $2 -b 65536 - - -The following files are used: - -ttcp.idl This file is the CORBA IDL declaration for the TTCP benchmark. -Srv_main.cpp Server program. -Client.cpp Client program. -ttcp_i.cpp Implementation of various methods of the ttcp_sequence object. -ttcp_i.h Implementation header -utils.cpp Lots of functions that came along with the original TTCP benchmark. -ttcp_decl.h Prototypes, extern decls, etc... diff --git a/TAO/performance-tests/Thruput/Orbix/Srv_Main.cpp b/TAO/performance-tests/Thruput/Orbix/Srv_Main.cpp deleted file mode 100644 index 58de97b87e3..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/Srv_Main.cpp +++ /dev/null @@ -1,176 +0,0 @@ -// $Id$ - -#include "ttcp_i.h" - -ACE_RCSID(Orbix, Srv_Main, "$Id$") - -char Usage[] = "\ -Usage: server [options] \n\ -Common options:\n\ - -l ## length of bufs read from or written to network (default 8192)\n\ - -A align the start of buffers to this modulus (default 16384)\n\ - -O start buffers at this offset from the modulus (default 0)\n\ - -v verbose: print more statistics\n\ - -d set SO_DEBUG socket option\n\ - -b ## set socket buffer size (if supported)\n\ - -f X format for rate: k,K = kilo{bit,byte}; m,M = mega; g,G = giga\n\ - -L ## Output file name for the data type used\n\ -Options specific to -r:\n\ - -B for -s, only output full blocks as specified by -l (for TAR)\n\ - -T \"touch\": access each byte as it's read\n\ -"; - -#if !defined (__cplusplus) -typedef void (*SIG_TYP)(); -#endif - -#ifdef SVR4 -void -sigpipe (int foo) -#else -void -sigpipe () -#endif -{ -} - -int fromlen; -int domain = PF_INET; /* Default is to use Internet domain sockets. */ -char *domainname; /* Rendezvous address for UNIX domain sockets. */ -int fd; /* fd of network socket */ -int buflen = 8 * 1024; /* length of buffer */ -char *buf; /* ptr to dynamic buffer */ -int nbuf = 2 * 1024; /* number of buffers to send in sinkmode */ - -int bufoffset = 0; /* align buffer to this */ -int bufalign = 16 * 1024; /* modulo this */ - -int udp = 0; /* 0 = tcp, !0 = udp */ -int options = 0; /* socket options */ -int one = 1; /* for 4.3 BSD style setsockopt() */ -short port = 5001; /* TCP port number */ -char *host; /* ptr to name of host */ -int trans; /* 0=receive, !0=transmit mode */ -int sinkmode = 0; /* 0=normal I/O, !0=sink/source mode */ -int verbose = 0; /* 0=print basic info, 1=print cpu rate, proc - * resource usage. */ -int nodelay = 0; /* set TCP_NODELAY socket option */ -int b_flag = 0; /* use mread() */ -int sockbufsize = 0; /* socket buffer size to use */ -int new_line=0; /* This is a special flag */ -int write_to_file=1; /* indecates writing to file (default)*/ -char fmt = 'K'; /* output format:k=kilobits,K=kilobytes, - * m = megabits, M = megabytes, - * g = gigabits, G = gigabytes */ -int touchdata = 0; /* access data after reading */ - -struct hostent *addr; -char *title = 0; - -char stats[128]; -unsigned long srcDataSize; /* Total amount of source data */ -unsigned long nbytes; /* bytes on net */ -unsigned long numCalls; /* # of I/O system calls */ -double cput, realt; /* user, real time (seconds) */ -unsigned long dt; - -/* declare struct variables for various message types */ -ttcp_sequence::ShortSeq *sseq; -ttcp_sequence::LongSeq *lseq; -ttcp_sequence::OctetSeq *oseq; -ttcp_sequence::DoubleSeq *dseq; -ttcp_sequence::CharSeq *cseq; -ttcp_sequence::StructSeq *Sseq; -ttcp_sequence::CompositeSeq *Cseq; - -unsigned short isDone = 0; - -int -main (int argc, char *argv[]) -{ - - unsigned long addr_tmp; - int c; - unsigned short done = 0; - - - if (argc < 2) - goto usage; - - // Now process the options other than Orbix specific options - while (!done && ((c = getopt (argc, argv, "dvb:f:l:L:O")) != -1)) - { - switch (c) - { - case 'L': - title = optarg; - break; - case 'd': - options |= SO_DEBUG; - break; - case 'l': - buflen = atoi (optarg); - break; - case 'v': - verbose = 1; - break; - case 'b': -#if defined(SO_SNDBUF) || defined(SO_RCVBUF) - sockbufsize = atoi (optarg); -#else - fprintf (stderr, - "ttcp: -b option ignored: SO_SNDBUF/SO_RCVBUF socket options not supported\n"); -#endif - break; - case 'f': - fmt = *optarg; - break; - case 'O': - case '?': - done = 1; - break; - default: - goto usage; - } - } - - ttcp_sequence_i *my_ttcp; - // - // Receiver - // - try { - char *service_name = new char[15]; - strcpy(service_name,"SII_ttcp"); - -#if defined (USE_TIE) - // TIE approach - my_ttcp = new ttcp_sequence_i; - _tie_ttcp_sequence<ttcp_sequence_i> *my_ttcp_tmpl = new - _tie_ttcp_sequence<ttcp_sequence_i> (*my_ttcp); - -#else - my_ttcp = new ttcp_sequence_i; -#endif - -#if defined (ACE_HAS_QUANTIFY) - quantify_clear_data(); - quantify_start_recording_data(); -#endif - CORBA::Orbix.impl_is_ready(service_name); - } - catch(CORBA::SystemException &se) { - // an error occured calling impl_is_ready() - output the error. - cout << "System Exception getting the implementation ready " << &se << endl; - return -1; - } - catch(...) { - // an error occured calling obj_is_ready() - output the error. - cout << "Undefined Exception getting the implementation ready " << endl; - return -1; - } - CORBA::release(my_ttcp); - return (0); -usage: - fprintf (stderr, Usage); - return(1); -} diff --git a/TAO/performance-tests/Thruput/Orbix/extract b/TAO/performance-tests/Thruput/Orbix/extract deleted file mode 100644 index 9cce54ca390..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/extract +++ /dev/null @@ -1,4 +0,0 @@ -rm -f outfile -touch outfile -grep "Mbit/sec\|Send" results.TAO | head -20 > outfile -grep "msec/call\|Send" results.TAO | head -20 >> outfile diff --git a/TAO/performance-tests/Thruput/Orbix/loop64 b/TAO/performance-tests/Thruput/Orbix/loop64 deleted file mode 100644 index 102c2afd209..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/loop64 +++ /dev/null @@ -1,24 +0,0 @@ -# All ATM tests: 64k socket Queue Size -# -# shorts -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 s -sleep 2 -# longs -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 l -sleep 2 -# octets -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 o -sleep 2 -# doubles -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 d -sleep 2 -# chars -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 c -sleep 2 -# structures -run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 S -sleep 2 -# Composite Structs -#run_test 67108864 1024 encip1-merengue.cs.wustl.edu ./results/LOOPBACK/orbix.atm.64 C -#sleep 2 -# diff --git a/TAO/performance-tests/Thruput/Orbix/orbixsol2s4.mk b/TAO/performance-tests/Thruput/Orbix/orbixsol2s4.mk deleted file mode 100644 index 01fd92b98c8..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/orbixsol2s4.mk +++ /dev/null @@ -1,148 +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.2/bin -ORBIX_LIBDIR = /opt/Orbix_2.2/lib -ORBIX_INCDIR = /opt/Orbix_2.2/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. -C++SUFFIX = cpp -CXX = CC -CPPFLAGS += -I$(ORBIX_INCDIR) -I. -CPPSUFFIX = cpp - -# ------------------------------------------------------------ -# ITCLT, IRCLT and ITSRV can be either statically or dynamically linked -# Use -Bdynamic or -Bstatic as appropriate. -# ------------------------------------------------------------ -ITCLT = -Bdynamic -lorbix -ITSRV = -Bdynamic -lorbix -IRCLT = -Bdynamic -lIRclt -ITIIOP = -Bdynamic -liiop -ITDSI = -Bdynamic -lDSI -ITIFR = -Bdynamic -lifr - - -# ------------------------------------------------------------ -# 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 = -h .h -c C.cpp -s S.cpp -B -A -m interOp -#------------------------------------------------------------ -# 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 -%.h: %.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/performance-tests/Thruput/Orbix/run b/TAO/performance-tests/Thruput/Orbix/run deleted file mode 100644 index 7af22c9407b..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/run +++ /dev/null @@ -1 +0,0 @@ -client -S 67108864 -f m -D -l $1 -h mambo-atm.wustl.edu -L temp -q $2 -b 65536 diff --git a/TAO/performance-tests/Thruput/Orbix/run_client b/TAO/performance-tests/Thruput/Orbix/run_client deleted file mode 100644 index 0de2a604e31..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/run_client +++ /dev/null @@ -1,25 +0,0 @@ -#!/bin/csh -f -# All ATM tests: 64k socket Queue Size -# -# shorts -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 s -sleep 2 -# longs -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 l -sleep 2 -# octets -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 o -sleep 2 -# doubles -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 d -sleep 2 -# chars -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 c -sleep 2 -# structures -run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 S -sleep 2 -# Composite Structs -#run_test 67108864 1024 mambo-atm.wustl.edu ./results/REMOTE/orbix.atm.64 C -#sleep 2 -# diff --git a/TAO/performance-tests/Thruput/Orbix/run_server b/TAO/performance-tests/Thruput/Orbix/run_server deleted file mode 100644 index 1dad6e9c600..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/run_server +++ /dev/null @@ -1,4 +0,0 @@ -rmit SII_ttcp -putit SII_ttcp "/project/mambo/gokhale/TTCP-testbed/SII/1way/Orbix/server -f m -b 65536 -l 131072" -#putit SII_ttcp -persistent -#truss -f server -f m -b 65536 -l 131072 diff --git a/TAO/performance-tests/Thruput/Orbix/run_test b/TAO/performance-tests/Thruput/Orbix/run_test deleted file mode 100644 index 9ca15639427..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/run_test +++ /dev/null @@ -1,31 +0,0 @@ -#!/bin/csh -f -if ($#argv < 3) then - echo "Usage: sclt <Total Data Size> <Max msg size> <destination> <TitleOfThisTest> <seq type>" - exit 1 -endif -# -@ msize=1024 -@ limit= ($argv[2] * 1024) -#echo $limit -#echo $msize -echo "Iteration#" 1 ": client -S" $1 "-D -f m -s -t -l" $msize "-h" $3 "-x -L" $4 "-q" $5 -b 65536 -client -S $1 -D -f m -l $msize -h $3 -x -L $4 -q $5 -b 65536 -set flag=0 -while ($msize <= $limit) - if ($flag == 0) goto label - echo "Iteration#" 1 ": client -S" $1 "-D -f m -l" $msize "-h" $3 "-x -L" $4 "-q" $5 -b 65536 - client -S $1 -D -f m -l $msize -h $3 -x -L $4 -q $5 -b 65536 - label: - set flag=1 - sleep 2 - foreach i (2 3) - echo "Iteration#" $i ": client -S" $1 "-D -f m -s -t -l" $msize "-h" $3 "-x -L " $4 "-q" $5 -b 65536 - client -S $1 -D -f m -l $msize -h $3 -x -L $4 -q $5 -b 65536 - end - echo "---------------------------" - @ msize = ($msize * 2) -end - -echo " " -echo "Done at:" -date diff --git a/TAO/performance-tests/Thruput/Orbix/run_tests b/TAO/performance-tests/Thruput/Orbix/run_tests deleted file mode 100644 index 96245b9fbc8..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/run_tests +++ /dev/null @@ -1,78 +0,0 @@ -#! /bin/csh - -rm -f results.TAO -touch results.TAO - -echo "TAO throughput test" -echo "TAO throughput test" >>results.TAO -echo "===================" -echo "===================" >>results.TAO - - -echo "Send Struct --------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q S >>& results.TAO - -echo "Send Short ---------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q s >>& results.TAO - -echo "Send Long ----------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q l >>& results.TAO - -echo "Send Octet ---------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q o >>& results.TAO - -echo "Send Double --------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q d >>& results.TAO - -echo "Send Char ----------------------------------------------------------" >>results.TAO - ./client -S 10485760 -f m -l 1024 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 2048 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 4096 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 8192 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 16384 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 32768 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 65536 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 131072 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - ./client -S 10485760 -f m -l 262144 -h merengue-atm1 -L ./results/REMOTE/sun-iiop.atm.64 -q c >>& results.TAO - -grep "Mbit/sec\|Send" results.TAO diff --git a/TAO/performance-tests/Thruput/Orbix/ttcp.idl b/TAO/performance-tests/Thruput/Orbix/ttcp.idl deleted file mode 100644 index 9e95e00d8b0..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/ttcp.idl +++ /dev/null @@ -1,40 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - -struct PerfStruct{ - short s; - char c; - long l; - octet o; - double d; - //padding - long pad[2]; -}; - -struct CompositeStruct{ - PerfStruct ps; -}; - -// Richly typed data -interface ttcp_sequence -{ - typedef sequence<short> ShortSeq; - typedef sequence<long> LongSeq; - typedef sequence<double> DoubleSeq; - typedef sequence<char> CharSeq; - typedef sequence<octet> OctetSeq; - typedef sequence<PerfStruct> StructSeq; - typedef sequence<CompositeStruct> CompositeSeq; - - // Routines to send sequences of various data types - oneway void sendShortSeq (in ShortSeq ttcp_seq); - oneway void sendLongSeq (in LongSeq ttcp_seq); - oneway void sendDoubleSeq (in DoubleSeq ttcp_seq); - oneway void sendCharSeq (in CharSeq ttcp_seq); - oneway void sendOctetSeq (in OctetSeq ttcp_seq); - oneway void sendStructSeq (in StructSeq ttcp_seq); - oneway void sendCompositeSeq (in CompositeSeq ttcp_seq); - - oneway void start_timer (); - oneway void stop_timer (); -}; diff --git a/TAO/performance-tests/Thruput/Orbix/ttcp_decl.h b/TAO/performance-tests/Thruput/Orbix/ttcp_decl.h deleted file mode 100644 index 1b28e501537..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/ttcp_decl.h +++ /dev/null @@ -1,154 +0,0 @@ -// $Id$ - - -/* - * T T C P Header File - * - */ - -/* This file includes all the declarations and prototypes */ - -#ifndef _TTCP_DECL_H_ -#define _TTCP_DECL_H_ - -#include "ttcp.h" - -/* #define BSD43 */ -/* #define BSD42 */ -/* #define BSD41a */ - - -#include <stdio.h> -#include <signal.h> -#include <ctype.h> -#include <errno.h> -#include <sys/types.h> -#include <sys/socket.h> -#include <netinet/in.h> -#include <malloc.h> -#include <string.h> -#include <stdlib.h> -#include <memory.h> -#include <netinet/tcp.h> -#include <arpa/inet.h> -#include <netdb.h> -#include <sys/time.h> /* struct itimerval */ -#include <limits.h> -#include <sys/un.h> -#include <unistd.h> -#include <iostream.h> -#include <sys/resource.h> - -/* File to be included if Quantify is to be used */ -#if defined (ACE_HAS_QUANTIFY) -# include <quantify.h> -#endif - - -#if defined(SYSV) -#define bcopy(b1,b2,n) memcpy(b2,b1,n) -#define bzero(b1,n) memset(b1,0,n) -#include <sys/times.h> -#include <sys/param.h> -#endif - -#if defined(SUNOS54) -struct rusage - { - struct timeval ru_utime, ru_stime; - }; -#define RUSAGE_SELF 0 -#else -#include <sys/resource.h> -#endif - -/* define the data types to be sent */ -#define SEND_SHORT ((unsigned long)(1)) -#define SEND_LONG ((unsigned long)(2)) -#define SEND_CHAR ((unsigned long)(3)) -#define SEND_OCTET ((unsigned long)(4)) -#define SEND_DOUBLE ((unsigned long)(5)) -#define SEND_STRUCT ((unsigned long)(6)) -#define SEND_COMPOSITE ((unsigned long)(7)) - -/************** -// Prototypes -***************/ -void err (char *s); -void mes (char *s); -char *outfmt (double b); -static void getrusage (int ignored, register struct rusage *ru); -static void gettimeofday (struct timeval *tp, struct timezone *zp); -void prep_timer (void); -double read_timer (char *str, int len); -static void prusage (register struct rusage *r0, struct rusage *r1, struct timeval *e, struct timeval *b, char *outp); -static void tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1); -static void tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0); -static void psecs (long l, register char *cp); -void delay (int us); -int mread (int fd, register char *bufp, unsigned n); -int Nread (int fd, void *buf, int count); -int Nwrite (int fd, void *buf, int count); -void FillPattern(register char *cp, register int bufLen, unsigned long dt); -void PrintStats(); -int SetSocketBufferSize(int size, unsigned short isTrans); -int SetNoDelay(); -void ProcessArguments(int argc, char **argv, unsigned short isTrans); - -/* Global variables defined here as extern */ -extern int fromlen; -extern int domain; /* Default is to use Internet domain sockets. */ -extern char *domainname; /* Rendezvous address for UNIX domain sockets. */ -extern int fd; /* fd of network socket */ - -extern int buflen; /* length of buffer */ -extern char *buf; /* ptr to dynamic buffer */ -extern int nbuf; /* number of buffers to send in sinkmode */ - -extern int bufoffset; /* align buffer to this */ -extern int bufalign; /* modulo this */ - -extern int udp; /* 0 = tcp, !0 = udp */ -extern int options; /* socket options */ -extern int one; /* for 4.3 BSD style setsockopt() */ -extern short port; /* TCP port number */ -extern char *host; /* ptr to name of host */ -extern int trans; /* 0=receive, !0=transmit mode */ -extern int sinkmode; /* 0=normal I/O, !0=sink/source mode */ -extern int verbose; /* 0=print basic info, 1=print cpu rate, proc - * resource usage. */ -extern int nodelay; /* set TCP_NODELAY socket option */ -extern int b_flag; /* use mread() */ -extern int sockbufsize; /* socket buffer size to use */ -extern int new_line; /* This is a special flag */ -extern int write_to_file; /* indecates writing to file (default)*/ -extern char fmt; /* output format:k=kilobits,K=kilobytes, - * m = megabits, M = megabytes, - * g = gigabits, G = gigabytes */ -extern int touchdata; /* access data after reading */ - -extern struct hostent *addr; -extern int errno; -extern int optind; -extern char *optarg; -extern char *title; - -extern char stats[128]; -extern unsigned long srcDataSize; /* Total amount of source data */ -extern unsigned long nbytes; /* bytes on net */ -extern unsigned long numCalls; /* # of I/O system calls */ -extern double cput, realt; /* user, real time (seconds) */ -extern unsigned long dt; - -extern unsigned short isDone; - -/* declare struct variables for various message types */ -extern ttcp_sequence::ShortSeq *sseq; -extern ttcp_sequence::LongSeq *lseq; -extern ttcp_sequence::OctetSeq *oseq; -extern ttcp_sequence::DoubleSeq *dseq; -extern ttcp_sequence::CharSeq *cseq; -extern ttcp_sequence::StructSeq *Sseq; -extern ttcp_sequence::CompositeSeq *Cseq; - -#endif diff --git a/TAO/performance-tests/Thruput/Orbix/ttcp_i.cpp b/TAO/performance-tests/Thruput/Orbix/ttcp_i.cpp deleted file mode 100644 index 66bdca5f4ea..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/ttcp_i.cpp +++ /dev/null @@ -1,102 +0,0 @@ -// $Id$ - -#include "ttcp_i.h" - -ACE_RCSID(Orbix, ttcp_i, "$Id$") - -/* callback routine that will change the size of the socket queue */ -static void -SD_Ready (int io_descriptor) -{ - if (sockbufsize) - { - if (setsockopt (io_descriptor, SOL_SOCKET, SO_RCVBUF, - (char *) &sockbufsize, sizeof sockbufsize) < 0) - perror ("setsockopt: rcvbuf"), exit (1); - } -} - -/* the ttcp_i class implementation */ -ttcp_sequence_i::ttcp_sequence_i() -{ - this->nbytes_ = 0; - numCalls = 0; - // register a callback so we can manipulate the descriptor - // being used by orbix. - - if (CORBA::Orbix.registerIOCallback (OrbixIOCallback(SD_Ready), - FD_OPEN_CALLBACK) != 0) - perror ("can't register callback"), exit (1); -} - - -void -ttcp_sequence_i::start_timer (CORBA::Environment &IT_env) -{ - this->nbytes_ = 0; - ::prep_timer (); -} - -void -ttcp_sequence_i::stop_timer (CORBA::Environment &IT_env) -{ - (void) ::read_timer (stats, sizeof (stats)); - ::nbytes = this->nbytes_; - ::PrintStats(); - // reset - this->nbytes_ = 0; - numCalls = 0; -#if defined (ACE_HAS_QUANTIFY) - quantify_stop_recording_data(); - exit(0); -#endif -} - -void -ttcp_sequence_i::sendShortSeq(const ttcp_sequence::ShortSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Short); -} - -void -ttcp_sequence_i::sendLongSeq(const ttcp_sequence::LongSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Long) ; -} - -void -ttcp_sequence_i::sendOctetSeq(const ttcp_sequence::OctetSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Octet) ; -} - -void -ttcp_sequence_i::sendDoubleSeq(const ttcp_sequence::DoubleSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Double) ; -} - -void -ttcp_sequence_i::sendCharSeq(const ttcp_sequence::CharSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CORBA::Char) ; -} - -void -ttcp_sequence_i::sendStructSeq(const ttcp_sequence::StructSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(PerfStruct) ; -} - -void -ttcp_sequence_i::sendCompositeSeq(const ttcp_sequence::CompositeSeq& ttcp_seq, CORBA::Environment &IT_env) -{ - numCalls++; - this->nbytes_ += ttcp_seq.length()*sizeof(CompositeStruct) ; -} diff --git a/TAO/performance-tests/Thruput/Orbix/ttcp_i.h b/TAO/performance-tests/Thruput/Orbix/ttcp_i.h deleted file mode 100644 index 7c81620f271..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/ttcp_i.h +++ /dev/null @@ -1,65 +0,0 @@ -/* -*- C++ -*- */ -// $Id$ - - -// ttcp_i.h -// -// This header file provides facility to use it either as a BOA approach or as -// a TIE approach. -// -#ifndef TTCP_I_H -#define TTCP_I_H - -#include "ttcp.h" -#include "ttcp_decl.h" - -/* define the data types to be sent */ -#define SEND_SHORT ((unsigned long)(1)) -#define SEND_LONG ((unsigned long)(2)) -#define SEND_CHAR ((unsigned long)(3)) -#define SEND_OCTET ((unsigned long)(4)) -#define SEND_DOUBLE ((unsigned long)(5)) -#define SEND_STRUCT ((unsigned long)(6)) -#define SEND_COMPOSITE ((unsigned long)(7)) - - -#if defined(USE_TIE) -class ttcp_sequence_i -#else // use BOA -class ttcp_sequence_i - : public virtual ttcp_sequenceBOAImpl -#endif -{ -public: - ttcp_sequence_i(); - - virtual void sendShortSeq (const ttcp_sequence::ShortSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendLongSeq (const ttcp_sequence::LongSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendDoubleSeq (const ttcp_sequence::DoubleSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendCharSeq (const ttcp_sequence::CharSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendStructSeq (const ttcp_sequence::StructSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendOctetSeq (const ttcp_sequence::OctetSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - virtual void sendCompositeSeq (const ttcp_sequence::CompositeSeq& ttcp_seq, - CORBA::Environment &IT_env=CORBA::default_environment); - - /* Routines to calculate the time required to transfer */ - virtual void start_timer (CORBA::Environment &IT_env= - CORBA::default_environment); - virtual void stop_timer (CORBA::Environment &IT_env= - CORBA::default_environment); -private: - unsigned long nbytes_; -}; - -#if defined(USE_TIE) -// ttcp_sequence_i implements ttcp_sequence -DEF_TIE(ttcp_sequence, ttcp_sequence_i); -#endif - -#endif // defined (TTCP_I_H) diff --git a/TAO/performance-tests/Thruput/Orbix/utils.cpp b/TAO/performance-tests/Thruput/Orbix/utils.cpp deleted file mode 100644 index 316af53ff40..00000000000 --- a/TAO/performance-tests/Thruput/Orbix/utils.cpp +++ /dev/null @@ -1,563 +0,0 @@ -// $Id$ - -#include "ttcp_decl.h" - -ACE_RCSID(Orbix, utils, "$Id$") - -void -err (char *s) -{ - fprintf (stderr, "ttcp%s: ", trans ? "-t" : "-r"); - perror (s); - fprintf (stderr, "errno=%d\n", errno); - exit (1); -} - -void -mes (char *s) -{ - fprintf (stderr, "ttcp%s: %s\n", trans ? "-t" : "-r", s); -} - -char * -outfmt (double b) -{ - static char obuf[50]; - switch (fmt) - { - case 'G': - sprintf (obuf, "%.2f GB", b / 1024.0 / 1024.0 / 1024.0); - break; - default: - case 'K': - sprintf (obuf, "%.2f KB", b / 1024.0); - break; - case 'M': - sprintf (obuf, "%.2f MB", b / 1024.0 / 1024.0); - break; - case 'g': - sprintf (obuf, "%.2f Gbit", b * 8.0 / 1024.0 / 1024.0 / 1024.0); - break; - case 'k': - sprintf (obuf, "%.2f Kbit", b * 8.0 / 1024.0); - break; - case 'm': - sprintf (obuf, "%.2f Mbit", b * 8.0 / 1024.0 / 1024.0); - break; - } - return obuf; -} - -static struct itimerval itime0; /* Time at which timing started */ -static struct rusage ru0; /* Resource utilization at the start */ - -#if defined(SYSV) -/*ARGSUSED */ -static void -getrusage (int ignored, register struct rusage *ru) -{ - struct tms buf; - - times (&buf); - - /* Assumption: HZ <= 2147 (LONG_MAX/1000000) */ - ru->ru_stime.tv_sec = buf.tms_stime / HZ; - ru->ru_stime.tv_usec = ((buf.tms_stime % HZ) * 1000000) / HZ; - ru->ru_utime.tv_sec = buf.tms_utime / HZ; - ru->ru_utime.tv_usec = ((buf.tms_utime % HZ) * 1000000) / HZ; -} - -/*ARGSUSED */ -static void -gettimeofday (struct timeval *tp, struct timezone *zp) -{ - tp->tv_sec = time (0); - tp->tv_usec = 0; -} -#endif /* SYSV */ -/* - * P R E P _ T I M E R - */ -void -prep_timer () -{ - itime0.it_interval.tv_sec = 0; - itime0.it_interval.tv_usec = 0; - itime0.it_value.tv_sec = LONG_MAX / 22; /* greatest possible value , itimer() count backwards */ - itime0.it_value.tv_usec = 0; - - - getrusage (RUSAGE_SELF, &ru0); - - /* Init REAL Timer */ - if (setitimer (ITIMER_REAL, &itime0, NULL)) - { - perror ("Setting 'itimer' REAL failed"); - return; - } - -} - -/* - * R E A D _ T I M E R - * - */ -double -read_timer (char *str, int len) -{ - struct itimerval itimedol; - struct rusage ru1; - struct timeval td; - struct timeval tend, tstart; - char line[132]; - - getrusage (RUSAGE_SELF, &ru1); - - if (getitimer (ITIMER_REAL, &itimedol)) - { - perror ("Getting 'itimer' REAL failed"); - return (0.0); - } - - prusage (&ru0, &ru1, &itime0.it_value, &itimedol.it_value, line); - (void) strncpy (str, line, len); - - /* Get real time */ - tvsub (&td, &itime0.it_value, &itimedol.it_value); - realt = td.tv_sec + ((double) td.tv_usec) / 1000000; - - /* Get CPU time (user+sys) */ - tvadd (&tend, &ru1.ru_utime, &ru1.ru_stime); - tvadd (&tstart, &ru0.ru_utime, &ru0.ru_stime); - tvsub (&td, &tend, &tstart); - cput = td.tv_sec + ((double) td.tv_usec) / 1000000; - if (cput < 0.00001) - cput = 0.00001; - return (cput); -} - -static void -prusage (register struct rusage *r0, struct rusage *r1, - struct timeval *e, struct timeval *b, char *outp) -{ - struct timeval tdiff; - register time_t t; - register char *cp; - register int i; - int ms; - - t = (r1->ru_utime.tv_sec - r0->ru_utime.tv_sec) * 100 + - (r1->ru_utime.tv_usec - r0->ru_utime.tv_usec) / 10000 + - (r1->ru_stime.tv_sec - r0->ru_stime.tv_sec) * 100 + - (r1->ru_stime.tv_usec - r0->ru_stime.tv_usec) / 10000; - ms = (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000; - -#define END(x) {while(*x) x++;} -#if defined(SYSV) - cp = "%Uuser %Ssys %Ereal %P"; -#else -#if defined(sgi) /* IRIX 3.3 will show 0 for %M,%F,%R,%C */ - cp = "%Uuser %Ssys %Ereal %P %Mmaxrss %F+%Rpf %Ccsw"; -#else - cp = "%Uuser %Ssys %Ereal %P %Xi+%Dd %Mmaxrss %F+%Rpf %Ccsw"; -#endif -#endif - for (; *cp; cp++) - { - if (*cp != '%') - *outp++ = *cp; - else if (cp[1]) - switch (*++cp) - { - - case 'U': - tvsub (&tdiff, &r1->ru_utime, &r0->ru_utime); - sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'S': - tvsub (&tdiff, &r1->ru_stime, &r0->ru_stime); - sprintf (outp, "%d.%01d", tdiff.tv_sec, tdiff.tv_usec / 100000); - END (outp); - break; - - case 'E': - psecs (ms / 100, outp); - END (outp); - break; - - case 'P': - sprintf (outp, "%d%%", (int) (t * 100 / ((ms ? ms : 1)))); - END (outp); - break; - -#if !defined(SYSV) - case 'W': - i = r1->ru_nswap - r0->ru_nswap; - sprintf (outp, "%d", i); - END (outp); - break; - - case 'X': - sprintf (outp, "%d", t == 0 ? 0 : (r1->ru_ixrss - r0->ru_ixrss) / t); - END (outp); - break; - - case 'D': - sprintf (outp, "%d", t == 0 ? 0 : - (r1->ru_idrss + r1->ru_isrss - (r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'K': - sprintf (outp, "%d", t == 0 ? 0 : - ((r1->ru_ixrss + r1->ru_isrss + r1->ru_idrss) - - (r0->ru_ixrss + r0->ru_idrss + r0->ru_isrss)) / t); - END (outp); - break; - - case 'M': - sprintf (outp, "%d", r1->ru_maxrss / 2); - END (outp); - break; - - case 'F': - sprintf (outp, "%d", r1->ru_majflt - r0->ru_majflt); - END (outp); - break; - - case 'R': - sprintf (outp, "%d", r1->ru_minflt - r0->ru_minflt); - END (outp); - break; - - case 'I': - sprintf (outp, "%d", r1->ru_inblock - r0->ru_inblock); - END (outp); - break; - - case 'O': - sprintf (outp, "%d", r1->ru_oublock - r0->ru_oublock); - END (outp); - break; - case 'C': - sprintf (outp, "%d+%d", r1->ru_nvcsw - r0->ru_nvcsw, - r1->ru_nivcsw - r0->ru_nivcsw); - END (outp); - break; -#endif /* !SYSV */ - } - } - *outp = '\0'; -} - -static void -tvadd (struct timeval *tsum, struct timeval *t0, struct timeval *t1) -{ - - tsum->tv_sec = t0->tv_sec + t1->tv_sec; - tsum->tv_usec = t0->tv_usec + t1->tv_usec; - if (tsum->tv_usec > 1000000) - tsum->tv_sec++, tsum->tv_usec -= 1000000; -} - -static void -tvsub (struct timeval *tdiff, struct timeval *t1, struct timeval *t0) -{ - - tdiff->tv_sec = t1->tv_sec - t0->tv_sec; - tdiff->tv_usec = t1->tv_usec - t0->tv_usec; - if (tdiff->tv_usec < 0) - tdiff->tv_sec--, tdiff->tv_usec += 1000000; -} - -static void -psecs (long l, register char *cp) -{ - register int i; - - i = l / 3600; - if (i) - { - sprintf (cp, "%d:", i); - END (cp); - i = l % 3600; - sprintf (cp, "%d%d", (i / 60) / 10, (i / 60) % 10); - END (cp); - } - else - { - i = l; - sprintf (cp, "%d", i / 60); - END (cp); - } - i %= 60; - *cp++ = ':'; - sprintf (cp, "%d%d", i / 10, i % 10); -} - -/* - * N R E A D - */ -int -Nread (int fd, void *buf, int count) -{ - struct sockaddr_in from; - int len = sizeof (from); - register int cnt; - if (udp) - { - cnt = recvfrom (fd, (char *) buf, count, 0, (struct sockaddr *) &from, &len); - numCalls++; - } - else - { - if (b_flag) - cnt = mread (fd, (char *) buf, count); /* fill buf */ - else - { - cnt = read (fd, buf, count); - numCalls++; - } - if (touchdata && cnt > 0) - { - register int c = cnt, sum; - register char *b = (char *) buf; - while (c--) - sum += *b++; - } - } - return (cnt); -} - - -/* - * N W R I T E - */ -int -Nwrite (int fd, void *buf, int count) -{ - return 0; -} - -void -delay (int us) -{ - struct timeval tv; - - tv.tv_sec = 0; - tv.tv_usec = us; - (void) select (1, (fd_set *) 0, (fd_set *) 0, (fd_set *) 0, &tv); -} - -/* - * M R E A D - * - * This function performs the function of a read(II) but will - * call read(II) multiple times in order to get the requested - * number of characters. This can be necessary because - * network connections don't deliver data with the same - * grouping as it is written with. Written by Robert S. Miles, BRL. - */ -int -mread (int fd, register char *bufp, unsigned n) -{ - register unsigned count = 0; - register int nread; - - do - { - nread = read (fd, bufp, n - count); - numCalls++; - if (nread < 0) - { - perror ("ttcp_mread"); - return (-1); - } - if (nread == 0) - return ((int) count); - count += (unsigned) nread; - bufp += nread; - } - while (count < n); - - return ((int) count); -} - -void -FillPattern (register char *cp, register int bufLen, unsigned long dt) -{ - unsigned long - num, i; - - switch(dt){ - case SEND_SHORT: - { - register short *SeqPtr = (short *)cp; - num = bufLen/sizeof(short); - for (i=0; i < num; i++) - SeqPtr[i] = (short)lrand48(); - sseq = new ttcp_sequence::ShortSeq(num,num, SeqPtr); - } - break; - case SEND_LONG: - { - register long *SeqPtr = (long *)cp; - num = bufLen/sizeof(long); - for (i=0; i < num; i++) - SeqPtr[i] = lrand48(); - lseq = new ttcp_sequence::LongSeq(num, num, SeqPtr); - } - break; - case SEND_DOUBLE: - { - register double *SeqPtr = (double *)cp; - num = bufLen/sizeof(double); - for (i=0; i < num; i++) - SeqPtr[i] = drand48(); - dseq = new ttcp_sequence::DoubleSeq(num, num, SeqPtr); - } - break; - case SEND_CHAR: - { - register CORBA::Char *SeqPtr = (CORBA::Char *)cp; - register char c = 0; - num = bufLen/sizeof(char); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - cseq = new ttcp_sequence::CharSeq(num, num, SeqPtr); - } - break; - case SEND_STRUCT: - { - register PerfStruct *SeqPtr = (PerfStruct *)cp; - register char c = 0; - num = bufLen/sizeof(PerfStruct); - for (i=0; i < num; i++){ - SeqPtr[i].s = (short)lrand48(); - SeqPtr[i].l = lrand48(); - SeqPtr[i].d = drand48(); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].c = (c++ & 0x7f); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].o = (unsigned char)(c++ & 0x7f); - } - Sseq = new ttcp_sequence::StructSeq(num, num, SeqPtr); - - } - break; - case SEND_COMPOSITE: - { - register CompositeStruct *SeqPtr = (CompositeStruct *)cp; - register char c = 0; - num = bufLen/sizeof(CompositeStruct); - for (i=0; i < num; i++){ - SeqPtr[i].ps.s = (short)lrand48(); - SeqPtr[i].ps.l = lrand48(); - SeqPtr[i].ps.d = drand48(); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].ps.c = (c++ & 0x7f); - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i].ps.o = (unsigned char)(c++ & 0x7f); - } - Cseq = new ttcp_sequence::CompositeSeq(num, num, SeqPtr); - } - break; - case SEND_OCTET: - default: - { - register CORBA::Octet *SeqPtr = (CORBA::Octet *)cp; - register char c = 0; - num = bufLen/sizeof(CORBA::Octet); - for(i=0; i < num; i++){ - while (!isprint(c & 0x7f)) - c++; - SeqPtr[i] = (c++ & 0x7f); - } - oseq = new ttcp_sequence::OctetSeq(num, num, SeqPtr); - } - break; - } -} -void PrintStats() -{ - if (cput <= 0.0) - cput = 0.001; - if (realt <= 0.0) - realt = 0.001; - -//#if defined (LM_RESULTS) - if (trans && (title != 0)) - { - double tmp; - FILE *outFile; - char filename[BUFSIZ]; - - strcpy(filename, title); - switch(dt){ - case SEND_SHORT: - strcat(filename, ".shortSeq.results"); - break; - case SEND_LONG: - strcat(filename, ".longSeq.results"); - break; - case SEND_DOUBLE: - strcat(filename, ".doubleSeq.results"); - break; - case SEND_CHAR: - strcat(filename, ".charSeq.results"); - break; - case SEND_STRUCT: - strcat(filename, ".structSeq.results"); - break; - case SEND_COMPOSITE: - strcat(filename, ".compositeSeq.results"); - break; - case SEND_OCTET: - default: - strcat(filename, ".octetSeq.results"); - break; - } - outFile = fopen (filename, "a+"); - if (new_line) - fprintf (outFile, "\n -l %ldk \t", buflen / 1024); - tmp = ((double) nbytes) / realt; - fprintf (outFile, "%.2f ", tmp * 8.0 / 1024.0 / 1024.0); - fclose (outFile); - } -//#endif - - fprintf (stdout, - "ttcp%s: %ld bytes in %.2f real seconds = %s/sec +++\n", - trans ? "-t" : "-r", - nbytes, realt, outfmt (((double) nbytes) / realt)); - if (verbose) - { - fprintf (stdout, - "ttcp%s: %ld bytes in %.2f CPU seconds = %s/cpu sec\n", - trans ? "-t" : "-r", - nbytes, cput, outfmt (((double) nbytes) / cput)); - } - fprintf (stdout, - "ttcp%s: %d Server Method calls, msec/call = %.2f, calls/sec = %.2f\n", - trans ? "-t" : "-r", - numCalls, - 1024.0 * realt / ((double) numCalls), - ((double) numCalls) / realt); - fprintf (stdout, "ttcp%s: %s\n", trans ? "-t" : "-r", stats); - if (verbose) - { - fprintf (stdout, - "ttcp%s: buffer address %#x\n", - trans ? "-t" : "-r", - buf); - } -} |