WIP

Author: hhugo

examples/boulderdash/custom.js renamed to compiler/tests-jsoo/custom.js

@@ -48,6 +48,7 @@
    test_bigarray
    test_marshal_compressed
    test_parsing
+   test_custom
    calc_parser
    calc_lexer))
  (libraries unix compiler-libs.common js_of_ocaml-compiler)
@@ -66,6 +67,16 @@
  (modules test_float16 test_bigarray)
  (modes js wasm native))
 
+(test
+ (name test_custom)
+ (modules test_custom)
+ (libraries js_of_ocaml)
+ (js_of_ocaml
+  (javascript_files custom.js))
+ (wasm_of_ocaml
+  (javascript_files custom.js))
+ (modes js wasm))
+
 (ocamlyacc calc_parser)
 
 (ocamllex calc_lexer)

compiler/tests-jsoo/dune

@@ -0,0 +1,8 @@
+open Js_of_ocaml
+
+let () =
+  let p : Js.js_string Js.t = Jsoo_runtime.Sys.external_ "process" in
+  let o : _ Js.t = Jsoo_runtime.Sys.external_ "obj" in
+  let del = Jsoo_runtime.Sys.external_ "caml_js_delete" in
+  ignore (Js.Unsafe.fun_call del [| o; Js.Unsafe.coerce (Js.string "process") |]);
+  print_endline (Js.to_string p)

compiler/tests-jsoo/test_custom.ml

@@ -510,12 +510,4 @@ let start _ =
   Dom.appendChild body div;
   Lwt.return ()
 
-let () =
-  let p : Js.js_string Js.t = Jsoo_runtime.Sys.external_ "process" in
-  let o : _ Js.t = Jsoo_runtime.Sys.external_ "obj" in
-  let del : 'a -> Jsoo_runtime.Js.t -> unit =
-    Jsoo_runtime.Sys.external_ "caml_js_delete"
-  in
-  del o (Jsoo_runtime.Js.string "process");
-  print_endline (Js.to_string p);
-  Lwt.async start
+let () = Lwt.async start

examples/boulderdash/boulderdash.ml

@@ -4,7 +4,6 @@
  (modes js wasm)
  (js_of_ocaml
   (compilation_mode separate)
-  (javascript_files custom.js)
   (build_runtime_flags :standard --file %{dep:maps.txt} --file maps))
  (link_deps
   (glob_files maps/*.map))