yap-6.3/Logtalk/library/loopp.lgt

 
:- protocol(loopp).

	:- info([
		version is 1.1,
		author is 'Paulo Moura',
		date is 2006/9/17,
		comment is 'Loop control structures protocol.']).

	:- public(dowhile/2).
	:- meta_predicate(dowhile(::, ::)).
	:- mode(dowhile(+callable, @callable), zero_or_one).
	:- info(dowhile/2, [
		comment is 'Do Action while Condition is true.',
		argnames is ['Action', 'Condition']]).

	:- public(forto/3).
	:- meta_predicate(forto(*, *, ::)).
	:- mode(forto(+integer, +integer, @callable), zero_or_one).
	:- info(forto/3, [
		comment is 'Counting from First to Last do Call.',
		argnames is ['First', 'Last', 'Call']]).

	:- public(forto/4).
	:- meta_predicate(forto(*, *, *, ::)).
	:- mode(forto(-integer, +integer, +integer, @callable), zero_or_one).
	:- info(forto/4, [
		comment is 'Do Call counting from First to Last and instantiating Count to each sucessive value.',
		argnames is ['Count', 'First', 'Last', 'Call']]).

	:- public(fordownto/3).
	:- meta_predicate(fordownto(*, *, ::)).
	:- mode(fordownto(+integer, +integer, @callable), zero_or_one).
	:- info(fordownto/3, [
		comment is 'Counting from First to Last do Call.',
		argnames is ['First', 'Last', 'Call']]).

	:- public(fordownto/4).
	:- meta_predicate(fordownto(*, *, *, ::)).
	:- mode(fordownto(-integer, +integer, +integer, @callable), zero_or_one).
	:- info(fordownto/4, [
		comment is 'Do Call counting from First to Last and instantiating Count to each sucessive value.',
		argnames is ['Count', 'First', 'Last', 'Call']]).

	:- public(whiledo/2).
	:- meta_predicate(whiledo(::, ::)).
	:- mode(whiledo(+callable, @callable), zero_or_one).
	:- info(whiledo/2, [
		comment is 'While Condition is true do Action.',
		argnames is ['Condition', 'Action']]).

:- end_protocol.