@lucid-evolution/utils 0.1.33 → 0.1.35

package/dist/index.cjs

@@ -200,8 +200,10 @@ var applyDoubleCborEncoding = (script) => {
 
 // src/scripts.ts
 var import_plutus = require("@lucid-evolution/plutus");
-var UPLC = __toESM(require("@lucid-evolution/uplc"), 1);
+var import_uplc = require("@harmoniclabs/uplc");
 var import_core_utils2 = require("@lucid-evolution/core-utils");
+var import_cborg2 = require("cborg");
+var import_plutus_data = require("@harmoniclabs/plutus-data");
 function validatorToAddress(network, validator, stakeCredential) {
   const validatorHash = validatorToScriptHash(validator);
   if (stakeCredential) {
@@ -289,9 +291,19 @@ function mintingPolicyToId(mintingPolicy) {
   return validatorToScriptHash(mintingPolicy);
 }
 function applyParamsToScript(plutusScript, params, type) {
-  const p = type ? import_plutus.Data.castTo(params, type) : params;
+  const program = (0, import_uplc.parseUPLC)((0, import_cborg2.decode)((0, import_cborg2.decode)((0, import_core_utils2.fromHex)(plutusScript))), "flat");
+  const parameters = type ? import_plutus.Data.castTo(params, type) : params;
+  const appliedProgram = parameters.reduce((body, currentParameter) => {
+    const data = import_uplc.UPLCConst.data((0, import_plutus_data.dataFromCbor)(import_plutus.Data.to(currentParameter)));
+    const appliedParameter = new import_uplc.Application(body, data);
+    return appliedParameter;
+  }, program.body);
   return (0, import_core_utils2.toHex)(
-    UPLC.apply_params_to_script((0, import_core_utils2.fromHex)(import_plutus.Data.to(p)), (0, import_core_utils2.fromHex)(plutusScript))
+    (0, import_cborg2.encode)(
+      (0, import_cborg2.encode)(
+        (0, import_uplc.encodeUPLC)(new import_uplc.UPLCProgram(program.version, appliedProgram)).toBuffer().buffer
+      )
+    )
   );
 }
 
@@ -1114,11 +1126,12 @@ function coresToTxOutputs(outputs) {
   }
   return result;
 }
-var selectUTxOs = (utxos, totalAssets) => {
+var selectUTxOs = (utxos, totalAssets, includeUTxOsWithScriptRef = false) => {
   const selectedUtxos = [];
   let isSelected = false;
   const assetsRequired = new Map(Object.entries(totalAssets));
   for (const utxo of utxos) {
+    if (!includeUTxOsWithScriptRef && utxo.scriptRef) continue;
     isSelected = false;
     for (const [unit, amount] of assetsRequired) {
       if (Object.hasOwn(utxo.assets, unit)) {

package/dist/index.d.cts

@@ -92,6 +92,11 @@ declare function validatorToScriptHash(validator: Validator): ScriptHash;
 declare function toScriptRef(script: Script): CML.Script;
 declare function fromScriptRef(scriptRef: CML.Script): Script;
 declare function mintingPolicyToId(mintingPolicy: MintingPolicy): PolicyId;
+/**
+ * Applies a list of parameters, in the form of the `Data` type, to a CBOR encoded script.
+ *
+ * The `plutusScript` must be double CBOR encoded(bytes). Ensure to use the `applyDoubleCborEncoding` function.
+ */
 declare function applyParamsToScript<T extends unknown[] = Data[]>(plutusScript: string, params: Exact<[...T]>, type?: T): string;
 
 declare function unixTimeToSlot(network: Network, unixTime: UnixTime): Slot;
@@ -107,7 +112,13 @@ declare function coreToOutRef(input: CML.TransactionInput): OutRef;
 declare function coresToOutRefs(inputs: CML.TransactionInput[]): OutRef[];
 declare function coreToTxOutput(output: CML.TransactionOutput): TxOutput;
 declare function coresToTxOutputs(outputs: CML.TransactionOutput[]): TxOutput[];
-declare const selectUTxOs: (utxos: UTxO[], totalAssets: Assets) => UTxO[];
+/**
+ * Returns a list of UTxOs whose total assets are equal to or greater than the asset value provided
+ * @param utxos list of available utxos
+ * @param totalAssets minimum total assets required
+ * @param includeUTxOsWithScriptRef Whether to include UTxOs with scriptRef or not. default = false
+ */
+declare const selectUTxOs: (utxos: UTxO[], totalAssets: Assets, includeUTxOsWithScriptRef?: boolean) => UTxO[];
 /**
  * Union type for specifying sorting order in function "sortUTxOs"
  */

package/dist/index.d.ts

@@ -92,6 +92,11 @@ declare function validatorToScriptHash(validator: Validator): ScriptHash;
 declare function toScriptRef(script: Script): CML.Script;
 declare function fromScriptRef(scriptRef: CML.Script): Script;
 declare function mintingPolicyToId(mintingPolicy: MintingPolicy): PolicyId;
+/**
+ * Applies a list of parameters, in the form of the `Data` type, to a CBOR encoded script.
+ *
+ * The `plutusScript` must be double CBOR encoded(bytes). Ensure to use the `applyDoubleCborEncoding` function.
+ */
 declare function applyParamsToScript<T extends unknown[] = Data[]>(plutusScript: string, params: Exact<[...T]>, type?: T): string;
 
 declare function unixTimeToSlot(network: Network, unixTime: UnixTime): Slot;
@@ -107,7 +112,13 @@ declare function coreToOutRef(input: CML.TransactionInput): OutRef;
 declare function coresToOutRefs(inputs: CML.TransactionInput[]): OutRef[];
 declare function coreToTxOutput(output: CML.TransactionOutput): TxOutput;
 declare function coresToTxOutputs(outputs: CML.TransactionOutput[]): TxOutput[];
-declare const selectUTxOs: (utxos: UTxO[], totalAssets: Assets) => UTxO[];
+/**
+ * Returns a list of UTxOs whose total assets are equal to or greater than the asset value provided
+ * @param utxos list of available utxos
+ * @param totalAssets minimum total assets required
+ * @param includeUTxOsWithScriptRef Whether to include UTxOs with scriptRef or not. default = false
+ */
+declare const selectUTxOs: (utxos: UTxO[], totalAssets: Assets, includeUTxOsWithScriptRef?: boolean) => UTxO[];
 /**
  * Union type for specifying sorting order in function "sortUTxOs"
  */

package/dist/index.js

@@ -112,8 +112,16 @@ var applyDoubleCborEncoding = (script) => {
 
 // src/scripts.ts
 import { Data } from "@lucid-evolution/plutus";
-import * as UPLC from "@lucid-evolution/uplc";
+import {
+  Application,
+  encodeUPLC,
+  parseUPLC,
+  UPLCConst,
+  UPLCProgram
+} from "@harmoniclabs/uplc";
 import { fromHex as fromHex2, toHex as toHex2 } from "@lucid-evolution/core-utils";
+import { decode as decode2, encode as encode2 } from "cborg";
+import { dataFromCbor } from "@harmoniclabs/plutus-data";
 function validatorToAddress(network, validator, stakeCredential) {
   const validatorHash = validatorToScriptHash(validator);
   if (stakeCredential) {
@@ -201,9 +209,19 @@ function mintingPolicyToId(mintingPolicy) {
   return validatorToScriptHash(mintingPolicy);
 }
 function applyParamsToScript(plutusScript, params, type) {
-  const p = type ? Data.castTo(params, type) : params;
+  const program = parseUPLC(decode2(decode2(fromHex2(plutusScript))), "flat");
+  const parameters = type ? Data.castTo(params, type) : params;
+  const appliedProgram = parameters.reduce((body, currentParameter) => {
+    const data = UPLCConst.data(dataFromCbor(Data.to(currentParameter)));
+    const appliedParameter = new Application(body, data);
+    return appliedParameter;
+  }, program.body);
   return toHex2(
-    UPLC.apply_params_to_script(fromHex2(Data.to(p)), fromHex2(plutusScript))
+    encode2(
+      encode2(
+        encodeUPLC(new UPLCProgram(program.version, appliedProgram)).toBuffer().buffer
+      )
+    )
   );
 }
 
@@ -1030,11 +1048,12 @@ function coresToTxOutputs(outputs) {
   }
   return result;
 }
-var selectUTxOs = (utxos, totalAssets) => {
+var selectUTxOs = (utxos, totalAssets, includeUTxOsWithScriptRef = false) => {
   const selectedUtxos = [];
   let isSelected = false;
   const assetsRequired = new Map(Object.entries(totalAssets));
   for (const utxo of utxos) {
+    if (!includeUTxOsWithScriptRef && utxo.scriptRef) continue;
     isSelected = false;
     for (const [unit, amount] of assetsRequired) {
       if (Object.hasOwn(utxo.assets, unit)) {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@lucid-evolution/utils",
-  "version": "0.1.33",
+  "version": "0.1.35",
   "description": "",
   "main": "./dist/index.js",
   "types": "./dist/index.d.ts",
@@ -31,6 +31,8 @@
     "@effect/schema": "^0.68.16",
     "@emurgo/cardano-serialization-lib-browser": "^11.5.0",
     "@emurgo/cardano-serialization-lib-nodejs": "^11.5.0",
+    "@harmoniclabs/plutus-data": "^1.2.4",
+    "@harmoniclabs/uplc": "^1.2.4",
     "bip39": "^3.1.0",
     "cborg": "^4.2.0",
     "effect": "^3.1.2",