blob: 6117d153728298588aec9825d29b2f5b22074cb6 (
plain) (
tree)
|
|
# usage is finicky for now:
# ./translate_mu apps/factorial.mu
# ./a.elf test # any args? run tests
# ./a.elf # no args? run factorial(5)
fn main args: (addr array kernel-string) -> exit-status/ebx: int {
var a/eax: (addr array kernel-string) <- copy args
var tmp/ecx: int <- length a
$main-body: {
compare tmp, 1
# if (len(args) == 1) factorial(5)
{
break-if-!=
var tmp/eax: int <- factorial 5
exit-status <- copy tmp
break $main-body
}
# if (len(args) != 1) run-tests()
{
break-if-=
run-tests
exit-status <- copy 0
}
}
}
fn factorial n: int -> result/eax: int {
compare n 1
{
break-if->
result <- copy 1
}
{
break-if-<=
var tmp/ecx: int <- copy n
tmp <- decrement
result <- factorial tmp
result <- multiply n
}
}
fn test-factorial {
var result/eax: int <- factorial 5
check-ints-equal result 0x78 "F - test-factorial"
}
|