feat: upgrade pparams from previous eras

Author: agaffney

ledger/allegra/pparams.go

@@ -42,3 +42,9 @@ func (u *AllegraProtocolParameterUpdate) UnmarshalCBOR(data []byte) error {
 func (p *AllegraProtocolParameters) Utxorpc() *cardano.PParams {
 	return p.ShelleyProtocolParameters.Utxorpc()
 }
+
+func UpgradePParams(prevPParams shelley.ShelleyProtocolParameters) AllegraProtocolParameters {
+	return AllegraProtocolParameters{
+		ShelleyProtocolParameters: prevPParams,
+	}
+}

ledger/alonzo/pparams.go

@@ -73,8 +73,7 @@ func (p *AlonzoProtocolParameters) UpdateFromGenesis(genesis *AlonzoGenesis) {
 	if genesis == nil {
 		return
 	}
-	// XXX: do we need to convert this?
-	p.AdaPerUtxoByte = genesis.LovelacePerUtxoWord
+	p.AdaPerUtxoByte = genesis.LovelacePerUtxoWord / 8
 	p.MaxValueSize = genesis.MaxValueSize
 	p.CollateralPercentage = genesis.CollateralPercentage
 	p.MaxCollateralInputs = genesis.MaxCollateralInputs
@@ -170,3 +169,9 @@ func (p *AlonzoProtocolParameters) Utxorpc() *cardano.PParams {
 		},
 	}
 }
+
+func UpgradePParams(prevPParams mary.MaryProtocolParameters) AlonzoProtocolParameters {
+	return AlonzoProtocolParameters{
+		MaryProtocolParameters: prevPParams,
+	}
+}

ledger/babbage/pparams.go

@@ -16,6 +16,7 @@ package babbage
 
 import (
 	"github.com/blinklabs-io/gouroboros/cbor"
+	"github.com/blinklabs-io/gouroboros/ledger/alonzo"
 	"github.com/blinklabs-io/gouroboros/ledger/common"
 	"github.com/utxorpc/go-codegen/utxorpc/v1alpha/cardano"
 )
@@ -207,3 +208,32 @@ func (p *BabbageProtocolParameters) Utxorpc() *cardano.PParams {
 		},
 	}
 }
+
+func UpgradePParams(prevPParams alonzo.AlonzoProtocolParameters) BabbageProtocolParameters {
+	ret := BabbageProtocolParameters{
+		MinFeeA:              prevPParams.MinFeeA,
+		MinFeeB:              prevPParams.MinFeeB,
+		MaxBlockBodySize:     prevPParams.MaxBlockBodySize,
+		MaxTxSize:            prevPParams.MaxTxSize,
+		MaxBlockHeaderSize:   prevPParams.MaxBlockHeaderSize,
+		KeyDeposit:           prevPParams.KeyDeposit,
+		PoolDeposit:          prevPParams.PoolDeposit,
+		MaxEpoch:             prevPParams.MaxEpoch,
+		NOpt:                 prevPParams.NOpt,
+		A0:                   prevPParams.A0,
+		Rho:                  prevPParams.Rho,
+		Tau:                  prevPParams.Tau,
+		ProtocolMajor:        prevPParams.ProtocolMajor,
+		ProtocolMinor:        prevPParams.ProtocolMinor,
+		MinPoolCost:          prevPParams.MinPoolCost,
+		AdaPerUtxoByte:       prevPParams.AdaPerUtxoByte,
+		CostModels:           prevPParams.CostModels,
+		ExecutionCosts:       prevPParams.ExecutionCosts,
+		MaxTxExUnits:         prevPParams.MaxTxExUnits,
+		MaxBlockExUnits:      prevPParams.MaxBlockExUnits,
+		MaxValueSize:         prevPParams.MaxValueSize,
+		CollateralPercentage: prevPParams.CollateralPercentage,
+		MaxCollateralInputs:  prevPParams.MaxCollateralInputs,
+	}
+	return ret
+}

ledger/conway/pparams.go

@@ -344,3 +344,34 @@ type DRepVotingThresholds struct {
 	PpGovGroup            cbor.Rat
 	TreasuryWithdrawal    cbor.Rat
 }
+
+func UpgradePParams(prevPParams babbage.BabbageProtocolParameters) ConwayProtocolParameters {
+	ret := ConwayProtocolParameters{
+		MinFeeA:            prevPParams.MinFeeA,
+		MinFeeB:            prevPParams.MinFeeB,
+		MaxBlockBodySize:   prevPParams.MaxBlockBodySize,
+		MaxTxSize:          prevPParams.MaxTxSize,
+		MaxBlockHeaderSize: prevPParams.MaxBlockHeaderSize,
+		KeyDeposit:         prevPParams.KeyDeposit,
+		PoolDeposit:        prevPParams.PoolDeposit,
+		MaxEpoch:           prevPParams.MaxEpoch,
+		NOpt:               prevPParams.NOpt,
+		A0:                 prevPParams.A0,
+		Rho:                prevPParams.Rho,
+		Tau:                prevPParams.Tau,
+		ProtocolVersion: common.ProtocolParametersProtocolVersion{
+			Major: prevPParams.ProtocolMajor,
+			Minor: prevPParams.ProtocolMinor,
+		},
+		MinPoolCost:          prevPParams.MinPoolCost,
+		AdaPerUtxoByte:       prevPParams.AdaPerUtxoByte,
+		CostModels:           prevPParams.CostModels,
+		ExecutionCosts:       prevPParams.ExecutionCosts,
+		MaxTxExUnits:         prevPParams.MaxTxExUnits,
+		MaxBlockExUnits:      prevPParams.MaxBlockExUnits,
+		MaxValueSize:         prevPParams.MaxValueSize,
+		CollateralPercentage: prevPParams.CollateralPercentage,
+		MaxCollateralInputs:  prevPParams.MaxCollateralInputs,
+	}
+	return ret
+}

ledger/mary/pparams.go

@@ -42,3 +42,9 @@ func (u *MaryProtocolParameterUpdate) UnmarshalCBOR(data []byte) error {
 func (p *MaryProtocolParameters) Utxorpc() *cardano.PParams {
 	return p.AllegraProtocolParameters.Utxorpc()
 }
+
+func UpgradePParams(prevPParams allegra.AllegraProtocolParameters) MaryProtocolParameters {
+	return MaryProtocolParameters{
+		AllegraProtocolParameters: prevPParams,
+	}
+}

ledger/shelley/pparams.go

@@ -187,3 +187,8 @@ func (p *ShelleyProtocolParameters) Utxorpc() *cardano.PParams {
 		},
 	}
 }
+
+func UpgradePParams(prevPParams any) ShelleyProtocolParameters {
+	// No upgrade from Byron
+	return ShelleyProtocolParameters{}
+}