TAO/orbsvcs/tests/FT_Naming/Federation/client.cpp

   1 #include "TestC.h"
   2 #include "orbsvcs/CosNamingC.h"
   3 #include "ace/Get_Opt.h"
   4
   5
   6 int
   7 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
   8 {
   9   try
  10     {
  11       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
  12
  13       CORBA::Object_var tmp =
  14         orb->string_to_object ("corbaloc:iiop:1.2@localhost:9931/NameService");
  15
  16       CosNaming::NamingContext_var root =
  17         CosNaming::NamingContext::_narrow (tmp.in ());
  18
  19       if (CORBA::is_nil (root.in ()))
  20         {
  21           ACE_ERROR_RETURN ((LM_DEBUG,
  22                              ACE_TEXT ("Nil NamingService reference\n")),
  23                              1);
  24         }
  25
  26       ACE_DEBUG ((LM_INFO,
  27                   ACE_TEXT ("**** Narrowed root NamingContext\n")));
  28
  29       CosNaming::Name name;
  30       name.length(3);
  31       name[0].id = CORBA::string_dup ("nsB");
  32       name[1].id = CORBA::string_dup ("example");
  33       name[2].id = CORBA::string_dup ("Hello");
  34
  35       try
  36         {
  37           tmp = root->resolve (name);
  38           ACE_DEBUG ((LM_INFO,
  39                       ACE_TEXT ("**** Resolved #nsB/example/Hello\n")));
  40
  41           Test::Hello_var hello =
  42             Test::Hello::_narrow (tmp.in ());
  43
  44           if (CORBA::is_nil (hello.in ()))
  45             {
  46               ACE_ERROR_RETURN ((LM_DEBUG,
  47                                  ACE_TEXT ("Nil Test::Hello reference\n")),
  48                                  1);
  49             }
  50
  51           CORBA::String_var the_string = hello->get_string ();
  52
  53           ACE_DEBUG ((LM_DEBUG,
  54                       ACE_TEXT ("(%P|%t) - string returned <%C>\n"),
  55                       the_string.in ()));
  56
  57           hello->shutdown ();
  58         }
  59       catch (const CosNaming::NamingContext::CannotProceed&)
  60         {
  61           ACE_DEBUG ((LM_DEBUG,
  62                       ACE_TEXT ("Caught correct exception\n")));
  63         }
  64
  65       orb->shutdown ();
  66       orb->destroy ();
  67     }
  68   catch (const CORBA::Exception& ex)
  69     {
  70       ex._tao_print_exception (ACE_TEXT ("Exception caught:"));
  71       return 1;
  72     }
  73
  74   return 0;
  75 }