Changeset 12261 for src/Pugs/Lexer.hs

Timestamp:

08/15/06 18:34:51 (2 years ago)

Author:

audreyt

Message:

* Pugs.Lexer: "\123" is now a warning.

Files:

• src/Pugs/Lexer.hs (modified) (1 diff)

src/Pugs/Lexer.hs

@@ -278 +278 @@
 charNum = do
     codes <- choice
-        [ based 'o'  8 octDigit
+        [ many1 digit >>= \ds -> do
+            trace ("Warning: Escape sequence \\" ++ ds ++ " is invalid; write \\d" ++ ds ++ " instead") $
+                return [read ds]
+        , based 'o'  8 octDigit
         , based 'x' 16 hexDigit
         , based 'd' 10 digit