javascript: allow sink parameters

2 files changed, 18 insertions, 0 deletions

diff --git a/lib/monoucha0/monoucha/javascript.nim b/lib/monoucha0/monoucha/javascript.nim
index 45a79fa7..29fedd80 100644
--- a/lib/monoucha0/monoucha/javascript.nim
+++ b/lib/monoucha0/monoucha/javascript.nim
@@ -452,6 +452,9 @@ proc getParams(fun: NimNode): seq[FuncParam] =
       t = t[0]
     elif t.kind == nnkVarTy:
       t = newNimNode(nnkPtrTy).add(t[0])
+    elif t.kind in {nnkCommand, nnkCall} and t.len == 2 and
+        t[0].kind == nnkSym and t[0].strVal == "sink":
+      t = t[1]
     let val = if it[^1].kind != nnkEmpty:
       let x = it[^1]
       some(newPar(x))
diff --git a/lib/monoucha0/test/etc.nim b/lib/monoucha0/test/etc.nim
index 47f123a6..ad3fa6bf 100644
--- a/lib/monoucha0/test/etc.nim
+++ b/lib/monoucha0/test/etc.nim
@@ -148,3 +148,18 @@ test "fromjs-tuple":
   JS_FreeValue(ctx, jsTest)
   ctx.free()
   rt.free()
+
+type X = ref object
+
+proc foo(x: X; s: sink string) {.jsfunc.} =
+  discard
+
+proc bar(x: X; s: sink(string)) {.jsfunc.} =
+  discard
+
+test "sink":
+  let rt = newJSRuntime()
+  let ctx = rt.newJSContext()
+  ctx.registerType(X)
+  ctx.free()
+  rt.free()