diff options
| author |  Adam Chlipala <adamc@csail.mit.edu> | 2016-02-17 12:12:12 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@csail.mit.edu> | 2016-02-17 12:12:12 -0500 |
| commit | 5705d3b510277f033b8a0317b3fe520b0e5cc60a (patch) | |
| tree | 02da695dbf9f8eca916a6682c87ddb61a62ae828 | |
| parent | 0ef3c4d155a9ce8cceb225607e97c927fdfe6b1a (diff) | |
Allow backslash-r in string literals
| -rw-r--r-- | src/urweb.lex | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index ca45eb6d..368b9f1b 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -224,6 +224,7 @@ xint = x[0-9a-fA-F][0-9a-fA-F]; <STRING,CHAR> "\\\"" => (str := #"\"" :: !str; continue()); <STRING,CHAR> "\\'" => (str := #"'" :: !str; continue()); <STRING,CHAR> "\\n" => (str := #"\n" :: !str; continue()); +<STRING,CHAR> "\\r" => (str := #"\r" :: !str; continue()); <STRING,CHAR> "\\\\" => (str := #"\\" :: !str; continue()); <STRING,CHAR> "\\t" => (str := #"\t" :: !str; continue()); <STRING,CHAR> "\n" => (newline yypos; |