From 4679d353f5d9d8a1d309473e6c0bf8bc2bfc8f48 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 13 Oct 2012 23:05:12 +0000 Subject: recognize \E, \L, \u, \U in regexpes --- src/lexer.mll | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/lexer.mll b/src/lexer.mll index d4fc3d5..ee58a7d 100644 --- a/src/lexer.mll +++ b/src/lexer.mll @@ -919,7 +919,7 @@ and string_escape = parse | 'Q' { warn [Warn_complex_expressions] lexbuf ("don't use \\Q, use quotemeta instead"); string_escape_useful := Left true; next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } -| ['a' 'c' 'b' 'f' 'l' 'r'] { string_escape_useful := Left true; next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| ['a' 'c' 'b' 'E' 'f' 'l' 'L' 'r' 'u' 'U'] { string_escape_useful := Left true; next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | ['$' '@' '%' '{' '[' ':'] { if !string_escape_useful = Left false then string_escape_useful := Right (lexeme_char lexbuf 0) ; next_s (lexeme lexbuf) (Stack.pop next_rule) lexbuf -- cgit v1.2.1