From 2f18b8a33cabd0ea666781ba048d0174b4dc5031 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sun, 1 Jun 2025 17:12:06 +0200 Subject: Initial commit --- bin/client.ml | 23 ++++++++++++++++++++++ bin/dune | 22 +++++++++++++++++++++ bin/js_assets/dune | 3 +++ bin/main.ml | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 106 insertions(+) create mode 100644 bin/client.ml create mode 100644 bin/dune create mode 100644 bin/js_assets/dune create mode 100644 bin/main.ml (limited to 'bin') diff --git a/bin/client.ml b/bin/client.ml new file mode 100644 index 0000000..17284e1 --- /dev/null +++ b/bin/client.ml @@ -0,0 +1,23 @@ +open Lwt.Syntax + +let root = "http://[::1]:8080" + +let request = + let* result = + Cohttp_handler.request ~root + (module Services_impl.Nb_car) + () { value = "foobar" } + in + match result with + | Error code -> + prerr_endline ("Got code " ^ code); + Lwt.return_unit + | Ok { value; nbcar } -> + print_endline + (String.concat " " + [ + "The number of characters for"; value; "is"; Int64.to_string nbcar; + ]); + Lwt.return_unit + +let _ = Lwt_main.run request diff --git a/bin/dune b/bin/dune new file mode 100644 index 0000000..7044b82 --- /dev/null +++ b/bin/dune @@ -0,0 +1,22 @@ +(executables + (public_names dream_service client) + (names main client) + (libraries + lwt + lwt.unix + dream + dream_handler + cohttp_handler + uri + services + services_impl + ) + ) + + +(rule + (target jsAssets.ml) + (deps (glob_files js_assets/**)) + (action (with-stdout-to %{null} + (run ocaml-crunch -m plain js_assets/ -o %{target})))) + diff --git a/bin/js_assets/dune b/bin/js_assets/dune new file mode 100644 index 0000000..155a383 --- /dev/null +++ b/bin/js_assets/dune @@ -0,0 +1,3 @@ +; Copy the files generated with js_of_ocaml into this directory. +; We have to explicitaly name the targets we want to include here. +(copy_files ../../js/content.js) diff --git a/bin/main.ml b/bin/main.ml new file mode 100644 index 0000000..f1f0cfd --- /dev/null +++ b/bin/main.ml @@ -0,0 +1,58 @@ +(** Create the handler for the service *) +let handler = + Dream_handler.handle + (module Services_impl.Nb_car) + (fun (() : Services_impl.Nb_car.placeholders) body -> + Lwt.return_ok + Services_impl.Nb_car. + { + value = body.value; + nbcar = Int64.of_int (String.length body.value); + }) + +(* The handler and the route are not created at the same time because we may + want create a specific handler, for example one checking CRSF in the query + and can’t infer this from the service signature only *) + +(** And create the route. *) +let route = Dream_handler.register (module Services_impl.Nb_car) handler + +(** Generate a default static page *) +let hello : Dream.handler = + fun _ -> + Dream.html + {| + +

Hello!

+
+ + + +
+
+ +|} + +let js_assets _root path _request = + (* This module is automatically generated — see the dune file to see the rule *) + match JsAssets.read path with + | None -> Dream.empty `Not_Found + | Some asset -> Dream.respond asset + +let () = + Dream.run @@ Dream.logger + @@ Dream.router + [ + Dream.get "/js/**" (Dream.static ~loader:js_assets ""); + Dream.get "/" hello; + route; + ] + +(* Now test the application by connecting to + http://localhost:8080/ + *) -- cgit v1.2.3