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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
// $Id$
#ifndef ACE_BUILD_SVC_DLL
# define ACE_BUILD_SVC_DLL
#endif
#ifndef Alt_Resource_Factory_BUILD_DLL
# define Alt_Resource_Factory_BUILD_DLL
#endif
#include "Time_Date_i.h"
#include "Time_Date.h"
#include "tao/TAO_Singleton_Manager.h"
#include "tao/debug.h"
#include "ace/Reactor.h"
#include "ace/Get_Opt.h"
#include "ace/Dynamic_Service.h"
ACE_Reactor *
My_Resource_Factory::get_reactor (void)
{
#if defined (ACE_HAS_THREADS)
// Use whatever the default is if we've got threads.
return TAO_Default_Resource_Factory::get_reactor ();
#else
// Just use the Singleton Reactor.
return ACE_Reactor::instance ();
#endif /* ACE_HAS_THREADS */
}
ACE_FACTORY_DEFINE (Alt_Resource_Factory, My_Resource_Factory)
int
DLL_ORB::svc (void)
{
ACE_DEBUG ((LM_DEBUG,
"\n\trunning ORB event loop (%t)\n\n"));
ACE_TRY_NEW_ENV
{
// Run the ORB event loop in its own thread.
this->orb_->run (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
}
ACE_CATCH (CORBA::SystemException, sysex)
{
ACE_PRINT_EXCEPTION (sysex, "System Exception");
return -1;
}
ACE_CATCH (CORBA::UserException, userex)
{
ACE_PRINT_EXCEPTION (userex, "User Exception");
return -1;
}
ACE_ENDTRY;
return 0;
}
int
DLL_ORB::init (int argc, char *argv[])
{
// Prevent TAO from registering with the ACE_Object_Manager so
// that it can be dynamically unloaded successfully.
int register_with_object_manager = 0;
if (TAO_Singleton_Manager::instance ()->init (register_with_object_manager) == -1)
{
// ACE_ERROR_RETURN ((LM_ERROR,
// "%p\n",
// "Unable to pre-initialize ORB"),
// -1);
}
ACE_TRY_NEW_ENV
{
ACE_DEBUG ((LM_DEBUG,
"\n\tInitialize ORB (%t)\n\n"));
// Initialize the ORB.
// Initialize the ORB.
this->orb_ = CORBA::ORB_init (argc,
argv,
"An ORB"
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (CORBA::is_nil (this->orb_.in ()))
return -1;
CORBA::Object_var poa_object =
this->orb_->resolve_initial_references ("RootPOA"
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (CORBA::is_nil (poa_object.in ()))
ACE_ERROR_RETURN ((LM_ERROR,
" (%P|%t) Unable to initialize the POA.\n"),
1);
this->poa_ =
PortableServer::POA::_narrow (poa_object.in ()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
this->poa_manager_ =
this->poa_->the_POAManager (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
this->poa_manager_->activate (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
#if defined (ACE_HAS_THREADS)
// Become an Active Object so that the ORB
// will execute in a separate thread.
return this->activate ();
#else
return 0;
#endif /* ACE_HAS_THREADS */
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "DLL_ORB::init");
}
ACE_ENDTRY;
return -1;
}
int
DLL_ORB::fini (void)
{
return TAO_Singleton_Manager::instance ()->fini ();
// return 0;
}
int
Time_Date_Servant::parse_args (int argc, char *argv[])
{
ACE_Get_Opt get_opts (argc, argv, "dn:o:");
int c = 0;
this->orb_ = "ORB";
while ((c = get_opts ()) != -1)
switch (c)
{
case 'd': // debug flag.
TAO_debug_level++;
break;
case 'o': // output the IOR to a file.
this->ior_output_file_ = ACE_OS::fopen (get_opts.opt_arg (), "w");
if (this->ior_output_file_ == 0)
ACE_ERROR_RETURN ((LM_ERROR,
"Unable to open %s for writing: %p\n",
get_opts.opt_arg ()), -1);
break;
// Find the ORB in the Service Repository.
case 'n':
this->orb_ = get_opts.opt_arg ();
break;
case '?': // display help for use of the server.
default:
ACE_ERROR_RETURN ((LM_ERROR,
"usage: %s"
" [-d]"
" [-o] <ior_output_file>"
"\n",
argv [0]),
-1);
}
// Indicates successful parsing of command line.
return 0;
}
int
Time_Date_Servant::init (int argc, char *argv[])
{
ACE_TRY_NEW_ENV
{
ACE_DEBUG ((LM_DEBUG,
"\n\tTime_Date servant\n\n"));
this->parse_args (argc, argv);
DLL_ORB *orb =
ACE_Dynamic_Service<DLL_ORB>::instance (this->orb_);
if (orb == 0)
ACE_ERROR_RETURN ((LM_ERROR,
"can't find %s in the Service Repository\n",
this->orb_),
-1);
Time_Date_i * servant = new Time_Date_i;
PortableServer::ServantBase_var safe_servant = servant;
CORBA::Object_var obj =
servant->_this (ACE_ENV_SINGLE_ARG_PARAMETER);
ACE_TRY_CHECK;
CORBA::String_var str =
orb->orb_->object_to_string (obj.in ()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
if (this->ior_output_file_)
{
ACE_OS::fprintf (this->ior_output_file_,
"%s",
str.in ());
ACE_OS::fclose (this->ior_output_file_);
}
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "DLL_ORB::init");
return -1;
}
ACE_ENDTRY;
return 0;
}
// The following Factory is used by the <ACE_Service_Config> and
// dll_orb.conf file to dynamically initialize the state of the
// Time_Date service.
ACE_SVC_FACTORY_DEFINE (DLL_ORB)
ACE_SVC_FACTORY_DEFINE (Time_Date_Servant)
|
