GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-11-30 23:45:23 +03:00
Code Issues Projects Releases Wiki Activity

!=== is now !== (!!!)

Browse Source
This commit is contained in:
Adam C. Foltzer 2014-04-18 14:57:40 -07:00
parent 4e31cd7b4c
commit e937d172d3
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/CryptolPrims.markdown
View File

@ -6,7 +6,7 @@ Old types:
(==) : {a} (fin a) => (a,a) -> Bit
(!=) : {a} (fin a) => (a,a) -> Bit
(===) : {a b} (fin b) => (a -> b,a -> b) -> a -> Bit
(!===) : {a b} (fin b) => (a -> b,a -> b) -> a -> Bit
(!==) : {a b} (fin b) => (a -> b,a -> b) -> a -> Bit
(<) : {n} (fin n) => ([n],[n]) -> Bit
(>) : {n} (fin n) => ([n],[n]) -> Bit

8
src/Cryptol/Parser.y
View File

@ -114,7 +114,7 @@ import Paths_cryptol
'!=' { Located $$ (Token (Op NotEqual ) _)}
'==' { Located $$ (Token (Op Equal ) _)}
'!===' { Located $$ (Token (Op NotEqualFun ) _)}
'!==' { Located $$ (Token (Op NotEqualFun ) _)}
'===' { Located $$ (Token (Op EqualFun ) _)}
'>' { Located $$ (Token (Op GreaterThan ) _)}
'<' { Located $$ (Token (Op LessThan ) _)}
@ -156,7 +156,7 @@ import Paths_cryptol
%left '||'
%left '^'
%left '&&'
%nonassoc '==' '!=' '===' '!==='
%nonassoc '==' '!=' '===' '!=='
%nonassoc '<' '>' '<=' '>='
%right '#'
%left '<<' '>>' '<<<' '>>>'
@ -342,7 +342,7 @@ iexpr :: { Expr }
| iexpr '==' iexpr { binOp $1 (op ECEq $2) $3 }
| iexpr '!=' iexpr { binOp $1 (op ECNotEq $2) $3 }
| iexpr '===' iexpr { binOp $1 (op ECFunEq $2) $3 }
| iexpr '!===' iexpr { binOp $1 (op ECFunNotEq $2) $3 }
| iexpr '!==' iexpr { binOp $1 (op ECFunNotEq $2) $3 }
| iexpr '>' iexpr { binOp $1 (op ECGt $2) $3 }
| iexpr '<' iexpr { binOp $1 (op ECLt $2) $3 }
| iexpr '<=' iexpr { binOp $1 (op ECLtEq $2) $3 }
@ -421,7 +421,7 @@ aexpr :: { Expr }
| '(' '==' ')' { at ($1,$3) $ ECon ECEq }
| '(' '!=' ')' { at ($1,$3) $ ECon ECNotEq }
| '(' '===' ')' { at ($1,$3) $ ECon ECFunEq }
| '(' '!===' ')' { at ($1,$3) $ ECon ECFunNotEq }
| '(' '!==' ')' { at ($1,$3) $ ECon ECFunNotEq }
| '(' '>' ')' { at ($1,$3) $ ECon ECGt }
| '(' '<' ')' { at ($1,$3) $ ECon ECLt }
| '(' '<=' ')' { at ($1,$3) $ ECon ECLtEq }

2
src/Cryptol/Prims/Syntax.hs
View File

@ -159,7 +159,7 @@ instance PP ECon where
ECEq -> text "=="
ECNotEq -> text "!="
ECFunEq -> text "==="
ECFunNotEq -> text "!==="
ECFunNotEq -> text "!=="
ECAnd -> text "&&"
ECOr -> text "||"
ECXor -> text "^"

2
src/Cryptol/Symbolic/Prims.hs
View File

@ -125,7 +125,7 @@ evalECon econ =
cmpBinary cmpEq cmpEq SBV.true b x y
ECFunNotEq -> -- {a b} (Cmp b) => (a -> b) -> (a -> b) -> a -> Bit
-- (f !=== g) x = (f x != g x)
-- (f !== g) x = (f x != g x)
tlam $ \_ ->
tlam $ \b ->
VFun $ \th1 -> return $