deferred class
	EL_MODULE_LIO

inherit
	EL_MODULE

	EL_MODULE_CONSOLE

	EL_SHARED_BASE_OPTION

feature {NONE} -- Access

	effective_lio: EL_LOGGABLE
		do
			if is_lio_enabled then
				Result := Lio
			else
				Result := Silent_io
			end
		end

	lio: EL_LOGGABLE
		do
			Result := Once_lio
			Result.set_logged_object (Current)
		end

	Sio, Silent_io: EL_SILENT_LOG
		-- do nothing log
		once
			create Result.make
		end

feature {NONE} -- Status query

	is_lio_enabled: BOOLEAN
		-- True if the `Current' type has been registered in console manger with call to
		-- `Console.show ({MY_TYPE})'
		do
			Result := Console.is_type_visible ({ISE_RUNTIME}.dynamic_type (Current))
		end

feature {NONE} -- Implementation

	new_lio: EL_LOGGABLE
		do
			if Base_option.silent then
				create {EL_SILENT_LOG} Result.make
			else
				create {EL_CONSOLE_ONLY_LOG} Result.make
			end
		end

	Once_lio: EL_LOGGABLE
		once
			Result := new_lio
		end

end