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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
// $Id$
#include "Deployment_CoreC.h"
#include "Client_init.h"
#include "NodeAppTest_RoundTripC.h"
#include "ace/Get_Opt.h"
const char *ior = "file://test.ior";
int
parse_args (int argc, char *argv[])
{
ACE_Get_Opt get_opts (argc, argv, "k:");
int c;
while ((c = get_opts ()) != -1)
switch (c)
{
case 'k':
ior = get_opts.opt_arg ();
break;
case '?':
default:
ACE_ERROR_RETURN ((LM_ERROR,
"usage: %s \n"
"-k <ComponentServer ior> \n"
"\n",
argv [0]),
-1);
}
// Indicates sucessful parsing of the command line
return 0;
}
int
main (int argc, char *argv[])
{
ACE_TRY_NEW_ENV
{
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv, "" ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (parse_args (argc, argv) != 0)
return 1;
CIAO::Client_init (orb.in ());
CORBA::Object_var tmp =
orb->string_to_object(ior ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
Deployment::NodeApplication_var comserv =
Deployment::NodeApplication::_narrow(tmp.in ()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (CORBA::is_nil (comserv.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil ServerActivator reference <%s>\n",
ior),
1);
}
ACE_DEBUG ((LM_DEBUG, "Try installing Home\n"));
Deployment::ImplementationInfo info;
// Add the names and entry points of each of the DLLs
info.component_instance_name = "NodeAppTest_RoundTrip";
info.executor_dll = "NodeAppTest_RoundTrip_exec";
info.executor_entrypt = "createRoundTripHome_Impl";
info.servant_dll = "NodeAppTest_RoundTrip_svnt";
info.servant_entrypt = "createNodeAppTest_RoundTripHome_Servant";
// Install the NodeApplication Test component
::Components::CCMHome_var home = comserv->install_home (info);
ACE_TRY_CHECK;
// Narrow the Home to the appropriate component
NodeAppTest::NodeAppTest_RoundTripHome_var home_var =
NodeAppTest::NodeAppTest_RoundTripHome::_narrow (home.in ());
ACE_TRY_CHECK;
if (CORBA::is_nil (home_var.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil RoundTripHome reference\n"),
1);
}
// Get Component from Home
ACE_DEBUG ((LM_DEBUG, "Try obtaining RoundTrip ref from Home\n"));
NodeAppTest::NodeAppTest_RoundTrip_var roundtrip_var =
home_var->create (ACE_ENV_SINGLE_ARG_PARAMETER);
if (CORBA::is_nil (roundtrip_var.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil RoundTrip reference\n"),
1);
}
ACE_TRY_CHECK;
// Invoke Operation on the Interface
ACE_DEBUG ((LM_DEBUG, "Try cube_long operation on the Interface \n"));
CORBA::Long input = 1L;
CORBA::Long output =
roundtrip_var->cube_long (input ACE_ENV_ARG_PARAMETER);
if (input == output)
ACE_DEBUG ((LM_DEBUG, "Retrun values matched!!\n"));
else
{
ACE_DEBUG ((LM_DEBUG, "Return values did not match: failure\n"));
exit (1);
}
ACE_DEBUG ((LM_DEBUG, "Try removing home\n"));
comserv->remove_home (info.component_instance_name);
ACE_DEBUG ((LM_DEBUG, "Home removed successfully\n"));
orb->destroy (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
ACE_DEBUG ((LM_DEBUG, "Test success!!\n"));
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
"Exception caught:");
return 1;
}
ACE_ENDTRY;
return 0;
}
|
