Changeset 14696 for src/Pugs/Parser

Timestamp:

11/10/06 13:23:14 (2 years ago)

Author:

audreyt

Message:

* Pugs.Parser.Literal: Support for sigspace shorthands:

mm/.../; # m:sigspace/.../
ms/.../; # ditto
ss/.../.../; # s:sigspace/.../.../

Files:

• src/Pugs/Parser/Literal.hs (modified) (2 diffs)

src/Pugs/Parser/Literal.hs

@@ -594 +594 @@
 substLiteral = do
     (declarator, pseudo) <- choice
-        [ symbol "s" >> return ("subst", (pseudoAssignment <|>))
+        [ symbol "s"  >> return ("subst", (pseudoAssignment <|>))
+        , do symbol "ss"
+             insertIntoPosition ":sigspace(1)"
+             return ("subst", (pseudoAssignment <|>))
         , symbol "tr" >> return ("trans", id)
         ]
@@ -662 +665 @@
         [ symbol "rx" >> return (id, "rx")
         , symbol "m"  >> return (id, "match")
+        , do (symbol "ms" <|> symbol "mm")
+             insertIntoPosition ":sigspace(1)"
+             return (id, "match")
         , do advs <- ruleRegexDeclarator
              lookAhead (ruleQuoteAdverbs >> char '{')