Enable SoPs and all builtins in PlutusV1/V2 at PV11.

plutus-ledger-api/changelog.d/20250718_072102_kenneth.mackenzie_enable_all_builtins_2.md

@@ -0,0 +1,7 @@
+<!--
+### Changed
+
+- All built-in functions will be enabled in PlutusV1 and PlutusV2 in Protocol Version 11.
+- Plutus Core version 1.1.0, and hence sums of products (the `case` and `constr` AST nodes), will be enabled in PlutusV1 and PlutusV2 in Protocol Version 11.
+
+-->

plutus-ledger-api/src/PlutusLedgerApi/Common.hs

@@ -43,6 +43,7 @@ module PlutusLedgerApi.Common (
   Protocol.valentinePV,
   Protocol.changPV,
   Protocol.plominPV,
+  Protocol.anonPV,
   Protocol.knownPVs,
 
   -- * Costing-related types

plutus-ledger-api/src/PlutusLedgerApi/Common/Eval.hs

@@ -155,6 +155,8 @@ data EvaluationContext = EvaluationContext
       -- doesn't depend on the 'PlutusLedgerLanguage' or the AST version: deserialisation of a 1.0.0
       -- AST fails upon encountering a 'Case' node anyway, so we can safely assume here that 'case'
       -- is available.
+      -- FIXME: do we need to test that it fails for older PVs?  We can't submit
+      -- transactions in old PVs, so maybe it doesn't matter.
     , _evalCtxToSemVar      :: MajorProtocolVersion -> BuiltinSemanticsVariant DefaultFun
       -- ^ Specifies how to get a semantics variant for this ledger language given a
       -- 'MajorProtocolVersion'.

plutus-ledger-api/src/PlutusLedgerApi/Common/ProtocolVersions.hs

@@ -10,30 +10,32 @@ module PlutusLedgerApi.Common.ProtocolVersions
     , valentinePV
     , changPV
     , plominPV
+    , anonPV
+    , newestPV
     , knownPVs
     , futurePV
     ) where
 
 import Codec.Serialise (Serialise)
-import Data.Set qualified as Set
 import GHC.Generics (Generic)
 import Prettyprinter
 
 {- Note [Adding new builtins: protocol versions]
 
   *** ATTENTION! ***
-  New built-in functions must initially be added under `futurePV` and should
-  only be moved to an earlier MajorProtocolVersion once they have been fully
-  implemented and costed and their release under the relevant protocol version
-  has been officially approved.
+  New built-in functions must initially be added under
+  `futurePV` and should only be moved to an earlier MajorProtocolVersion once
+  they have been fully implemented and costed and their release under the
+  relevant protocol version has been officially approved.  Remember to update
+  the tests in `Spec.Versions` and `Spec.Data.Versions` when this happens.
 -}
 
 -- | This represents the major component of the Cardano protocol version.
 -- The ledger can only supply the major component of the protocol version, not the minor
 -- component, and Plutus should only need to care about the major component anyway.
 -- This relies on careful understanding between us and the ledger as to what this means.
 newtype MajorProtocolVersion = MajorProtocolVersion { getMajorProtocolVersion :: Int }
-  deriving newtype (Eq, Ord, Show, Serialise)
+  deriving newtype (Eq, Ord, Show, Serialise, Enum)
   deriving stock (Generic)
 
 instance Pretty MajorProtocolVersion where
@@ -55,6 +57,8 @@ maryPV = MajorProtocolVersion 4
 alonzoPV :: MajorProtocolVersion
 alonzoPV = MajorProtocolVersion 5
 
+-- According to https://cardano.org/hardforks/, PV 6 was called "Lobster".
+
 -- | The Vasil HF introduced the Babbage era and Plutus V2
 vasilPV :: MajorProtocolVersion
 vasilPV = MajorProtocolVersion 7
@@ -68,16 +72,20 @@ valentinePV = MajorProtocolVersion 8
 changPV :: MajorProtocolVersion
 changPV = MajorProtocolVersion 9
 
--- | The Plomin HF will be an intra-era HF where some new builtin functions
--- are introduced in Plutus V2 and V3.
+-- | The Plomin HF was an intra-era HF where some new builtin functions were
+-- introduced in Plutus V2 and V3.
 plominPV :: MajorProtocolVersion
 plominPV = MajorProtocolVersion 10
 
+-- | Not sure what this is going to be called yet
+anonPV :: MajorProtocolVersion
+anonPV = MajorProtocolVersion 11
+
 -- | The set of protocol versions that are "known", i.e. that have been released
--- and have actual differences associated with them.
-knownPVs :: Set.Set MajorProtocolVersion
+-- and have actual differences associated with them.  This is currently only
+-- used for testing, so efficiency is not parmount and a list is fine.
+knownPVs :: [MajorProtocolVersion]
 knownPVs =
-  Set.fromList
     [ shelleyPV
     , allegraPV
     , maryPV
@@ -86,16 +94,26 @@ knownPVs =
     , valentinePV
     , changPV
     , plominPV
+    , anonPV
     ]
 
--- | This is a placeholder for when we don't yet know what protocol version will
--- be used for something. It's a very high protocol version that should never
--- appear in reality.  New builtins should always be given this protocol version
--- until they've been finalised.
---
--- We should not assign names to future protocol versions until it's
--- confirmed that they are correct, otherwise we could accidentally
--- associate something with the wrong protocol version.
+-- We're sometimes in an intermediate state where we've added new builtins but
+-- not yet released them (but intend to). This is used by some of the tests to
+-- decide what PVs the test should include.  UPDATE THIS when we're expecting to
+-- release new builtins in a forthcoming PV.
+newestPV :: MajorProtocolVersion
+newestPV = anonPV
+
+{-| This is a placeholder for when we don't yet know what protocol version will
+  be used for something. It's a very high protocol version that should never
+  appear in reality.  New builtins should always be given this protocol version
+  until they've been finalised (at which point they should be moved to
+  the PV named in `newestPV`).
+
+We should not assign names to future protocol versions until it's
+  confirmed that they are correct, otherwise we could accidentally
+  associate something with the wrong protocol version.
+-}
 futurePV :: MajorProtocolVersion
 futurePV = MajorProtocolVersion maxBound