Bitwise operations

plutus-core/changelog.d/20240523_124004_koz.ross_bitwise_2.md

@@ -0,0 +1,39 @@
+<!--
+A new scriv changelog fragment.
+
+Uncomment the section that is right (remove the HTML comment wrapper).
+-->
+
+<!--
+### Removed
+
+- A bullet item for the Removed category.
+
+-->
+### Added
+
+- Implementation and tests for primitive operations in [this
+  CIP](https://github.com/mlabs-haskell/CIPs/blob/koz/bitwise/CIP-XXXX/CIP-XXXX.md)
+
+### Changed
+
+- Rename `ReplicateByteString` to `ReplicateByte` (and similarly for denotation)
+
+<!--
+### Deprecated
+
+- A bullet item for the Deprecated category.
+
+-->
+<!--
+### Fixed
+
+- A bullet item for the Fixed category.
+
+-->
+<!--
+### Security
+
+- A bullet item for the Security category.
+
+-->

plutus-core/plutus-core.cabal

@@ -92,8 +92,7 @@ library
     PlutusCore.Analysis.Definitions
     PlutusCore.Annotation
     PlutusCore.Arity
-    PlutusCore.Bitwise.Convert
-    PlutusCore.Bitwise.Logical
+    PlutusCore.Bitwise
     PlutusCore.Builtin
     PlutusCore.Builtin.Debug
     PlutusCore.Builtin.Elaborate
@@ -417,6 +416,7 @@ test-suite untyped-plutus-core-test
     DeBruijn.Spec
     DeBruijn.UnDeBruijnify
     Evaluation.Builtins
+    Evaluation.Builtins.Bitwise
     Evaluation.Builtins.BLS12_381
     Evaluation.Builtins.BLS12_381.TestClasses
     Evaluation.Builtins.BLS12_381.Utils
@@ -430,6 +430,7 @@ test-suite untyped-plutus-core-test
     Evaluation.Debug
     Evaluation.FreeVars
     Evaluation.Golden
+    Evaluation.Helpers
     Evaluation.Machines
     Evaluation.Regressions
     Flat.Spec

plutus-core/plutus-core/src/PlutusCore/Default/Builtins.hs

@@ -7,7 +7,6 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE ScopedTypeVariables   #-}
-{-# LANGUAGE TypeApplications      #-}
 {-# LANGUAGE TypeFamilies          #-}
 {-# LANGUAGE TypeOperators         #-}
 {-# LANGUAGE UndecidableInstances  #-}
@@ -26,8 +25,7 @@ import PlutusCore.Evaluation.Machine.ExMemoryUsage (ExMemoryUsage, LiteralByteSi
 import PlutusCore.Evaluation.Result (EvaluationResult (..))
 import PlutusCore.Pretty (PrettyConfigPlc)
 
-import PlutusCore.Bitwise.Convert as Convert
-import PlutusCore.Bitwise.Logical as Logical
+import PlutusCore.Bitwise qualified as Bitwise
 import PlutusCore.Crypto.BLS12_381.G1 qualified as BLS12_381.G1
 import PlutusCore.Crypto.BLS12_381.G2 qualified as BLS12_381.G2
 import PlutusCore.Crypto.BLS12_381.Pairing qualified as BLS12_381.Pairing
@@ -160,7 +158,12 @@ data DefaultFun
     | ComplementByteString
     | ReadBit
     | WriteBits
-    | ReplicateByteString
+    | ReplicateByte
+    -- Bitwise
+    | ShiftByteString
+    | RotateByteString
+    | CountSetBits
+    | FindFirstSetBit
     deriving stock (Show, Eq, Ord, Enum, Bounded, Generic, Ix)
     deriving anyclass (NFData, Hashable, PrettyBy PrettyConfigPlc)
 
@@ -1817,15 +1820,15 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni DefaultFun where
         let integerToByteStringDenotation :: Bool -> LiteralByteSize -> Integer -> BuiltinResult BS.ByteString
             {- The second argument is wrapped in a LiteralByteSize to allow us to interpret it as a size during
                costing.  It appears as an integer in UPLC: see Note [Integral types as Integer]. -}
-            integerToByteStringDenotation b (LiteralByteSize w) n = integerToByteStringWrapper b w n
+            integerToByteStringDenotation b (LiteralByteSize w) = Bitwise.integerToByteStringWrapper b w
             {-# INLINE integerToByteStringDenotation #-}
         in makeBuiltinMeaning
             integerToByteStringDenotation
             (runCostingFunThreeArguments . paramIntegerToByteString)
 
     toBuiltinMeaning _semvar ByteStringToInteger =
         let byteStringToIntegerDenotation :: Bool -> BS.ByteString -> Integer
-            byteStringToIntegerDenotation = byteStringToIntegerWrapper
+            byteStringToIntegerDenotation = Bitwise.byteStringToIntegerWrapper
             {-# INLINE byteStringToIntegerDenotation #-}
         in makeBuiltinMeaning
             byteStringToIntegerDenotation
@@ -1834,60 +1837,94 @@ instance uni ~ DefaultUni => ToBuiltinMeaning uni DefaultFun where
     -- Logical
     toBuiltinMeaning _semvar AndByteString =
         let andByteStringDenotation :: Bool -> BS.ByteString -> BS.ByteString -> BS.ByteString
-            andByteStringDenotation = Logical.andByteString
+            andByteStringDenotation = Bitwise.andByteString
             {-# INLINE andByteStringDenotation #-}
         in makeBuiltinMeaning
             andByteStringDenotation
             (runCostingFunThreeArguments . unimplementedCostingFun)
 
     toBuiltinMeaning _semvar OrByteString =
         let orByteStringDenotation :: Bool -> BS.ByteString -> BS.ByteString -> BS.ByteString
-            orByteStringDenotation = Logical.orByteString
+            orByteStringDenotation = Bitwise.orByteString
             {-# INLINE orByteStringDenotation #-}
         in makeBuiltinMeaning
             orByteStringDenotation
             (runCostingFunThreeArguments . unimplementedCostingFun)
 
     toBuiltinMeaning _semvar XorByteString =
         let xorByteStringDenotation :: Bool -> BS.ByteString -> BS.ByteString -> BS.ByteString
-            xorByteStringDenotation = Logical.xorByteString
+            xorByteStringDenotation = Bitwise.xorByteString
             {-# INLINE xorByteStringDenotation #-}
         in makeBuiltinMeaning
             xorByteStringDenotation
             (runCostingFunThreeArguments . unimplementedCostingFun)
 
     toBuiltinMeaning _semvar ComplementByteString =
         let complementByteStringDenotation :: BS.ByteString -> BS.ByteString
-            complementByteStringDenotation = Logical.complementByteString
+            complementByteStringDenotation = Bitwise.complementByteString
             {-# INLINE complementByteStringDenotation #-}
         in makeBuiltinMeaning
             complementByteStringDenotation
             (runCostingFunOneArgument . unimplementedCostingFun)
 
     toBuiltinMeaning _semvar ReadBit =
         let readBitDenotation :: BS.ByteString -> Int -> BuiltinResult Bool
-            readBitDenotation = Logical.readBit
+            readBitDenotation = Bitwise.readBit
             {-# INLINE readBitDenotation #-}
         in makeBuiltinMeaning
             readBitDenotation
             (runCostingFunTwoArguments . unimplementedCostingFun)
 
     toBuiltinMeaning _semvar WriteBits =
         let writeBitsDenotation :: BS.ByteString -> [(Integer, Bool)] -> BuiltinResult BS.ByteString
-            writeBitsDenotation = Logical.writeBits
+            writeBitsDenotation = Bitwise.writeBits
             {-# INLINE writeBitsDenotation #-}
         in makeBuiltinMeaning
             writeBitsDenotation
             (runCostingFunTwoArguments . unimplementedCostingFun)
 
-    toBuiltinMeaning _semvar ReplicateByteString =
-        let byteStringReplicateDenotation :: Int -> Word8 -> BuiltinResult BS.ByteString
-            byteStringReplicateDenotation = Logical.replicateByteString
-            {-# INLINE byteStringReplicateDenotation #-}
+    toBuiltinMeaning _semvar ReplicateByte =
+        let replicateByteDenotation :: Int -> Word8 -> BuiltinResult BS.ByteString
+            replicateByteDenotation = Bitwise.replicateByte
+            {-# INLINE replicateByteDenotation #-}
         in makeBuiltinMeaning
-            byteStringReplicateDenotation
+            replicateByteDenotation
             (runCostingFunTwoArguments . unimplementedCostingFun)
 
+    -- Bitwise
+
+    toBuiltinMeaning _semvar ShiftByteString =
+        let shiftByteStringDenotation :: BS.ByteString -> Int -> BS.ByteString
+            shiftByteStringDenotation = Bitwise.shiftByteString
+            {-# INLINE shiftByteStringDenotation #-}
+        in makeBuiltinMeaning
+            shiftByteStringDenotation
+            (runCostingFunTwoArguments . unimplementedCostingFun)
+
+    toBuiltinMeaning _semvar RotateByteString =
+        let rotateByteStringDenotation :: BS.ByteString -> Int -> BS.ByteString
+            rotateByteStringDenotation = Bitwise.rotateByteString
+            {-# INLINE rotateByteStringDenotation #-}
+        in makeBuiltinMeaning
+            rotateByteStringDenotation
+            (runCostingFunTwoArguments . unimplementedCostingFun)
+
+    toBuiltinMeaning _semvar CountSetBits =
+        let countSetBitsDenotation :: BS.ByteString -> Int
+            countSetBitsDenotation = Bitwise.countSetBits
+            {-# INLINE countSetBitsDenotation #-}
+        in makeBuiltinMeaning
+            countSetBitsDenotation
+            (runCostingFunOneArgument . unimplementedCostingFun)
+
+    toBuiltinMeaning _semvar FindFirstSetBit =
+        let findFirstSetBitDenotation :: BS.ByteString -> Int
+            findFirstSetBitDenotation = Bitwise.findFirstSetBit
+            {-# INLINE findFirstSetBitDenotation #-}
+        in makeBuiltinMeaning
+            findFirstSetBitDenotation
+            (runCostingFunOneArgument . unimplementedCostingFun)
+
     -- See Note [Inlining meanings of builtins].
     {-# INLINE toBuiltinMeaning #-}
 
@@ -2021,7 +2058,12 @@ instance Flat DefaultFun where
               ComplementByteString            -> 78
               ReadBit                         -> 79
               WriteBits                       -> 80
-              ReplicateByteString             -> 81
+              ReplicateByte                   -> 81
+
+              ShiftByteString                 -> 82
+              RotateByteString                -> 83
+              CountSetBits                    -> 84
+              FindFirstSetBit                 -> 85
 
     decode = go =<< decodeBuiltin
         where go 0  = pure AddInteger
@@ -2105,7 +2147,11 @@ instance Flat DefaultFun where
               go 78 = pure ComplementByteString
               go 79 = pure ReadBit
               go 80 = pure WriteBits
-              go 81 = pure ReplicateByteString
+              go 81 = pure ReplicateByte
+              go 82 = pure ShiftByteString
+              go 83 = pure RotateByteString
+              go 84 = pure CountSetBits
+              go 85 = pure FindFirstSetBit
               go t  = fail $ "Failed to decode builtin tag, got: " ++ show t
 
     size _ n = n + builtinTagWidth

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/AndByteString.plc.golden

@@ -0,0 +1 @@
+bool -> bytestring -> bytestring -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/ComplementByteString.plc.golden

@@ -0,0 +1 @@
+bytestring -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/CountSetBits.plc.golden

@@ -0,0 +1 @@
+bytestring -> integer

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/FindFirstSetBit.plc.golden

@@ -0,0 +1 @@
+bytestring -> integer

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/OrByteString.plc.golden

@@ -0,0 +1 @@
+bool -> bytestring -> bytestring -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/ReadBit.plc.golden

@@ -0,0 +1 @@
+bytestring -> integer -> bool

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/ReplicateByte.plc.golden

@@ -0,0 +1 @@
+integer -> integer -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/RotateByteString.plc.golden

@@ -0,0 +1 @@
+bytestring -> integer -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/ShiftByteString.plc.golden

@@ -0,0 +1 @@
+bytestring -> integer -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/WriteBits.plc.golden

@@ -0,0 +1 @@
+bytestring -> list (pair integer bool) -> bytestring

plutus-core/plutus-core/test/TypeSynthesis/Golden/DefaultFun/XorByteString.plc.golden

@@ -0,0 +1 @@
+bool -> bytestring -> bytestring -> bytestring

plutus-core/plutus-ir/src/PlutusIR/Transform/RewriteRules/CommuteFnWithConst.hs

@@ -130,11 +130,15 @@ isCommutative = \case
   IntegerToByteString             -> False
   ByteStringToInteger             -> False
   -- Currently, this requires commutativity in all arguments, which the
-  -- logical operations are not.
+  -- logical and bitwise operations are not.
   AndByteString                   -> False
   OrByteString                    -> False
   XorByteString                   -> False
   ComplementByteString            -> False
   ReadBit                         -> False
   WriteBits                       -> False
-  ReplicateByteString             -> False
+  ReplicateByte                   -> False
+  ShiftByteString                 -> False
+  RotateByteString                -> False
+  CountSetBits                    -> False
+  FindFirstSetBit                 -> False