diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-06-27 14:51:28 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-27 14:51:28 +0200 |
commit | e0ad7ac11b97f089fa862d2e34409e0a1d77d3a1 (patch) | |
tree | e53d3e961707091c076088bb835860b53c749a21 | |
parent | e485183fe6b0c88ffcba34746ad16cb12283a4a8 (diff) | |
parent | 555e9bb113664b5dc9b7f2e5acb84de0831fbbc4 (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.
-rw-r--r-- | tools/coqdep_lexer.mll | 8 | ||||
-rw-r--r-- | tools/ocamllibdep.mll | 8 |
2 files changed, 8 insertions, 8 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* diff --git a/tools/ocamllibdep.mll b/tools/ocamllibdep.mll index bf82be09f..8b64778e9 100644 --- a/tools/ocamllibdep.mll +++ b/tools/ocamllibdep.mll @@ -11,13 +11,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* |