Merge pull request #57 from ocaml-wasm/wasm

Wasm_of_ocaml runtime file

Author: seliopou

bigstringaf.opam

@@ -20,8 +20,8 @@ build: [
   ]
 ]
 depends: [
-  "dune" {>= "3.0"}
-  "dune-configurator" {>= "3.0"}
+  "dune" {>= "3.17"}
+  "dune-configurator" {>= "3.17"}
   "alcotest" {with-test}
   "ocaml" {>= "4.08.0"}
 ]

dune-project

@@ -1,3 +1,3 @@
-(lang dune 3.0)
+(lang dune 3.17)
 (name bigstringaf)
 (formatting (enabled_for dune))

lib/dune

@@ -8,7 +8,10 @@
    (:standard
     (:include cflags.sexp))))
  (js_of_ocaml
-  (javascript_files runtime.js)))
+  (javascript_files runtime.js))
+ (wasm_of_ocaml
+  (javascript_files runtime.js)
+  (wasm_files runtime.wat)))
 
 (rule
  (targets cflags.sexp)

lib/runtime.wat

@@ -0,0 +1,38 @@
+(module
+   (import "env" "caml_bigstring_blit_ba_to_ba"
+      (func $bigstringaf_blit_to_bigstring
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (param (ref eq)) (result (ref eq))))
+   (import "env" "caml_bigstring_blit_bytes_to_ba"
+      (func $bigstringaf_blit_from_bytes
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (param (ref eq)) (result (ref eq))))
+   (import "env" "caml_bigstring_blit_ba_to_bytes"
+      (func $bigstringaf_blit_to_bytes
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (param (ref eq)) (result (ref eq))))
+   (import "env" "caml_bigstring_memcmp"
+      (func $bigstringaf_memcmp_bigstring
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (param (ref eq)) (result (ref eq))))
+   (import "env" "caml_bigstring_memcmp_string"
+      (func $bigstringaf_memcmp_string
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (param (ref eq)) (result (ref eq))))
+   (import "env" "caml_bigstring_memchr"
+      (func $caml_bigstring_memchr
+         (param (ref eq)) (param (ref eq)) (param (ref eq)) (param (ref eq))
+         (result (ref eq))))
+
+   (export "bigstringaf_blit_to_bytes" (func $bigstringaf_blit_to_bytes))
+   (export "bigstringaf_blit_to_bigstring" (func $bigstringaf_blit_to_bigstring))
+   (export "bigstringaf_blit_from_bytes" (func $bigstringaf_blit_from_bytes))
+   (export "bigstringaf_memcmp_bigstring" (func $bigstringaf_memcmp_bigstring))
+   (export "bigstringaf_memcmp_string" (func $bigstringaf_memcmp_string))
+
+   (func (export "bigstringaf_memchr")
+      (param $ba (ref eq)) (param $off (ref eq)) (param $chr (ref eq))
+      (param $len (ref eq)) (result (ref eq))
+      (return_call $caml_bigstring_memchr
+         (local.get $ba) (local.get $chr) (local.get $off) (local.get $len)))
+)