diff options
Diffstat (limited to 'CIAO/performance-tests/Benchmark')
60 files changed, 3079 insertions, 0 deletions
diff --git a/CIAO/performance-tests/Benchmark/Benchmark.idl b/CIAO/performance-tests/Benchmark/Benchmark.idl new file mode 100644 index 00000000000..d363628c891 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Benchmark.idl @@ -0,0 +1,48 @@ +// $Id$ +//============================================================================= +/** + * @file Benchmark.idl + * + * Definition of test interfaces used in the Benchmark module. + * + * @author Diego, Arvind <arvindk@dre.vanderbilt.edu> + */ +//============================================================================= + +#ifndef CIAO_BENCHMARK_IDL +#define CIAO_BENCHMARK_IDL + + +module Benchmark +{ + + /** + * @interface RoundTrip + * + * This Latency test provides operations to measure the round-trip + * latency of the ORB. The interface is same as that of + * $TAO_ROOT/performance-tests/Latency/Single_Threaded + */ + + /// Measure roundtrip delay + interface LatencyTest + { + /// A simple method to measure roundtrip delays + long makeCall (in long send_time); + + }; + + /** + * @interface Controller + * + * This interface is used to start the tests. + */ + interface Controller + { + /// Start the test + void start (); + }; + +}; + +#endif /*CIAO_BENCHMARK_IDL*/ diff --git a/CIAO/performance-tests/Benchmark/Benchmark.mpc b/CIAO/performance-tests/Benchmark/Benchmark.mpc new file mode 100644 index 00000000000..59cb34c414d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Benchmark.mpc @@ -0,0 +1,49 @@ +// $Id$ + +project(Benchmark_stub): ciao_client_dnc { + avoids += ace_for_tao + sharedname = Benchmark_stub + idlflags += -Wb,stub_export_macro=BENCHMARK_STUB_Export -Wb,stub_export_include=Benchmark_stub_export.h -Wb,skel_export_macro=BENCHMARK_SVNT_Export -Wb,skel_export_include=Benchmark_svnt_export.h + dynamicflags = BENCHMARK_STUB_BUILD_DLL + + IDL_Files { + Benchmark.idl + } + + Source_Files { + BenchmarkC.cpp + } +} + +project(Benchmark_svnt) : ciao_component_dnc { + avoids += ace_for_tao + after += Benchmark_stub + sharedname = Benchmark_svnt + libs += Benchmark_stub + + idlflags += -Wb,export_macro=BENCHMARK_SVNT_Export -Wb,export_include=Benchmark_svnt_export.h + dynamicflags = BENCHMARK_SVNT_BUILD_DLL + IDL_Files { + } + + Source_Files { + BenchmarkS.cpp + } +} + +project (*server) : taoserver, strategies,ciao_component_dnc { + avoids += ace_for_tao + after += Benchmark_svnt + libs += Benchmark_svnt Benchmark_stub + + Source_Files { + server.cpp + LatencyTest.cpp + BenchmarkEC.cpp + BenchmarkES.cpp + } + + IDL_Files { + BenchmarkE.idl + } +} diff --git a/CIAO/performance-tests/Benchmark/BenchmarkE.idl b/CIAO/performance-tests/Benchmark/BenchmarkE.idl new file mode 100644 index 00000000000..1886b02c12a --- /dev/null +++ b/CIAO/performance-tests/Benchmark/BenchmarkE.idl @@ -0,0 +1,33 @@ +// $Id$ + +//============================================================================= +/** + * @file BenchmarkE.idl + * + * @author Diego, Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//============================================================================= + +#ifndef CIAO_BENCHMARKE_IDL +#define CIAO_BENCHMARKE_IDL + +#include "Benchmark.idl" + +module Benchmark +{ + + /** + * @interface CCM_RoundTrip + * + * Executor interface mapping for provides interfaces. + * + */ + local interface CCM_RoundTrip + { + long makeCall(in long data); + }; + + +}; + +#endif /* CIAO_BENCHMARKE_IDL */ diff --git a/CIAO/performance-tests/Benchmark/Benchmark_stub_export.h b/CIAO/performance-tests/Benchmark/Benchmark_stub_export.h new file mode 100644 index 00000000000..d522c90f830 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Benchmark_stub_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl BENCHMARK_STUB +// ------------------------------ +#ifndef BENCHMARK_STUB_EXPORT_H +#define BENCHMARK_STUB_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (BENCHMARK_STUB_HAS_DLL) +# define BENCHMARK_STUB_HAS_DLL 1 +#endif /* ! BENCHMARK_STUB_HAS_DLL */ + +#if defined (BENCHMARK_STUB_HAS_DLL) && (BENCHMARK_STUB_HAS_DLL == 1) +# if defined (BENCHMARK_STUB_BUILD_DLL) +# define BENCHMARK_STUB_Export ACE_Proper_Export_Flag +# define BENCHMARK_STUB_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define BENCHMARK_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* BENCHMARK_STUB_BUILD_DLL */ +# define BENCHMARK_STUB_Export ACE_Proper_Import_Flag +# define BENCHMARK_STUB_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define BENCHMARK_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* BENCHMARK_STUB_BUILD_DLL */ +#else /* BENCHMARK_STUB_HAS_DLL == 1 */ +# define BENCHMARK_STUB_Export +# define BENCHMARK_STUB_SINGLETON_DECLARATION(T) +# define BENCHMARK_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* BENCHMARK_STUB_HAS_DLL == 1 */ + +// Set BENCHMARK_STUB_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (BENCHMARK_STUB_NTRACE) +# if (ACE_NTRACE == 1) +# define BENCHMARK_STUB_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define BENCHMARK_STUB_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !BENCHMARK_STUB_NTRACE */ + +#if (BENCHMARK_STUB_NTRACE == 1) +# define BENCHMARK_STUB_TRACE(X) +#else /* (BENCHMARK_STUB_NTRACE == 1) */ +# define BENCHMARK_STUB_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (BENCHMARK_STUB_NTRACE == 1) */ + +#endif /* BENCHMARK_STUB_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/Benchmark_svnt_export.h b/CIAO/performance-tests/Benchmark/Benchmark_svnt_export.h new file mode 100644 index 00000000000..8b2ab3b803a --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Benchmark_svnt_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl BENCHMARK_SVNT +// ------------------------------ +#ifndef BENCHMARK_SVNT_EXPORT_H +#define BENCHMARK_SVNT_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (BENCHMARK_SVNT_HAS_DLL) +# define BENCHMARK_SVNT_HAS_DLL 1 +#endif /* ! BENCHMARK_SVNT_HAS_DLL */ + +#if defined (BENCHMARK_SVNT_HAS_DLL) && (BENCHMARK_SVNT_HAS_DLL == 1) +# if defined (BENCHMARK_SVNT_BUILD_DLL) +# define BENCHMARK_SVNT_Export ACE_Proper_Export_Flag +# define BENCHMARK_SVNT_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define BENCHMARK_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* BENCHMARK_SVNT_BUILD_DLL */ +# define BENCHMARK_SVNT_Export ACE_Proper_Import_Flag +# define BENCHMARK_SVNT_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define BENCHMARK_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* BENCHMARK_SVNT_BUILD_DLL */ +#else /* BENCHMARK_SVNT_HAS_DLL == 1 */ +# define BENCHMARK_SVNT_Export +# define BENCHMARK_SVNT_SINGLETON_DECLARATION(T) +# define BENCHMARK_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* BENCHMARK_SVNT_HAS_DLL == 1 */ + +// Set BENCHMARK_SVNT_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (BENCHMARK_SVNT_NTRACE) +# if (ACE_NTRACE == 1) +# define BENCHMARK_SVNT_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define BENCHMARK_SVNT_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !BENCHMARK_SVNT_NTRACE */ + +#if (BENCHMARK_SVNT_NTRACE == 1) +# define BENCHMARK_SVNT_TRACE(X) +#else /* (BENCHMARK_SVNT_NTRACE == 1) */ +# define BENCHMARK_SVNT_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (BENCHMARK_SVNT_NTRACE == 1) */ + +#endif /* BENCHMARK_SVNT_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/LatencyTest.cpp b/CIAO/performance-tests/Benchmark/LatencyTest.cpp new file mode 100644 index 00000000000..2de09618b8f --- /dev/null +++ b/CIAO/performance-tests/Benchmark/LatencyTest.cpp @@ -0,0 +1,22 @@ +// +// $Id$ +// +#include "LatencyTest.h" + +LatencyTest::LatencyTest (CORBA::ORB_ptr orb) + : orb_ (CORBA::ORB::_duplicate (orb)) +{ +} + + +CORBA::Long +LatencyTest::makeCall (CORBA::Long send_time) +{ + return send_time; +} + +void +LatencyTest::shutdown () +{ + this->orb_->shutdown (0); +} diff --git a/CIAO/performance-tests/Benchmark/LatencyTest.h b/CIAO/performance-tests/Benchmark/LatencyTest.h new file mode 100644 index 00000000000..bafda6e76c0 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/LatencyTest.h @@ -0,0 +1,31 @@ +// +// $Id$ +// + +#ifndef LATENCYTEST_H +#define LATENCYTEST_H +#include /**/ "ace/pre.h" + +#include "BenchmarkS.h" + +/// Implement the Test::LatencyTest interface +class LatencyTest +: public virtual POA_Benchmark::LatencyTest +{ + public: + /// Constructor + LatencyTest (CORBA::ORB_ptr orb); + + // = The skeleton methods + virtual CORBA::Long makeCall (CORBA::Long send_time); + + virtual void shutdown (); + + private: + /// Use an ORB reference to conver strings to objects and shutdown + /// the application. + CORBA::ORB_var orb_; +}; + +#include /**/ "ace/post.h" +#endif /* LATENCYTEST_H */ diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.cpp b/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.cpp new file mode 100644 index 00000000000..a6d8d9d8202 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.cpp @@ -0,0 +1,30 @@ +// +// $Id$ +// + +#include "Client_Task.h" + +Client_Task::Client_Task (Benchmark::RoundTripClient_ptr roundtrip) + : roundtrip_(Benchmark::RoundTripClient::_duplicate(roundtrip)) +{ +} + +int +Client_Task::svc (void) +{ + //Creat the Controller + Benchmark::Controller_var controller = this->roundtrip_->provide_controller(); + + //check if controller is non nil + if (CORBA::is_nil (controller.in ())) + ACE_ERROR_RETURN ((LM_DEBUG, + "Nil Benchmark::Controller reference \n"), + 1); + + ACE_DEBUG ((LM_DEBUG, "Sending Trigger\n")); + + //send out the trigger message + controller->start(); + + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.h b/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.h new file mode 100644 index 00000000000..e3330a76307 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/Client_Task.h @@ -0,0 +1,29 @@ +// +// $Id$ +// + +#ifndef CLIENT_TASK_H +#define CLIENT_TASK_H +#include /**/ "ace/pre.h" + +#include "RoundTripClientC.h" +#include "ace/Task.h" + +/// Implement the Test::Client_Task interface +class Client_Task : public ACE_Task_Base +{ +public: + /// Constructor + Client_Task (Benchmark::RoundTripClient_ptr roundtrip); + + /// The service method + virtual int svc (void); + +private: + + /// The object reference used for this test + Benchmark::RoundTripClient_var roundtrip_; +}; + +#include /**/ "ace/post.h" +#endif /* CLIENT_TASK_H */ diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/Multi_Threaded.mpc b/CIAO/performance-tests/Benchmark/Multi_Threaded/Multi_Threaded.mpc new file mode 100644 index 00000000000..40927889016 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/Multi_Threaded.mpc @@ -0,0 +1,18 @@ +// $Id$ + +project (Multi_Threaded_client) : ciao_client_dnc, valuetype , strategies { + exename = client + after += RoundTripClient_stub + libs += RoundTripClient_stub Benchmark_stub + libpaths += .. + includes += ../RoundTripClient + avoids += ace_for_tao + + IDL_Files { + } + + Source_Files { + client.cpp + Client_Task.cpp + } +} diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/NOTE.txt b/CIAO/performance-tests/Benchmark/Multi_Threaded/NOTE.txt new file mode 100644 index 00000000000..a0ae140a0ee --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/NOTE.txt @@ -0,0 +1,15 @@ +$Id$ + +PRE Condition: +============= +This test assumes that there is an appropriate svc.conf file present in +$CIAO_ROOOT/tools/ComponentServer. Moreover, the Component Server does not +curerntly expose interfaces to configure multi-threading. Hence, this +experiment, will produce the desired results *only* when this feature has been +added in CIAO. Till then, the server will run in single-threaded mode. + +Similarly, the client also requires the svc.conf file that enables +multi-threading. This file is present in this directory. + +The svc.conf file required for this experiment can be obtained from +$TAO_ROOT/performance-tests/Latency/Thread_Pool diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/README b/CIAO/performance-tests/Benchmark/Multi_Threaded/README new file mode 100644 index 00000000000..0cadcfc8e51 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/README @@ -0,0 +1,12 @@ +/** + +@page Multi_Threaded README File + + This black box experiment measures "multi-threading" support present in CIAO. +In this test, a client component spawns four threads that concurrently invoke operations +on the server. The latency, throughput and jitter for each thread is printed out. The +motivation of this test is to observe scalability when a ComponentServer receives +multiple requests from parallel clients. A sister test, ../Multi_Process documents +behavior as parallel clients (separate processes) invoke requests on the server. + +*/ diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/client.cpp b/CIAO/performance-tests/Benchmark/Multi_Threaded/client.cpp new file mode 100644 index 00000000000..92bf6aecd2d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/client.cpp @@ -0,0 +1,93 @@ +// +// $Id$ +// + +//============================================================== +/** + * @file client.cpp + * + * This is a client program that also acts as an Event Trigger. Four client tasks simultaneously + * send out trigger to the ClientRoundTrip component to start the latency measurements in + * parallel. This test is used to test scalability as the number of client components increase + * + * @author Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//=============================================================== + +#include "Client_Task.h" +#include "tao/Strategies/advanced_resource.h" + +//IOR of the components +const char *ior1 = "file://comp1.ior"; +const char *ior2 = "file://comp2.ior"; +const char *ior3 = "file://comp3.ior"; +const char *ior4 = "file://comp4.ior"; + + +int +main (int argc, char *argv[]) +{ + try + { + + // Initialize orb + CORBA::ORB_var orb = CORBA::ORB_init (argc, + argv, + ""); + + // Resolve HomeFinder interface + CORBA::Object_var obj1 + = orb->string_to_object (ior1); + + CORBA::Object_var obj2 + = orb->string_to_object (ior2); + + CORBA::Object_var obj3 + = orb->string_to_object (ior3); + + CORBA::Object_var obj4 + = orb->string_to_object (ior4); + + if (CORBA::is_nil (obj1.in ()) || + CORBA::is_nil (obj2.in ()) || + CORBA::is_nil (obj3.in ()) || + CORBA::is_nil (obj4.in ())) + { + ACE_ERROR_RETURN ((LM_ERROR, + "Nil Benchmark::RoundtripClient reference \n"), + 1); + } + + //Narrow to appropriate interfaces + Benchmark::RoundTripClient_var client1= + Benchmark::RoundTripClient::_narrow (obj1.in()); + + Benchmark::RoundTripClient_var client2= + Benchmark::RoundTripClient::_narrow (obj1.in()); + + Benchmark::RoundTripClient_var client3= + Benchmark::RoundTripClient::_narrow (obj1.in()); + + Benchmark::RoundTripClient_var client4= + Benchmark::RoundTripClient::_narrow (obj1.in()); + + //Create Tasks + Client_Task task1(client1.in()); + Client_Task task2(client2.in()); + Client_Task task3(client3.in()); + Client_Task task4(client4.in()); + + task1.activate(THR_NEW_LWP | THR_JOINABLE); + task2.activate(THR_NEW_LWP | THR_JOINABLE); + task3.activate(THR_NEW_LWP | THR_JOINABLE); + task4.activate(THR_NEW_LWP | THR_JOINABLE); + + task1.thr_mgr()->wait(); + } + catch (const CORBA::Exception& ex) + { + ex._tao_print_exception ("Exception Caught:"); + return 1; + } + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl b/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl new file mode 100755 index 00000000000..fe52b35d6a2 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/run_test.pl @@ -0,0 +1,87 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +# +# @@ Run this script from ../descriptors/ instead. +# + +use lib "$ENV{'ACE_ROOT'}/bin"; +use PerlACE::Run_Test; + +$status = 0; +$daemon_ior = PerlACE::LocalFile ("daemon.ior"); +$am_ior = PerlACE::LocalFile ("am.ior"); + +$ACE_ROOT=$ENV{'ACE_ROOT'}; +$CIAO_ROOT=$ENV{'CIAO_ROOT'}; + +unlink $daemon_ior; +unlink $am_ior; + +# CIAO Daemon command line arguments +$daemon_args = "-c $CIAO_ROOT/tools/ComponentServer/svc.conf -ORBEndpoint iiop://localhost:10000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +# CIAO Daemon command line arguments +$daemon_args2 = "-c $CIAO_ROOT/tools/ComponentServer/svc.conf -ORBEndpoint iiop://localhost:12000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +$assembly_manager_args = "-o $am_ior -c test.dat"; + +$ad_args = " -k file://$am_ior -a Multi_Threaded.cad"; + +# CIAO daemon process definition +$DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args"); + +## Starting up the CIAO daemon +$DS->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + +# CIAO daemon process definition +$DS2 = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args2"); + +## Starting up the CIAO daemon +$DS2->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + +$AM = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Manager", + $assembly_manager_args); +$AM->Spawn (); +if (PerlACE::waitforfile_timed ($am_ior, 15) == -1) { + print STDERR "ERROR: Could not find assembly ior file <$am_ior>\n"; + $AM->Kill (); + exit 1; +} + +$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer", + $ad_args); +$AD->Spawn (); + +sleep (5); + +#Start the client to send the trigger message +$CL = new PerlACE::Process ("../Multi_Threaded/client", ""); +$CL->SpawnWaitKill(60); + +$AM->Kill (); +$AD->Kill (); +$DS->Kill (); +$CL->Kill (); +$DS2->Kill (); + +unlink $daemon_ior; +unlink $am_ior; + +exit $status; diff --git a/CIAO/performance-tests/Benchmark/Multi_Threaded/svc.conf b/CIAO/performance-tests/Benchmark/Multi_Threaded/svc.conf new file mode 100644 index 00000000000..46ff5409fdf --- /dev/null +++ b/CIAO/performance-tests/Benchmark/Multi_Threaded/svc.conf @@ -0,0 +1,5 @@ +# +# $Id$ +# +static Advanced_Resource_Factory "-ORBReactorMaskSignals 0 -ORBFlushingStrategy blocking" +static Client_Strategy_Factory "-ORBTransportMuxStrategy EXCLUSIVE -ORBClientConnectionHandler RW" diff --git a/CIAO/performance-tests/Benchmark/README b/CIAO/performance-tests/Benchmark/README new file mode 100644 index 00000000000..ec8463d2aae --- /dev/null +++ b/CIAO/performance-tests/Benchmark/README @@ -0,0 +1,32 @@ +/** + +@page BasicSP README File + + The most basic of the Boeing scenarios that form part of the +OEP. This is done to illustrate how the OEP can be implemented using +CIAO. + + This example does not yet use MPC to generate MSVC +projects/workspaces/solutions or makefiles - we are still +working on getting the execution of the CIDL compiler +integrated into MPC. The CIDL compiler execution has +been added to MSVC projects, which for now are checked +into the CVS repository. CIDL compiler execution is not yet +integrated with makefiles. The CIDL compiler can be executed by +hand before starting the build for either this example or the +example in ACE_ROOT/TAO/CIAO/examples/OEP/Display. + + Compilation of the CIDL compiler source code requires the +Boost library, which is not included in this distribution of +ACE+TAO+CIAO. The Boost library is available at + +http://www.boost.org + + Alternatively, a binary executable of the CIAO +CIDL compiler can be downloaded from + +http://www.dre.vanderbilt.edu/CIAO/CIDL.html + +Versions are available at the above site for Linux and Windows. + +*/ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/README b/CIAO/performance-tests/Benchmark/RoundTrip/README new file mode 100644 index 00000000000..8bd003eaf72 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/README @@ -0,0 +1,9 @@ +/** + +@page RoundTrip README File + + The RoundTrip component. This component measures the round-trip +latency for single-threaded case. This test adapted from +$TAO_ROOT/performance-tests/Latency/Single_Threaded + +*/ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.cidl b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.cidl new file mode 100644 index 00000000000..724789ac42d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.cidl @@ -0,0 +1,19 @@ +// $Id$ + +#ifndef ROUNDTRIP_CIDL +#define ROUNDTRIP_CIDL + +#include "RoundTrip.idl" + +composition session RoundTrip_Impl +{ + + home executor RoundTripHome_Exec + { + implements Benchmark::RoundTripHome; + manages RoundTrip_Exec; + }; + +}; + +#endif /* ROUNDTRIP_CIDL */ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.idl b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.idl new file mode 100644 index 00000000000..73a00422297 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.idl @@ -0,0 +1,29 @@ +// $Id$ +//============================================================================= +/** + * @file RoundTrip.idl + * + * Definition of the Component that provides the LatencyTest interface + * + */ +//============================================================================= + +#ifndef CIAO_ROUNDTRIP_IDL +#define CIAO_ROUNDTRIP_IDL + +#include "../Benchmark.idl" +#include <Components.idl> + +module Benchmark +{ + component RoundTrip + { + provides LatencyTest latency; + }; + + home RoundTripHome manages RoundTrip + { + }; +}; + +#endif /* CIAO_ROUNDTRIP_IDL*/ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.mpc b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.mpc new file mode 100644 index 00000000000..3a6e310d8ae --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip.mpc @@ -0,0 +1,95 @@ +// $Id$ +// This file is generated with "generate_component_mpc.pl -l .. -p Benchmark -i -c RoundTrip" + +project(RoundTrip_stub): ciao_client_dnc { + avoids += ace_for_tao + after += Benchmark_stub + sharedname = RoundTrip_stub + + libs += Benchmark_stub + + idlflags += -Wb,stub_export_macro=ROUNDTRIP_STUB_Export + idlflags += -Wb,stub_export_include=RoundTrip_stub_export.h + idlflags += -Wb,skel_export_macro=ROUNDTRIP_SVNT_Export + idlflags += -Wb,skel_export_include=RoundTrip_svnt_export.h + + dynamicflags = ROUNDTRIP_STUB_BUILD_DLL + + IDL_Files { + RoundTrip.idl + } + + Source_Files { + RoundTripC.cpp + } +} + +project(RoundTrip_svnt) : ciao_servant_dnc { + avoids += ace_for_tao + after += Benchmark_svnt RoundTrip_stub + sharedname = RoundTrip_svnt + + libs += RoundTrip_stub Benchmark_stub Benchmark_svnt + + libpaths += .. + + idlflags += -Wb,export_macro=ROUNDTRIP_SVNT_Export + idlflags += -Wb,export_include=RoundTrip_svnt_export.h + + dynamicflags = ROUNDTRIP_SVNT_BUILD_DLL + + CIDL_Files { + RoundTrip.cidl + } + + IDL_Files { + RoundTripE.idl + } + + Source_Files { + RoundTripEC.cpp + RoundTripS.cpp + RoundTrip_svnt.cpp + } +} + + +project(RoundTrip_exec) : ciao_component_dnc { + avoids += ace_for_tao + after += RoundTrip_svnt + sharedname = RoundTrip_exec + + libs += RoundTrip_stub Benchmark_stub Benchmark_svnt RoundTrip_svnt + libpaths += .. + + idlflags += -Wb,export_macro=ROUNDTRIP_EXEC_Export + idlflags += -Wb,export_include=RoundTrip_exec_export.h + + dynamicflags = ROUNDTRIP_EXEC_BUILD_DLL + + IDL_Files { + RoundTripEI.idl + } + + Source_Files { + RoundTripEIC.cpp + RoundTrip_exec.cpp + } +} + + + +project (RoundTrip_client) : ciao_client_dnc, valuetype, strategies{ + avoids += ace_for_tao + exename = client + after += RoundTrip_stub + libs += RoundTrip_stub Benchmark_stub + libpaths += .. + + IDL_Files { + } + + Source_Files { + client.cpp + } +} diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTripEI.idl b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTripEI.idl new file mode 100644 index 00000000000..a28de5948d2 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTripEI.idl @@ -0,0 +1,33 @@ +// $Id$ + +//============================================================================= +/** + * @file RoundTripEI.idl + * + * + * @author + */ +//============================================================================= + +#ifndef CIAO_ROUNDTRIPEI_IDL +#define CIAO_ROUNDTRIPEI_IDL + +#include "RoundTripE.idl" + +module Benchmark +{ + /** + * @interface RoundTrip_Exec + * + * The actually Test executor need to support + * Components::SessionComponent interface. Therefore, we need to + * define the component executor interface explicitly here. + */ + local interface RoundTrip_Exec : CCM_RoundTrip, CCM_LatencyTest, + Components::SessionComponent + { + }; + +}; + +#endif /* CIAO_TESTEI_IDL */ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.cpp b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.cpp new file mode 100644 index 00000000000..23bc35c438d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.cpp @@ -0,0 +1,135 @@ +// $Id$ + +#include "RoundTrip_exec.h" +#include "CIAO_common.h" + +//-- ACE Scheduling Params +#include "ace/Sched_Params.h" + +#include "ace/OS_NS_errno.h" + +//================================================================= + +void +set_priority () +{ + int priority = + (ACE_Sched_Params::priority_min (ACE_SCHED_FIFO) + + ACE_Sched_Params::priority_max (ACE_SCHED_FIFO)) / 2; + // Enable FIFO scheduling, e.g., RT scheduling class on Solaris. + + if (ACE_OS::sched_params (ACE_Sched_Params (ACE_SCHED_FIFO, + priority, + ACE_SCOPE_PROCESS)) != 0) + { + if (ACE_OS::last_error () == EPERM) + { + ACE_DEBUG ((LM_DEBUG, + "client (%P|%t): user is not superuser, " + "test runs in time-shared class\n")); + } + else + ACE_ERROR ((LM_ERROR, + "client (%P|%t): sched_params failed\n")); + } +} + + + +MyImpl::RoundTrip_exec_i::RoundTrip_exec_i () +{ + +} + +MyImpl::RoundTrip_exec_i::~RoundTrip_exec_i () +{ +} + +::Benchmark::CCM_LatencyTest * +MyImpl::RoundTrip_exec_i::get_latency () +{ + return ::Benchmark::CCM_LatencyTest::_duplicate (this); +} + +/* Main method that invokes the octet_sequence */ +CORBA::Long +MyImpl::RoundTrip_exec_i::makeCall (CORBA::Long data) +{ + return data * data * data; +} + +// Operations from Components::SessionComponent +void +MyImpl::RoundTrip_exec_i::set_session_context ( + Components::SessionContext_ptr ctx) +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTrip_exec_i::set_session_context\n")); + //cout << "MyImpl::RoundTrip_exec_i::set_session_context\n" << endl; + + this->context_ = + Benchmark::CCM_RoundTrip_Context::_narrow (ctx); + + if (CORBA::is_nil (this->context_.in ())) + throw CORBA::INTERNAL (); + // Urm, we actually discard exceptions thown from this operation. +} + +void +MyImpl::RoundTrip_exec_i::ciao_preactivate () +{ +} + +void +MyImpl::RoundTrip_exec_i::ccm_activate () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTrip_exec_i::ccm_activate\n")); + //cout << "MyImpl::RoundTrip_exec_i::ccm_activate\n"; + + // Starting method! + //set_priority(); +} + +void +MyImpl::RoundTrip_exec_i::ciao_postactivate () +{ + +} + +void +MyImpl::RoundTrip_exec_i::ccm_passivate () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTrip_exec_i::ccm_passivate\n")); +} + +void +MyImpl::RoundTrip_exec_i::ccm_remove () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTrip_exec_i::ccm_remove\n")); +} + + +MyImpl::RoundTripHome_exec_i::RoundTripHome_exec_i () +{ +} + +MyImpl::RoundTripHome_exec_i::~RoundTripHome_exec_i () +{ +} + +::Components::EnterpriseComponent_ptr +MyImpl::RoundTripHome_exec_i::create () +{ + return new MyImpl::RoundTrip_exec_i; +} + + +extern "C" ROUNDTRIP_EXEC_Export ::Components::HomeExecutorBase_ptr +createRoundTripHome_Impl (void) +{ + //cout << "Creating Round_trip impl" << endl; + return new MyImpl::RoundTripHome_exec_i (); +} diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.h b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.h new file mode 100644 index 00000000000..c4881d7515f --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec.h @@ -0,0 +1,105 @@ +// -*- C++ -*- + +//============================================================ +/** + * @file RoundTrip_exec.h + * + * Header file for the Executor implementation. + * + * $Id$ + * + * @author Diego Sevilla <dsevilla@um.es> + * @author Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//============================================================ + +#ifndef ROUNDTRIP_EXEC_H +#define ROUNDTRIP_EXEC_H + +#include "RoundTripEIC.h" +#include "tao/LocalObject.h" +#include "ace/Thread_Manager.h" +#include "ace/Task.h" + +namespace MyImpl +{ + + /** + * @class RoundTrip_exec_i + * + * RoundTrip executor implementation class. + */ + + class ROUNDTRIP_EXEC_Export RoundTrip_exec_i : + public virtual Benchmark::RoundTrip_Exec, + public virtual TAO_Local_RefCounted_Object + { + + public: + /// Default constructor. + RoundTrip_exec_i (); + + /// Operation to test the data + virtual CORBA::Long makeCall (CORBA::Long data); + + virtual ::Benchmark::CCM_LatencyTest* + get_latency (); + + // Operations from Components::SessionComponent + virtual void set_session_context (Components::SessionContext_ptr ctx); + + virtual void ciao_preactivate (); + + virtual void ccm_activate (); + + virtual void ciao_postactivate (); + + virtual void ccm_passivate (); + + virtual void ccm_remove (); + + /// Helper function to be called back by timeout_Handler + void pulse (void); + + protected: + + /// Destructor. + ~RoundTrip_exec_i (); + + protected: + /// Copmponent specific context + Benchmark::CCM_RoundTrip_Context_var context_; + + }; + + /** + * @class RoundTripHome_exec_i + * + * RoundTrip home executor implementation class. + */ + class ROUNDTRIP_EXEC_Export RoundTripHome_exec_i : + public virtual Benchmark::CCM_RoundTripHome, + public virtual TAO_Local_RefCounted_Object + { + public: + /// Default ctor. + RoundTripHome_exec_i (); + + // Implicit home operations. + + virtual ::Components::EnterpriseComponent_ptr + create (); + + protected: + + /// Destructor. + ~RoundTripHome_exec_i (); + + }; + +} + +extern "C" ROUNDTRIP_EXEC_Export ::Components::HomeExecutorBase_ptr +createRoundTripHome_Impl (void); + +#endif /* ROUNDTRIP_EXEC_H */ diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec_export.h b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec_export.h new file mode 100644 index 00000000000..41abae47f67 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_exec_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIP_EXEC +// ------------------------------ +#ifndef ROUNDTRIP_EXEC_EXPORT_H +#define ROUNDTRIP_EXEC_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIP_EXEC_HAS_DLL) +# define ROUNDTRIP_EXEC_HAS_DLL 1 +#endif /* ! ROUNDTRIP_EXEC_HAS_DLL */ + +#if defined (ROUNDTRIP_EXEC_HAS_DLL) && (ROUNDTRIP_EXEC_HAS_DLL == 1) +# if defined (ROUNDTRIP_EXEC_BUILD_DLL) +# define ROUNDTRIP_EXEC_Export ACE_Proper_Export_Flag +# define ROUNDTRIP_EXEC_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIP_EXEC_BUILD_DLL */ +# define ROUNDTRIP_EXEC_Export ACE_Proper_Import_Flag +# define ROUNDTRIP_EXEC_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIP_EXEC_BUILD_DLL */ +#else /* ROUNDTRIP_EXEC_HAS_DLL == 1 */ +# define ROUNDTRIP_EXEC_Export +# define ROUNDTRIP_EXEC_SINGLETON_DECLARATION(T) +# define ROUNDTRIP_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIP_EXEC_HAS_DLL == 1 */ + +// Set ROUNDTRIP_EXEC_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIP_EXEC_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIP_EXEC_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIP_EXEC_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIP_EXEC_NTRACE */ + +#if (ROUNDTRIP_EXEC_NTRACE == 1) +# define ROUNDTRIP_EXEC_TRACE(X) +#else /* (ROUNDTRIP_EXEC_NTRACE == 1) */ +# define ROUNDTRIP_EXEC_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIP_EXEC_NTRACE == 1) */ + +#endif /* ROUNDTRIP_EXEC_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_stub_export.h b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_stub_export.h new file mode 100644 index 00000000000..3300c0a8b9d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_stub_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIP_STUB +// ------------------------------ +#ifndef ROUNDTRIP_STUB_EXPORT_H +#define ROUNDTRIP_STUB_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIP_STUB_HAS_DLL) +# define ROUNDTRIP_STUB_HAS_DLL 1 +#endif /* ! ROUNDTRIP_STUB_HAS_DLL */ + +#if defined (ROUNDTRIP_STUB_HAS_DLL) && (ROUNDTRIP_STUB_HAS_DLL == 1) +# if defined (ROUNDTRIP_STUB_BUILD_DLL) +# define ROUNDTRIP_STUB_Export ACE_Proper_Export_Flag +# define ROUNDTRIP_STUB_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIP_STUB_BUILD_DLL */ +# define ROUNDTRIP_STUB_Export ACE_Proper_Import_Flag +# define ROUNDTRIP_STUB_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIP_STUB_BUILD_DLL */ +#else /* ROUNDTRIP_STUB_HAS_DLL == 1 */ +# define ROUNDTRIP_STUB_Export +# define ROUNDTRIP_STUB_SINGLETON_DECLARATION(T) +# define ROUNDTRIP_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIP_STUB_HAS_DLL == 1 */ + +// Set ROUNDTRIP_STUB_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIP_STUB_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIP_STUB_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIP_STUB_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIP_STUB_NTRACE */ + +#if (ROUNDTRIP_STUB_NTRACE == 1) +# define ROUNDTRIP_STUB_TRACE(X) +#else /* (ROUNDTRIP_STUB_NTRACE == 1) */ +# define ROUNDTRIP_STUB_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIP_STUB_NTRACE == 1) */ + +#endif /* ROUNDTRIP_STUB_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_svnt_export.h b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_svnt_export.h new file mode 100644 index 00000000000..9db7ca9eaa3 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/RoundTrip_svnt_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIP_SVNT +// ------------------------------ +#ifndef ROUNDTRIP_SVNT_EXPORT_H +#define ROUNDTRIP_SVNT_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIP_SVNT_HAS_DLL) +# define ROUNDTRIP_SVNT_HAS_DLL 1 +#endif /* ! ROUNDTRIP_SVNT_HAS_DLL */ + +#if defined (ROUNDTRIP_SVNT_HAS_DLL) && (ROUNDTRIP_SVNT_HAS_DLL == 1) +# if defined (ROUNDTRIP_SVNT_BUILD_DLL) +# define ROUNDTRIP_SVNT_Export ACE_Proper_Export_Flag +# define ROUNDTRIP_SVNT_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIP_SVNT_BUILD_DLL */ +# define ROUNDTRIP_SVNT_Export ACE_Proper_Import_Flag +# define ROUNDTRIP_SVNT_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIP_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIP_SVNT_BUILD_DLL */ +#else /* ROUNDTRIP_SVNT_HAS_DLL == 1 */ +# define ROUNDTRIP_SVNT_Export +# define ROUNDTRIP_SVNT_SINGLETON_DECLARATION(T) +# define ROUNDTRIP_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIP_SVNT_HAS_DLL == 1 */ + +// Set ROUNDTRIP_SVNT_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIP_SVNT_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIP_SVNT_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIP_SVNT_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIP_SVNT_NTRACE */ + +#if (ROUNDTRIP_SVNT_NTRACE == 1) +# define ROUNDTRIP_SVNT_TRACE(X) +#else /* (ROUNDTRIP_SVNT_NTRACE == 1) */ +# define ROUNDTRIP_SVNT_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIP_SVNT_NTRACE == 1) */ + +#endif /* ROUNDTRIP_SVNT_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/client.cpp b/CIAO/performance-tests/Benchmark/RoundTrip/client.cpp new file mode 100644 index 00000000000..9de1cb46a2d --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/client.cpp @@ -0,0 +1,174 @@ +// $Id$ + +//============================================================== +/** + * @file client.cpp + * + * This is a simple client test program that interact with the RoundTrip + * component implementation. The single threaded client issues + * two-way operations, the total latency (response time) is measured + * NOTE: this client implementation has been adapted from the + * $TAO_ROOT/performance-results/Latency/Single_Threaded/ + * + * @author Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//============================================================== +#include "RoundTripC.h" +#include "tao/Strategies/advanced_resource.h" +#include "ace/Get_Opt.h" +#include "ace/High_Res_Timer.h" +#include "ace/Sched_Params.h" +#include "ace/Stats.h" +#include "ace/Sample_History.h" +#include "ace/OS_NS_errno.h" + +const char *ior = "file://test.ior"; +int niterations = 100; +int do_dump_history = 0; + +int +parse_args (int argc, char *argv[]) +{ + //parse arguments + ACE_Get_Opt get_opts (argc, argv, "hxk:i:"); + char c; + while ((c = get_opts ()) != -1) + switch (c) + { + case 'h': + do_dump_history = 1; + break; + + case 'k': + ior = get_opts.opt_arg (); + break; + + case 'i': + niterations = ACE_OS::atoi (get_opts.opt_arg ()); + break; + + case '?': + default: + /* Could be any other parameter like -ORBSvcConf file so ignore */ + break; + } + // Indicates sucessful parsing of the command line + return 0; +} + +void +set_priority () +{ + int priority = + (ACE_Sched_Params::priority_min (ACE_SCHED_FIFO) + + ACE_Sched_Params::priority_max (ACE_SCHED_FIFO)) / 2; + // Enable FIFO scheduling, e.g., RT scheduling class on Solaris. + + if (ACE_OS::sched_params (ACE_Sched_Params (ACE_SCHED_FIFO, + priority, + ACE_SCOPE_PROCESS)) != 0) + { + if (ACE_OS::last_error () == EPERM) + { + ACE_DEBUG ((LM_DEBUG, + "client (%P|%t): user is not superuser, " + "test runs in time-shared class\n")); + } + else + ACE_ERROR ((LM_ERROR, + "client (%P|%t): sched_params failed\n")); + } + +} + + +int +main (int argc, char *argv[]) +{ + try + { + //set priority on the platform + set_priority(); + + // Initialize orb + CORBA::ORB_var orb = CORBA::ORB_init (argc, + argv, + ""); + + if (parse_args(argc, argv) == -1) + { + ACE_DEBUG ((LM_DEBUG, "Error parsing Arguments\n")); + return -1; + } + + // Resolve HomeFinder interface + CORBA::Object_var obj + = orb->string_to_object (ior); + + Benchmark::RoundTripHome_var home + = Benchmark::RoundTripHome::_narrow (obj.in ()); + + if (CORBA::is_nil (home.in ())) + ACE_ERROR_RETURN ((LM_ERROR, "Unable to acquire TestHome objref\n"), -1); + + Benchmark::RoundTrip_var test + = home->create (); + + //Get the RoundTrip reference + Benchmark::LatencyTest_var round_trip = test->provide_latency (); + + //Warmup the System by making some empty calls + long start = 0L; + for (int j = 0; j < 100; ++j) + { + round_trip->makeCall (start); + } + + ///// Start Test //////////////////////////////////////////// + ACE_Sample_History history (niterations); + + ACE_hrtime_t test_start = ACE_OS::gethrtime (); + for (int i = 0; i < niterations; ++i) + { + ACE_hrtime_t start = ACE_OS::gethrtime (); + + //Test value to be sent to the server + long test = 0; + + (void) round_trip->makeCall (test); + + ACE_hrtime_t now = ACE_OS::gethrtime (); + history.sample (now - start); + } + + ACE_hrtime_t test_end = ACE_OS::gethrtime (); + + ACE_DEBUG ((LM_DEBUG, "test finished\n")); + + ACE_DEBUG ((LM_DEBUG, "High resolution timer calibration....")); + ACE_UINT32 gsf = ACE_High_Res_Timer::global_scale_factor (); + ACE_DEBUG ((LM_DEBUG, "done\n")); + + if (do_dump_history) + { + history.dump_samples ("HISTORY", gsf); + } + + ACE_Basic_Stats stats; + history.collect_basic_stats (stats); + stats.dump_results ("Total", gsf); + + ACE_Throughput_Stats::dump_throughput ("Total", gsf, + test_end - test_start, + stats.samples_count ()); + + } + catch (const CORBA::Exception& ex) + { + ex._tao_print_exception ("Exception Handled:"); + return 1; + } + + + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/run_test.pl b/CIAO/performance-tests/Benchmark/RoundTrip/run_test.pl new file mode 100755 index 00000000000..584351da998 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/run_test.pl @@ -0,0 +1,115 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +# +# @@ Run this script from ../descriptors/ instead. +# + +use lib "$ENV{'ACE_ROOT'}/bin"; +use PerlACE::Run_Test; + +$status = 0; +$daemon_ior = PerlACE::LocalFile ("daemon.ior"); +$svr_ior = PerlACE::LocalFile ("server.ior"); +$home_ior = PerlACE::LocalFile ("test.ior"); + +$ACE_ROOT=$ENV{'ACE_ROOT'}; +$CIAO_ROOT=$ENV{'CIAO_ROOT'}; + +unlink $daemon_ior; +unlink $svr_ior; +unlink $home_ior; + +# CIAO Daemon command line arguments +$daemon_args = "-c ../RoundTrip/svc.conf -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +# CIAO Daemon Controller location: +$controller = "$CIAO_ROOT/tools/Daemon/DaemonController"; + +# Daemon controller common command line arguments +$common_args = "-ORBInitRef CIAODaemon=file://$daemon_ior"; + +# Daemon controller start_home command +$start_args = "start_home -s RoundTrip.csd -m $home_ior -c $svr_ior"; + +# Daemon controller end_home command +$end_args = "end_home -c file://$svr_ior"; + +# Daemon controller shutdown command +$shutdown_args = "shutdown"; + +# Client program command line arguments +$cl_args = "-ORBSvcConf ../RoundTrip/svc.conf -i 300000"; + +# CIAO daemon process definition +$DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args"); + +# Client process definition +$CL = new PerlACE::Process ("../RoundTrip/client", + $cl_args); + +## Starting up the CIAO daemon +$DS->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + +## Starting up a ComponentServer running the Roundtrip home. +$DC = new PerlACE::Process ("$controller", + "$common_args $start_args"); + +$DC->SpawnWaitKill (60); +if (PerlACE::waitforfile_timed ($home_ior, 15) == -1) { + print STDERR "ERROR: Could not find home ior file <$home_ior>\n"; + $DS->Kill (); + exit 1; +} + +$client = $CL->SpawnWaitKill (60); + +if ($client != 0) { + print STDERR "ERROR: client returned $client\n"; + $status = 1; +} + +## Terminating the ComponentServer running. +$DC = new PerlACE::Process ("$controller", + "$common_args $end_args"); + +$ctrl = $DC->SpawnWaitKill (60); +if ($ctrl != 0) { + print STDERR "ERROR: Fail to end component server\n"; + $DC->Kill (); + exit 1; +} + +## Terminating the ComponentServer running the RateGen home. +$DC = new PerlACE::Process ("$controller", + "$common_args $shutdown_args"); + +$ctrl = $DC->SpawnWaitKill (60); +if ($ctrl != 0) { + print STDERR "ERROR: Fail to shutdown CIAODaemon\n"; + $DS->Kill (); + exit 1; +} + +$ctrl = $DS->WaitKill (60); +if ($ctrl != 0) { + print STDERR "ERROR: CIAODaemon didn't shutdown gracefully $ctrl\n"; + $DS->Kill (); + exit 1; +} + +unlink $daemon_ior; +unlink $svr_ior; +unlink $home_ior; + +exit $status; diff --git a/CIAO/performance-tests/Benchmark/RoundTrip/svc.conf b/CIAO/performance-tests/Benchmark/RoundTrip/svc.conf new file mode 100644 index 00000000000..e1706aae4e5 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTrip/svc.conf @@ -0,0 +1,6 @@ +# +# $Id$ +# +dynamic Advanced_Resource_Factory Service_Object * TAO_Strategies:_make_TAO_Advanced_Resource_Factory () "-ORBReactorMaskSignals 0 -ORBInputCDRAllocator null -ORBReactorType select_st -ORBConnectionCacheLock null" +static Server_Strategy_Factory "-ORBPOALock null -ORBAllowReactivationOfSystemids 0" +static Client_Strategy_Factory "-ORBTransportMuxStrategy EXCLUSIVE -ORBProfileLock null -ORBClientConnectionHandler RW" diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.cidl b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.cidl new file mode 100644 index 00000000000..febcbed08df --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.cidl @@ -0,0 +1,19 @@ +// $Id$ + +#ifndef ROUNDTRIPCLIENT_CIDL +#define ROUNDTRIPCLIENT_CIDL + +#include "RoundTripClient.idl" + +composition session RoundTripClient_Impl +{ + + home executor RoundTripClientHome_Exec + { + implements Benchmark::RoundTripClientHome; + manages RoundTripClient_Exec; + }; + +}; + +#endif /* ROUNDTRIPCLIENT_CIDL */ diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.idl b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.idl new file mode 100644 index 00000000000..3f891ce00d3 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.idl @@ -0,0 +1,30 @@ +// $Id$ +//============================================================================= +/** + * @file RoundTripClient.idl + * + * Definition of the Component that uses the LatencyTest interface + * provided by RoundTrip component + */ +//============================================================================= + +#ifndef CIAO_ROUNDTRIPCLIENT_IDL +#define CIAO_ROUNDTRIPCLIENT_IDL + +#include <Components.idl> +#include "../Benchmark.idl" + +module Benchmark +{ + component RoundTripClient + { + uses LatencyTest latency; + provides Controller controller; + }; + + home RoundTripClientHome manages RoundTripClient + { + }; +}; + +#endif /* CIAO_ROUNDTRIPCLIENT_IDL*/ diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.mpc b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.mpc new file mode 100644 index 00000000000..6ccc38cc06b --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient.mpc @@ -0,0 +1,109 @@ +// $Id$ +// This file is generated with "generate_component_mpc.pl -l .. -p Benchmark -i -c RoundTripClient" + +project(RoundTripClient_stub): ciao_client_dnc { + avoids += ace_for_tao + after += Benchmark_stub + sharedname = RoundTripClient_stub + + libs += Benchmark_stub + + idlflags += -Wb,stub_export_macro=ROUNDTRIPCLIENT_STUB_Export + idlflags += -Wb,stub_export_include=RoundTripClient_stub_export.h + idlflags += -Wb,skel_export_macro=ROUNDTRIPCLIENT_SVNT_Export + idlflags += -Wb,skel_export_include=RoundTripClient_svnt_export.h + + dynamicflags = ROUNDTRIPCLIENT_STUB_BUILD_DLL + + IDL_Files { + RoundTripClient.idl + } + + Source_Files { + RoundTripClientC.cpp + } +} + +project(RoundTripClient_svnt) : ciao_servant_dnc { + avoids += ace_for_tao + after += Benchmark_svnt RoundTripClient_stub + sharedname = RoundTripClient_svnt + libs += RoundTripClient_stub Benchmark_stub Benchmark_svnt + libpaths += .. + + idlflags += -Wb,export_macro=ROUNDTRIPCLIENT_SVNT_Export + idlflags +=-Wb,export_include=RoundTripClient_svnt_export.h + + dynamicflags = ROUNDTRIPCLIENT_SVNT_BUILD_DLL + + CIDL_Files { + RoundTripClient.cidl + } + + IDL_Files { + RoundTripClientE.idl + } + + Source_Files { + RoundTripClientEC.cpp + RoundTripClientS.cpp + RoundTripClient_svnt.cpp + } +} + + +project(RoundTripClient_exec) : ciao_component_dnc { + avoids += ace_for_tao + after += RoundTripClient_svnt + + sharedname = RoundTripClient_exec + + libs += RoundTripClient_stub Benchmark_stub Benchmark_svnt RoundTripClient_svnt + + libpaths += .. + + idlflags += -Wb,export_macro=ROUNDTRIPCLIENT_EXEC_Export + idlflags += -Wb,export_include=RoundTripClient_exec_export.h + + dynamicflags = ROUNDTRIPCLIENT_EXEC_BUILD_DLL + + IDL_Files { + RoundTripClientEI.idl + } + + Source_Files { + RoundTripClientEIC.cpp + RoundTripClient_exec.cpp + } +} + + +project (*client) : ciao_client_dnc { + avoids += ace_for_tao + exename = client + after += RoundTripClient_stub + libs += RoundTripClient_stub Benchmark_stub + libpaths += .. + + IDL_Files { + } + + Source_Files { + client.cpp + } +} + + +//project (RoundTripClient_controller) : ciao_client_dnc { +// exename = controller +// after += RoundTripClient_stub +// libs += RoundTripClient_stub Benchmark_stub +// libpaths += .. +// +// IDL_Files { +// } +// +// Source_Files { +// controller.cpp +// } +//} diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClientEI.idl b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClientEI.idl new file mode 100644 index 00000000000..d9009c56e8a --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClientEI.idl @@ -0,0 +1,34 @@ +// $Id$ + +//============================================================================= +/** + * @file RoundTripClientEI.idl + * + * + * @author + */ +//============================================================================= + +#ifndef CIAO_ROUNDTRIPCLIENTEI_IDL +#define CIAO_ROUNDTRIPCLIENTEI_IDL + +#include "RoundTripClientE.idl" + +module Benchmark +{ + /** + * @interface RoundTripClient_Exec + * + * The actually Test executor need to support + * Components::SessionComponent interface. Therefore, we need to + * define the component executor interface explicitly here. + */ + local interface RoundTripClient_Exec : CCM_RoundTripClient, + Components::SessionComponent, + CCM_Controller //Monolithic + { + }; + +}; + +#endif /* CIAO_ROUNDTRIPCLIENTEI_IDL */ diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.cpp b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.cpp new file mode 100644 index 00000000000..7374ff2c72e --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.cpp @@ -0,0 +1,167 @@ +// $Id$ + +#include "ace/Stats.h" +#include "ace/Sample_History.h" +#include "ace/High_Res_Timer.h" +#include "CIAO_common.h" +#include "ace/Env_Value_T.h" + +#include "RoundTripClient_exec.h" + +const int niterations = 100000; //Default no of iterations +//================================================================= + +MyImpl::RoundTripClient_exec_i::RoundTripClient_exec_i () +{ + +} + +MyImpl::RoundTripClient_exec_i::~RoundTripClient_exec_i () +{ +} + +// Operations from Components::SessionComponent +void +MyImpl::RoundTripClient_exec_i::set_session_context ( + Components::SessionContext_ptr ctx) +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, + "MyImpl::RoundTripClient_exec_i::set_session_context\n")); + + //Since this is in collocated mode; The server-component will change the + //scheduling strategy to real-time scheduling + + this->context_ = + Benchmark::CCM_RoundTripClient_Context::_narrow (ctx); + + if (CORBA::is_nil (this->context_.in ())) + throw CORBA::INTERNAL (); + + // Urm, we actually discard exceptions thrown from this operation. +} + +//Start the collocated test here +void +MyImpl::RoundTripClient_exec_i::ciao_preactivate () +{ +} + +void +MyImpl::RoundTripClient_exec_i::ccm_activate () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTripClient_exec_i::ccm_activate\n")); +} + +void +MyImpl::RoundTripClient_exec_i::ciao_postactivate () +{ +} + +void +MyImpl::RoundTripClient_exec_i::start () +{ + ///////////// Start test ///////////////////////////////////////// + + // Let's try to start tests from here... + Benchmark::LatencyTest_var lt = + context_->get_connection_latency (); + + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, + "MyImpl::RoundTripClient_exec::start obtain obj ref\n")); + + CORBA::Long test_data = 0L; + + //Warm up the system + int i = 0; + for (i=0; i < 100; i++) + lt->makeCall (test_data); + + ACE_DEBUG ((LM_DEBUG, "MyImpl::start: warmed up the system\n")); + + ACE_Sample_History history (niterations); + + ACE_hrtime_t test_start = ACE_OS::gethrtime (); + for (i = 0; i < niterations; ++i) + { + ACE_hrtime_t start = ACE_OS::gethrtime (); + + //Test value to be sent to the server + long test = 0; + + (void) lt->makeCall (test); + + ACE_hrtime_t now = ACE_OS::gethrtime (); + history.sample (now - start); + } + + ACE_hrtime_t test_end = ACE_OS::gethrtime (); + + ACE_DEBUG ((LM_DEBUG, "test finished\n")); + + ACE_DEBUG ((LM_DEBUG, "High resolution timer calibration....")); + ACE_UINT32 gsf = ACE_High_Res_Timer::global_scale_factor (); + ACE_DEBUG ((LM_DEBUG, "done\n")); + + ACE_Env_Value<int> envar ("CIAO_DUMP_SAMPLE_HISTORY", 0); + if (envar != 0) + { + history.dump_samples ("HISTORY", gsf); + } + + ACE_Basic_Stats stats; + history.collect_basic_stats (stats); + stats.dump_results ("Total", gsf); + + ACE_Throughput_Stats::dump_throughput ("Total", gsf, + test_end - test_start, + stats.samples_count ()); + +} + +::Benchmark::CCM_Controller_ptr +MyImpl::RoundTripClient_exec_i::get_controller () +{ + return ::Benchmark::CCM_Controller::_duplicate (this); +} + + +void +MyImpl::RoundTripClient_exec_i::ccm_passivate () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTripClient_exec_i::ccm_passivate\n")); +} + +void +MyImpl::RoundTripClient_exec_i::ccm_remove () +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "MyImpl::RoundTripClient_exec_i::ccm_remove\n")); +} + + +MyImpl::RoundTripClientHome_exec_i::RoundTripClientHome_exec_i () +{ +} + +MyImpl::RoundTripClientHome_exec_i::~RoundTripClientHome_exec_i () +{ +} + +::Components::EnterpriseComponent_ptr +MyImpl::RoundTripClientHome_exec_i::create () +{ + return new MyImpl::RoundTripClient_exec_i; +} + + +extern "C" ROUNDTRIPCLIENT_EXEC_Export ::Components::HomeExecutorBase_ptr +createRoundTripClientHome_Impl (void) +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "Creating RoundTrip_client impl \n")); + return new MyImpl::RoundTripClientHome_exec_i (); +} diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.h b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.h new file mode 100644 index 00000000000..c718d8ab2c2 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec.h @@ -0,0 +1,94 @@ +// $Id$ + +//============================================================ +/** + * @file RoundTripClient_exec.h + * + * Header file for the Executor implementation. + * + * @author Diego <dsevilla@um.es> + * @author Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//============================================================ + +#ifndef BENCHMARK_ROUNDTRIPCLIENT_EXEC_H +#define BENCHMARK_ROUNDTRIPCLIENT_EXEC_H + +#include "RoundTripClientEIC.h" +#include "tao/LocalObject.h" + + +namespace MyImpl +{ + + /** + * @class RoundTripClient_exec_i + * + * RoundTripClient executor implementation class. + */ + + class ROUNDTRIPCLIENT_EXEC_Export RoundTripClient_exec_i : + public virtual Benchmark::RoundTripClient_Exec, + public virtual TAO_Local_RefCounted_Object + { + + public: + /// Default constructor. + RoundTripClient_exec_i (); + + /// Default destructor. + ~RoundTripClient_exec_i (); + + // Operations from Components::SessionComponent + virtual void set_session_context (Components::SessionContext_ptr ctx); + + virtual void ciao_preactivate (); + + virtual void ccm_activate (); + + virtual void ciao_postactivate (); + + virtual void ccm_passivate (); + + virtual void ccm_remove (); + + virtual ::Benchmark::CCM_Controller_ptr + get_controller (); + + virtual void start (); + + + protected: + /// Copmponent specific context + Benchmark::CCM_RoundTripClient_Context_var context_; + + }; + + /** + * @class RoundTripClientHome_exec_i + * + * RoundTripClient home executor implementation class. + */ + class ROUNDTRIPCLIENT_EXEC_Export RoundTripClientHome_exec_i : + public virtual Benchmark::CCM_RoundTripClientHome, + public virtual TAO_Local_RefCounted_Object + { + public: + /// Default ctor. + RoundTripClientHome_exec_i (); + + /// Default dtor. + ~RoundTripClientHome_exec_i (); + + // Implicit home operations. + + virtual ::Components::EnterpriseComponent_ptr + create (); + }; + +} + +extern "C" ROUNDTRIPCLIENT_EXEC_Export ::Components::HomeExecutorBase_ptr +createRoundTripClientHome_Impl (void); + +#endif /* CIAO_ROUNDTRIPCLIENTGEN_EXEC_H */ diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec_export.h b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec_export.h new file mode 100644 index 00000000000..4a9827a8cbc --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_exec_export.h @@ -0,0 +1,50 @@ + +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIPCLIENT_EXEC +// ------------------------------ +#ifndef ROUNDTRIPCLIENT_EXEC_EXPORT_H +#define ROUNDTRIPCLIENT_EXEC_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIPCLIENT_EXEC_HAS_DLL) +# define ROUNDTRIPCLIENT_EXEC_HAS_DLL 1 +#endif /* ! ROUNDTRIPCLIENT_EXEC_HAS_DLL */ + +#if defined (ROUNDTRIPCLIENT_EXEC_HAS_DLL) && (ROUNDTRIPCLIENT_EXEC_HAS_DLL == 1) +# if defined (ROUNDTRIPCLIENT_EXEC_BUILD_DLL) +# define ROUNDTRIPCLIENT_EXEC_Export ACE_Proper_Export_Flag +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIPCLIENT_EXEC_BUILD_DLL */ +# define ROUNDTRIPCLIENT_EXEC_Export ACE_Proper_Import_Flag +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIPCLIENT_EXEC_BUILD_DLL */ +#else /* ROUNDTRIPCLIENT_EXEC_HAS_DLL == 1 */ +# define ROUNDTRIPCLIENT_EXEC_Export +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARATION(T) +# define ROUNDTRIPCLIENT_EXEC_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIPCLIENT_EXEC_HAS_DLL == 1 */ + +// Set ROUNDTRIPCLIENT_EXEC_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIPCLIENT_EXEC_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIPCLIENT_EXEC_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_EXEC_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIPCLIENT_EXEC_NTRACE */ + +#if (ROUNDTRIPCLIENT_EXEC_NTRACE == 1) +# define ROUNDTRIPCLIENT_EXEC_TRACE(X) +#else /* (ROUNDTRIPCLIENT_EXEC_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_EXEC_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIPCLIENT_EXEC_NTRACE == 1) */ + +#endif /* ROUNDTRIPCLIENT_EXEC_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_stub_export.h b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_stub_export.h new file mode 100644 index 00000000000..1020507fdff --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_stub_export.h @@ -0,0 +1,49 @@ +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIPCLIENT_STUB +// ------------------------------ +#ifndef ROUNDTRIPCLIENT_STUB_EXPORT_H +#define ROUNDTRIPCLIENT_STUB_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIPCLIENT_STUB_HAS_DLL) +# define ROUNDTRIPCLIENT_STUB_HAS_DLL 1 +#endif /* ! ROUNDTRIPCLIENT_STUB_HAS_DLL */ + +#if defined (ROUNDTRIPCLIENT_STUB_HAS_DLL) && (ROUNDTRIPCLIENT_STUB_HAS_DLL == 1) +# if defined (ROUNDTRIPCLIENT_STUB_BUILD_DLL) +# define ROUNDTRIPCLIENT_STUB_Export ACE_Proper_Export_Flag +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIPCLIENT_STUB_BUILD_DLL */ +# define ROUNDTRIPCLIENT_STUB_Export ACE_Proper_Import_Flag +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIPCLIENT_STUB_BUILD_DLL */ +#else /* ROUNDTRIPCLIENT_STUB_HAS_DLL == 1 */ +# define ROUNDTRIPCLIENT_STUB_Export +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARATION(T) +# define ROUNDTRIPCLIENT_STUB_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIPCLIENT_STUB_HAS_DLL == 1 */ + +// Set ROUNDTRIPCLIENT_STUB_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIPCLIENT_STUB_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIPCLIENT_STUB_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_STUB_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIPCLIENT_STUB_NTRACE */ + +#if (ROUNDTRIPCLIENT_STUB_NTRACE == 1) +# define ROUNDTRIPCLIENT_STUB_TRACE(X) +#else /* (ROUNDTRIPCLIENT_STUB_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_STUB_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIPCLIENT_STUB_NTRACE == 1) */ + +#endif /* ROUNDTRIPCLIENT_STUB_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_svnt_export.h b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_svnt_export.h new file mode 100644 index 00000000000..a760c548604 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/RoundTripClient_svnt_export.h @@ -0,0 +1,49 @@ +// -*- C++ -*- +// $Id$ +// Definition for Win32 Export directives. +// This file is generated automatically by generate_export_file.pl ROUNDTRIPCLIENT_SVNT +// ------------------------------ +#ifndef ROUNDTRIPCLIENT_SVNT_EXPORT_H +#define ROUNDTRIPCLIENT_SVNT_EXPORT_H + +#include "ace/config-all.h" + +#if !defined (ROUNDTRIPCLIENT_SVNT_HAS_DLL) +# define ROUNDTRIPCLIENT_SVNT_HAS_DLL 1 +#endif /* ! ROUNDTRIPCLIENT_SVNT_HAS_DLL */ + +#if defined (ROUNDTRIPCLIENT_SVNT_HAS_DLL) && (ROUNDTRIPCLIENT_SVNT_HAS_DLL == 1) +# if defined (ROUNDTRIPCLIENT_SVNT_BUILD_DLL) +# define ROUNDTRIPCLIENT_SVNT_Export ACE_Proper_Export_Flag +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARATION(T) ACE_EXPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_EXPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# else /* ROUNDTRIPCLIENT_SVNT_BUILD_DLL */ +# define ROUNDTRIPCLIENT_SVNT_Export ACE_Proper_Import_Flag +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARATION(T) ACE_IMPORT_SINGLETON_DECLARATION (T) +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) ACE_IMPORT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +# endif /* ROUNDTRIPCLIENT_SVNT_BUILD_DLL */ +#else /* ROUNDTRIPCLIENT_SVNT_HAS_DLL == 1 */ +# define ROUNDTRIPCLIENT_SVNT_Export +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARATION(T) +# define ROUNDTRIPCLIENT_SVNT_SINGLETON_DECLARE(SINGLETON_TYPE, CLASS, LOCK) +#endif /* ROUNDTRIPCLIENT_SVNT_HAS_DLL == 1 */ + +// Set ROUNDTRIPCLIENT_SVNT_NTRACE = 0 to turn on library specific tracing even if +// tracing is turned off for ACE. +#if !defined (ROUNDTRIPCLIENT_SVNT_NTRACE) +# if (ACE_NTRACE == 1) +# define ROUNDTRIPCLIENT_SVNT_NTRACE 1 +# else /* (ACE_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_SVNT_NTRACE 0 +# endif /* (ACE_NTRACE == 1) */ +#endif /* !ROUNDTRIPCLIENT_SVNT_NTRACE */ + +#if (ROUNDTRIPCLIENT_SVNT_NTRACE == 1) +# define ROUNDTRIPCLIENT_SVNT_TRACE(X) +#else /* (ROUNDTRIPCLIENT_SVNT_NTRACE == 1) */ +# define ROUNDTRIPCLIENT_SVNT_TRACE(X) ACE_TRACE_IMPL(X) +#endif /* (ROUNDTRIPCLIENT_SVNT_NTRACE == 1) */ + +#endif /* ROUNDTRIPCLIENT_SVNT_EXPORT_H */ + +// End of auto generated file. diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/client.cpp b/CIAO/performance-tests/Benchmark/RoundTripClient/client.cpp new file mode 100644 index 00000000000..23b58d9cece --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/client.cpp @@ -0,0 +1,51 @@ +// $Id$ + +//============================================================== +/** + * @file client.cpp + * + * This is a simple client test program that interact with the RoundTrip + * component implementation. The single threaded client issues + * two-way operations, the total latency (response time) is measured + * NOTE: this client implementation has been adapted from the + * $TAO_ROOT/performance-results/Latency/Single_Threaded/ + * + * @author Arvind S. Krishna <arvindk@dre.vanderbilt.edu> + */ +//============================================================== +#include "RoundTripClientC.h" + +const char *ior = "file://test.ior"; + +int +main (int argc, char *argv[]) +{ + try + { + + // Initialize orb + CORBA::ORB_var orb = CORBA::ORB_init (argc, + argv, + ""); + + // Resolve HomeFinder interface + CORBA::Object_var obj + = orb->string_to_object (ior); + Benchmark::RoundTripClient_var test = + Benchmark::RoundTripClient::_narrow(obj.in()); + //Get the RoundTrip reference + Benchmark::Controller_var trigger = test->provide_controller (); + + //Send a trigger to start the test + trigger->start(); + + } + catch (const CORBA::Exception& ex) + { + ex._tao_print_exception ("Exception Handled:"); + return 1; + } + + + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/run_test.pl b/CIAO/performance-tests/Benchmark/RoundTripClient/run_test.pl new file mode 100755 index 00000000000..e26d55c1a66 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/run_test.pl @@ -0,0 +1,103 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +# +# @@ Run this script from ../descriptors/ instead. +# + +use lib "$ENV{'ACE_ROOT'}/bin"; +use PerlACE::Run_Test; + +$status = 0; +$daemon_ior = PerlACE::LocalFile ("daemon.ior"); +$am_ior = PerlACE::LocalFile ("am.ior"); + +$ACE_ROOT=$ENV{'ACE_ROOT'}; +$CIAO_ROOT=$ENV{'CIAO_ROOT'}; + +if ($CIAO_ROOT eq "") { + $CIAO_ROOT="$ACE_ROOT/TAO/CIAO"; +} + +unlink $daemon_ior; +unlink $am_ior; + + +# CIAO Daemon command line arguments +$daemon_args1 = "-ORBEndpoint iiop://localhost:10000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +#CIAO Daemond Remote command line arguments +$daemon_args2 = "-ORBEndpoint iiop://localhost:12000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +$assembly_manager_args = "-o $am_ior -c test.dat"; + +$ad_args = " -k file://$am_ior -a RoundTripClient.cad"; + +# CIAO daemon process definition +$DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args1"); + +## Starting up the CIAO daemon +$DS->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + +# CIAO daemon process definition +$DS2 = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args2"); + +## Starting up the CIAO daemon +$DS2->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + +$AM = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Manager", + $assembly_manager_args); +$AM->Spawn (); +if (PerlACE::waitforfile_timed ($am_ior, 15) == -1) { + print STDERR "ERROR: Could not find assembly ior file <$am_ior>\n"; + $AM->Kill (); + exit 1; +} + +$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer", + $ad_args); +$AD->Spawn (); + +sleep (5); + +#Start the client to send the trigger message +$CL = new PerlACE::Process ("../RoundTripClient/client", ""); +$CL->SpawnWaitKill(60); + +#$ctrl = $DS->WaitKill (5); +#$AM->WaitKill(5); +#$AD->WaitKill(5); + +$AM->Kill (); +$AD->Kill (); +$DS->Kill (); +$DS2->Kill(); + +#if ($ctrl != 0) { +# print STDERR "ERROR: CIAODaemon didn't shutdown gracefully $ctrl\n"; +# $DS->Kill (); +# exit 1; +#} + +$CL->Kill (); + +unlink $daemon_ior; +unlink $am_ior; + +exit $status; diff --git a/CIAO/performance-tests/Benchmark/RoundTripClient/run_test_ior_cad.pl b/CIAO/performance-tests/Benchmark/RoundTripClient/run_test_ior_cad.pl new file mode 100755 index 00000000000..bb665cc499a --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripClient/run_test_ior_cad.pl @@ -0,0 +1,78 @@ +eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' + & eval 'exec perl -S $0 $argv:q' + if 0; + +# $Id$ +# -*- perl -*- + +# +# @@ Run this script from ../descriptors/ instead. +# + +use lib "$ENV{'ACE_ROOT'}/bin"; +use PerlACE::Run_Test; + +$status = 0; +$daemon_ior = PerlACE::LocalFile ("daemon.ior"); +$am_ior = PerlACE::LocalFile ("am.ior"); + +$ACE_ROOT=$ENV{'ACE_ROOT'}; +$CIAO_ROOT=$ENV{'CIAO_ROOT'}; + +if ($CIAO_ROOT eq "") { + $CIAO_ROOT="$ACE_ROOT/TAO/CIAO"; +} + +unlink $daemon_ior; +unlink $am_ior; + + +# CIAO Daemon command line arguments +$daemon_args = "-c $CIAO_ROOT/performance-tests/Benchmark/RoundTrip/svc.conf -ORBEndpoint iiop://localhost:10000 -o $daemon_ior -i CIAO_Installation_Data.ini -n $CIAO_ROOT/tools/ComponentServer/ComponentServer"; + +$assembly_manager_args = "-o $am_ior -c test.dat"; + +$ad_args = " -k file://$am_ior -a Test-IOR.cad"; + +# CIAO daemon process definition +$DS = new PerlACE::Process ("$CIAO_ROOT/tools/Daemon/CIAO_Daemon", + "$daemon_args"); + +## Starting up the CIAO daemon +$DS->Spawn (); +if (PerlACE::waitforfile_timed ($daemon_ior, 15) == -1) { + print STDERR "ERROR: Could not find daemon ior file <$daemon_ior>\n"; + $DS->Kill (); + exit 1; +} + + +$AM = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Manager", + $assembly_manager_args); +$AM->Spawn (); +if (PerlACE::waitforfile_timed ($am_ior, 15) == -1) { + print STDERR "ERROR: Could not find assembly ior file <$am_ior>\n"; + $AM->Kill (); + exit 1; +} + +$AD = new PerlACE::Process("$CIAO_ROOT/tools/Assembly_Deployer/Assembly_Deployer", + $ad_args); +$AD->Spawn (); + +sleep (5); + +#Start the client to send the trigger message +$CL = new PerlACE::Process ("../RoundTripClient/client", ""); +$CL->SpawnWaitKill(60); + +$AM->Kill (); +$AD->Kill (); +$DS->Kill (); +#$CL->Kill (); + +#unlink $daemon_ior; +#unlink $am_ior; +unlink rtserver.ior; + +exit $status; diff --git a/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.cpp b/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.cpp new file mode 100644 index 00000000000..a3aed5e135f --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.cpp @@ -0,0 +1,26 @@ +// +// $Id$ +// +#include "LatencyTest.h" +#include "CIAO_common.h" + +LatencyTest_Impl::LatencyTest_Impl (CORBA::ORB_ptr orb) + : orb_ (CORBA::ORB::_duplicate (orb)) +{ +} + + +CORBA::Long +LatencyTest_Impl::makeCall (CORBA::Long send_time) +{ + if (CIAO::debug_level () > 0) + ACE_DEBUG ((LM_DEBUG, "Sending Time back \n")); + + return send_time; +} + +void +LatencyTest_Impl::shutdown () +{ + this->orb_->shutdown (0); +} diff --git a/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.h b/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.h new file mode 100644 index 00000000000..e2dbaf7cc0e --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripServer/LatencyTest.h @@ -0,0 +1,40 @@ +// +// $Id$ +// + +#ifndef LATENCYTEST_H +#define LATENCYTEST_H +#include /**/ "ace/pre.h" + +#include "../BenchmarkS.h" + +#if defined (_MSC_VER) +# pragma warning(push) +# pragma warning (disable:4250) +#endif /* _MSC_VER */ + +/// Implement the Test::LatencyTest interface +class LatencyTest_Impl : + public virtual POA_Benchmark::LatencyTest +{ +public: + /// Constructor + LatencyTest_Impl (CORBA::ORB_ptr orb); + + // = The skeleton methods + virtual CORBA::Long makeCall (CORBA::Long send_time); + + virtual void shutdown (); + +private: + /// Use an ORB reference to conver strings to objects and shutdown + /// the application. + CORBA::ORB_var orb_; +}; + +#if defined(_MSC_VER) +# pragma warning(pop) +#endif /* _MSC_VER */ + +#include /**/ "ace/post.h" +#endif /* LATENCYTEST_H */ diff --git a/CIAO/performance-tests/Benchmark/RoundTripServer/RoundTripServer.mpc b/CIAO/performance-tests/Benchmark/RoundTripServer/RoundTripServer.mpc new file mode 100644 index 00000000000..35a3dbed71b --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripServer/RoundTripServer.mpc @@ -0,0 +1,14 @@ +// $Id$ +project (RoundTripServer) : strategies, ciao_component_dnc { + after += Benchmark_svnt + libs += Benchmark_stub Benchmark_svnt + libpaths += .. + + IDL_Files { + } + + Source_Files { + server.cpp + LatencyTest.cpp + } +} diff --git a/CIAO/performance-tests/Benchmark/RoundTripServer/Test.idl b/CIAO/performance-tests/Benchmark/RoundTripServer/Test.idl new file mode 100644 index 00000000000..b7f83dbedd8 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripServer/Test.idl @@ -0,0 +1,16 @@ +// +// $Id$ +// + +/// Measure roundtrip delay +interface LatencyTest +{ + /// A simple method to measure roundtrip delays + /** + * The operation simply returns its argument, this is used in AMI + * and deferred synchronous tests to measure the roundtrip delay + * without the need for a different reply handler for each + * request. + */ + long makeCall (in long send_time); +}; diff --git a/CIAO/performance-tests/Benchmark/RoundTripServer/server.cpp b/CIAO/performance-tests/Benchmark/RoundTripServer/server.cpp new file mode 100644 index 00000000000..5b592728bec --- /dev/null +++ b/CIAO/performance-tests/Benchmark/RoundTripServer/server.cpp @@ -0,0 +1,96 @@ +// $Id$ + +#include "LatencyTest.h" +#include "ace/Sched_Params.h" +#include "ace/OS_NS_errno.h" + +#include "tao/Strategies/advanced_resource.h" + +const char *ior_output_file = "rtserver.ior"; + +int +main (int argc, char *argv[]) +{ + int priority = + (ACE_Sched_Params::priority_min (ACE_SCHED_FIFO) + + ACE_Sched_Params::priority_max (ACE_SCHED_FIFO)) / 2; + priority = ACE_Sched_Params::next_priority (ACE_SCHED_FIFO, + priority); + // Enable FIFO scheduling, e.g., RT scheduling class on Solaris. + + if (ACE_OS::sched_params (ACE_Sched_Params (ACE_SCHED_FIFO, + priority, + ACE_SCOPE_PROCESS)) != 0) + { + if (ACE_OS::last_error () == EPERM) + { + ACE_DEBUG ((LM_DEBUG, + "server (%P|%t): user is not superuser, " + "test runs in time-shared class\n")); + } + else + ACE_ERROR ((LM_ERROR, + "server (%P|%t): sched_params failed\n")); + } + + try + { + CORBA::ORB_var orb = + CORBA::ORB_init (argc, argv); + + CORBA::Object_var poa_object = + orb->resolve_initial_references("RootPOA"); + + if (CORBA::is_nil (poa_object.in ())) + ACE_ERROR_RETURN ((LM_ERROR, + " (%P|%t) Unable to initialize the POA.\n"), + 1); + + PortableServer::POA_var root_poa = + PortableServer::POA::_narrow (poa_object.in ()); + + PortableServer::POAManager_var poa_manager = + root_poa->the_POAManager (); + + LatencyTest_Impl *roundtrip_impl; + ACE_NEW_RETURN (roundtrip_impl, + LatencyTest_Impl (orb.in ()), + 1); + PortableServer::ServantBase_var owner_transfer(roundtrip_impl); + + Benchmark::LatencyTest_var roundtrip = + roundtrip_impl->_this (); + + CORBA::String_var ior = + orb->object_to_string (roundtrip.in ()); + + // If the ior_output_file exists, output the ior to it + FILE *output_file= ACE_OS::fopen (ior_output_file, "w"); + if (output_file == 0) + ACE_ERROR_RETURN ((LM_ERROR, + "Cannot open output file for writing IOR: %s", + ior_output_file), + 1); + ACE_OS::fprintf (output_file, "%s", ior.in ()); + ACE_OS::fclose (output_file); + + ACE_DEBUG ((LM_DEBUG, "%s", ior.in ())); + + poa_manager->activate (); + + orb->run (); + + ACE_DEBUG ((LM_DEBUG, "(%P|%t) server - event loop finished\n")); + + root_poa->destroy (1, 1); + + orb->destroy (); + } + catch (const CORBA::Exception& ex) + { + ex._tao_print_exception ("Exception caught:"); + return 1; + } + + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/descriptors/Benchmark.cad b/CIAO/performance-tests/Benchmark/descriptors/Benchmark.cad new file mode 100644 index 00000000000..6ab0dd70aa0 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/Benchmark.cad @@ -0,0 +1,34 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE componentassembly SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/componentassembly.dtd"> + +<componentassembly id="Single-process Basic assembly"> + <componentfiles> + <componentfile id="com-RoundTrip"> + <fileinarchive name="RoundTrip.csd"/> + </componentfile> + </componentfiles> + + <partitioning> + + <!-- A plain vanilla partition. We don't even need the processcollocation tag here. --> + <homeplacement id="a_RoundTripHome"> + <componentfileref idref="com-RoundTrip"/> + <componentinstantiation id="a_RoundTrip"> + <registercomponent> + <!-- writeiortofile is a non-standard CIAO extension. --> + <writeiortofile name="test.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + + </partitioning> + + <!-- + <connections> + </connections> + --> + +</componentassembly> diff --git a/CIAO/performance-tests/Benchmark/descriptors/CIAO_Installation_Data.ini b/CIAO/performance-tests/Benchmark/descriptors/CIAO_Installation_Data.ini new file mode 100644 index 00000000000..ffe36ca3422 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/CIAO_Installation_Data.ini @@ -0,0 +1,5 @@ +[ComponentInstallation] +DCE:cf88cb97-b5a8-4522-9fa3-e626c75c5470=RoundTripClient_svnt +DCE:568a3872-f7bb-4b3f-baba-44c6824d966d=RoundTripClient_exec +DCE:2498aa68-09aa-478c-8ae1-30ed67924f82=RoundTrip_exec +DCE:88c14bff-5158-4f48-9b22-8a1120e87f76=RoundTrip_svnt diff --git a/CIAO/performance-tests/Benchmark/descriptors/Multi_Threaded.cad b/CIAO/performance-tests/Benchmark/descriptors/Multi_Threaded.cad new file mode 100644 index 00000000000..0c0be0cb71c --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/Multi_Threaded.cad @@ -0,0 +1,112 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE componentassembly SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/componentassembly.dtd"> +<componentassembly id="Multi-client Component Scalability test"> + <componentfiles> + <componentfile id="com-RoundTrip"> + <fileinarchive name="RoundTrip.csd"/> + </componentfile> + <componentfile id="com-RoundTripClient"> + <fileinarchive name="RoundTripClient.csd"/> + </componentfile> + </componentfiles> + + <partitioning> + + <homeplacement id="a_RoundTripHome"> + <componentfileref idref="com-RoundTrip"/> + <componentinstantiation id="a_RoundTrip"/> + </homeplacement> + + <processcollocation> + <homeplacement id="a_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="a_RoundTripClient"> + <registercomponent> + <writeiortofile name="comp1.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + + + <homeplacement id="b_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="b_RoundTripClient"> + <registercomponent> + <writeiortofile name="comp2.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + + <homeplacement id="c_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="c_RoundTripClient"> + <registercomponent> + <writeiortofile name="comp3.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + + + <homeplacement id="d_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="d_RoundTripClient"> + <registercomponent> + <writeiortofile name="comp4.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + <destination>Remote</destination> + </processcollocation> + + </partitioning> + + + <connections> + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="a_RoundTripClient"/> + </usesport> + <providesport> + <providesidentifier>latency</providesidentifier> + <componentinstantiationref idref="a_RoundTrip"/> + </providesport> + </connectinterface> + + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="b_RoundTripClient"/> + </usesport> + <providesport> + <providesidentifier>latency</providesidentifier> + <componentinstantiationref idref="a_RoundTrip"/> + </providesport> + </connectinterface> + + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="c_RoundTripClient"/> + </usesport> + <providesport> + <providesidentifier>latency</providesidentifier> + <componentinstantiationref idref="a_RoundTrip"/> + </providesport> + </connectinterface> + + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="d_RoundTripClient"/> + </usesport> + <providesport> + <providesidentifier>latency</providesidentifier> + <componentinstantiationref idref="a_RoundTrip"/> + </providesport> + </connectinterface> + </connections> +</componentassembly> diff --git a/CIAO/performance-tests/Benchmark/descriptors/NOTE.txt b/CIAO/performance-tests/Benchmark/descriptors/NOTE.txt new file mode 100644 index 00000000000..7bcd2fbfade --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/NOTE.txt @@ -0,0 +1,65 @@ +This directory contains various XML descriptors and configuration +files required to run benchmarking experiments using CIAO in +different ways. Let's go over a few important files first: + +test.dat: +--------- + + This file describes the deployment daemons CIAO's Assembly_Manager + will contact to instantiate ComponentServer's, home's, and component + instances. Each line specify the name of a installation + "destination" (I used this to specify <processcollocation> + destination in various *.cad files) and the corresponding IOR for + the CIAO_Daemon. The first entry is the "default" destination the + deployment framework will use. + + For example, test.dat now contains: + + Default corbaloc:iiop:localhost:10000/ServerActivator + Remote corbaloc:iiop:localhost:12000/ServerActivator + + You can copy and modify the copy to deploy the components in various + different locations to let the application truely "distributed". + For example, changing the remote ServerActivator to: + corbaloc:iiop:deuce.doc.wustl.edu:13000/ServerActivator + + Remember to start up the Assembly_Manager in Step 2 using the + revised "test.dat" you created, and start up the CIAO_Daemon's in + Step 1 according to the specification. + +*.cad: +------ + + These files specify how an application should be composed. The + specification includes, where to install a component, what + implementation to use, and how to connect components together. + Currently, we have: + + Benchmark.cad: Plain vanilla assembly descriptor. This file installs + the RoundTrip component on the location given in test.dat. + RoundTripClient.cad : A descriptor file for the client component + RoundTripClient that uses the interface provided by + RoundTrip. + Test-IOR.cad: This cad file should be used to for testing a CORBA server + with a CIAO client. The IOR of the server should added in + this file. + +There are automated perl scripts that can run the tests to generate the +required results. These are located in the individual component directories +Round Trip and RoundTripClient. The descriptors directory has the required +.cad files that specify the component configuration used in the various +experiments. + +To run a simple CORBA component with a normal client: + cd descriptors; + ../Roundtrip/run_test.pl + + cd descritors; + ../RoundTripClient/run_test.pl + Script that runs two components one acts as a client and the other as the + server. Statistics are printed for RoundTrip latency jitter etc + + cd descritors; + ../RoundTripClient/run_test_ior_cad.pl + Script runs a CORBA server and a CIAO component that acts as a client. + Similar statistics are printed. diff --git a/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.csd b/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.csd new file mode 100644 index 00000000000..ebf8c4e1e15 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.csd @@ -0,0 +1,46 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> + +<!DOCTYPE softpkg SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/softpkg.dtd"> + +<!-- RoundTrip's Software Package Descriptor --> +<!-- This file describes various RoundTrip executor --> +<!-- implementations. --> + +<softpkg name="CIAO-TEST" version="1.0"> + <pkgtype>CORBA Component</pkgtype> + <title>RoundTrip</title> + <author> + <company>ISIS at Vanderbilt University</company> + <webpage href="http://www.dre.vanderbilt.edu/"/> + </author> + <description>A RoundTrip component.</description> + <license href="http://www.cs.wustl.edu/~schmidt/ACE-copying.html"/> + <idl id="IDL:Benchmark/RoundTrip:1.0" homeid="IDL:Benchmark/RoundTripHome:1.0"> + <fileinarchive name="RoundTrip.idl"/> + </idl> + <descriptor type="CORBA Component"> + <fileinarchive name="RoundTrip.ccd"/> + </descriptor> + <implementation id="DCE:2498aa68-09aa-478c-8ae1-30ed67924f82"> + + <!-- CIAO extension --> + <dependency type="CIAODLL"> + <softpkgref> + <!-- .ssd stands for Servant Software Descriptors which is a CIAO extension --> + <fileinarchive name="RoundTrip.ssd"/> + <implref idref="DCE:88c14bff-5158-4f48-9b22-8a1120e87f76"/> + </softpkgref> + </dependency> + + <code type="DLL"> + <!-- No need to specify extension below since ACE takes care of that, --> + <fileinarchive name="RoundTrip_exec"/> + <entrypoint>createRoundTripHome_Impl</entrypoint> + </code> + + </implementation> + +</softpkg> diff --git a/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.ssd b/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.ssd new file mode 100644 index 00000000000..b9720b9f2f1 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/RoundTrip.ssd @@ -0,0 +1,43 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> + +<!DOCTYPE softpkg SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/softpkg.dtd"> + +<!-- RoundTrip's Servant Software Descriptor --> +<!-- This file describes various RoundTrip servant --> +<!-- implementations. --> + +<softpkg name="CIAO-RoundTrip-Servant" version="1.0"> + <pkgtype>CIAO Servant</pkgtype> + <title>Benchmark::RoundTrip Servants</title> + <author> + <company>ISIS at Vanderbilt University</company> + <webpage href="http://www.dre.vanderbilt.edu/"/> + </author> + <description>Single-Threaded Latency test component for benchmarking.</description> + <license href="http://www.cs.wustl.edu/~schmidt/ACE-copying.html"/> + <idl id="IDL:Benchmark/RoundTrip:1.0" homeid="IDL:Benchmark/RoundTripHome:1.0"> + <fileinarchive name="RoundTrip.idl"/> + </idl> + + <descriptor type="CORBA Component"> + <fileinarchive name="RoundTrip.ccd"/> + </descriptor> + + <implementation id="DCE:88c14bff-5158-4f48-9b22-8a1120e87f76"> + + <dependency type="ORB"> + <name>TAO</name> + </dependency> + + <code> + <!-- No need to specify extension below since ACE takes care of that, --> + <fileinarchive name="RoundTrip_svnt"/> + <entrypoint>createRoundTripHome_Servant</entrypoint> + </code> + + </implementation> + +</softpkg> diff --git a/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.cad b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.cad new file mode 100644 index 00000000000..d53416195a2 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.cad @@ -0,0 +1,49 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE componentassembly SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/componentassembly.dtd"> +<componentassembly id="Collocated Round-Trip test"> + <componentfiles> + <componentfile id="com-RoundTrip"> + <fileinarchive name="RoundTrip.csd"/> + </componentfile> + <componentfile id="com-RoundTripClient"> + <fileinarchive name="RoundTripClient.csd"/> + </componentfile> + </componentfiles> + + <partitioning> + +<homeplacement id="a_RoundTripHome"> + <componentfileref idref="com-RoundTrip"/> + <componentinstantiation id="a_RoundTrip"/> + </homeplacement> + +<homeplacement id="a_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="a_RoundTripClient"> + <registercomponent> + <!-- writeiortofile is a non-standard CIAO extension. --> + <writeiortofile name="test.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + <!-- A plain vanilla partition. We don't even need the processcollocation tag here. --> + + </partitioning> + + <connections> + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="a_RoundTripClient"/> + </usesport> + <providesport> + <providesidentifier>latency</providesidentifier> + <componentinstantiationref idref="a_RoundTrip"/> + </providesport> + </connectinterface> + </connections> + +</componentassembly> diff --git a/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.csd b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.csd new file mode 100644 index 00000000000..c52288e3207 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.csd @@ -0,0 +1,44 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE softpkg SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/softpkg.dtd"> +<!-- RoundTripClient's Software Package Descriptor --> +<!-- This file describes various RoundTripClient executor --> +<!-- implementations. --> + + +<softpkg name="CIAO-TEST" version="1.0"> + <pkgtype>CORBA Component</pkgtype> + <title>RoundTripClient</title> + <author> + <company>ISIS at Vanderbilt University</company> + <webpage href="http://www.dre.vanderbilt.edu/"/> + </author> + <description>A RoundTripClient component.</description> + <license href="http://www.cs.wustl.edu/~schmidt/ACE-copying.html"/> + <idl id="IDL:Benchmark/RoundTripClient:1.0" homeid="IDL:Benchmark/RoundTripClientHome:1.0"> + <fileinarchive name="RoundTripClient.idl"/> + </idl> + <descriptor type="CORBA Component"> + <fileinarchive name="RoundTripClient.ccd"/> + </descriptor> + <implementation id="DCE:568a3872-f7bb-4b3f-baba-44c6824d966d"> + + <!-- CIAO extension --> + <dependency type="CIAODLL"> + <softpkgref> + <!-- .ssd stands for Servant Software Descriptors which is a CIAO extension --> + <fileinarchive name="RoundTripClient.ssd"/> + <implref idref="DCE:cf88cb97-b5a8-4522-9fa3-e626c75c5470"/> + </softpkgref> + </dependency> + + <code type="DLL"> + <!-- No need to specify extension below since ACE takes care of that, --> + <fileinarchive name="RoundTripClient_exec"/> + <entrypoint>createRoundTripClientHome_Impl</entrypoint> + </code> + </implementation> + +</softpkg> diff --git a/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.ssd b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.ssd new file mode 100644 index 00000000000..86397731ed2 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/RoundTripClient.ssd @@ -0,0 +1,39 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE softpkg SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/softpkg.dtd"> +<!-- RoundTripClient's Servant Software Descriptor --> +<!-- This file describes various RoundTripClient servant --> +<!-- implementations. --> + +<softpkg name="CIAO-RoundTripClient-Servant" version="1.0"> + <pkgtype>CIAO Servant</pkgtype> + <title>Benchmark::RoundTripClient Servants</title> + <author> + <company>ISIS at Vanderbilt University</company> + <webpage href="http://www.dre.vanderbilt.edu/"/> + </author> + <description>Single-Threaded Latency test component for benchmarking.</description> + <license href="http://www.cs.wustl.edu/~schmidt/ACE-copying.html"/> + <idl id="IDL:Benchmark/RoundTripClient:1.0" homeid="IDL:Benchmark/RoundTripClientHome:1.0"> + <fileinarchive name="RoundTripClient.idl"/> + </idl> + + <descriptor type="CORBA Component"> + <fileinarchive name="RoundTripClient.ccd"/> + </descriptor> + + <implementation id="DCE:cf88cb97-b5a8-4522-9fa3-e626c75c5470"> + + <dependency type="ORB"> + <name>TAO</name> + </dependency> + + <code> + <!-- No need to specify extension below since ACE takes care of that, --> + <fileinarchive name="RoundTripClient_svnt"/> + <entrypoint>createRoundTripClientHome_Servant</entrypoint> + </code> + </implementation> +</softpkg> diff --git a/CIAO/performance-tests/Benchmark/descriptors/Test-IOR.cad b/CIAO/performance-tests/Benchmark/descriptors/Test-IOR.cad new file mode 100644 index 00000000000..a917affec85 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/Test-IOR.cad @@ -0,0 +1,41 @@ +<?xml version="1.0"?> <!-- -*- SGML -*- --> + +<!-- If this file is moved to a different directory, make sure to change the + path to the DTD below. Otherwise the examples won't work. --> +<!DOCTYPE componentassembly SYSTEM "http://www.dre.vanderbilt.edu/CIAO/DTD/componentassembly.dtd"> + +<componentassembly id="Single-process Basic assembly"> + <componentfiles> + <componentfile id="com-RoundTripClient"> + <fileinarchive name="RoundTripClient.csd"/> + </componentfile> + </componentfiles> + + <partitioning> + <homeplacement id="a_RoundTripClientHome"> + <componentfileref idref="com-RoundTripClient"/> + <componentinstantiation id="a_RoundTripClient"> + <registercomponent> + <!-- writeiortofile is a non-standard CIAO extension. --> + <writeiortofile name="test.ior"/> + </registercomponent> + </componentinstantiation> + </homeplacement> + </partitioning> + +<connections> + <connectinterface> + <usesport> + <usesidentifier>latency</usesidentifier> + <componentinstantiationref idref="a_RoundTripClient"/> + </usesport> + <existinginterface> + <findby> + <!-- One needs to add the correct IOR of the server here --> + <stringifiedobjectref>file://rtserver.ior</stringifiedobjectref> + </findby> + </existinginterface> + </connectinterface> +</connections> + +</componentassembly> diff --git a/CIAO/performance-tests/Benchmark/descriptors/test-multi-process.dat b/CIAO/performance-tests/Benchmark/descriptors/test-multi-process.dat new file mode 100644 index 00000000000..014fb02c9bc --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/test-multi-process.dat @@ -0,0 +1,5 @@ +Default corbaloc:iiop:localhost:10000/ServerActivator +Remote1 corbaloc:iiop:localhost:12000/ServerActivator +Remote2 corbaloc:iiop:localhost:13000/ServerActivator +Remote3 corbaloc:iiop:localhost:14000/ServerActivator +Remote4 corbaloc:iiop:localhost:15000/ServerActivator diff --git a/CIAO/performance-tests/Benchmark/descriptors/test.dat b/CIAO/performance-tests/Benchmark/descriptors/test.dat new file mode 100644 index 00000000000..d355abc779a --- /dev/null +++ b/CIAO/performance-tests/Benchmark/descriptors/test.dat @@ -0,0 +1,2 @@ +Default corbaloc:iiop:localhost:10000/ServerActivator +Remote corbaloc:iiop:localhost:12000/ServerActivator diff --git a/CIAO/performance-tests/Benchmark/server.cpp b/CIAO/performance-tests/Benchmark/server.cpp new file mode 100644 index 00000000000..4c3a0cc4870 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/server.cpp @@ -0,0 +1,89 @@ +// $Id$ + +#include "LatencyTest.h" + +#include "ace/Sched_Params.h" +#include "ace/OS_NS_errno.h" + +#include "tao/Strategies/advanced_resource.h" + +const char *ior_output_file = "test.ior"; + +int +main (int argc, char *argv[]) +{ + int priority = + (ACE_Sched_Params::priority_min (ACE_SCHED_FIFO) + + ACE_Sched_Params::priority_max (ACE_SCHED_FIFO)) / 2; + priority = ACE_Sched_Params::next_priority (ACE_SCHED_FIFO, + priority); + // Enable FIFO scheduling, e.g., RT scheduling class on Solaris. + + if (ACE_OS::sched_params (ACE_Sched_Params (ACE_SCHED_FIFO, + priority, + ACE_SCOPE_PROCESS)) != 0) + { + if (ACE_OS::last_error () == EPERM) + { + ACE_DEBUG ((LM_DEBUG, + "server (%P|%t): user is not superuser, " + "test runs in time-shared class\n")); + } + else + ACE_ERROR ((LM_ERROR, + "server (%P|%t): sched_params failed\n")); + } + + try + { + CORBA::ORB_var orb = + CORBA::ORB_init (argc, argv); + + CORBA::Object_var poa_object = + orb->resolve_initial_references("RootPOA"); + + if (CORBA::is_nil (poa_object.in ())) + ACE_ERROR_RETURN ((LM_ERROR, + " (%P|%t) Unable to initialize the POA.\n"), + 1); + + PortableServer::POA_var root_poa = + PortableServer::POA::_narrow (poa_object.in ()); + + PortableServer::POAManager_var poa_manager = + root_poa->the_POAManager (); + + LatencyTest *roundtrip_impl; + ACE_NEW_RETURN (roundtrip_impl, + LatencyTest (orb.in ()), + 1); + PortableServer::ServantBase_var owner_transfer(roundtrip_impl); + + //Get the RoundTrip reference + Benchmark::LatencyTest_var roundtrip = + roundtrip_impl->_this (); + + CORBA::String_var ior = + orb->object_to_string (roundtrip.in ()); + + // If the ior_output_file exists, output the ior to it + ACE_DEBUG ((LM_DEBUG, "%s", ior.in ())); + + poa_manager->activate (); + + orb->run (); + + ACE_DEBUG ((LM_DEBUG, "(%P|%t) server - event loop finished\n")); + + root_poa->destroy (1, 1); + + orb->destroy (); + } + catch (const CORBA::Exception& ex) + { + ex._tao_print_exception ("Exception caught:"); + return 1; + } + + return 0; +} diff --git a/CIAO/performance-tests/Benchmark/svc.conf b/CIAO/performance-tests/Benchmark/svc.conf new file mode 100644 index 00000000000..7b8129f5667 --- /dev/null +++ b/CIAO/performance-tests/Benchmark/svc.conf @@ -0,0 +1,6 @@ +# +# $Id$ +# +static Advanced_Resource_Factory "-ORBReactorMaskSignals 0 -ORBInputCDRAllocator null -ORBReactorType select_st -ORBConnectionCacheLock null" +static Server_Strategy_Factory "-ORBPOALock null -ORBAllowReactivationOfSystemids 0" +static Client_Strategy_Factory "-ORBTransportMuxStrategy EXCLUSIVE -ORBProfileLock null -ORBClientConnectionHandler RW" |