cross platform access to temporary dir

Signed-off-by: Alexander Diemand <[email protected]>

.gitignore

@@ -44,3 +44,5 @@ testCHAR
 /html
 /mlihtml
 
+dist/
+docker/output/

bin/lxr_backup.ml

@@ -14,7 +14,7 @@ let arg_dryrun = ref false
 let arg_files = ref []
 let arg_recursive = ref false
 let arg_directory = ref ""
-let arg_dbpath = ref "/tmp/db"
+let arg_dbpath = ref (Filename.concat (Filename.get_temp_dir_name ()) "db")
 let arg_chunkpath = ref "lxr"
 let arg_nchunks = ref 16
 let arg_myid = ref def_myid

bin/lxr_chunks.ml

@@ -37,7 +37,7 @@ let () = Arg.parse argspec anon_args_fun "lxr_chunks: vxni";
          let conf : configuration = {
                          config_nchunks = nchunks;
                          path_chunks = !arg_chunkpath;
-                         path_db     = "/tmp/db";
+                         path_db     = Filename.concat (Filename.get_temp_dir_name ()) "db";
                          my_id       = myid;
                          trace       = tracer } in
          List.iter (fun cid -> Assembly.chunk_identifier_path conf !arg_aid cid |> Printf.printf "%03d %s\n" (Conversion.p2i cid))

bin/lxr_distribute.ml

@@ -318,7 +318,7 @@ let main () = Arg.parse argspec anon_args_fun "lxr_distribute: ";
   let conf : configuration = {
                   config_nchunks = nchunks;
                   path_chunks = !arg_chunkpath;
-                  path_db     = "/tmp/db";
+                  path_db     = Filename.concat (Filename.get_temp_dir_name ()) "db";
                   my_id       = myid;
                   trace       = tracer } in
   let sinks = Yojson.Basic.from_file !arg_configpath |> from_json_sinks conf in

bin/lxr_relfiles.ml

@@ -66,7 +66,7 @@ let benchmark_run cnt =
   let config : Configuration.configuration =
     { config_nchunks = Nchunks.from_int 16
     ; path_chunks = "lxr"
-    ; path_db = "/tmp/db"
+    ; path_db = Filename.concat (Filename.get_temp_dir_name ()) "db"
     ; my_id = "0123"
     ; trace = Tracer.nullTracer } in
   let%lwt rel = Relfiles.new_map config in
@@ -93,7 +93,7 @@ let example_output () =
   let config : Configuration.configuration =
     { config_nchunks = Nchunks.from_int 16
     ; path_chunks = "lxr"
-    ; path_db = "/tmp/db"
+    ; path_db = Filename.concat (Filename.get_temp_dir_name ()) "db"
     ; my_id = "4242"
     ; trace = Tracer.nullTracer } in
   let%lwt rel = Relfiles.new_map config in
@@ -131,7 +131,7 @@ let example_output () =
 
 module Config = struct
   let init () = ()
-  let root = "/tmp/db"
+  let root = Filename.concat (Filename.get_temp_dir_name ()) "db"
 end
 
 open Lwt.Syntax

bin/lxr_relkeys.ml

@@ -8,7 +8,7 @@ let def_myid = "1234567890"
 
 let arg_verbose = ref false
 let arg_files = ref []
-let arg_dbpath = ref "/tmp/db"
+let arg_dbpath = ref (Filename.concat (Filename.get_temp_dir_name ()) "db")
 let arg_myid = ref def_myid
 
 let usage_msg = "lxr_relkeys [-v] [-i myid] [-d dbpath] <file1> [<file2>] ..."

bin/lxr_restore.ml

@@ -10,9 +10,9 @@ let def_myid = "1234567890"
 
 let arg_verbose = ref false
 let arg_files = ref []
-let arg_dbpath = ref "/tmp/db"
+let arg_dbpath = ref (Filename.concat (Filename.get_temp_dir_name ()) "db")
 let arg_chunkpath = ref "lxr"
-let arg_outpath = ref "/tmp/"
+let arg_outpath = ref (Filename.get_temp_dir_name ())
 let arg_nchunks = ref 16
 let arg_myid = ref def_myid
 

test/testRelkeys.ml

@@ -32,7 +32,7 @@ let benchmark_run cnt _ () =
   let config : Configuration.configuration =
     { config_nchunks = Nchunks.from_int 16
     ; path_chunks = "lxr"
-    ; path_db = "/tmp/db"
+    ; path_db = Filename.concat (Filename.get_temp_dir_name ()) "db"
     ; my_id = "4242"
     ; trace  = Tracer.nullTracer } in
   let%lwt rel = Relkeys.new_map config in
@@ -57,7 +57,7 @@ let example_output _ () =
   let config : Configuration.configuration =
     { config_nchunks = Nchunks.from_int 16
     ; path_chunks = "lxr"
-    ; path_db = "/tmp/db"
+    ; path_db = Filename.concat (Filename.get_temp_dir_name ()) "db"
     ; my_id = "4242"
     ; trace = Tracer.nullTracer } in
   let%lwt rel = Relkeys.new_map config in