github/linuxkit
1
0
Fork 0
mirror of https://github.com/linuxkit/linuxkit.git synced 2026-04-04 18:59:55 +00:00
Code Issues Projects Releases Wiki Activity

Update https-unikernel to released capnp-rpc 0.1 API

Browse Source 
Also, separate out RPC encoding from application logic.

Signed-off-by: Thomas Leonard <thomas.leonard@docker.com>
This commit is contained in:
Thomas Leonard
2017-08-15 12:08:36 +01:00
parent 236cfad571
commit 86b4f01e17
17 changed files with 290 additions and 265 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
projects/miragesdk/examples/https-unikernel/src/http_main.ml
View File

@@ -1,22 +1,23 @@
let () = Common.init_logging ()
(** Run the HTTP service as a stand-alone Unix process. *)
let main store_socket http_socket =
let () = Logging.init ()
let main store_addr http_addr =
Lwt_main.run begin
Lwt_switch.with_switch @@ fun switch ->
let store = Common.connect ~switch store_socket in
let http = Http_server.service store in
Common.listen ~switch ~offer:http http_socket
let store = Capnp_rpc_unix.connect store_addr in
let http = Http_server.local store in
Capnp_rpc_unix.serve ~offer:http http_addr
end
open Cmdliner
let store =
let doc = "The database store to use" in
Arg.(required @@ opt (some string) None @@ info ~doc ~docv:"STORE" ["store"])
Arg.(required @@ opt (some Capnp_rpc_unix.Connect_address.conv) None @@ info ~doc ~docv:"STORE" ["store"])
let http =
let doc = "The http socket to provide" in
Arg.(required @@ pos 0 (some string) None @@ info ~doc ~docv:"HTTP" [])
Arg.(required @@ pos 0 (some Capnp_rpc_unix.Listen_address.conv) None @@ info ~doc ~docv:"HTTP" [])
let cmd =
Term.(const main $ store $ http), Term.info "http"