Merge pull request #15 from grain-lang/binaryen-js

binaryen.ml.js
grain-lang · Jul 22, 2020 · b0e19b0 · b0e19b0
2 parents d906cd8 + 2671a76
commit b0e19b0
Show file tree

Hide file tree

Showing 29 changed files with 1,684 additions and 7 deletions.
diff --git a/.gitmodules b/.gitmodules
@@ -1,3 +1,6 @@
 [submodule "src/binaryen"]
 	path = src/binaryen
 	url = https://github.com/WebAssembly/binaryen
+[submodule "js/binaryen.js"]
+	path = js/binaryen.js
+	url = https://github.com/AssemblyScript/binaryen.js
diff --git a/binaryen.opam b/binaryen.opam
@@ -14,4 +14,7 @@ depends: [
   "dune" {>= "2.6"}
   "conf-cmake" {build}
   "conf-python-3" {build}
+  "js_of_ocaml" {>= "3.6.0"}
+  "js_of_ocaml-ppx" {>= "3.6.0"}
+  "js_of_ocaml-compiler" {>= "3.6.0"}
 ]
diff --git a/dune b/dune
@@ -1 +1 @@
-(dirs :standard virtual)
+(dirs :standard virtual js)
diff --git a/esy.json b/esy.json
@@ -11,6 +11,9 @@
   "devDependencies": {
     "@opam/conf-cmake": "*",
     "@opam/conf-python-3": "*",
+    "@opam/js_of_ocaml": ">=3.6.0",
+    "@opam/js_of_ocaml-ppx": ">=3.6.0",
+    "@opam/js_of_ocaml-compiler": ">=3.6.0",
     "@opam/ocamlformat": "*",
     "@opam/ocaml-lsp-server": "ocaml/ocaml-lsp:ocaml-lsp-server.opam#ce1840355541ff60b999e39388835027f89d8798"
   },

diff --git a/esy.lock/index.json b/esy.lock/index.json
diff --git a/esy.lock/opam/js_of_ocaml-compiler.3.6.0/opam b/esy.lock/opam/js_of_ocaml-compiler.3.6.0/opam
diff --git a/esy.lock/opam/js_of_ocaml-ppx.3.6.0/opam b/esy.lock/opam/js_of_ocaml-ppx.3.6.0/opam
diff --git a/esy.lock/opam/js_of_ocaml.3.6.0/opam b/esy.lock/opam/js_of_ocaml.3.6.0/opam
diff --git a/esy.lock/opam/ppx_tools_versioned.5.4.0/opam b/esy.lock/opam/ppx_tools_versioned.5.4.0/opam
diff --git a/js/binaryen.js b/js/binaryen.js
diff --git a/js/dune b/js/dune
@@ -0,0 +1,10 @@
+(library
+ (name binaryen_js)
+ (public_name binaryen.js)
+ (implements binaryen)
+ (libraries js_of_ocaml)
+ (preprocess
+  (pps js_of_ocaml-ppx))
+ (js_of_ocaml
+  (flags --no-sourcemap)
+  (javascript_files binaryen.js/index.js postlude.js)))
diff --git a/js/export.ml b/js/export.ml
@@ -0,0 +1,23 @@
+open Js_of_ocaml.Js
+open Js_of_ocaml.Js.Unsafe
+
+type t
+
+let add_function_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addFunctionExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_table_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addTableExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_memory_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addMemoryExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_global_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addGlobalExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let remove_export wasm_mod external_name =
+  meth_call wasm_mod "removeExport" [| inject (string external_name) |]