suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Stopped the Rain parser using any as a placeholder, and switched to using the unknown types

Browse Source
This commit is contained in:
Neil Brown 2008-05-18 11:34:05 +00:00
parent 760c8a9a1e
commit ec5baf4e97
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
frontends/ParseRain.hs
View File

@ -223,11 +223,13 @@ integerLiteral = do (val, i) <- integer
listLiteral :: RainParser A.Expression
listLiteral
= try $ do m <- sLeftQ
u <- getUniqueIdentifer
let t = A.List $ A.UnknownVarType (Right (m,u))
(do try sRightQ
return $ A.Literal m (A.List A.Any) $ A.ListLiteral m []
return $ A.Literal m t $ A.ListLiteral m []
<|> do e0 <- try expression
(do try sRightQ
return $ A.Literal m (A.List A.Any) $
return $ A.Literal m t $
A.ListLiteral m [e0]
-- Up until the first comma, this may be a type declaration
-- in a cast expression, so we "try" all the way
@ -235,7 +237,7 @@ listLiteral
<|> do try sComma
es <- sepBy1 expression sComma
sRightQ
return $ A.Literal m (A.List A.Any) $
return $ A.Literal m t $
A.ListLiteral m (e0 : es)
)
)
@ -266,8 +268,10 @@ range = try $ do m <- sLeftQ
(A.List t)
(A.Conversion mc A.DefaultConversion t begin)
(A.Conversion mc A.DefaultConversion t end)
Nothing -> return $ A.ExprConstr m $ A.RangeConstr m
(A.List A.Any) begin end
Nothing -> do u <- getUniqueIdentifer
let t = A.List $ A.UnknownVarType (Right (m,u))
return $ A.ExprConstr m $ A.RangeConstr m
t begin end
expression :: RainParser A.Expression
expression