indexing
	description: "Origo Peer Group"
	license: "MIT license (see ../../license.txt)"
	author: "Beat Strasser <beat@stradax.net>"
	date: "$Date$"
	revision: "$Revision$"

class
	O_PEERGROUP

inherit
	P2P_GENERIC_PEERGROUP
		redefine
			define_modules,
			load_extern_module
		end
	O_CONSTANTS

create
	init

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
				create {O_P2P_MODULE} Result.init (Current, an_id, a_mia)
			else
				Result := Precursor (an_id, a_mia, a_name)
			end
		end

end