#
#       Software from the book "Inferno Programming with Limbo"
#       published by John Wiley & Sons, January 2003.
#
#       p. Stanley-Marbell <pip@gemusehaken.org>
#
implement Fibonacci;

include "sys.m";
include "draw.m";

sys : Sys;
MAX : con 50;
x : chan of int;

Fibonacci : module
{
	init	: fn(nil : ref Draw->Context, nil : list of string);
};

init(nil : ref Draw->Context, nil : list of string)
{
	sys = load Sys Sys->PATH;

	x = chan of int;
	sys->print("0  .\n1  ..\n");
	spawn f(0, 1);

	<-x;
	sys->print("Spawned thread completed.\n");
}
       
f(a, b : int)
{
	sys->print("%-3d", a + b);
	for (i := 0; i <= a+b; i++)
	{
		sys->print(".");
	}
	sys->print("\n");

	if (a+b < MAX)
	{
		f(b, a+b);
	}

	x <-= 0;
}