Update the configure infrastructure for paths.ml

Signed-off-by: Andrii Sultanov <[email protected]>

dune

@@ -10,24 +10,12 @@
  ;(action
   ;(run ../../config.status --file=oxenstored.conf)))
 
-;(rule
- ;(targets paths.ml)
- ;(deps paths.ml.in)
- ;(mode fallback)
- ;(action
-  ;(run ../../config.status --file=paths.ml)))
-
 ; Get xen and libs from somewhere - xs-opam?
 ;(install
  ;(package xen)
  ;(section etc)
  ;(files oxenstored.conf))
 
-;(executable
-  ;(modules configure)
-  ;(name configure)
-  ;(libraries dune-configurator))
-
 (env
   (dev
     (flags (:standard -warn-error -34-69))))

oxenstored/configure

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+#exec dune exec --profile=release ./configure.exe conf -- $* >oxenstored.conf
+dune exec --profile=release ./configure.exe paths -- $*

oxenstored/configure.ml

@@ -0,0 +1,28 @@
+let xen_run_dir = ref "/var/run/xen/"
+
+let xen_run_stored = ref "/var/run/xenstored"
+
+let xen_log_dir = ref "/var/log/xen/"
+
+let xen_config_dir = ref "/etc/xen"
+
+let libexec = ref "/usr/local/lib/xen"
+
+let args =
+  [
+    ("XEN_RUN_DIR", Arg.Set_string xen_run_dir, "")
+  ; ("XEN_RUN_STORED", Arg.Set_string xen_run_stored, "")
+  ; ("XEN_LOG_DIR", Arg.Set_string xen_log_dir, "")
+  ; ("XEN_CONFIG_DIR", Arg.Set_string xen_config_dir, "")
+  ; ("LIBEXEC", Arg.Set_string libexec, "")
+  ]
+
+let () =
+  Arg.parse (args |> Arg.align) ignore "" ;
+  List.iter2
+    (fun var (name, _, _) ->
+      print_endline
+        (Printf.sprintf {|let %s = "%s"|} (String.lowercase_ascii name) var)
+    )
+    [!xen_run_dir; !xen_run_stored; !xen_log_dir; !xen_config_dir; !libexec]
+    args

oxenstored/dune

@@ -19,6 +19,17 @@
  (files
   (xenstored.exe as oxenstored)))
 
+(executable
+  (modules configure)
+  (name configure))
+
+(rule
+ (targets paths.ml)
+ (deps paths.ml.in configure.exe)
+ (action
+ (with-stdout-to paths.ml
+                 (run ./configure))))
+
 (library
  (foreign_stubs (language c) (names syslog_stubs select_stubs))
  (modules syslog)