logo标签列表

如何将一个简单的命令行OCaml脚本编译成Javascript

javascriptocamljs-of-ocaml
5
我有一个简单的OCaml命令行应用程序，它对 Sys.argv.(1) 进行计算，并将结果输出到 stdout。我可以使用 js_of_ocaml 将其编译为Javascript，但会出现许多关于 caml_ml_output_char 未定义的错误。我通过存根化打印语句来修复这些错误，使其运行，但在运行时会使Firefox冻结。
如何将简单的OCaml命令行脚本编译为基于Javascript的网页，而不需要维护分叉版本或使浏览器冻结？
2个回答
3

您可能会想要使用Web Workers，因为在UI线程中运行不是针对JavaScript协作式多任务处理而设计的软件可能会导致浏览器锁死。 您可以将以下标头添加到OCaml文件顶部，以重载正常的OCaml Sys和print实现。

(* JsHeader.ml *)
let output_buffer_ = Buffer.create 1000
let flush x=let module J = Js.Unsafe in let () = J.call 
        (J.variable "postMessage") (J.variable "self")
        [|J.inject (Js.string (Buffer.contents output_buffer_))|]
     in Buffer.clear output_buffer_

let print_string = Buffer.add_string output_buffer_
let print_char = Buffer.add_char output_buffer_
let print_newline () = print_char '\n'
let print_endline s = print_string (s^"\n"); flush ()
let caml_ml_output_char = print_char
let printf fmt = Printf.bprintf output_buffer_ fmt
module Printf = struct
    include Printf
    let printf fmt = Printf.bprintf output_buffer_ fmt
end

传递命令行参数的最自然方式是通过发送给Web Worker的URL。我们可以覆盖Ocaml Sys模块，将?argv作为一系列以空字符结尾的字符串进行读取。

module Sys = struct
    let char_split delim s = (*Str.split is overkill*)
        let hd = ref "" in let l = ref [] in 
        String.iter (fun c -> 
            if c = delim
            then  (l := (!hd)::(!l); hd := "")
            else hd := (!hd) ^ (String.make 1 c)
        ) s;
        List.rev ((!hd)::(!l)) 
    let getenv x = List.assoc x Url.Current.arguments
    let argv = Array.of_list (char_split '\x00' (getenv "?argv"))
    let executable_name = argv.(0)
end

现在我们已经进入了头文件，可以编写一个简单的OCaml命令行程序：
(* cli.ml *)
let _ = print_string (Array.fold_left (^) "" (Array.make 40 (String.lowercase (Sys.argv.(1)^"\n"))) )

这个命令行程序依赖于操作系统来刷新输出，但我们需要手动刷新输出。您可能还希望发送一个空字符，以便 Javascript 知道该命令已完成。可以通过添加以下页脚来实现。

(* JsFooter.ml *)
let _ = flush stdout; print_endline "\x00"

我们可以按照以下步骤合并文件并进行编译：
 cat JsHeader.ml cli.ml JsFooter.ml > merged.ml
 ocamlbuild -use-menhir -menhir "menhir" \
   -pp "camlp4o -I /opt/local/lib/ocaml/site-lib js_of_ocaml/pa_js.cmo" \
   -cflags -I,+js_of_ocaml,-I,+site-lib/js_of_ocaml -libs js_of_ocaml \
   -lflags -I,+js_of_ocaml,-I,+site-lib/js_of_ocaml merged.byte
 js_of_ocaml merged.byte

现在我们已经创建了merged.js文件，我们可以将javascript代码放入一个简单的网页中，如下所示：
<html>
<head>
<meta http-equiv="Content-Type" content="text/xhtml+xml; charset=UTF-8" />
<title>ml2js sample_cli</title>
<script type="text/javascript">
<!--
var worker;
function go () {
  var output=document.getElementById ("output");
  var argv = encodeURIComponent("/bin/sample_cli\0"+document.getElementById ("input").value);
  if (worker) {
    worker.terminate();
  }
  worker = new Worker ("sample_cli.js?argv="+argv);
  document.getElementById ("output").value="";
  worker.onmessage = function (m) {
    if (typeof m.data == 'string') {
    if (m.data == "\0\n") {
        output.scrollTop = output.scrollHeight
    } else {
        output.value+=m.data;
    }
    }
  }
}
//-->
</script>
</head>

<body onload=go()>
<textarea id="input" rows="2" cols="60" onkeyup="go()" onchange="go()" style="width:90%">SAMPLE_INPUT</textarea> 
<button onclick="go()">go</button><br>
<textarea id="output" rows="0" cols="60" style="width:100%;height:90%" readonly onload=go()>
Your browser does not seem to support Webworkers.
Try Firefox, Chrome or IE10+. 
</textarea>
</body>

</html>

请查看 http://www.dansted.org/app/bctl-plain.html 以了解该方法的示例，以及 https://github.com/gmatht/TimeLogicUnify/blob/master/ATL/js/webworker/ml2js.sh 以获取一个添加适当标题、页脚等的脚本。
1
你使用的js_of_ocaml版本是多少？使用caml_ml_output_char不应该出错。在node上运行时，你应该正确设置sys.argv。在浏览器中，Sys.argv设置为[|"a.out"|]。 如果你仍然遇到问题，请在https://github.com/ocsigen/js_of_ocaml/issues/new上打开一个GitHub问题。
我在Ubuntu上使用1.4-1build1版本。即使js_of_ocaml的后续版本在诸如Sys.argv之类的存根方面做得更好，我可能仍然需要像上面那样包装我的ml脚本，以使其在浏览器中实际有用？（顺便说一句，这可能更适合作为评论而不是答案？） - gmatht
我修改了我的问题，特别提到我对一个网页感兴趣。 - gmatht
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接