1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
//
// $Id$
//
#include "Client_Task.h"
#include "TestC.h"
#include "ace/Stats.h"
#include "ace/Sample_History.h"
#include "ace/High_Res_Timer.h"
#include "ace/SString.h"
Client_Task::Client_Task (const char *ior,
int iterations,
CORBA::ORB_ptr corb,
ACE_Thread_Manager *thr_mgr)
: ACE_Task_Base (thr_mgr),
input_ (ior),
niterations (iterations),
corb_ (CORBA::ORB::_duplicate (corb))
{
}
int
Client_Task::svc (void)
{
ACE_TRY_NEW_ENV
{
ACE_TString ior ("file://");
ior += input_;
CORBA::Object_var tmp =
this->corb_->string_to_object (ior.c_str()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
Test::Roundtrip_var rt =
Test::Roundtrip::_narrow(tmp.in () ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (CORBA::is_nil (rt.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil Test::Roundtrip reference <%s>\n",
ior.c_str()) ,1);
}
//// Start Test ///////////////////////////////
CORBA::Long test_time = 1234L;
//Warm up the system
for (int i=0; i < 1000; i++)
rt->test_method (test_time);
/// Start for actual Measurements
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 ();
(void) rt->test_method (start ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
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_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 ());
//shutdown the server ORB
rt->shutdown (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
"Exception caught:");
return 1;
}
ACE_ENDTRY;
return 0;
}
|
