TAO/orbsvcs/tests/ImplRepo/NameService/test.cpp

   1 #include "orbsvcs/CosNamingC.h"
   2 #include "ace/Log_Msg.h"
   3
   4 int ACE_TMAIN (int argc, ACE_TCHAR *argv[])
   5 {
   6   try
   7     {
   8       CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
   9
  10       CORBA::Object_var ns_obj =
  11         orb->resolve_initial_references ("NameService");
  12
  13       if (CORBA::is_nil (ns_obj.in ()))
  14         ACE_ERROR_RETURN ((LM_ERROR,
  15                            "Could not resolve Naming Service"),
  16                           1);
  17
  18       CosNaming::NamingContext_var inc =
  19         CosNaming::NamingContext::_narrow (ns_obj.in ());
  20
  21       if (CORBA::is_nil (inc.in ()))
  22         ACE_ERROR_RETURN ((LM_ERROR,
  23                            "Could not resolve Naming Service"),
  24                           1);
  25
  26       CosNaming::Name name;
  27       name.length (1);
  28       name[0].id = CORBA::string_dup ("yourself");
  29
  30       inc->bind (name, ns_obj.in ());
  31
  32       ACE_DEBUG ((LM_DEBUG, "Test Successful\n"));
  33
  34       orb->destroy ();
  35     }
  36   catch (const CORBA::Exception& ex)
  37     {
  38       ex._tao_print_exception ("Test");
  39       return 1;
  40     }
  41
  42   return 0;
  43 }