Fixed parser error for 'for ((;;)) ; do'
This commit is contained in:
parent
157fea73da
commit
b1af7bb8f2
|
@ -1364,6 +1364,7 @@ prop_readForClause4 = isOk readForClause "for((i=0; i<10; i++)); do echo $i; don
|
||||||
prop_readForClause5 = isOk readForClause "for ((i=0;i<10 && n>x;i++,--n))\ndo \necho $i\ndone"
|
prop_readForClause5 = isOk readForClause "for ((i=0;i<10 && n>x;i++,--n))\ndo \necho $i\ndone"
|
||||||
prop_readForClause6 = isOk readForClause "for ((;;))\ndo echo $i\ndone"
|
prop_readForClause6 = isOk readForClause "for ((;;))\ndo echo $i\ndone"
|
||||||
prop_readForClause7 = isOk readForClause "for ((;;)) do echo $i\ndone"
|
prop_readForClause7 = isOk readForClause "for ((;;)) do echo $i\ndone"
|
||||||
|
prop_readForClause8 = isOk readForClause "for ((;;)) ; do echo $i\ndone"
|
||||||
readForClause = called "for loop" $ do
|
readForClause = called "for loop" $ do
|
||||||
pos <- getPosition
|
pos <- getPosition
|
||||||
(T_For id) <- g_For
|
(T_For id) <- g_For
|
||||||
|
@ -1381,7 +1382,8 @@ readForClause = called "for loop" $ do
|
||||||
z <- readArithmeticContents
|
z <- readArithmeticContents
|
||||||
spacing
|
spacing
|
||||||
string "))"
|
string "))"
|
||||||
readSequentialSep <|> disregard spacing
|
spacing
|
||||||
|
optional $ readSequentialSep >> spacing
|
||||||
return $ \id group -> (return $ T_ForArithmetic id x y z group)
|
return $ \id group -> (return $ T_ForArithmetic id x y z group)
|
||||||
|
|
||||||
readRegular = do
|
readRegular = do
|
||||||
|
|
Loading…
Reference in New Issue