/* #Specification: guruiter / principles
	The guruiter may replace a gurusteps component if you have
	to repeat the same question a few time. Instead of having

	#
	<call gurusteps>(...);
		<f eval1>
		</f>
		<f dialog1>
		</f>
		<f eval2>
		</f>
		<f dialog2>
		</f>
		<f eval3>
		</f>
		<f dialog3>
		</f>
		<f path1>
			// One branche
		</f>
		<f path2>
			// Another branche
		</f>
	</call>
	#

	you do

	#
	<call guruiter>(3,...);
		<f eval>
			// The step parameter is supplied so you know where
			// you are in the iteration
		</f>
		<f dialog>
			// The step parameter is also provided here.
		</f>
		<f path1>
			// One branche
		</f>
		<f path2>
			// Another branche
		</f>
	</call>
	#
*/
#include "guruengine.h"

class guruiter_private {
public:
	_F_gurupath *p;
};

void _F_guruiter::settitle (const char *title)
{
	priv->p->settitle (title);
}
void _F_guruiter::setintro (const char *intro)
{
	priv->p->setintro (intro);
}
void _F_guruiter::seticon (const char *icon)
{
	priv->p->seticon (icon);
}
void _F_guruiter::attention ()
{
	priv->p->attention ();
}
void _F_guruiter::allfine ()
{
	priv->p->allfine ();
}
void _F_guruiter::setterminal (const char *s, const char *l)
{
	priv->p->setterminal (s,l);
}
bool _F_guruiter::edit ()
{
	return priv->p->edit ();
}
bool _F_guruiter::edit (HELP_FILE &help)
{
	return priv->p->edit (help);
}
void _F_guruiter::setcursor (int nof)
{
	priv->p->setcursor (nof);
}

void _F_guruiter::path1 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}
void _F_guruiter::path2 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}
void _F_guruiter::path3 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}
void _F_guruiter::path4 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}
void _F_guruiter::path5 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}
void _F_guruiter::path6 (
	GURUPATH_MODE,
	GURUPATH_STATUS &status)
{
	status.nodemissing = true;
}

static void guruiter0 (
	_F_guruiter &c,
	int nostep,
	int nbsteps,
	GURUPATH_MODE mode,
	GURUPATH_STATUS &status);

<mod>
static void guruiter0 (
	_F_guruiter &c,
	int nostep,
	int nbsteps,
	GURUPATH_MODE mode,
	GURUPATH_STATUS &status)
{
	<glocal>
		_F_guruiter *c;
		int nbsteps;
		int nostep;
		int nextstep;
		bool moreiter;
	</glocal>
	glocal.c = &c;
	glocal.nbsteps = nbsteps;
	glocal.nostep = nostep;
	glocal.nextstep = nostep+1;
	glocal.moreiter = glocal.nextstep < nbsteps;
	<call gurupath>(mode,status);
		<f eval>
			glocal.c->priv->p = this;
			glocal.c->eval (glocal.nostep,mode,status);
		</f>
		<f dialog>
			glocal.c->priv->p = this;
			glocal.c->dialog (glocal.nostep,dia);
		</f>
		<f path1>
			if (glocal.moreiter){
				guruiter0 (*glocal.c,glocal.nextstep,glocal.nbsteps,mode,status);
			}else{
				glocal.c->path1(mode,status);
			}
		</f>
		<f path2>
			if (glocal.moreiter){
				status.nodemissing = true;
			}else{
				glocal.c->path2(mode,status);
			}
		</f>
		<f path3>
			if (glocal.moreiter){
				status.nodemissing = true;
			}else{
				glocal.c->path3(mode,status);
			}
		</f>
		<f path4>
			if (glocal.moreiter){
				status.nodemissing = true;
			}else{
				glocal.c->path4(mode,status);
			}
		</f>
		<f path5>
			if (glocal.moreiter){
				status.nodemissing = true;
			}else{
				glocal.c->path5(mode,status);
			}
		</f>
		<f path6>
			if (glocal.moreiter){
				status.nodemissing = true;
			}else{
				glocal.c->path6(mode,status);
			}
		</f>
	</call>
}
</mod>

void guruiter (
	_F_guruiter &c,
	int nbsteps,
	GURUPATH_MODE mode,
	GURUPATH_STATUS &status)
{
	guruiter_private priv;
	c.priv = &priv;
	guruiter0(c,0,nbsteps,mode,status);
}