aboutsummaryrefslogtreecommitdiffhomepage
path: root/tools/coqdep_lexer.mll
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2017-06-27 14:51:28 +0200
committerGravatar Maxime Dénès <mail@maximedenes.fr>2017-06-27 14:51:28 +0200
commite0ad7ac11b97f089fa862d2e34409e0a1d77d3a1 (patch)
treee53d3e961707091c076088bb835860b53c749a21 /tools/coqdep_lexer.mll
parente485183fe6b0c88ffcba34746ad16cb12283a4a8 (diff)
parent555e9bb113664b5dc9b7f2e5acb84de0831fbbc4 (diff)
Merge PR#731: Mini-cleaning around OCaml file names
This is only a partial merge, we stick with using the standard OCaml (un)capitalize functions.
Diffstat (limited to 'tools/coqdep_lexer.mll')
-rw-r--r--tools/coqdep_lexer.mll8
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/coqdep_lexer.mll b/tools/coqdep_lexer.mll
index 86fdd34b5..843205742 100644
--- a/tools/coqdep_lexer.mll
+++ b/tools/coqdep_lexer.mll
@@ -39,13 +39,13 @@
let syntax_error lexbuf =
raise (Syntax_error (Lexing.lexeme_start lexbuf, Lexing.lexeme_end lexbuf))
+
}
let space = [' ' '\t' '\n' '\r']
-let lowercase = ['a'-'z' '\223'-'\246' '\248'-'\255']
-let uppercase = ['A'-'Z' '\192'-'\214' '\216'-'\222']
-let identchar =
- ['A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9']
+let lowercase = ['a'-'z']
+let uppercase = ['A'-'Z']
+let identchar = ['A'-'Z' 'a'-'z' '_' '\'' '0'-'9']
let caml_up_ident = uppercase identchar*
let caml_low_ident = lowercase identchar*