diff options
| -rwxr-xr-x | tools/coqdep.ml | 5 |
1 files changed, 5 insertions, 0 deletions
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 |