Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Retour en arriere sur le trait Foo.ml ou foo.ml comme source du module Foo: sur un file system case-insensitive, cela fait produire a ocamldep des dependances que make ne comprend pas 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4901 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-06-07 13:08:04 +00:00
parent b34615a023
commit a970ebdb7e
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/misc.ml
View File

@ -76,16 +76,7 @@ let find_in_path path name =
end end
let find_in_path_uncap path name = let find_in_path_uncap path name =
let uname = String.uncapitalize name in find_in_path path (String.uncapitalize name)
let rec try_dir = function
[] -> raise Not_found
| dir::rem ->
let fullname = Filename.concat dir name in
let ufullname = Filename.concat dir uname in
if Sys.file_exists fullname then fullname
else if Sys.file_exists ufullname then ufullname
else try_dir rem
in try_dir path
let remove_file filename = let remove_file filename =
try try