1 #include "BlobServer.h"
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
.opt_arg ();
22 ACE_ERROR_RETURN ((LM_ERROR
,
29 // Indicates successful parsing of the command line
33 int ACE_TMAIN (int argc
, ACE_TCHAR
*argv
[])
38 CORBA::ORB_init (argc
, argv
);
40 CORBA::Object_var poa_object
=
41 orb
->resolve_initial_references("RootPOA");
43 PortableServer::POA_var root_poa
=
44 PortableServer::POA::_narrow (poa_object
.in ());
46 if (CORBA::is_nil (root_poa
.in ()))
47 ACE_ERROR_RETURN ((LM_ERROR
,
48 " (%P|%t) Panic: nil RootPOA\n"),
51 PortableServer::POAManager_var poa_manager
=
52 root_poa
->the_POAManager ();
54 if (parse_args (argc
, argv
) != 0)
57 BlobServerImpl
*blob_impl
;
58 ACE_NEW_RETURN (blob_impl
,
59 BlobServerImpl (orb
.in ()),
61 PortableServer::ServantBase_var
owner_transfer(blob_impl
);
63 PortableServer::ObjectId_var id
=
64 root_poa
->activate_object (blob_impl
);
66 CORBA::Object_var object
= root_poa
->id_to_reference (id
.in ());
69 BlobServer::_narrow (object
.in ());
71 CORBA::String_var ior
=
72 orb
->object_to_string (blob
.in ());
74 // Output the IOR to the <ior_output_file>
75 FILE *output_file
= ACE_OS::fopen (ior_output_file
, "w");
77 ACE_ERROR_RETURN ((LM_ERROR
,
78 "Cannot open output file for writing IOR: %s",
81 ACE_OS::fprintf (output_file
, "%s", ior
.in ());
82 ACE_OS::fclose (output_file
);
84 poa_manager
->activate ();
88 ACE_DEBUG ((LM_DEBUG
, "(%P|%t) server - event loop finished\n"));
90 root_poa
->destroy (1, 1);
94 catch (const CORBA::Exception
& ex
)
96 ex
._tao_print_exception ("Exception caught:");