如何使用js_of_ocaml正确编译OCaml程序?

时间:2016-01-18 10:31:27

标签: node.js ocaml js-of-ocaml

我想使用js_of_ocaml翻译OCaml中的以下Javascript示例程序:

var AWS = require('aws-sdk');
AWS.config.region = 'us-west-2';
var s3 = new AWS.S3();
s3.listBuckets(function(err, data) {
  if (err) { console.log("Error:", err); }
  else {
    for (var index in data.Buckets) {
      var bucket = data.Buckets[index];
      console.log("Bucket: ", bucket.Name, ' : ', bucket.CreationDate);
    }
  }
});

我写了以下OCaml片段

let require_module s =
    Js.Unsafe.fun_call
      (Js.Unsafe.js_expr "require")
      [|Js.Unsafe.inject (Js.string s)|]

module AWS : sig
  type error

  class type s3 = object
    method listBuckets :
      (error -> Js.Unsafe.any -> unit) Js.callback -> unit Js.meth
  end

  val s3client : unit -> s3
end = struct
  let _js_aws = require_module "aws-sdk"

  type error =
    Js.Unsafe.any

  class type s3 = object
    method listBuckets :
      (error -> Js.Unsafe.any -> unit) Js.callback -> unit Js.meth
  end

  let s3client () =
    let constr_s3 = _js_aws ## S3 in
    new%js constr_s3 ()
end

但是当我用

编译它时
ocamlfind ocamlc -c -package "js_of_ocaml js_of_ocaml.syntax" -o example_s3.cmo example_s3.ml

它死了

Error: '##' is not a valid value identifier.

如何修复程序或编译命令以解决此问题?

1 个答案:

答案 0 :(得分:4)

如果要使用包js_of_ocaml.syntax,必须将-syntax camlp4o选项添加到ocamlfind。

但是你应该使用新的ppx语法而不是旧的camlp4(你似乎知道,因为你使用new%js)。 为此,您需要将js_of_ocaml.syntax替换为ppx语法的包。