Add simple dream server skeleton to applications

Makefile

@@ -21,6 +21,7 @@ BASE_TESTS = \
   device-usage/disk-lottery \
   applications/docteur \
   applications/dhcp \
+  applications/dream \
   applications/http \
   applications/git \
   applications/dns \

applications/dream/config.ml

@@ -0,0 +1,11 @@
+open Mirage
+
+let packages = [ package "dream-mirage" ]
+
+let http =
+  main "Unikernel.Make" ~packages (pclock @-> time @-> stackv4v6 @-> job)
+
+let default_stack = generic_stackv4v6 default_network
+
+let () =
+  register "dream" [ http $ default_posix_clock $ default_time $ default_stack ]

applications/dream/unikernel.ml

@@ -0,0 +1,17 @@
+module Make
+    (Pclock : Mirage_clock.PCLOCK)
+    (Time : Mirage_time.S)
+    (Stack : Tcpip.Stack.V4V6) =
+struct
+  module Dream = Dream__mirage.Mirage.Make (Pclock) (Time) (Stack)
+
+  let start _pclock _time stack =
+    Dream.http ~port:8080 (Stack.tcp stack)
+    @@ Dream.logger
+    @@ Dream.router
+         [
+           Dream.get "/" (fun _ -> Dream.html "Good morning, world!");
+           Dream.get "/echo/:word" (fun request ->
+               Dream.html (Dream.param request "word"));
+         ]
+end