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
136
137
138
139
140
141
|
// $Id$
// ============================================================================
//
// = LIBRARY
// utils
//
// = FILENAME
// nslist.cpp
//
// = DESCRIPTION
// Naming Service listing utility
//
// = AUTHOR
// Written 1999-06-03 by Thomas Lockhart, NASA/JPL <Thomas.Lockhart@jpl.nasa.gov>
//
// ============================================================================
#include "tao/TAO.h"
#include "orbsvcs/CosNamingC.h"
static void list_context (CosNaming::NamingContext_ptr nc, int level);
// Display NS entries from a finite list.
static void
show_chunk (CosNaming::NamingContext_ptr nc,
const CosNaming::BindingList &bl,
int level)
{
for (CORBA::ULong i = 0;
i < bl.length ();
i++)
{
ACE_DEBUG ((LM_DEBUG,
"%*s%s",
2 * level,
"",
bl[i].binding_name[0].id.in ()));
if (ACE_OS::strlen(bl[i].binding_name[0].kind) > 0)
ACE_DEBUG ((LM_DEBUG,
"(%s)",
bl[i].binding_name[0].kind.in ()));
// If this is a context node, follow it down to the next
// level...
if (bl[i].binding_type == CosNaming::ncontext)
{
ACE_DEBUG ((LM_DEBUG,
": context\n"));
CosNaming::Name Name;
Name.length (1);
Name[0].id =
CORBA::string_dup (bl[i].binding_name[0].id);
CORBA::Object_var obj = nc->resolve (Name);
CosNaming::NamingContext_var xc =
CosNaming::NamingContext::_narrow (obj);
list_context (xc, level + 1);
}
// Mark this node as a reference
else
// The next version should resolve and show the IOR...
ACE_DEBUG ((LM_DEBUG,
": reference\n"));
}
}
static void
list_context (CosNaming::NamingContext_ptr nc,
int level)
{
CosNaming::BindingIterator_var it;
CosNaming::BindingList_var bl;
const CORBA::ULong CHUNK = 100;
nc->list (CHUNK, bl, it);
show_chunk (nc, bl, level);
if (!CORBA::is_nil (it.in ()))
{
CORBA::Boolean more;
do
{
more = it->next_n (CHUNK, bl);
show_chunk (nc, bl, level);
}
while (more);
it->destroy();
}
}
int
main (int argc, char *argv[])
{
ACE_DECLARE_NEW_CORBA_ENV;
ACE_TRY
{
CORBA::ORB_var orb =
CORBA::ORB_init (argc, argv);
CORBA::Object_var obj;
obj = orb->resolve_initial_references ("NameService");
ACE_TRY_CHECK;
CosNaming::NamingContext_var root_nc =
CosNaming::NamingContext::_narrow (obj);
ACE_TRY_CHECK;
CORBA::String_var str =
orb->object_to_string (root_nc.in (),
ACE_TRY_ENV);
ACE_TRY_CHECK;
if (CORBA::is_nil (obj))
ACE_ERROR_RETURN ((LM_ERROR,
"Naming Service not found"),
-1);
ACE_DEBUG ((LM_DEBUG,
"Naming Service: <%s> ---------\n",
str.in ()));
list_context (root_nc, 1);
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
"Exception in nslist");
return -1;
}
ACE_ENDTRY;
return 0;
}
|
