test/vtable.voo

   1 #### Function table
   2
   3 section data
   4 footext:
   5 string "foo called with n = %d\n\x00"
   6 bartext:
   7 string "bar called with n = %d\n\x00"
   8 baztext:
   9 string "baz called with n = %d\n\x00"
  10
  11 vtable:
  12 word foo
  13 word bar
  14 word baz
  15
  16 section functions
  17 import printf
  18 export main
  19
  20 main:
  21 function argc argv
  22     call testloop 2
  23     return 0
  24 end function
  25
  26 testloop:
  27 function n
  28     let func get-word vtable n
  29     call func n
  30     ifeq n 0
  31         return 0
  32     else
  33         set n sub n 1
  34         tail-call testloop n
  35     end if
  36 end function
  37
  38 foo:
  39 function n
  40     call printf footext n
  41     return 0
  42 end function
  43
  44 bar:
  45 function n
  46     call printf bartext n
  47     return 0
  48 end function
  49
  50 baz:
  51 function n
  52     call printf baztext n
  53     return 0
  54 end function