Merge pull request #1844 from jrw972/monterey
[ACE_TAO.git] / TAO / tests / Ondemand_Write / client.cpp
bloba32cac6d47899e3c0d34327f9c977d6f6abb3c10
1 #include "TestC.h"
2 #include "ace/Get_Opt.h"
4 const ACE_TCHAR *ior = ACE_TEXT("file://test.ior");
6 int
7 parse_args (int argc, ACE_TCHAR *argv[])
9 ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:"));
10 int c;
12 while ((c = get_opts ()) != -1)
13 switch (c)
15 case 'k':
16 ior = get_opts.opt_arg ();
17 break;
19 case '?':
20 default:
21 ACE_ERROR_RETURN ((LM_ERROR,
22 "usage: %s "
23 "-k <ior> "
24 "\n",
25 argv [0]),
26 -1);
28 // Indicates successful parsing of the command line
29 return 0;
32 int
33 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
35 try
37 CORBA::ORB_var orb =
38 CORBA::ORB_init (argc, argv);
40 if (parse_args (argc, argv) != 0)
41 return 1;
43 CORBA::Object_var tmp =
44 orb->string_to_object(ior);
46 Test::Hello_var hello =
47 Test::Hello::_narrow(tmp.in ());
49 if (CORBA::is_nil (hello.in ()))
51 ACE_ERROR_RETURN ((LM_DEBUG,
52 "Nil Test::Hello reference <%s>\n",
53 ior),
54 1);
57 CORBA::String_var test_string = CORBA::string_dup ("661234567890123456789012345678901234567890");
58 CORBA::String_var the_string =
59 hello->get_string (5, test_string.in (), 6, test_string.in ());
61 ACE_DEBUG ((LM_DEBUG, "(%P|%t) - string returned <%C>\n",
62 the_string.in ()));
64 hello->shutdown ();
66 orb->destroy ();
68 catch (const CORBA::Exception& ex)
70 ex._tao_print_exception ("Exception caught:");
71 return 1;
74 return 0;