#ifndef _COSNAMING_IDL_
#define _COSNAMING_IDL_

module CosNaming {

#pragma prefix "omg.org/CosNaming"
	typedef string Istring;

	struct NameComponent {
		Istring id;
		Istring kind;
	};

    	typedef sequence<NameComponent> Name;

	enum BindingType { nobject, ncontext };

	struct Binding {
		Name        binding_name;
		BindingType binding_type;                   
	};

	typedef sequence <Binding> BindingList;                    

	interface BindingIterator;
	
	interface NamingContext {
		enum NotFoundReason { missing_node, 
					 not_context, 
					 not_object };

		exception NotFound { 
			NotFoundReason  why;
			Name            rest_of_name;
		};

		exception CannotProceed {
			NamingContext   cxt;
			Name            rest_of_name;
		};

		exception InvalidName{};                               
    
		exception AlreadyBound {};

		exception NotEmpty{};

		void    bind(in Name n, in Object obj)      
			 raises(NotFound, 
			       CannotProceed, 
				InvalidName, 
				AlreadyBound);

		void   rebind(in Name n, in Object obj)   
			raises(NotFound, 
				CannotProceed, 
				InvalidName);

		void    bind_context(in Name n, in NamingContext nc)        
			raises(NotFound, 
				CannotProceed, 
				InvalidName, 
				AlreadyBound);

		void    rebind_context(in Name n, in NamingContext nc)  
			raises(NotFound, 
				CannotProceed, 
				InvalidName);

		Object  resolve (in Name n)
			raises(NotFound, 
				CannotProceed, 
				InvalidName);

		void    unbind(in Name n)
			raises(NotFound, 
				CannotProceed, 
				InvalidName);

		NamingContext   new_context();
		NamingContext   bind_new_context(in Name n)
			raises(NotFound, 
				AlreadyBound,
				CannotProceed, 
				InvalidName);

        		void    destroy() raises(NotEmpty);
		void    list(in unsigned long    how_many,
			      out BindingList     bl,
			      out BindingIterator bi);

	};

	interface BindingIterator {
		boolean next_one(out Binding b);
		boolean next_n(in unsigned long how_many, 
			        out BindingList bl);
		void    destroy();
	};

	interface NamingContextExt:NamingContext {
		typedef string StringName;
		typedef string Address;
		typedef string URLString;

	StringName  to_string(in Name n) raises(InvalidName);
	Name        to_name(in StringName sn) 
				raises(InvalidName);
	exception InvalidAddress {};

	URLString   to_url(in Address addr, in StringName sn)
				raises(InvalidAddress, InvalidName);

	Object      resolve_str(in StringName n)
				raises(NotFound, 
					CannotProceed,
					InvalidName, 
					AlreadyBound
			);
		};
};

#pragma ID CosNaming "IDL:omg.org/CosNaming:1.0"
#endif // _COSNAMING_IDL_

...
Tobj_Bootstrap * bootstrap = new Tobj_Bootstrap (v_orb.in(), "");
CORBA::Object_var var_nameservice_oref=
	bootstrap.resolve_initial_references("NameService");
root = CosNaming::NamingContext::_narrow (obj);
...

...
Tobj_Bootstrap * bootstrap;
bootstrap = new Tobj_Bootstrap (v_orb.in(), "");
CORBA::Object_var obj = GetRefFromFile ("cnsroot.dat", v_orb);
root = CosNaming::NamingContext::_narrow (obj);
...

...
// ネームスペースで SimpleFactory オブジェクトの識別に使用する
// Name の確立

CosNaming::Name_var				factory_name = new CosNaming::Name(1);
	factory_name->length(1);
	factory_name[(CORBA::ULong) 0].id = 
					(const char * "simple_factory";
	factory_name[(CORBA::ULong) 0].kind = 
					(const char *) "";
// SimpleFactory のオブジェクト参照を作成

s_v_factory_refer = TP::create_object_reference(
					_tc_SimpleFactory->id(),
					"simple_factory",
					CORBA::NVList::_nil()
);
// NameService オブジェクト参照を取得。コード リスト 4-2 を参照
//SimpleFactory のオブジェクト参照をネームスペースに配置

root->bind(factory_name, s_v_fact_ref);
...

...
// ネームスペースで SimpleFactory オブジェクトの識別に使用する
// Name の確立
CosNaming::Name_var				factory_name = new CosNaming::Name(1);
	factory_name->length(1);
	factory_name[(CORBA::ULong) 0].id = 
					(const char * "simple_factory";
	factory_name[(CORBA::ULong) 0].kind = 
					(const char *) "";

// SimpleFactory オブジェクトをネームスペースでロケート
CORBA::Object_var v_simple_factory_oref = 
		root->resolve( *factory_name);
SimpleFactory_var v_simple_factory_ref =
		SimpleFactory::_narrow(v_simple_factory_oref.in());

// Oracle Tuxedo CORBA ネーム サービスから取得したリファレンスを使用して Simple オブジェクトを検索
Simple_var v_simple = v_simple_factory_ref->find_simple();
...