test/if.voo

   1 #### Test program for conditionals
   2
   3 section data
   4 different:
   5 string "%d is different from %d\n\x00"
   6
   7 equal:
   8 string "%d is equal to %d\n\x00"
   9
  10 greater:
  11 string "%d is greater than %d\n\x00"
  12
  13 greater_or_equal:
  14 string "%d is greater than or equal to %d\n\x00"
  15
  16 less:
  17 string "%d is less than %d\n\x00"
  18
  19 less_or_equal:
  20 string "%d is less than or equal to %d\n\x00"
  21
  22 nonzero:
  23 string "%d is nonzero\n\x00"
  24
  25 zero:
  26 string "%d is zero\n\x00"
  27
  28 section functions
  29 import printf
  30 export main
  31
  32 main:
  33 function argc argv
  34   let x 0
  35   let y 1
  36
  37   ifeq x 0
  38     call printf zero x
  39   else
  40     call printf nonzero x
  41   end if
  42
  43   ifeq y 0
  44     call printf zero y
  45   else
  46     call printf nonzero y
  47   end if
  48
  49   ifgt x y
  50     call printf greater x y
  51   else
  52     call printf less_or_equal x y
  53   end if
  54
  55   ifgt y x
  56     call printf greater y x
  57   else
  58     call printf less_or_equal y x
  59   end if
  60
  61   iflt x y
  62     call printf less x y
  63   else
  64     call printf greater_or_equal x y
  65   end if
  66
  67   iflt y x
  68     call printf less y x
  69   else
  70     call printf greater_or_equal y x
  71   end if
  72
  73   set y -1
  74
  75   ifne y 0
  76     call printf nonzero y
  77   else
  78     call printf zero y
  79   end if
  80
  81   ifne x 0
  82     call printf nonzero x
  83   else
  84     call printf zero x
  85   end if
  86
  87   ifle y x
  88     call printf less_or_equal y x
  89   else
  90     call printf greater y x
  91   end if
  92
  93   ifle x y
  94     call printf less_or_equal x y
  95   else
  96     call printf greater x y
  97   end if
  98
  99   ifge x y
 100     call printf greater_or_equal x y
 101   else
 102     call printf less x y
 103   end if
 104
 105   ifge y x
 106     call printf greater_or_equal y x
 107   else
 108     call printf less y x
 109   end if
 110
 111   return 0
 112 end function