Skip to content

Commit

Permalink
Move existing plutus scripts to v1 directory
Browse files Browse the repository at this point in the history
  • Loading branch information
newhoggy committed May 26, 2022
1 parent b5dead4 commit 4e481c4
Show file tree
Hide file tree
Showing 15 changed files with 48 additions and 20 deletions.
3 changes: 2 additions & 1 deletion scripts/plutus/always-fails.sh
Original file line number Diff line number Diff line change
Expand Up @@ -13,13 +13,14 @@ export TESTNET_MAGIC="${TESTNET_MAGIC:-42}"
export UTXO_VKEY="${UTXO_VKEY:-example/utxo-keys/utxo1.vkey}"
export UTXO_SKEY="${UTXO_SKEY:-example/utxo-keys/utxo1.skey}"
export RESULT_FILE="${RESULT_FILE:-$WORK/result.out}"
export PV=v1 # Plutus Script Version

echo "Socket path: $CARDANO_NODE_SOCKET_PATH"
echo "Socket path: $(pwd)"

ls -al "$CARDANO_NODE_SOCKET_PATH"

plutusscriptinuse="$BASE/scripts/plutus/scripts/always-fails.plutus"
plutusscriptinuse="$BASE/scripts/plutus/scripts/$PV/always-fails.plutus"
# This datum hash is the hash of the untyped 42
scriptdatumhash="9e1199a988ba72ffd6e9c269cadb3b53b5f360ff99f112d9b2ee30c4d74ad88b"
#ExUnits {exUnitsMem = 11300, exUnitsSteps = 45070000}))
Expand Down
27 changes: 23 additions & 4 deletions scripts/plutus/example-txin-locking-plutus-script.sh
Original file line number Diff line number Diff line change
Expand Up @@ -19,9 +19,28 @@ echo "Socket path: $(pwd)"

ls -al "$CARDANO_NODE_SOCKET_PATH"

export ERA="$($CARDANO_CLI query tip --testnet-magic $TESTNET_MAGIC | jq -r .era)"

case $ERA in
Alonzo)
export ERA_FLAG="--alonzo-era"
export PV=v1 # Plutus Script Version
;;
Babbage)
export ERA_FLAG="--alonzo-era"
export PV=v2 # Plutus Script Version
echo "Unsupported: $ERA"
exit 1
;;
*)
echo "Unsupported: $ERA"
exit 1
;;
esac

if [ "$1" == "guessinggame" ]; then
# NB: This plutus script uses a "typed" redeemer and "typed" datum.
plutusscriptinuse="$BASE/scripts/plutus/scripts/custom-guess-42-datum-42.plutus"
plutusscriptinuse="$BASE/scripts/plutus/scripts/$PV/custom-guess-42-datum-42.plutus"
# This datum hash is the hash of the typed 42
scriptdatumhash="fcaa61fb85676101d9e3398a484674e71c45c3fd41b492682f3b0054f4cf3273"
datumfilepath="$BASE/scripts/plutus/data/typed-42.datum"
Expand All @@ -30,7 +49,7 @@ if [ "$1" == "guessinggame" ]; then
echo "Script at: $plutusscriptinuse"

elif [ "$1" == "" ]; then
plutusscriptinuse="$BASE/scripts/plutus/scripts/always-succeeds-spending.plutus"
plutusscriptinuse="$BASE/scripts/plutus/scripts/$PV/always-succeeds-spending.plutus"
# This datum hash is the hash of the untyped 42
scriptdatumhash="9e1199a988ba72ffd6e9c269cadb3b53b5f360ff99f112d9b2ee30c4d74ad88b"
datumfilepath="$BASE/scripts/plutus/data/42.datum"
Expand Down Expand Up @@ -61,7 +80,7 @@ lovelaceattxindiv3=$(expr $lovelaceattxin / 3)
$CARDANO_CLI query protocol-parameters --testnet-magic "$TESTNET_MAGIC" --out-file $WORK/pparams.json

$CARDANO_CLI transaction build \
--alonzo-era \
$ERA_FLAG \
--cardano-mode \
--testnet-magic "$TESTNET_MAGIC" \
--change-address "$utxoaddr" \
Expand Down Expand Up @@ -107,7 +126,7 @@ echo "Collateral"
echo "$txinCollateral"

$CARDANO_CLI transaction build \
--alonzo-era \
$ERA_FLAG \
--cardano-mode \
--testnet-magic "$TESTNET_MAGIC" \
--change-address "$utxoaddr" \
Expand Down
3 changes: 2 additions & 1 deletion scripts/plutus/script-context-equivalance-test.sh
Original file line number Diff line number Diff line change
Expand Up @@ -13,14 +13,15 @@ export TESTNET_MAGIC="${TESTNET_MAGIC:-42}"
export UTXO_VKEY="${UTXO_VKEY:-example/utxo-keys/utxo1.vkey}"
export UTXO_SKEY="${UTXO_SKEY:-example/utxo-keys/utxo1.skey}"
export RESULT_FILE="${RESULT_FILE:-$WORK/result.out}"
export PV=v1 # Plutus Script Version

echo "Socket path: $CARDANO_NODE_SOCKET_PATH"
echo "Socket path: $(pwd)"

ls -al "$CARDANO_NODE_SOCKET_PATH"

# NB: This plutus script uses a "typed" redeemer and "typed" datum.
plutusscriptinuse="$BASE/scripts/plutus/scripts/context-equivalance-test.plutus"
plutusscriptinuse="$BASE/scripts/plutus/scripts/$PV/context-equivalance-test.plutus"
# This datum hash is the hash of the typed 42
scriptdatumhash="fcaa61fb85676101d9e3398a484674e71c45c3fd41b492682f3b0054f4cf3273"
datumfilepath="$BASE/scripts/plutus/data/typed-42.datum"
Expand Down
4 changes: 3 additions & 1 deletion scripts/plutus/script-context-equivalence-test-minting.sh
Original file line number Diff line number Diff line change
Expand Up @@ -17,8 +17,10 @@ mkdir -p $work
# Step 1 - Send ADA to token script owner
export WORKD="${WORKD:-example/work}"
export CARDANO_NODE_SOCKET_PATH="${CARDANO_NODE_SOCKET_PATH:-example/node-bft1/node.sock}"
export PV=v1 # Plutus Script Version

mkdir -p "$WORKD"
plutusscriptinuse=scripts/plutus/scripts/minting-context-equivalance-test.plutus
plutusscriptinuse=scripts/plutus/scripts/$PV/minting-context-equivalance-test.plutus

utxovkey=example/utxo-keys/utxo1.vkey
utxoskey=example/utxo-keys/utxo1.skey
Expand Down
File renamed without changes.
4 changes: 3 additions & 1 deletion scripts/plutus/simple-minting-policy.sh
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,9 @@ mkdir -p $work
# Step 1 - Send ADA to token script owner

export CARDANO_NODE_SOCKET_PATH="${CARDANO_NODE_SOCKET_PATH:-example/node-bft1/node.sock}"
plutusscriptinuse=scripts/plutus/scripts/anyone-can-mint.plutus
export PV=v1 # Plutus Script Version

plutusscriptinuse="scripts/plutus/scripts/$PV/anyone-can-mint.plutus"

utxovkey=example/utxo-keys/utxo1.vkey
utxoskey=example/utxo-keys/utxo1.skey
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,7 @@ export UTXO_STAKING_VKEY1="${UTXO_STAKING_VKEY1:=example/shelley/utxo-keys/utxo-
export UTXO_STAKING_SKEY1="${UTXO_STAKING_SKEY1:=example/shelley/utxo-keys/utxo-stake.skey}"
export UTXO_STAKING_VKEY2="${UTXO_STAKING_VKEY2:=example/shelley/utxo-keys/utxo2-stake.vkey}"
export UTXO_STAKING_SKEY2="${UTXO_STAKING_SKEY2:=example/shelley/utxo-keys/utxo2-stake.skey}"
export PV=v1 # Plutus Script Version

utxoaddr=$(cardano-cli address build --testnet-magic "$TESTNET_MAGIC" --payment-verification-key-file "$UTXO_VKEY1")

Expand All @@ -36,8 +37,8 @@ echo ""
txin=$(jq -r 'keys[0]' $WORK/utxo-1.json)
txinlovelace=$(jq -r ".[\"$txin\"].value.lovelace" $WORK/utxo-1.json)
txincollateral=$(jq -r 'keys[1]' $WORK/utxo-1.json)
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file $UTXO_VKEY1 --stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" --testnet-magic 42)
stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/guess-42-stake.plutus --testnet-magic 42)
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file $UTXO_VKEY1 --stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" --testnet-magic 42)
stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/$PV/guess-42-stake.plutus --testnet-magic 42)

# STEP 1 - Get reward account balance

Expand All @@ -61,7 +62,7 @@ cardano-cli transaction build \
--tx-in-collateral "$txincollateral" \
--tx-out "$scriptpaymentaddrwithstakecred+$totalspendable" \
--withdrawal "$stakingscriptaddr+$rewardamt" \
--withdrawal-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--withdrawal-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--withdrawal-redeemer-file "scripts/plutus/data/42.redeemer" \
--protocol-params-file "$WORK/pparams.json" \
--out-file "$WORK/script-withdrawal.txbody"
Expand Down
9 changes: 5 additions & 4 deletions scripts/plutus/staking-example/deregister-stake-address.sh
Original file line number Diff line number Diff line change
Expand Up @@ -13,10 +13,11 @@ export CARDANO_NODE_SOCKET_PATH="${CARDANO_NODE_SOCKET_PATH:-example/node-bft1/n
export TESTNET_MAGIC="${TESTNET_MAGIC:-42}"
export UTXO_VKEY1="${UTXO_VKEY1:-example/shelley/utxo-keys/utxo1.vkey}"
export UTXO_SKEY1="${UTXO_SKEY1:-example/shelley/utxo-keys/utxo1.skey}"
export PV=v1 # Plutus Script Version

utxoaddr=$(cardano-cli address build --testnet-magic "$TESTNET_MAGIC" --payment-verification-key-file "$UTXO_VKEY1")
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file "$UTXO_VKEY1" --stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" --testnet-magic 42)
stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/guess-42-stake.plutus --testnet-magic 42)
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file "$UTXO_VKEY1" --stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" --testnet-magic 42)
stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/$PV/guess-42-stake.plutus --testnet-magic 42)

# DEREGISTRATION

Expand All @@ -39,7 +40,7 @@ echo "Selected txin: $txinupdated3"

# Create deregistration certificate
cardano-cli stake-address deregistration-certificate \
--stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--out-file "$WORK/script.deregcert"


Expand All @@ -57,7 +58,7 @@ cardano-cli transaction build \
--tx-out "$scriptpaymentaddrwithstakecred+500" \
--witness-override 3 \
--certificate-file "$WORK/script.deregcert" \
--certificate-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--certificate-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--certificate-redeemer-file "scripts/plutus/data/42.redeemer" \
--protocol-params-file "$WORK/pparams.json" \
--out-file "$WORK/script-deregistration-cert.txbody"
Expand Down
11 changes: 6 additions & 5 deletions scripts/plutus/staking-example/register-stake-pool.sh
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,7 @@ export UTXO_STAKING_VKEY1="${UTXO_STAKING_VKEY1:=example/shelley/utxo-keys/utxo-
export UTXO_STAKING_SKEY1="${UTXO_STAKING_SKEY1:=example/shelley/utxo-keys/utxo-stake.skey}"
export UTXO_STAKING_VKEY2="${UTXO_STAKING_VKEY2:=example/shelley/utxo-keys/utxo2-stake.vkey}"
export UTXO_STAKING_SKEY2="${UTXO_STAKING_SKEY2:=example/shelley/utxo-keys/utxo2-stake.skey}"
export PV=v1 # Plutus Script Version

mkdir -p "$WORK"

Expand All @@ -41,7 +42,7 @@ echo ""
txin=$(jq -r 'keys[]' "$WORK/utxo-1.json")
lovelaceattxin=$(jq -r ".[\"$txin\"].value.lovelace" "$WORK/utxo-1.json")
lovelaceattxindiv3=$((lovelaceattxin / 3))
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file "$UTXO_VKEY1" --stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" --testnet-magic 42)
scriptpaymentaddrwithstakecred=$(cardano-cli address build --payment-verification-key-file "$UTXO_VKEY1" --stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" --testnet-magic 42)
poolownerstakekey="example/addresses/pool-owner1-stake.vkey"
poolowneraddresswstakecred=$(cardano-cli address build --payment-verification-key-file example/addresses/pool-owner1.vkey --stake-verification-key-file example/addresses/pool-owner1-stake.vkey --testnet-magic 42)
poolcoldkey="example/node-pool1/shelley/operator.vkey"
Expand Down Expand Up @@ -321,7 +322,7 @@ lovelaceattxin=$(jq -r ".[\"$txin\"].value.lovelace" "$WORK/utxo-2.json")
lovelaceattxindiv3=$((lovelaceattxin / 3))

cardano-cli stake-address registration-certificate \
--stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--out-file "$WORK/script.regcert"

cardano-cli transaction build \
Expand All @@ -345,7 +346,7 @@ cardano-cli transaction submit \
--tx-file "$WORK/script-registration-cert.tx" \
--testnet-magic "$TESTNET_MAGIC"

stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/guess-42-stake.plutus --testnet-magic 42)
stakingscriptaddr=$(cardano-cli stake-address build --stake-script-file scripts/plutus/scripts/$PV/guess-42-stake.plutus --testnet-magic 42)

echo ""
echo "Staking script address"
Expand All @@ -367,7 +368,7 @@ echo "$registeredscr"
# We need to delegate the script staking address

cardano-cli stake-address delegation-certificate \
--stake-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--stake-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--cold-verification-key-file "$poolcoldkey" \
--out-file "$WORK/script.delegcert"

Expand Down Expand Up @@ -397,7 +398,7 @@ cardano-cli transaction build \
--tx-out "$scriptpaymentaddrwithstakecred+999978" \
--witness-override 3 \
--certificate-file "$WORK/script.delegcert" \
--certificate-script-file "scripts/plutus/scripts/guess-42-stake.plutus" \
--certificate-script-file "scripts/plutus/scripts/$PV/guess-42-stake.plutus" \
--certificate-redeemer-file "scripts/plutus/data/42.redeemer" \
--protocol-params-file "$WORK/pparams.json" \
--out-file "$WORK/script-delegation-cert.txbody"
Expand Down

0 comments on commit 4e481c4

Please sign in to comment.