indexing
	description: "Origo Peer Group"
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

deferred class
	O_PEERGROUP

inherit
	P2P_GENERIC_PEERGROUP
		redefine
			define_modules,
			load_extern_module
		end
	O_CONSTANTS

feature {NONE} -- Implementation

	define_modules is
			-- Define Origo services in `modules_list'
		do
			-- add standard modules from world peer group to `modules_list'
			Precursor
			-- add Origo services to `modules_list'
			modules_list.put_last ([p2p_module_name, origo_core_mcid, origo_core_msid, parent_is_owner_if_available])
		end

	load_extern_module (an_id: P2P_ID; a_mia: P2P_MODULE_IMPLEMENTATION_ADVERTISEMENT; a_name: STRING): P2P_MODULE is
			-- Load origo modules
		do
			if origo_core_msid.is_equal (a_mia.specification_id) then
				Result := load_origo_module (an_id, a_mia)
			else
				Result := Precursor (an_id, a_mia, a_name)
			end
		end

	load_origo_module (an_id: P2P_ID; a_mia: P2P_MODULE_IMPLEMENTATION_ADVERTISEMENT): P2P_MODULE is
			-- Load origo module.
		deferred
		ensure
			Result_ok: Result /= Void
		end

end