From bc19124fa01044fefd80c5cc8bde39be6b0537fb Mon Sep 17 00:00:00 2001
From: filliatr
Date: Mon, 15 Mar 2004 09:36:27 +0000
Subject: identification ./f et f dans coqdep -sort

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5483 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdep.ml | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tools/coqdep.ml b/tools/coqdep.ml
index ce43c9c619..0447ea1183 100755
--- a/tools/coqdep.ml
+++ b/tools/coqdep.ml
@@ -142,9 +142,14 @@ let traite_fichier_ML md ext =
     (!a_faire, !a_faire_opt)
   with Sys_error _ -> ("","")
 
+let canonize f =
+  let n = String.length f in
+  if n > 1 && String.sub f 0 2 = "./" then String.sub f 2 (n - 2) else f
+
 let sort () = 
   let seen = Hashtbl.create 97 in
   let rec loop file =
+    let file = canonize file in
     if not (Hashtbl.mem seen file) then begin
       Hashtbl.add seen file ();
       let cin = open_in (file ^ ".v") in
-- 
cgit v1.2.3