8

我是 JavaScript 新手，我正在尝试使用js_of_ocaml.

我先写了一个很简单的cubes.ml：

let simple (a: int) =
  a + 1234

然后遵守它：

ocamlfind ocamlc -package js_of_ocaml -package js_of_ocaml.syntax \
          -syntax camlp4o -linkpkg -o cubes.byte cubes.ml

然后生成 JavaScript 文件：

js_of_ocaml cubes.byte

这是生成的cubes.js。请注意，我们无法在该文件中找到1234或函数名称。simple

我有另一个 JavaScript 文件Home.js，我希望函数callSimple在其中调用生成的内容cubes.js。但是我不知道怎么写。有人可以帮忙吗？

(function () {
    ...
    function callSimple(a) {
        return ???;
    };
    ...
})();

编辑1：

我尝试了@EdgarAroutiounian 提出的解决方案：

(* cubes.ml *)
let () =
  Js.Unsafe.global##.jscode := (object%js
    val simple = Js.wrap_meth_callback
        (fun a -> a + 1234)
    val speak = Js.wrap_meth_callback
        (fun () -> print_endline "hello")
  end)

它确实编译了，但没有返回正确的输出： 在此处输入图像描述

如果我写home.js：

confirm(jscode.simple(10)); // 1244 is expected
confirm(jscode.speak()); // "hello" as string is expected

第一行返回function (a){return p(c,aM(b,a))}，第二行返回0。他们不是我所期望的。

4

1 回答 1

6

这是一种可能的方法。

在我们打算暴露给 JavaScript 的 OCaml 代码中：

let () =
  Js.Unsafe.global##.jscode := (object%js
    val simple = Js.wrap_meth_callback
        (fun a -> a + 1234)
    val speak = Js.wrap_meth_callback
        (fun () -> print_endline "hello")
  end)

请注意，我正在使用ppx扩展程序，我建议您也这样做：这意味着不再使用camlp4. 您可以使用以下命令编译该代码：

ocamlfind ocamlc -package js_of_ocaml.ppx -linkpkg cubes.ml -o T
js_of_ocaml T -o cubes.js

然后在你的另一个文件中，home.js

console.log(jscode.simple(10));
console.log(jscode.speak());

和一个index.html：

<!DOCTYPE html>
<meta charset="utf-8">
<body>
  <script src="cubes.js"></script>
  <script src="home.js"></script>
</body>

这应该有效。

于 2016-05-07T05:05:36.737 回答