Changeset 15230 for src/Pugs/Lexer.hs

Timestamp:

02/09/07 05:06:31 (22 months ago)

Author:

audreyt

Message:

* Pugs.Lexer: Implement the <nofat> regex so:

use => 1

etc can work.

Files:

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

src/Pugs/Lexer.hs

@@ -207 +207 @@
 symbol s = try $ do
     rv <- string s
-    let lastCh = last s
-        ahead  = if isWordAny lastCh then aheadWord else aheadSym
-    lookAhead (satisfy (ahead lastCh)) <|> (eof >> return ' ')
-    whiteSpace
+    let lastCh  = last s
+        ahead f = lookAhead (satisfy (f lastCh)) <|> (eof >> return ' ')
+    if isWordAny lastCh
+        then ahead aheadWord >> whiteSpace >> notFollowedBy (try (char '=' >> char '>'))
+        else ahead aheadSym >> whiteSpace
     return rv
     where