summaryrefslogtreecommitdiff
path: root/tools/ocamldep.ml
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez-inria.fr>2015-03-12 17:55:28 +0000
committerDamien Doligez <damien.doligez-inria.fr>2015-03-12 17:55:28 +0000
commitc51df1aecfc3375f3f2270ae22ceceff672eb695 (patch)
tree61f386914362d197858cff6f979eaabec13c50d6 /tools/ocamldep.ml
parent1c01597a8640536fb0be0cc862389e6aafd635e1 (diff)
downloadocaml-c51df1aecfc3375f3f2270ae22ceceff672eb695.tar.gz
relax ocamldep test to allow for non-ASCII module identifiers
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15915 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/ocamldep.ml')
-rw-r--r--tools/ocamldep.ml12
1 files changed, 8 insertions, 4 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml
index 926dbe1293..1309f032ee 100644
--- a/tools/ocamldep.ml
+++ b/tools/ocamldep.ml
@@ -192,11 +192,15 @@ let print_raw_dependencies source_file deps =
print_filename source_file; print_string depends_on;
Depend.StringSet.iter
(fun dep ->
+ (* filter out "*predef*" *)
if (String.length dep > 0)
- && (match dep.[0] with 'A'..'Z' -> true | _ -> false) then begin
- print_char ' ';
- print_string dep
- end)
+ && (match dep.[0] with
+ | 'A'..'Z' | '\128'..'\255' -> true
+ | _ -> false) then
+ begin
+ print_char ' ';
+ print_string dep
+ end)
deps;
print_char '\n'