From 6acf543800fe176ca7d47ef7165ebc14588efb6f Mon Sep 17 00:00:00 2001
From: Maxime Dénès <mail@maximedenes.fr>
Date: Tue, 29 Apr 2014 14:41:49 -0400
Subject: Native compiler: hide compiled files in a .coq-native subdirectory.

---
 kernel/nativelib.ml | 38 ++++++++++++++++++++++++++++++--------
 1 file changed, 30 insertions(+), 8 deletions(-)

(limited to 'kernel/nativelib.ml')

diff --git a/kernel/nativelib.ml b/kernel/nativelib.ml
index a69b9d472..05e470da9 100644
--- a/kernel/nativelib.ml
+++ b/kernel/nativelib.ml
@@ -20,10 +20,16 @@ let get_load_paths =
 let open_header = ["Nativevalues";
                    "Nativecode";
                    "Nativelib";
-				   "Nativeconv";
+		   "Nativeconv";
                    "Declaremods"]
 let open_header = List.map mk_open open_header
 
+(* Directory where compiled files are stored *)
+let output_dir = ".coq-native"
+
+(* Extension of genereted ml files, stored for debugging purposes *)
+let source_ext = ".native"
+
 (* Global settings and utilies for interface with OCaml *)
 let compiler_name =
   Filename.quote (if Dynlink.is_native then ocamlopt () else ocamlc ())
@@ -42,18 +48,19 @@ let rt1 = ref (dummy_value ())
 let rt2 = ref (dummy_value ())
 
 let get_ml_filename () =
-  let filename = Filename.temp_file "Coq_native" ".native" in
+  let filename = Filename.temp_file "Coq_native" source_ext in
   let prefix = Filename.chop_extension (Filename.basename filename) ^ "." in
   filename, prefix
 
-let write_ml_code ml_filename ?(header=[]) code =
+let write_ml_code fn ?(header=[]) code =
   let header = open_header@header in
-  let ch_out = open_out ml_filename in
+  let ch_out = open_out fn in
   let fmt = Format.formatter_of_out_channel ch_out in
   List.iter (pp_global fmt) (header@code);
   close_out ch_out
 
 let call_compiler ml_filename load_path =
+  let load_path = List.map (fun dn -> dn / output_dir) load_path in
   let include_dirs = List.map Filename.quote (include_dirs () @ load_path) in
   let include_dirs = String.concat " -I " include_dirs in
   let f = Filename.chop_extension ml_filename in
@@ -66,15 +73,26 @@ let call_compiler ml_filename load_path =
   in
   Sys.command comp_cmd, link_filename
 
-let compile ml_filename code =
-  write_ml_code ml_filename code;
-  call_compiler ml_filename (!get_load_paths())
+let compile fn code =
+  write_ml_code fn code;
+  call_compiler fn (!get_load_paths())
+
+let compile_library dir code load_path fn =
+  let header = mk_library_header dir in
+  let fn = fn ^ source_ext in
+  let basename = Filename.basename fn in
+  let dirname = Filename.dirname fn in
+  let dirname = dirname / output_dir in
+  if not (Sys.file_exists dirname) then Unix.mkdir dirname 0o755;
+  let fn = dirname / basename in
+  write_ml_code fn ~header code;
+  fst (call_compiler fn load_path)
 
 (* call_linker links dynamically the code for constants in environment or a  *)
 (* conversion test. Silently fails if the file does not exist in bytecode    *)
 (* mode, since the standard library is not compiled to bytecode with default *)
 (* settings.                                                                 *)
-let call_linker ~fatal prefix f upds =
+let call_linker ?(fatal=true) prefix f upds =
   rt1 := dummy_value ();
   rt2 := dummy_value ();
   if Dynlink.is_native || Sys.file_exists f then
@@ -88,3 +106,7 @@ let call_linker ~fatal prefix f upds =
           let msg = "Dynlink error" in
           if fatal then anomaly (Pp.str msg) else Pp.msg_warning (Pp.str msg));
   match upds with Some upds -> update_locations upds | _ -> ()
+
+let link_library ~prefix ~dirname ~basename =
+  let f = dirname / output_dir / basename in
+  call_linker ~fatal:false prefix f None
-- 
cgit v1.2.3