@lucid-evolution/utils 0.1.34 → 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
+      )
+    )
   );
 }
 

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;

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;

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
+      )
+    )
   );
 }
 

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@lucid-evolution/utils",
-  "version": "0.1.34",
+  "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",