From c37e183879aae85bf2fd84c5f68f8c1a0e7dd07d Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Mon, 24 Mar 2008 23:44:40 +0000 Subject: [PATCH] Added support for a not-equals operator in Rain --- frontends/LexRain.x | 2 +- frontends/ParseRain.hs | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/frontends/LexRain.x b/frontends/LexRain.x index 8cae9de..5fe9d09 100644 --- a/frontends/LexRain.x +++ b/frontends/LexRain.x @@ -31,7 +31,7 @@ $decimalDigit = [0-9] $hexDigit = [0-9 a-f A-F] @reserved = "[" | "]" | "(" | ")" | "{" | "}" - | ":" | "==" | "," | ";" + | ":" | "==" | "<>" | "," | ";" | "?" | "!" | "=" | "+=" | "-=" | "*=" | "/=" | "%=" | "+" | "-" | "*" | "/" | "%" | ">=" | "<=" diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs index 0e87595..692dea4 100644 --- a/frontends/ParseRain.hs +++ b/frontends/ParseRain.hs @@ -102,6 +102,7 @@ dyadicCompOp <|> do {m <- reserved "<=" ; return (m,A.LessEq) } <|> do {m <- reserved ">=" ; return (m,A.MoreEq) } <|> do {m <- reserved "==" ; return (m,A.Eq) } + <|> do {m <- reserved "<>" ; return (m,A.NotEq) } monadicArithOp :: RainParser (Meta,A.MonadicOp) monadicArithOp