From 72b9a7df489ea47b3e5470741fd39f6100d31676 Mon Sep 17 00:00:00 2001
From: Samuel Mimram <smimram@debian.org>
Date: Sat, 18 Aug 2007 20:34:57 +0000
Subject: Imported Upstream version 8.1.pl1+dfsg

---
 tools/coqdep.ml | 38 +++++++++++++++++++++++++++-----------
 1 file changed, 27 insertions(+), 11 deletions(-)

(limited to 'tools/coqdep.ml')

diff --git a/tools/coqdep.ml b/tools/coqdep.ml
index 3647152a..89f39b22 100644
--- a/tools/coqdep.ml
+++ b/tools/coqdep.ml
@@ -6,7 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(* $Id: coqdep.ml 9276 2006-10-25 13:00:22Z barras $ *)
+(* $Id: coqdep.ml 9808 2007-04-29 07:15:18Z herbelin $ *)
 
 open Printf
 open Coqdep_lexer
@@ -24,6 +24,8 @@ let option_i = ref false
 let option_sort = ref false
 let option_slash = ref false
 
+let directories_added = ref false
+
 let suffixe = ref ".vo"
 let suffixe_spec = ref ".vi"
 
@@ -42,7 +44,7 @@ let file_concat l =
 (* Files specified on the command line *)
 let mlAccu  = ref ([] : (string * string * dir) list) 
 and mliAccu = ref ([] : (string * string * dir) list) 
-and vAccu   = ref ([] : string list)
+and vAccu   = ref ([] : (string * string) list)
 
 (* Queue operations *)
 let addQueue q v = q := v :: !q
@@ -97,6 +99,16 @@ let safe_assoc verbose file k =
   List.assoc k !vKnown
 
 
+let absolute_dir dir =
+  let current = Sys.getcwd () in
+  Sys.chdir dir;
+  let dir' = Sys.getcwd () in
+  Sys.chdir current;
+  dir'
+
+let absolute_file_name basename odir =
+  let dir = match odir with Some dir -> dir | None -> "." in
+  absolute_dir dir / basename
      
 let file_name = function
   | (s,None)     -> file_concat s 
@@ -152,9 +164,11 @@ let cut_prefix p s =
   let ls = String.length s in
   if ls >= lp && String.sub s 0 lp = p then String.sub s lp (ls - lp) else s
 
-let canonize f = match Sys.os_type with
-  | "Win32" when not !option_slash -> cut_prefix ".\\" f
-  | _ -> cut_prefix "./" f
+let canonize f =
+  let f' = absolute_dir (Filename.dirname f) / Filename.basename f in
+  match List.filter (fun (_,full) -> f' = full) !vAccu with
+    | (f,_) :: _ -> f
+    | _ -> f
 
 let sort () = 
   let seen = Hashtbl.create 97 in
@@ -181,7 +195,7 @@ let sort () =
 	printf "%s%s " file !suffixe
     end
   in
-  List.iter loop !vAccu
+  List.iter (fun (name,_) -> loop name) !vAccu
 
 let traite_fichier_Coq verbose f = 
   try 
@@ -352,7 +366,7 @@ let mL_dependencies () =
 
 let coq_dependencies () =
   List.iter
-    (fun name ->
+    (fun (name,_) ->
        printf "%s%s: %s.v" name !suffixe name;
        traite_fichier_Coq true (name ^ ".v");
        printf "\n";
@@ -366,7 +380,7 @@ let coq_dependencies () =
 
 let declare_dependencies () =
   List.iter
-    (fun name ->
+    (fun (name,_) ->
        traite_Declare (name^".v");      
        flush stdout)
     (List.rev !vAccu)
@@ -410,7 +424,7 @@ let all_subdirs root_dir log_dir =
 
 let usage () =
   eprintf
-  "[ usage: coqdep [-w] [-I dir] [-coqlib dir] [-c] [-i] [-D] <filename>+ ]\n";
+  "[ usage: coqdep [-w] [-I dir] [-R dir coqdir] [-coqlib dir] [-c] [-i] [-D] <filename>+ ]\n";
   flush stderr;
   exit 1
 
@@ -471,7 +485,8 @@ let coqdep () =
 	    addQueue mliAccu (basename,".mli",dirname)
 	  else if Filename.check_suffix name ".v" then
 	    let basename = Filename.chop_suffix name ".v" in
-	    addQueue vAccu (file_name ([basename], dirname))
+	    let name = file_name ([basename],dirname) in
+	    addQueue vAccu (name, absolute_file_name basename dirname)
       | _ -> ()
   in 
   let add_known phys_dir log_dir f =
@@ -496,6 +511,7 @@ let coqdep () =
                 (fun n -> safe_addQueue clash_v vKnown (n,file)) paths
         | _ -> () in
   let add_directory (phys_dir, log_dir) = 
+      directories_added := true;
       match try (stat phys_dir).st_kind with _ -> S_BLK with 
 	| S_DIR -> 
 	    (let dir = opendir phys_dir in
@@ -526,7 +542,7 @@ let coqdep () =
       | f :: ll -> treat None f; parse ll
       | [] -> ()
   in
-  add_directory (".", []);
+  if not !directories_added then add_directory (".", []);
   parse (List.tl (Array.to_list Sys.argv));
   List.iter
     (fun (s,_) -> add_coqlib_directory s)
-- 
cgit v1.2.3