TAO/performance-tests/Latency/DII/client.cpp

   1 #include "tao/DynamicInterface/Request.h"
   2 #include "tao/Strategies/advanced_resource.h"
   3 #include "tao/AnyTypeCode/TypeCode_Constants.h"
   4 #include "tao/AnyTypeCode/Any.h"
   5
   6 #include "ace/Get_Opt.h"
   7 #include "ace/High_Res_Timer.h"
   8 #include "ace/Sched_Params.h"
   9 #include "ace/Stats.h"
  10 #include "ace/Throughput_Stats.h"
  11 #include "ace/Sample_History.h"
  12 #include "ace/OS_NS_errno.h"
  13
  14 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
  15 int niterations = 100;
  16 int do_dump_history = 0;
  17 int do_shutdown = 1;
  18
  19 int
  20 parse_args (int argc, ACE_TCHAR *argv[])
  21 {
  22   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("hxk:i:"));
  23   int c;
  24
  25   while ((c = get_opts ()) != -1)
  26     switch (c)
  27       {
  28       case 'h':
  29         do_dump_history = 1;
  30         break;
  31
  32       case 'x':
  33         do_shutdown = 0;
  34         break;
  35
  36       case 'k':
  37         ior = get_opts.opt_arg ();
  38         break;
  39
  40       case 'i':
  41         niterations = ACE_OS::atoi (get_opts.opt_arg ());
  42         break;
  43
  44       case '?':
  45       default:
  46         ACE_ERROR_RETURN ((LM_ERROR,
  47                            "usage:  %s "
  48                            "-k <ior> "
  49                            "-i <niterations> "
  50                            "-x (disable shutdown) "
  51                            "\n",
  52                            argv [0]),
  53                           -1);
  54       }
  55   // Indicates successful parsing of the command line
  56   return 0;
  57 }
  58
  59 int
  60 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  61 {
  62   int priority =
  63     (ACE_Sched_Params::priority_min (ACE_SCHED_FIFO)
  64      + ACE_Sched_Params::priority_max (ACE_SCHED_FIFO)) / 2;
  65   // Enable FIFO scheduling, e.g., RT scheduling class on Solaris.
  66
  67   if (ACE_OS::sched_params (ACE_Sched_Params (ACE_SCHED_FIFO,
  68                                               priority,
  69                                               ACE_SCOPE_PROCESS)) != 0)
  70     {
  71       if (ACE_OS::last_error () == EPERM)
  72         {
  73           ACE_DEBUG ((LM_DEBUG,
  74                       "client (%P|%t): user is not superuser, "
  75                       "test runs in time-shared class\n"));
  76         }
  77       else
  78         ACE_ERROR ((LM_ERROR,
  79                     "client (%P|%t): sched_params failed\n"));
  80     }
  81
  82   try
  83     {
  84       CORBA::ORB_var orb =
  85         CORBA::ORB_init (argc, argv);
  86
  87       if (parse_args (argc, argv) != 0)
  88         return 1;
  89
  90       CORBA::Object_var object =
  91         orb->string_to_object (ior);
  92
  93       if (CORBA::is_nil (object.in ()))
  94         {
  95           ACE_ERROR_RETURN ((LM_ERROR,
  96                              "Nil CORBA::Object reference <%s>\n",
  97                              ior),
  98                             1);
  99         }
 100
 101       for (int j = 0; j < 100; ++j)
 102         {
 103           CORBA::Request_var request =
 104             object->_request ("test_method");
 105
 106           CORBA::ULongLong dummy = 0;
 107           request->add_in_arg("send_time") <<= dummy;
 108
 109           request->set_return_type (CORBA::_tc_ulonglong);
 110           request->invoke ();
 111         }
 112
 113       ACE_Sample_History history (niterations);
 114
 115       ACE_hrtime_t test_start = ACE_OS::gethrtime ();
 116       for (int i = 0; i < niterations; ++i)
 117         {
 118           ACE_hrtime_t start = ACE_OS::gethrtime ();
 119
 120           CORBA::Request_var request =
 121             object->_request ("test_method");
 122
 123           CORBA::ULongLong start_time = static_cast <CORBA::ULongLong> (start);
 124           request->add_in_arg("send_time") <<= start_time;
 125
 126           request->set_return_type (CORBA::_tc_ulonglong);
 127           request->invoke ();
 128
 129           ACE_hrtime_t now = ACE_OS::gethrtime ();
 130           history.sample (now - start);
 131         }
 132
 133       ACE_hrtime_t test_end = ACE_OS::gethrtime ();
 134
 135       ACE_DEBUG ((LM_DEBUG, "test finished\n"));
 136
 137       ACE_DEBUG ((LM_DEBUG, "High resolution timer calibration...."));
 138       ACE_High_Res_Timer::global_scale_factor_type gsf =
 139         ACE_High_Res_Timer::global_scale_factor ();
 140       ACE_DEBUG ((LM_DEBUG, "done\n"));
 141
 142       if (do_dump_history)
 143         {
 144           history.dump_samples (ACE_TEXT("HISTORY"), gsf);
 145         }
 146
 147       ACE_Basic_Stats stats;
 148       history.collect_basic_stats (stats);
 149       stats.dump_results (ACE_TEXT("Total"), gsf);
 150
 151       ACE_Throughput_Stats::dump_throughput (ACE_TEXT("Total"), gsf,
 152                                              test_end - test_start,
 153                                              stats.samples_count ());
 154
 155       if (do_shutdown)
 156         {
 157           CORBA::Request_var request =
 158             object->_request ("shutdown");
 159
 160           request->invoke ();
 161
 162         }
 163     }
 164   catch (const CORBA::Exception& ex)
 165     {
 166       ex._tao_print_exception ("Exception caught:");
 167       return 1;
 168     }
 169
 170   return 0;
 171 }