2 #include "ace/Get_Opt.h"
3 #include "ace/OS_NS_stdio.h"
5 const ACE_TCHAR
*ior_output_file
= ACE_TEXT("test.ior");
8 parse_args (int argc
, ACE_TCHAR
*argv
[])
10 ACE_Get_Opt
get_opts (argc
, argv
, ACE_TEXT("o:"));
13 while ((c
= get_opts ()) != -1)
17 ior_output_file
= get_opts
.optarg
;
22 ACE_ERROR_RETURN ((LM_ERROR
,
29 // Indicates successful parsing of the command line
34 ACE_TMAIN(int argc
, ACE_TCHAR
*argv
[])
39 CORBA::ORB_init (argc
, argv
);
41 CORBA::Object_var poa_object
=
42 orb
->resolve_initial_references("RootPOA");
44 PortableServer::POA_var root_poa
=
45 PortableServer::POA::_narrow (poa_object
.in ());
47 if (CORBA::is_nil (root_poa
.in ()))
48 ACE_ERROR_RETURN ((LM_ERROR
,
49 " (%P|%t) Panic: nil RootPOA\n"),
52 PortableServer::POAManager_var poa_manager
=
53 root_poa
->the_POAManager ();
55 if (parse_args (argc
, argv
) != 0)
59 ACE_NEW_RETURN (test_impl
,
60 Test_impl (orb
.in ()),
63 PortableServer::ServantBase_var
owner_transfer(test_impl
);
65 PortableServer::ObjectId_var id
=
66 root_poa
->activate_object (test_impl
);
68 CORBA::Object_var object
= root_poa
->id_to_reference (id
.in ());
70 OBV_AnyTest::Test_var test
=
71 OBV_AnyTest::Test::_narrow (object
.in ());
73 CORBA::String_var ior
=
74 orb
->object_to_string (test
.in ());
76 // If the ior_output_file exists, output the ior to it
77 FILE *output_file
= ACE_OS::fopen (ior_output_file
, "w");
79 ACE_ERROR_RETURN ((LM_ERROR
,
80 "Cannot open output file for writing IOR: %s.",
83 ACE_OS::fprintf (output_file
, "%s", ior
.in ());
84 ACE_OS::fclose (output_file
);
86 poa_manager
->activate ();
88 ACE_DEBUG ((LM_DEBUG
, "(%P|%t) server - event loop started.\n"));
92 ACE_DEBUG ((LM_DEBUG
, "(%P|%t) server - event loop finished.\n"));
94 root_poa
->destroy (true, true);
98 catch (const CORBA::Exception
& ex
)
100 ex
._tao_print_exception ("Exception caught in server:");