janet/examples/sysir/basic1.janet

(def ir-asm
  @{:instructions
   '(
     # Types
     (type-prim Int s32)
     (type-prim Double f64)
     (type-struct MyPair 0 1)
     (type-pointer PInt 0)
     (type-array DoubleArray 1 1024)

     # Declarations
     (bind 0 Int)
     (bind 1 Int)
     (bind 2 Int)
     (bind 3 Double)
     (bind bob Double)
     (bind 5 Double)
     (bind 6 MyPair)

     # Code
     (constant 0 10)
     (constant 0 21)
     :location
     (add 2 1 0)
     (constant 3 1.77)
     (call 3 sin 3)
     (cast bob 2)
     (call bob test_function)
     (add 5 bob 3)
     (jump :location)
     (return 5))
   :parameter-count 0
   :link-name "test_function"})

(def as (sysir/asm ir-asm))
(print (sysir/to-c as))