uplime/lamb
uplime
/
lamb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add variable definition

This commit is contained in:
darkf 2013-10-23 20:54:26 -07:00
parent 0f127a00cd
commit 1bbc16f132
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
parser.hs
View File

@ -146,6 +146,13 @@ ifExpr = do
bool = fmap BoolConst $ (symbol "true" >> return True) <|> (symbol "false" >> return False) bool = fmap BoolConst $ (symbol "true" >> return True) <|> (symbol "false" >> return False)
def = do
name <- identifier
whiteSpace
symbol "="
value <- exprparser
return $ Def name value
expr' = try block expr' = try block
<|> try funDef <|> try funDef
<|> try call <|> try call
@ -155,6 +162,7 @@ expr' = try block
<|> listSeq exprparser ListConst <|> listSeq exprparser ListConst
<|> try ifExpr <|> try ifExpr
<|> try bool <|> try bool
<|> try def
<|> fmap Var identifier <|> fmap Var identifier
<|> fmap StrConst stringLiteral <|> fmap StrConst stringLiteral
<|> fmap IntConst integer <|> fmap IntConst integer