Changeset 14624 for src/Pugs/Parser

Timestamp:

11/05/06 03:22:19 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

41990

Message:

* Pugs.Parser.Types: insertIntoPosition now takes a String, not Char,

so we can more freely conjure snippets that user had not written

from thin air.

Files:

• src/Pugs/Parser/Types.hs (modified) (1 diff)

src/Pugs/Parser/Types.hs

@@ -347 +347 @@
 Modify the input stream by inserting a single 'Char' as the next thing to parse.
 -}
-insertIntoPosition :: Char -> RuleParser ()
-insertIntoPosition ch = do
+insertIntoPosition :: String -> RuleParser ()
+insertIntoPosition str = do
     currPos <- getPosition
-    input <- getInput 
-    setInput (ch:input)
-    setPosition (setSourceColumn currPos (sourceColumn currPos - 1))
+    input   <- getInput 
+    setInput (str ++ input)
+    setPosition (setSourceColumn currPos (sourceColumn currPos - length str))