Files
kraken/comp_wasm.kp

21 lines
516 B
Plaintext
Raw Normal View History

(with_import "./wasm.kp"
(let (
_ (println "args" *ARGV*)
(_ _ out) (cond (!= (len *ARGV*) 3) (error "wrong number of params")
true *ARGV*)
_ (println "out" out)
wasm_code (module
(func (param i32) (result i32)
(i32.const 4)
(local.get 0)
i32.add
(i32.add (local.get 0))
)
(export "add" (func 0))
)
_ (write_file out (wasm_to_binary wasm_code))
return_code 0
) return_code ))