entrypoint : () -> ()
{
	integer(foo, 41)
	operateref(foo, incrementref)
}

operateref : (integer ref(number), function op : (integer ref)->()) -> ()
{
	op(number)
	debugwritestring(cast(string, number))
}

incrementref : (integer ref(number)) -> ()
{
	assign(number, add(1, number))
}

entrypoint : () -> ()
{
	operate(41, increment)
	operate(43, decrement)
}


increment : (integer(number)) -> (integer(result, 0))
{
	assign(result, add(number, 1))
}

decrement : (integer(number)) -> (integer(result, 0))
{
	assign(result, subtract(number, 1))
}


operate : (integer(number), function op : (integer)->(integer)) -> ()
{
	debugwritestring(cast(string, op(number)))
}

//
// FCF.EPOCH
//
// Example of first-class functions and higher-order functions
//


entrypoint : () -> ()
{
	operate(41, increment)
	operate(43, decrement)
}


increment : (integer(number)) -> (integer(result, 0))
{
	assign(result(add(number, 1)))
}

decrement : (integer(number)) -> (integer(result, 0))
{
	assign(result(subtract(number, 1)))
}


operate : (integer(number), function op : (integer)->(integer)) -> ()
{
	debugwritestring(cast(string, op(number)))
}

//
// STRUCTUREAPI.EPOCH
//
// Simple demonstration of how to use structure (record) types with external APIs
//

structure msgboxtype :
(
	integer(size),
	integer(ownerwnd),
	integer(instance),
	string(text),
	string(caption),
	integer(style),
	string(icon),
	integer(helpid),
	integer(callback),
	integer(language)	
)

structure systeminfotype :
(
	integer16(architecture),
	integer16(reserved),
	integer(pagesize),
	integer(minappaddress),
	integer(maxappaddress),
	integer(activeprocmask),
	integer(numprocessors),
	integer(proctype),
	integer(allocgranularity),
	integer16(proclevel),
	integer16(procrevision)
)


external "user32.dll" MessageBoxIndirectW : (msgboxtype(params)) -> (integer)
external "kernel32.dll" GetSystemInfo : (systeminfotype ref(info)) -> ()


entrypoint : () -> ()
{
	systeminfotype(info, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
	GetSystemInfo(info)

	string(proccountstr, "")
	assign(proccountstr, concat("System processor count: ", cast(string, readstructure(info, numprocessors))))

	integer(styleflags, 64)
	msgboxtype(params, sizeof(msgboxtype), 0, 0, proccountstr, "Epoch test", styleflags, "", 0, 0, 0)

	MessageBoxIndirectW(params)
}

entrypoint : () -> ()
{
	integer(foo, 0)
	increment(foo)
	debugwritestring(cast(string, foo))
}


increment : (integer ref(value)) -> ()
{
	assign(value, add(value, 1))
}