indexing

	description:

		"[
			Singleton representing the network subsytem. Use EM_SHARED_SUBSYSTEMS
			to access this class.
		]"

	date: "$Date$"
	revision: "$Revision$"

class EM_NETWORK_SUBSYSTEM

inherit
	EM_SUBSYSTEM

	SDL_NET_FUNCTIONS
		export {NONE} all end
		
create {EM_SHARED_SUBSYSTEMS}
	make

feature {NONE} -- Initialization

	make is
		do
			is_enabled := False
		ensure
			not_enabled: not is_enabled
		end

feature -- Status report

	is_enabled: BOOLEAN
			-- Is the thread subsystem enabled?

feature -- Subsystem management

	enable is
			-- Enable EiffelMedia network subsystem.
		do
			if sdlnet_init = -1 then
				-- Error while initializing SDL_net.
				-- TODO: Errorhandling
			else
				is_enabled := True
			end
		end

	disable is
			-- Disable EiffelMedia thread subsystem.
		do
			sdlnet_quit
			is_enabled := False
		end

end