bs

oxenstored/dune

@@ -23,6 +23,18 @@
   (modules configure)
   (name configure))
 
+(executable
+  (modes exe)
+  (name xenstorels)
+  (modules xenstorels)
+  (libraries
+    ezxenstore
+    ezxenstore.core
+    xenstore
+    xenstore_transport.unix
+   )
+)
+
 (rule
  (targets paths.ml)
  (deps paths.ml.in configure.exe)

oxenstored/xenstorels.ml

@@ -0,0 +1,9 @@
+open Ezxenstore_core.Xenstore
+
+let readdir ~xs d = try xs.Xs.directory d with Xs_protocol.Enoent _ -> []
+
+let _ =
+  with_xs (fun xs ->
+      Printf.printf "%s\n" (String.concat "; " (readdir ~xs Sys.argv.(1)))
+  )
+