1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
// $Id$
#include "orbsvcs/CosNamingC.h"
#include "INSC.h"
int
main (int argc, char *argv[])
{
int i = 0;
ACE_DECLARE_NEW_CORBA_ENV;
ACE_TRY
{
// Retrieve a reference to the ORB.
CORBA::ORB_var orb = CORBA::ORB_init (argc,
argv,
0,
ACE_TRY_ENV);
ACE_TRY_CHECK;
if (argc < 2)
{
ACE_DEBUG ((LM_DEBUG,
"No Name specified to be resolved\n"));
return -1;
}
CORBA::Object_var objref;
for (i = 1; i < argc; ++i)
{
if (ACE_OS::strcmp (argv[i], "-l") == 0)
{
// List initial services
CORBA::ORB::ObjectIdList_var list =
orb->list_initial_services (ACE_TRY_ENV);
ACE_TRY_CHECK;
size_t length = list->length ();
if (length > 0)
{
ACE_DEBUG ((LM_INFO,
"Listing initial references...\n"));
for (size_t n = 0; n < length; ++n)
{
ACE_DEBUG ((LM_DEBUG,
" Reference %u: %s\n",
n,
list[n].in ()));
}
}
else
{
// We should at least get TAO's initial references,
// such as "RootPOA", "NameService", etc.
ACE_ERROR_RETURN ((LM_ERROR,
"\n"
"No initial references. "
"This condition shouldn't happen.\n"),
-1);
}
}
else
{
objref = orb->resolve_initial_references (argv[i], ACE_TRY_ENV);
ACE_TRY_CHECK;
if (CORBA::is_nil (objref.in ()))
ACE_ERROR_RETURN ((LM_ERROR,
" (%P|%t) Unable to resolve the "
"given name.\n"),
-1);
if (ACE_OS::strcmp (argv[i], "NameService") == 0)
{
CosNaming::NamingContext_var naming_context =
CosNaming::NamingContext::_narrow (objref.in (),
ACE_TRY_ENV);
ACE_TRY_CHECK;
ACE_DEBUG ((LM_DEBUG,
"Resolved IOR for %s : %s\n",
argv[i],
orb->object_to_string (naming_context.in ())));
// Sanity check to see if the reference to Naming
// Context is alright.
CosNaming::Name my_name;
my_name.length (1);
my_name[0].id = CORBA::string_dup ("ObjName");
naming_context->bind (my_name,
objref.in (),
ACE_TRY_ENV);
ACE_TRY_CHECK;
ACE_DEBUG ((LM_DEBUG,
"\nBind successful on the "
"resolved Naming Context\n"));
}
else
{
INS_var server = INS::_narrow (objref.in (),
ACE_TRY_ENV);
ACE_TRY_CHECK;
ACE_DEBUG ((LM_DEBUG,
"Resolved IOR for %s : %s\n",
argv[i],
orb->object_to_string (server.in ())));
ACE_DEBUG ((LM_DEBUG,
"\nResult of Remote Call : %s\n",
server->test_ins (ACE_TRY_ENV)));
}
}
}
}
ACE_CATCH (CORBA::ORB::InvalidName, name)
{
ACE_DEBUG ((LM_DEBUG, "Cannot resolve <%s>\n", argv[i]));
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION, "Exception:");
}
ACE_ENDTRY;
ACE_CHECK_RETURN (-1);
return 0;
}
|
