indexing

	description:

		"[
			Shared access for subsystem singletons.
		]"

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

class EM_SHARED_SUBSYSTEMS

feature -- Access

	video_subsystem: EM_VIDEO_SUBSYSTEM is
			-- EiffelMedia video subsystem
		once
			create Result.make
		ensure
			video_subsystem_not_void: Result /= Void
		end

	audio_subsystem: EM_AUDIO_SUBSYSTEM is
			-- EiffelMedia audio subsystem
		once
			create Result.make
		ensure
			audio_subsystem_not_void: Result /= Void
		end

	timer_subsystem: EM_TIMER_SUBSYSTEM is
			-- EiffelMedia timer subsystem
		once
			create Result.make
		ensure
			timer_subsystem_not_void: Result /= Void
		end

	joystick_subsystem: EM_JOYSTICK_SUBSYSTEM is
			-- EiffelMedia joystick subsystem
		once
			create Result.make
		ensure
			joystick_subsystem_not_void: Result /= Void
		end

	thread_subsystem: EM_THREAD_SUBSYSTEM is
			-- EiffelMedia thread subsystem
		once
			create Result.make
		ensure
			thread_subsystem_not_void: Result /= Void
		end

	cdrom_subsystem: EM_CDROM_SUBSYSTEM is
			-- EiffelMedia CD ROM subsystem
		once
			create Result.make
		ensure
			cdrom_subsystem_not_void: Result /= Void
		end
		
	network_subsystem : EM_NETWORK_SUBSYSTEM is
			-- EiffelMedia network subsystem is
		indexing
			once_status: global
		once
			create Result.make
		ensure
			network_subsystem_not_void: Result /= void
		end
		
end