Question

Ocsigen/Eliom tutorial以一个提供“Hello，world！”的应用程序示例开头。作为HTML：

open Eliom_content.Html5.D

let main_service =
  Eliom_registration.Html5.register_service
    ~path:["graff"]
    ~get_params:Eliom_parameter.unit
    (fun () () ->
      Lwt.return
         (html
           (head (title (pcdata "Page title")) [])
           (body [h1 [pcdata "Graffiti"]])))

如何将此作为JSON服务呢？具体来说，如何注册JSON服务，以及应该使用哪些库/组合器来生成/序列化JSON（js_of_ocaml？）？

Answer 1

如果您想与客户端Eliom程序通信，则无需将您的数据序列化为JSON。任何OCaml类型的序列化/反序列化都由Eliom自动完成。只需使用OCaml服务（或者更简单：服务器功能并从您的OCaml客户端程序调用该功能）。
如果你想使用自己的JSON格式，你需要拥有自己的JSON序列化功能（或者例如使用像json-wheel这样的ocaml库来生成JSON）。在这种情况下，您可以使用Eliom_registration.String而不是Eliom_registration.Html5注册您的服务。处理函数必须将JSON值作为字符串返回，并返回content-type。
甚至可以定义自己的注册模块，而不是使用Eliom_registration.String。因此，您可以使用JSON值的OCaml表示（并且您不会自己调用序列化程序）。看看如何实现像Eliom_registration.String这样的模块来了解如何做到这一点。

Answer 2

我不确定你想要做什么，但是，关于JSON，你可以使用“deriving”（参见Deriving_Json）来创建一个JSON类型，使用类似这样的OCaml类型： / p>

    type deriving_t = (string * string) deriving (Json)

这将创建与OCaml类型对应的JSON类型。

这里使用这种类型与服务器通信的方式（如果你不知道服务器功能，这里是关于它的documentation和服务器端的客户端值）：

    (* first you have to create a server function (this allowed the client to call a function from the server *)
    let json_call =
      server_function
        Json.t<deriving_t>
        (fun (a,b) ->
           Lwt.return (print_endline ("log on the server: "^a^b)))

    (* let say that distillery has already generate all the needed stuff (main_service, Foobar_app, etc..) *)
    let () =
      Foobar_app.register
        ~service:main_service
        (fun () () ->
           {unit{
             (* here I call my server function by using ocaml types directly, it will be automatically serialize *)
             ignore (%json_call ("hello", "world"))
           }};
           Lwt.return
             (Eliom_tools.F.html
                ~title:"foobar"
                ~css:[["css";"foobar.css"]]
                Html5.F.(body [
                   h2 [pcdata "Welcome from Eliom's distillery!"];
               ])))

如果您想使用某些客户端/服务器通信，您应该查看Eliom_bus，Eliom_comet或Eliom_react。

（对不起，我不能超过2个链接:)但你会在ocsigen.org网站上找到这些文件。）

希望能帮到你。

使用Ocsigen为JSON提供服务的规范方法是什么？

2 个答案: