Changeset 10901 for src/Pugs/Lexer.hs

Timestamp:

06/25/06 23:58:10 (2 years ago)

Author:

audreyt

Message:

* wordBoundary rule for \b (not yet used)

Files:

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

src/Pugs/Lexer.hs

@@ -131 +131 @@
     return contents
 
+-- The \b rule.
+ruleWordBoundary :: RuleParser ()
+ruleWordBoundary = do
+    prev <- getPrevCharClass
+    case prev of
+        SpaceClass -> return ()
+        _  -> do
+            curr <- getCurrCharClass
+            guard (prev /= curr)
+
 -- The <ws> rule.
 ruleWs :: RuleParser ()