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
|
// $Id$
#include "server_impl.h"
#include "ace/Get_Opt.h"
Server_Impl::Server_Impl (void)
: ior_output_file_ (0)
{
}
int
Server_Impl::parse_args (void)
{
ACE_Get_Opt get_opts (this->argc_, this->argv_, "do:f:");
int c;
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.optarg, "w");
if (this->ior_output_file_ == 0)
ACE_ERROR_RETURN ((LM_ERROR,
"Unable to open %s for writing: %p\n",
get_opts.optarg), -1);
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
Server_Impl::init (int argc, char** argv, CORBA::Environment& env)
{
// Call the init of <TAO_ORB_Manager> to initialize the ORB and
// create a child POA under the root POA.
if (this->orb_manager_.init_child_poa (argc, argv, "child_poa", env) == -1)
ACE_ERROR_RETURN ((LM_ERROR, "%p\n", "init_child_poa"), -1);
TAO_CHECK_ENV_RETURN (env, -1);
this->argc_ = argc;
this->argv_ = argv;
int retval = this->parse_args ();
if (retval != 0)
return retval;
CORBA::String_var str =
this->orb_manager_.activate_under_child_poa ("server",
&this->server_impl,
env);
ACE_DEBUG ((LM_DEBUG, "The IOR is: <%s>\n", str.in ()));
if (this->ior_output_file_)
{
ACE_OS::fprintf (this->ior_output_file_, "%s", str.in ());
ACE_OS::fclose (this->ior_output_file_);
}
return 0;
}
int
Server_Impl::run (CORBA::Environment& env)
{
if (this->orb_manager_.run (env) == -1)
ACE_ERROR_RETURN ((LM_ERROR, "Server_Impl::run"), -1);
return 0;
}
Server_Impl::~Server_Impl (void)
{
}
|