Parse double arithmetic negation, i.e. (( !!a ));
This commit is contained in:
parent
856a204ec3
commit
01c27dc96a
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue