miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add both bare WAT ins and nested WAT ins

Browse Source
This commit is contained in:
Nathan Braswell
2021-07-19 00:32:42 -04:00
parent d6d7af0bc1
commit 835706c97d
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
comp_wasm.kp
View File

@@ -6,9 +6,10 @@
_ (println "out" out) _ (println "out" out)
wasm_code (module wasm_code (module
(func (param i32) (result i32) (func (param i32) (result i32)
(i32.const 34) (i32.const 4)
(local.get 0) (local.get 0)
(i32.add) i32.add
(i32.add (local.get 0))
) )
(export "add" (func 0)) (export "add" (func 0))
) )

12
wasm.kp
View File

@@ -139,7 +139,11 @@
func (vau de (p_type r_type & body) (lambda (type function memory export code) func (vau de (p_type r_type & body) (lambda (type function memory export code)
(let ( (let (
our_type [ [ (idx p_type 1) ] [ (idx r_type 1) ] ] our_type [ [ (idx p_type 1) ] [ (idx r_type 1) ] ]
our_code (map (lambda (x) (eval x de)) body) our_code (flat_map (lambda (x) (let (ins (eval x de))
(cond (array? ins) ins
true (ins) ; un-evaled function, bare WAT
)))
body)
) [ ) [
; type ; type
(concat type [ our_type ]) (concat type [ our_type ])
@@ -153,9 +157,9 @@
(concat code [ [ [] our_code ] ]) (concat code [ [ [] our_code ] ])
]) ])
)) ))
i32.const (lambda (const) ['i32.const const]) i32.const (lambda (const) [['i32.const const]])
local.get (lambda (const) ['local.get const]) local.get (lambda (const) [['local.get const]])
i32.add (lambda () ['i32.add]) i32.add (lambda (& flatten) (concat (map (lambda (x) (idx x 0)) flatten) [['i32.add]]))
export (vau de (name t_v) (lambda (type function memory export code) export (vau de (name t_v) (lambda (type function memory export code)
[ type function memory (concat export [ [ name (idx t_v 0) (idx t_v 1) ] ]) code ] [ type function memory (concat export [ [ name (idx t_v 0) (idx t_v 1) ] ]) code ]
)) ))