js_of_ocaml和Deriving_Json

Question

我需要一些帮助才能让js_of_ocaml工作。网络上没有太多关于它的信息，而且手册非常稀少(没有片段或使用示例，也没有注释部分)。

服务器上有一个带有Card记录的card模块。我使用Ajax向客户端发送一个card list，在那里我想阅读和遍历这个列表。我最后得出的结论是：

let json = Json.unsafe_input (Js.string http_frame.XmlHttpRequest.content) in

根据文档，...where json有'a类型(当然不是在我运行它时)。

我可以记录json##length并获得列表的正确长度。我从这里要去哪里？理想情况下，我希望再次使用Deriving_Json来键入安全的card list，但我也可以使用for-循环(不那么优雅，但无论如何)。

Answer 1

类型声明(如type name = ... deriving(Json) )创建Json_name模块。举个例子。

type card =  {a: int; b: string; } deriving(Json)
type t = card list deriving(Json)

let _ =
  let str = Json.to_string<t> [{a = 10; b = "abc";}; {a = 20; b = "xyz";}] in
  let rs = Json.from_string<t> str in
  Firebug.console##log(Js.string str);
  List.iter (fun r -> Firebug.console##log_2(r.a, Js.string r.b)) rs

我不知道为什么，我得到了“未定义的ReferenceError: unix_inet_addr_of_string是没有定义的”。

因此，将function unix_inet_addr_of_string () {return 0;}添加到js文件中。