#include <stdio.h>

struct _F_CLS1{
	#define _F_CLS1_p1(nom) int nom p1 (int li)
	virtual _F_CLS1_p1( ) = 0;
};

class CLS1{
	int nb;
	_F_CLS1 &c;
public:
	CLS1(_F_CLS1 &_c, int _nb)
		: c(_c)
	{
		nb = _nb;
	}
	void print (const char *msg)
	{
		printf ("msg=:%s: p1=%d\n",msg,c.p1(nb));
	}
};

struct _F_foo2{
	#define _F_foo2_f1(nom) void nom f1 (int li)
	virtual _F_foo2_f1( ) = 0;
};

int foo2 (_F_foo2 &c, int n)
{
	for (int i=0; i<n; i++){
		printf ("i=%d\n",i);
		c.f1 (i);
	}
}

<mod>
struct _F_foo3{
	#define _F_foo3_load(nom) void nom load()
	virtual _F_foo3_load ( ) = 0;
	#define _F_foo3_save(nom) void nom save ()
	virtual _F_foo3_save( ) = 0;
};
int foo3 (_F_foo3 &c, int n)
{
	<glocal>
		int n;
	</glocal>
	glocal.n = n;
	printf ("foo3 n=%d\n",n);
	c.load();
	<call foo2>(3);
		<f f1>
			printf ("\t\tf1 de foo2 dans foo3 foo3.n=%d\n",glocal.n);
		</f>
	</call>
	c.save();
}
</mod>


<mod>
int main(int argc, char *argv[])
{
	<glocal>
		int a;
		int b;
		CLS1 *obj;
	</glocal>
	glocal.a = 1;
	glocal.b = 2;
	<obj CLS1> obj(5);
		<f p1>
			return li * glocal.b;
		</f>
	</obj>
	glocal.obj = &obj;
	printf ("Debut\n");
	obj.print("allo");
	<call foo2> (1);
		<f f1>
			printf ("a=%d,b=%d,li=%d\n",glocal.a,glocal.b,li);
			<call foo2> (2);
				<f f1>
					for (int i=0; i<10; i++){
						printf ("inside [%d] a=%d,b=%d\n",li,glocal.a,glocal.b);
					}
					<call foo3> (4);
						<f load>
							printf ("perdu load a=%d\n",glocal.a);
						</f>
						<f save>
							printf ("perdu save b=%d\n",glocal.b);
						</f>
					</call>
				</f>
			</call>
		</f>
	</call>
	<call foo3> (2);
		<f load>
			printf ("loading %d %d\n",glocal.a,glocal.b);
		</f>
		<f save>
			printf ("Saving %d %d\n",glocal.a,glocal.b);
			glocal.b = 20;
			glocal.obj->print("Saving");
		</f>
	</call>
}
</mod>