1 # usage:
 2 #   ./translate_mu apps/factorial.mu
 3 #   ./a.elf test  # to run tests
 4 #   ./a.elf       # to run factorial(5)
 5 
 6 fn factorial n: int -> result/eax: int {
 7   compare n 1
 8   {
 9     break-if->
10     result <- copy 1
11   }
12   {
13     break-if-<=
14     var tmp/ecx: int <- copy n
15     tmp <- decrement
16     result <- factorial tmp
17     result <- multiply n
18   }
19 }
20 
21 fn test-factorial {
22   var result/eax: int <- factorial 5
23   check-ints-equal result 0x78 "F - test-factorial"
24 }
25 
26 fn main args: (addr array kernel-string) -> exit-status/ebx: int {
27   var a/eax: (addr array kernel-string) <- copy args
28   var tmp/ecx: int <- length a
29   $main-body: {
30     compare tmp, 1
31     # if (len(args) == 1) factorial(5)
32     {
33       break-if-!=
34       var tmp/eax: int <- factorial 5
35       exit-status <- copy tmp
36       break $main-body
37     }
38     # if (args[1] == "test") run-tests()
39     var tmp2/ecx: (addr kernel-string) <- index a, 1
40     var tmp3/eax: boolean <- kernel-string-equal? *tmp2, "test"
41     compare tmp3, 0
42     {
43       break-if-=
44       run-tests
45       exit-status <- copy 0  # TODO: get at Num-test-failures somehow
46     }
47   }
48 }