Changeset 14439 for src/Pugs/Lexer.hs

Timestamp:

10/22/06 01:36:59 (2 years ago)

Author:

audreyt

Message:

* Parse message fix:

• sigilled vars are taken as an unit in "unexpected" errors
• semicolon, eof and statement modifiers are not mentioned anymore

pugs> $x $y
Unexpected "$y"
expecting operator
at <interactive> line 1, column 4

Files:

• src/Pugs/Lexer.hs (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -24 +24 @@
 
     ruleScope, ruleTrait, ruleTraitName, ruleBareTrait, ruleType,
-    verbatimParens, verbatimBrackets, verbatimBraces,
+    verbatimParens, verbatimBrackets, verbatimBraces, eof
 ) where
 import Pugs.Internals
@@ -33 +33 @@
 import Pugs.Parser.Charnames
 import Text.ParserCombinators.Parsec.Pos (sourceColumn, sourceLine)
+import qualified Text.ParserCombinators.Parsec as Parsec (eof)
+
+eof :: RuleParser ()
+eof = Parsec.eof <?> ""
 
 identStart, identLetter :: RuleParser Char