CosNaming ģ��

module 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;
	};
	interface NamingContext {
	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);
	};
};

/* ���� Panel ��һЩ���룬��������ʱִ��
 * �����ַ���ע��
 */
main ()
{
CORBA_Object orb;
CORBA_Environment ev;
CosNaming_NamingContext root;
CosNaming_NameComponent name_component[3] = {	{"GNOME", "subcontext"},
						{"Servers", "subcontext"} 
						{"gnome_panel", "server"} };
CosNaming_Name name = {3, 3, name_component, CORBA_FALSE};
CORBA_Object panel;

	CORBA_exception_init (&ev);
	CORBA_ORB_init (&ev);

	root = CORBA_ORB_resolve_initial_service (orb, 
						"NameService", 
						&ev);
	if (ev->_major != CORBA_NO_EXCEPTION) {
		fprintf (stderr, 
			"Error: could not get name service: %s\n", 
			CORBA_exception_id(&ev));
		exit (1);
	}

/* ������, һЩ������ ORB ע�������
 * �������洢�� panel �е���Ч�Ķ�������
 * �⽫�ڵ� 4 ��: POA �н���
 */

	CosNaming_NamingContext_bind (root, &name, panel, &ev);
	if (ev->_major != CORBA_NO_EXCEPTION) {
		fprintf (stderr, 
			"Error: could register object: %s\n", 
			CORBA_exception_id(&ev));
			exit (1);
	}
	CORBA_exception_free (&ev);
	return 0;
}

#include <corba.h>

int main (int argc, char *argv)
{
CORBA_Object orb;
CORBA_Environment ev;
CosNaming_NamingContext *root;
CosNaming_NameComponent name_component[3] = {	{"GNOME", "subcontext"},
						{"Servers", "subcontext"} 
						{"gnome_panel", "server"} };
CosNaming_Name name = {3, 3, name_component, CORBA_FALSE};
CORBA_Object panel;

	CORBA_exception_init (&ev);
	CORBA_ORB_init (&ev);

	root = CORBA_ORB_resolve_initial_service (orb, 
						"NameService", 
						&ev);
	if (ev->_major != CORBA_NO_EXCEPTION) {
		fprintf (stderr, 
			"Error: could not get name service: %s\n", 
			CORBA_exception_id(&ev));
			exit (1);
	}

	panel = CosNaming_NamingContext_resolve (root, 
						&name, 
						&ev);
	if (ev->_major != CORBA_NO_EXCEPTION) {
		fprintf (stderr, 
			"Error: could resolve object: %s\n", 
			CORBA_exception_id(&ev));
			exit (1);
	}

/* ������, panel ��������һ���� GNOME panel �� CORBA_Object�� 
 * ���Ե���һЩ�� gnome-core/idl/gnome-panel.idl �ж����  panel ����
 */

	CORBA_free (root);
	CORBA_exception_free (&ev);

	return 0;
}

module CORBA {
	interface ORB {
		typedef string ObjectId;
		typedef sequence <ObjectId> ObjectIdList;
		ObjectIdList list_initial_services ();

		exception InvalidName {};
		Object resolve_initial_reference (in ObjectId identifier)
			raises (InvalidName);
	};
};

#include <corba.h>

int main (int argc, char **argv)
{
CORBA_ORB orb;
CORBA_Environment ev;
CORBA_sequence_ObjectId *seq;
CORBA_unsigned_long i;

	CORBA_exception_init (&ev);
	orb = CORBA_ORB_init (&ev);

	seq = CORBA_ORB_list_initial_services (orb, &ev);

	for (i=0; i<seq->_lenght ;i++) {
		fprintf (stdout, "%s\n" ,(seq->_buffer)[i]);
	}

	return 0;
}