diff options
author | Damien Doligez <damien.doligez-inria.fr> | 2015-03-12 17:55:28 +0000 |
---|---|---|
committer | Damien Doligez <damien.doligez-inria.fr> | 2015-03-12 17:55:28 +0000 |
commit | c51df1aecfc3375f3f2270ae22ceceff672eb695 (patch) | |
tree | 61f386914362d197858cff6f979eaabec13c50d6 /tools/ocamldep.ml | |
parent | 1c01597a8640536fb0be0cc862389e6aafd635e1 (diff) | |
download | ocaml-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.ml | 12 |
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' |