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

Rain: added parsing of input statements

Browse Source
This commit is contained in:
Neil Brown 2007-08-23 15:18:11 +00:00
parent 9b0419acbc
commit e46bcefeb7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
RainParse.hs
View File

@ -220,8 +220,10 @@ each = do { m <- sPareach ; sLeftR ; n <- name ; sColon ; exp <- expression ; sR
return $ A.Seq m $ A.Rep m (A.ForEach m n exp) $ A.OnlyP m st }
comm :: RainParser A.Process
comm = do { lv <- lvalue ; sOut ; exp <- expression ; sSemiColon ;
return $ A.Output (findMeta lv) lv [A.OutExpression (findMeta exp) exp] }
comm = do { lv <- lvalue ;
do {sOut ; exp <- expression ; sSemiColon ; return $ A.Output (findMeta lv) lv [A.OutExpression (findMeta exp) exp] }
<|> do {sIn ; rv <- lvalue ; sSemiColon ; return $ A.Input (findMeta lv) lv $ A.InputSimple (findMeta rv) [A.InVariable (findMeta rv) rv] }
}
statement :: RainParser A.Process
statement