Parse double arithmetic negation, i.e. (( !!a ));

This commit is contained in:
Vidar Holen 2015-09-02 19:31:22 -07:00
parent 856a204ec3
commit 01c27dc96a
1 changed files with 2 additions and 1 deletions

View File

@ -555,6 +555,7 @@ prop_a18= isOk readArithmeticContents "a?b:c"
prop_a19= isOk readArithmeticContents "\\\n3 +\\\n 2" prop_a19= isOk readArithmeticContents "\\\n3 +\\\n 2"
prop_a20= isOk readArithmeticContents "a ? b ? c : d : e" prop_a20= isOk readArithmeticContents "a ? b ? c : d : e"
prop_a21= isOk readArithmeticContents "a ? b : c ? d : e" prop_a21= isOk readArithmeticContents "a ? b : c ? d : e"
prop_a22= isOk readArithmeticContents "!!a"
readArithmeticContents = readArithmeticContents =
readSequence readSequence
where where
@ -650,7 +651,7 @@ readArithmeticContents =
id <- getNextId id <- getNextId
op <- oneOf "!~" op <- oneOf "!~"
spacing spacing
x <- readAnySigned x <- readAnyNegated
return $ TA_Unary id [op] x return $ TA_Unary id [op] x
readAnySigned = readSigned <|> readAnycremented readAnySigned = readSigned <|> readAnycremented