//
// FLOWCONTROL.EPOCH
//
// Demonstration of basic flow control elements in Epoch
//

entrypoint : () -> ()
{
	integer(foo, 10)

	while(greater(foo, 0))
	{
		debugwritestring(cast(string, foo))
		assign(foo, subtract(foo, 1))
	}
}

00887A5C SCOPE
PARENT 00000000
STACK 0
ISCLONE 0
VARS 0
GHOSTS 0
FUNCTIONS 1
entrypoint 0088F328
0088EF90 SCOPE
PARENT 00000000
STACK 0
ISCLONE 0
VARS 0
GHOSTS 0
FUNCTIONS 0
TUPLETYPES 0
TUPLEHINTS 0
0088F020 TYPEDATA 0
0088EBC0 SCOPE
PARENT 00000000
STACK 0
ISCLONE 0
VARS 0
GHOSTS 0
FUNCTIONS 0
TUPLETYPES 0
TUPLEHINTS 0
0088EC50 TYPEDATA 0
BLOCK
00C803F8 SCOPE
PARENT 00887A5C
STACK 0
ISCLONE 0
VARS 1
foo 1
GHOSTS 0
FUNCTIONS 0
TUPLETYPES 0
TUPLEHINTS 0
00C80488 TYPEDATA 0
00C81088 PUSH_INT 10
00C81110 WRITE foo
00C808C0 WHILE
BLOCK
00C811A0 SCOPE
PARENT 00C803F8
STACK 0
ISCLONE 0
VARS 0
GHOSTS 0
FUNCTIONS 0
TUPLETYPES 0
TUPLEHINTS 0
00C81230 TYPEDATA 0
00C809E8 PUSH 00C817C0 READ foo
00C81BA8 PUSH_INT 0
00C81628 PUSH 00C815E0 GT
00C810D0 CONDITIONAL_BREAK
00C81BF0 PUSH 00C816D0 READ foo
00C81990 PUSH 00C81718 INT_TO_STRING
00C81520 DEBUG_WRITE
00C81B58 PUSH 00C81EE8 READ foo
00C82268 PUSH_INT 1
00C819D8 PUSH 00C81DC0 SUB_INT
00C80878 WRITE foo
ENDBLOCK
ENDBLOCK
TUPLETYPES 0
TUPLEHINTS 0
00887AEC TYPEDATA 0
STATIC_STR_POOL 2
10 entrypoint
3 foo
VAR_STR_POOL 0
TUPLEINFO
IDCOUNTER 0
0

//
// TUPLES.EPOCH
//
// Simple demonstration of how to use tuple types in Epoch
//

tuple demotype : (integer(intvalue), string(strvalue))

entrypoint : () -> ()
{
	demotype(test, 0, "")
	assign(test, foofunction())

	debugwritestring(cast(string, readtuple(test, intvalue)))
	debugwritestring(readtuple(test, strvalue))
}

foofunction : () -> (integer(intvalue, 0), string(strvalue, ""))
{
	assign(intvalue, 42)
	assign(strvalue, "test")
}

entrypoint : () -> ()
{
	recurse(3)
}

recurse : (integer(counter)) -> ()
{
	debugwritestring("n Bottles of Beer on the wall... where n is:")
	debugwritestring(cast(string, counter))

	if(notequal(counter, 0))
	{
		recurse(subtract(counter, 1))
	}	
}

entrypoint : () -> ()
{
	debugwritestring(cast(string, pi()))
}

pi : () -> (real(retval, 0.0))   // <-- this line is what we care about today
{
	real(denominator, 1.0)
	boolean(isplus, true)

	do
	{
		real(div, 0.0)
		assign(div, divide(4.0, denominator))

		if(equal(isplus, true))
		{
			assign(retval, add(retval, div))
			assign(isplus, false)
		}
		else
		{
			assign(retval, subtract(retval, div))
			assign(isplus, true)
		}

		assign(denominator, add(denominator, 2.0))

	} while(less(denominator, 10000.0))
}