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
|
// $Id$
// ============================================================================
//
// = FILENAME
// ns_tree.cpp
//
// = DESCRIPTION
//
// = AUTHOR
// Ross Lillie <lillie@rsch.comm.mot.com>
// LMPS Systems Research Lab
//
// ============================================================================
#include "tao/TAO.h"
#include "orbsvcs/CosNamingC.h"
#include "test_objectS.h"
#include "orbsvcs/Naming/Naming_Utils.h"
class Test_Object_impl : public POA_Test_Object
{
public:
Test_Object_impl (void) {};
~Test_Object_impl (void) {};
};
int
main (int argc, char **argv)
{
TAO_ORB_Manager orbmgr;
Test_Object_impl myObject;
TAO_Naming_Server my_name_server;
int result;
TAO_TRY
{
// Initialize and obtain reference to the Naming Context
if (orbmgr.init_child_poa (argc, argv,"Rob", TAO_TRY_ENV) == -1)
ACE_ERROR_RETURN ((LM_ERROR,
"failed to init ORB\n"),
-1);
TAO_CHECK_ENV;
PortableServer::POA_var child_poa;
CORBA::ORB_var orb = orbmgr.orb ();
child_poa = orbmgr.child_poa ();
result = my_name_server.init (orb, child_poa);
if (result < 0)
return result;
CosNaming::Name context_name;
CosNaming::NamingContext_var ns_ctx;
context_name.length (1);
context_name[0].id = CORBA::string_dup ("NameService");
ns_ctx = my_name_server->bind_new_context (context_name, TAO_TRY_ENV);
TAO_CHECK_ENV_RETURN (TAO_TRY_ENV, -1);
// Dummy object instantiation.
Test_Object_var myObject_var =
myObject._this (TAO_TRY_ENV);
TAO_CHECK_ENV;
// Create a child context.
CosNaming::Name test_context (1);
CosNaming::NamingContext_var my_context;
test_context.length (1);
test_context[0].id =
CORBA::string_dup ("MyContext");
my_context = my_name_server->bind_new_context (test_context, TAO_TRY_ENV);
TAO_CHECK_ENV_RETURN (TAO_TRY_ENV, -1);
cerr << "Created new context OK" << endl;
// Bind an object to a child context.
CosNaming::Name test_name (2);
test_name.length (2);
test_name[0].id = CORBA::string_dup ("MyContext");
test_name[1].id = CORBA::string_dup ("MyName");
my_name_server->bind (test_name,
myObject_var.in (),
TAO_TRY_ENV);
TAO_CHECK_ENV;
cerr << "Bound compound name OK" << endl;
// Finally, try now to resolve the compound name.
CosNaming::Name result_name (2);
result_name.length (2);
result_name[0].id = CORBA::string_dup ("MyContext");
result_name[1].id = CORBA::string_dup ("MyName");
CORBA::Object_var resolvedobj = my_name_server->resolve (result_name,
TAO_TRY_ENV);
TAO_CHECK_ENV;
Test_Object_var resultObject =
Test_Object::_narrow (resolvedobj.in (),
TAO_TRY_ENV);
cerr << "Resolved compound name OK" << endl;
}
TAO_CATCHANY
{
TAO_TRY_ENV.print_exception ("ns_tree");
return -1;
}
TAO_ENDTRY;
return 0;
}
|
