Changeset 10504 for src/Pugs/Lexer.hs

Timestamp:

06/03/06 15:46:48 (3 years ago)

Author:

audreyt

Message:

* Horrible stopgap kluge to make

!-e "file"

parse, before we switch the Parser to OpTable?. It involves
teaching unary - to recognize if it's being used as part of
a filetest operator.

* As part of this change, "-1000" and "+1000" are no longer literals,

but instead always calls &prefix:<-> and &prefix:<+> at runtime.

Files:

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

src/Pugs/Lexer.hs

@@ -489 +489 @@
                     
 exponent'       = do{ oneOf "eE"
-                    ; f <- sign
+                    ; f <- sign'
                     ; e <- decimal <?> "exponent"
                     ; return (power (f e))
@@ -500 +500 @@
 
 -- integers and naturals
-int             = do{ f <- lexeme sign
+int             = nat 
+{-do{ f <- lexeme sign
                     ; n <- nat
                     ; return (f n)
                     }
+                    -}
                     
 -- sign            :: CharParser st (Integer -> Integer)
-sign            =   (char '-' >> return negate) 
+sign'           =   (char '-' >> return negate) 
                 <|> (char '+' >> return id)     
                 <|> return id