int
LB_server::register_servant (Basic *servant, const char *loc)
{
try
{
Test::Basic_var basic =
servant->_this ();
PortableGroup::Location location (1);
location.length (1);
location[0].id = CORBA::string_dup (loc);
this->lm_->add_member (this->object_group_.in (),
location,
basic.in ());
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception ("Exception raised while registering servant");
return -1;
}
return 1;
}
int
ACE_TMAIN(int argc, ACE_TCHAR *argv[])
{
try
{
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv);
if (parse_args (argc, argv) != 0)
return 1;
CORBA::Object_var tmp =
orb->string_to_object (ior);
Test::Basic_var basic =
Test::Basic::_narrow (tmp.in ());
if (CORBA::is_nil (basic.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
"Nil Test::Basic reference <%s>\n",
ior),
1);
}
for (int i = 0; i < 5; i++)
{
CORBA::String_var the_string =
basic->get_string ();
ACE_DEBUG ((LM_DEBUG, "(%P|%t) - Client request handled by object at <%s>\n",
the_string.in ()));
}
basic->remove_member ();
basic->shutdown ();
orb->destroy ();
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception ("Exception caught in client.cpp:");
return 1;
}
return 0;
}
int
ACE_TMAIN(int argc, ACE_TCHAR *argv[])
{
try
{
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv);
if (parse_args (argc, argv) != 0)
return 1;
ACE_DEBUG ((LM_DEBUG,
ACE_TEXT ("(%P|%t) - Acquiring Name Service\n")));
CORBA::Object_var nmobj = orb->resolve_initial_references ("NameManager");
FT_Naming::NamingManager_var naming_manager =
FT_Naming::NamingManager::_narrow (nmobj.in());
TAO_Naming_Client name_svc;
try {
ACE_Time_Value timeout (10); // Wait up to 10 seconds for the naming service
if (name_svc.init (orb.in (), &timeout) != 0)
ACE_ERROR_RETURN ((LM_DEBUG,
ACE_TEXT ("client: Could not connect to ")
ACE_TEXT ("naming service.\n")),
1);
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception (
ACE_TEXT ("Exception caught while initializing name ")
ACE_TEXT ("service facade:"));
return 1;
}
Hammer hammer;
if (hammer.setup(orb.in(), naming_manager.in()) == -1)
{
return 1;
}
CosNaming::Name name (1);
name.length (1);
name[0].id = CORBA::string_dup ("basic_name");
CORBA::Object_var tmp;
Test::Basic_var basic;
// Iterate enough so we get a few wrap-arounds
for (int i = 0; i < 15; i++)
{
if (i == 3) {
hammer.activate (THR_NEW_LWP | THR_JOINABLE, hammers);
}
try {
// Each time we invoke resolve, we get a different member
tmp =
name_svc->resolve (name);
// Narrow it to a Basic object
basic =
Test::Basic::_narrow (tmp.in ());
}
catch (CORBA::Exception& ex)
{
ex._tao_print_exception (ACE_TEXT ("Error resolving name.\n"));
}
if (CORBA::is_nil (basic.in ()))
{
ACE_ERROR_RETURN ((LM_DEBUG,
ACE_TEXT ("Server obj ref not obtained ")
ACE_TEXT ("from Load Balancing Name Service\n"),
ior),
1);
}
try {
CORBA::String_var the_string =
basic->get_string ();
ACE_DEBUG ((LM_DEBUG,
ACE_TEXT ("(%P|%t) - Client request handled ")
ACE_TEXT ("by object at <%C>\n"),
the_string.in ()));
}
catch (CORBA::Exception& ex)
{
ex._tao_print_exception (
ACE_TEXT ("Error invoking get_string on Basic object.\n"));
return 1;
}
// Remove one member after we wrapped around to make sure naming manager can
// handle it successufully
if (i == 7)
{
try {
// Try removing a member
basic->remove_member ();
}
catch (CORBA::Exception& ex)
{
ex._tao_print_exception (
ACE_TEXT ("Error invoking get_string on Basic object.\n"));
return 1;
}
}
}
hammer.wait ();
try {
basic->shutdown ();
ACE_DEBUG ((LM_DEBUG,
ACE_TEXT ("(%P|%t) - Shutting down server\n")));
}
catch (CORBA::Exception& ex)
{
ex._tao_print_exception (
ACE_TEXT ("Error invoking get_string on Basic object.\n"));
return 1;
}
orb->destroy ();
}
catch (const CORBA::Exception& ex)
{
ex._tao_print_exception (
ACE_TEXT ("Exception caught in client.cpp:"));
return 1;
}
return 0;
}