From e44acbf338e17fb86a47eebf448c27a04d446048 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Tue, 28 Aug 2018 15:08:00 -0700 Subject: Lots of overhaul, supporting a new Object Oriented approach (e.g. %obj::action 1 2) and syntax. --- core/operators.nom | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'core/operators.nom') diff --git a/core/operators.nom b/core/operators.nom index b6e0963..0a46eb5 100644 --- a/core/operators.nom +++ b/core/operators.nom @@ -238,6 +238,7 @@ compile [%x or %y] to (Lua value "(\(%x as lua expr) or \(%y as lua expr))") # Bitwise Operators # TODO: implement OR, XOR, AND for multiple operands? test: + assume ((~5) == -6) assume ((1 | 4) == 5) assume ((1 ~ 3) == 2) assume ((1 & 3) == 1) @@ -271,14 +272,9 @@ compile [%x LSHIFT %shift, %x << %shift] to (..) (%use_bitops and "bit.lshift(\(%x as lua expr), \(%shift as lua expr))") or ".." (\(%x as lua expr) << \(%shift as lua expr)) -compile [%x RSHIFT %shift, %x >>> %shift] to (..) +compile [%x RSHIFT %shift, %x >> %shift] to (..) Lua value (..) (%use_bitops and "bit.rshift(\(%x as lua expr), \(%shift as lua expr))") or ".." - (\(%x as lua expr) >>> \(%shift as lua expr)) - -compile [%x ARSHIFT %shift, %x >> %shift] to (..) - Lua value (..) - (%use_bitops and "bit.arshift(\(%x as lua expr), \(%shift as lua expr))") or ".." (\(%x as lua expr) >> \(%shift as lua expr)) # Unary operators -- cgit v1.2.3