Parse until loops

Minoru · Mar 19, 2010 · a13fe60 · a13fe60
1 parent 4bf0092
commit a13fe60
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/FEATURES b/FEATURES
@@ -22,5 +22,5 @@ Syntactical:
   - case conditionals
   + if conditionals
   + while loops
-  - until loops
+  + until loops
   - function definitions
diff --git a/Parse.hs b/Parse.hs
@@ -403,6 +403,7 @@ compoundCommand = choice $
     , forClause
     , ifClause
     , whileClause
+    , untilClause
     ]
 
 braceGroup = fmap BraceGroup $ between (theReservedWord "{") (theReservedWord "}") compoundList
@@ -434,6 +435,12 @@ whileClause = do
     cmds <- doGroup
     return $ While l cmds
 
+untilClause = do
+    theReservedWord "until"
+    l <- compoundList
+    cmds <- doGroup
+    return $ Until l cmds
+
 ifClause = do
     theReservedWord "if"
     cond <- compoundList