class EL_ITERATION_ROUTINES

(source code)

description

Routines for iteration of an action

note
	description: "Routines for iteration of an action"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-06-03 15:23:31 GMT (Monday 3rd June 2024)"
	revision: "2"


deferred class
	EL_ITERATION_ROUTINES

inherit
	ANY
		undefine
			copy, is_equal, out
		end

feature {NONE} -- Basic operations

	attempt (action: PROCEDURE [BOOLEAN_REF]; n: INTEGER)
		-- attempt `action' `n' times until `BOOLEAN_REF' argument `done' is set to `True'
		local
			done: BOOLEAN_REF; i: INTEGER
		do
			create done
			from i := 1 until i > n or done.item loop
				action (done)
				i := i + 1
			end
		end

end