@crediolabs/policy-synth 0.1.9 → 0.1.11

package/dist-cjs/review-card/cross-check.js

@@ -70,16 +70,57 @@ function pushComparison(left, right, op, out) {
         out.push(`Path must be exactly [${right.elements.map(renderVecElement).join(', ')}]`);
         return;
     }
+    if (left.kind === 'call_arg_len' && op === 'eq' && right.kind === 'literal_u32') {
+        out.push(`Length of arg[${left.index}] is ${right.value}`);
+        return;
+    }
+    // call_arg_field: must mirror the builder's templates byte-for-byte so
+    // the cross-check can assert a faithful summary.
+    if (left.kind === 'call_arg_field') {
+        const head = `arg[${left.index}] element[${left.element}].${left.field}`;
+        const sep = op === 'eq' ? '=' : comparisonOpText(op);
+        if (right.kind === 'literal_address') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_symbol') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_bytes') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_u64') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_i128') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_u32') {
+            out.push(`${head} ${sep} ${right.value}`);
+            return;
+        }
+        if (right.kind === 'literal_vec') {
+            out.push(`${head} ${sep} [${right.elements.map(renderVecElement).join(', ')}]`);
+            return;
+        }
+    }
+    // Mirrors the builder's wording byte-for-byte: how many calls the rule
+    // permits, since the bound counts the calls already made.
     if (left.kind === 'invocation_count_in_window' && right.kind === 'literal_u32') {
-        out.push(`Invocations <= ${right.value} per ${left.windowSecs} seconds`);
+        const allowed = op === 'lt' ? right.value : right.value + 1;
+        out.push(`At most ${allowed} calls per ${left.windowSecs} seconds`);
         return;
     }
     if (left.kind === 'amount' && right.kind === 'literal_i128') {
         out.push(`Amount <= ${right.value}`);
         return;
     }
-    if (left.kind === 'oracle_price' && right.kind === 'literal_i128') {
-        out.push(`Only when oracle_price(${left.asset}) ${comparisonOpText(op)} ${right.value}`);
+    if (left.kind === 'oracle_price' && right.kind === 'oracle_threshold') {
+        out.push(`Only when oracle_price(${left.asset}) ${comparisonOpText(op)} ${right.value} (${right.decimals} dp)`);
         return;
     }
 }
@@ -110,6 +151,7 @@ function renderVecElement(leaf) {
         case 'call_arg':
         case 'call_arg_len':
         case 'call_arg_field':
+        case 'call_arg_scaled':
         case 'amount':
         case 'window_spent':
         case 'now':
@@ -117,6 +159,11 @@ function renderVecElement(leaf) {
         case 'invocation_count_in_window':
         case 'oracle_price':
             return `<${leaf.kind}>`;
+        // Show the declared basis, not just the digits. A threshold on the wrong
+        // basis is the one policy error the contract cannot detect, so the review
+        // card is where a human has to be able to see it.
+        case 'oracle_threshold':
+            return `${leaf.value} (${leaf.decimals} dp)`;
     }
 }
 function renderHaystackElement(leaf) {

package/dist-cjs/review-card/index.d.ts

@@ -1,3 +1,3 @@
-export { buildReviewCardSummary, type ReviewCardSummary, } from './builder.ts';
+export { buildReviewCardSummary, describePredicate, type ReviewCardSummary, } from './builder.ts';
 export { type ConflictAnnotation, classifyConflict, type RuleRef, } from './conflict.ts';
 export { summaryCrossCheck } from './cross-check.ts';

package/dist-cjs/review-card/index.js

@@ -1,9 +1,10 @@
 "use strict";
 // src/review-card/index.ts - re-export the deterministic review-card surface.
 Object.defineProperty(exports, "__esModule", { value: true });
-exports.summaryCrossCheck = exports.classifyConflict = exports.buildReviewCardSummary = void 0;
+exports.summaryCrossCheck = exports.classifyConflict = exports.describePredicate = exports.buildReviewCardSummary = void 0;
 var builder_ts_1 = require("./builder.js");
 Object.defineProperty(exports, "buildReviewCardSummary", { enumerable: true, get: function () { return builder_ts_1.buildReviewCardSummary; } });
+Object.defineProperty(exports, "describePredicate", { enumerable: true, get: function () { return builder_ts_1.describePredicate; } });
 var conflict_ts_1 = require("./conflict.js");
 Object.defineProperty(exports, "classifyConflict", { enumerable: true, get: function () { return conflict_ts_1.classifyConflict; } });
 var cross_check_ts_1 = require("./cross-check.js");

package/dist-cjs/run/index.d.ts

@@ -1,4 +1,5 @@
-import { type ErrorCode, type ProposedPolicy, type RecordedTransaction, type ToolError, type ToolResponse } from '../index.ts';
+import { type ErrorCode, type PredicateNode, type ProposedPolicy, type RecordedTransaction, type ToolError, type ToolResponse } from '../index.ts';
+import type { SimulationResult } from '../verify/envelope.ts';
 import { type RecordTransactionInput, type SynthesizePolicyInput } from './schemas.ts';
 export type { RecordTransactionInput, SynthesizePolicyInput } from './schemas.ts';
 export { ComposeUserResponsesSchema, InterpreterOptionsSchema, MandateSpecSchema, NetworkSchema, OzAdapterConfigSchema, RecordedTransactionSchema, RecordTransactionInputSchema, SynthesizePolicyInputSchema, ToolErrorSchema, } from './schemas.ts';
@@ -28,7 +29,12 @@ export declare function runRecordTransaction(raw: unknown): Promise<ToolResponse
  *  `{ok:false, error}`, but a raw throw from the SDK (e.g. an unexpected
  *  XDR decode error in the adapter) would otherwise surface as
  *  "[object Object]" in the MCP transport. */
-export declare function runSynthesizePolicy(raw: unknown): Promise<ToolResponse<ProposedPolicy>>;
+export declare function runSynthesizePolicy(raw: unknown): Promise<ToolResponse<ProposedPolicy> & {
+    explain?: {
+        predicateTree: PredicateNode | null;
+        simulation: SimulationResult;
+    };
+}>;
 /** Build a canonical ToolError for a thrown exception caught by the tool
  *  envelope. The MCP SDK stringifies thrown objects as "[object Object]" by
  *  default, so we extract a string-friendly message and tag the original

package/dist-cjs/run/index.js

@@ -104,7 +104,7 @@ async function runSynthesizePolicy(raw) {
             // Zod's optional fields widen to `T | undefined`, which the core's
             // exact-optional MandateSpec rejects; the schema already validated the
             // shape, so assert it (same pattern as the recordedTx cast below).
-            return await (0, index_ts_1.synthesizeFromMandate)(input.mandate, ozConfig);
+            return await (0, index_ts_1.synthesizeFromMandate)(input.mandate, ozConfig, input.explain === true ? { explain: true } : {});
         }
         // recording source
         const recorded = input.recordedTx;
@@ -115,6 +115,7 @@ async function runSynthesizePolicy(raw) {
                 ? { confidenceOverride: input.confidenceOverride }
                 : {}),
             ...(input.interpreter !== undefined ? { interpreter: input.interpreter } : {}),
+            ...(input.explain === true ? { explain: true } : {}),
         }, ozConfig);
     }
     catch (e) {

package/dist-cjs/run/schemas.d.ts

@@ -648,6 +648,7 @@ export declare const SynthesizePolicyMandateInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     }>>;
+    explain: z.ZodOptional<z.ZodBoolean>;
 }, "strip", z.ZodTypeAny, {
     source: "mandate";
     mandate: {
@@ -676,6 +677,7 @@ export declare const SynthesizePolicyMandateInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }, {
     source: "mandate";
     mandate: {
@@ -704,6 +706,7 @@ export declare const SynthesizePolicyMandateInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }>;
 /** Interpreter opt-in for the recording path. Present -> constraints OZ cannot
  *  express (per-method scoping, invocation-count windows, oracle bounds, exact
@@ -1085,17 +1088,18 @@ export declare const SynthesizePolicyRecordingInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     }>>;
+    explain: z.ZodOptional<z.ZodBoolean>;
 }, "strip", z.ZodTypeAny, {
     network: "mainnet" | "testnet";
     source: "recording";
     recordedTx: {
+        signers: string[];
         events: {
             contract: string;
             topics: string[];
             data?: unknown;
         }[];
         network: "mainnet" | "testnet";
-        signers: string[];
         invocations: unknown[];
         tokenMovements: {
             amount: string;
@@ -1149,17 +1153,18 @@ export declare const SynthesizePolicyRecordingInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }, {
     network: "mainnet" | "testnet";
     source: "recording";
     recordedTx: {
+        signers: string[];
         events: {
             contract: string;
             topics: string[];
             data?: unknown;
         }[];
         network: "mainnet" | "testnet";
-        signers: string[];
         invocations: unknown[];
         tokenMovements: {
             amount: string;
@@ -1213,6 +1218,7 @@ export declare const SynthesizePolicyRecordingInputSchema: z.ZodObject<{
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }>;
 export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"source", [z.ZodObject<{
     source: z.ZodLiteral<"mandate">;
@@ -1334,6 +1340,7 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     }>>;
+    explain: z.ZodOptional<z.ZodBoolean>;
 }, "strip", z.ZodTypeAny, {
     source: "mandate";
     mandate: {
@@ -1362,6 +1369,7 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }, {
     source: "mandate";
     mandate: {
@@ -1390,6 +1398,7 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }>, z.ZodObject<{
     source: z.ZodLiteral<"recording">;
     recordedTx: z.ZodObject<{
@@ -1736,17 +1745,18 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     }>>;
+    explain: z.ZodOptional<z.ZodBoolean>;
 }, "strip", z.ZodTypeAny, {
     network: "mainnet" | "testnet";
     source: "recording";
     recordedTx: {
+        signers: string[];
         events: {
             contract: string;
             topics: string[];
             data?: unknown;
         }[];
         network: "mainnet" | "testnet";
-        signers: string[];
         invocations: unknown[];
         tokenMovements: {
             amount: string;
@@ -1800,17 +1810,18 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }, {
     network: "mainnet" | "testnet";
     source: "recording";
     recordedTx: {
+        signers: string[];
         events: {
             contract: string;
             topics: string[];
             data?: unknown;
         }[];
         network: "mainnet" | "testnet";
-        signers: string[];
         invocations: unknown[];
         tokenMovements: {
             amount: string;
@@ -1864,6 +1875,7 @@ export declare const SynthesizePolicyInputSchema: z.ZodDiscriminatedUnion<"sourc
             weighted_threshold: string;
         };
     } | undefined;
+    explain?: boolean | undefined;
 }>]>;
 export type SynthesizePolicyInput = z.infer<typeof SynthesizePolicyInputSchema>;
 export declare const ToolErrorSchema: z.ZodObject<{

package/dist-cjs/run/schemas.js

@@ -178,6 +178,11 @@ exports.SynthesizePolicyMandateInputSchema = zod_1.z.object({
     source: zod_1.z.literal('mandate'),
     mandate: exports.MandateSpecSchema,
     ozConfig: exports.OzAdapterConfigSchema.optional(),
+    // --explain opt-in. When true, the orchestrator attaches the
+    // in-memory predicate tree (null for the mandate path) + a minimal
+    // honest SimulationResult to the success envelope. Absent or false
+    // -> the success envelope is unchanged (byte-identical to today).
+    explain: zod_1.z.boolean().optional(),
 });
 /** Interpreter opt-in for the recording path. Present -> constraints OZ cannot
  *  express (per-method scoping, invocation-count windows, oracle bounds, exact
@@ -203,6 +208,15 @@ exports.SynthesizePolicyRecordingInputSchema = zod_1.z.object({
     confidenceOverride: zod_1.z.object({ threshold: zod_1.z.number().min(0).max(1) }).optional(),
     interpreter: exports.InterpreterOptionsSchema.optional(),
     ozConfig: exports.OzAdapterConfigSchema.optional(),
+    // --explain opt-in. When true, the orchestrator attaches the
+    // in-memory PredicateNode + the corresponding SimulationResult
+    // (real one from the self-verify pipeline when the interpreter is
+    // engaged, minimal honest value otherwise) to the success envelope.
+    // Absent or false -> the success envelope is unchanged (byte-identical
+    // to today). The flag is ADDITIVE: the existing ProposedPolicy fields
+    // (encodedPredicate, predicateHash, etc.) are never altered by enabling
+    // explain.
+    explain: zod_1.z.boolean().optional(),
 });
 exports.SynthesizePolicyInputSchema = zod_1.z.discriminatedUnion('source', [
     exports.SynthesizePolicyMandateInputSchema,

package/dist-cjs/synth/compose-from-recording.d.ts

@@ -8,6 +8,10 @@ export interface OraclePriceBound {
     asset: string;
     operator: IRCompOp;
     value: string;
+    /** Decimal basis `value` is written on. REQUIRED: oracle prices normalise to
+     *  9 dp, and a threshold silently assumed to share that basis is what let a
+     *  raw 14-dp bound permit everything. The author states it; we convert. */
+    decimals: number;
 }
 /** Caller-supplied answers to the ambiguity prompts. Every numeric bound the
  *  synth might apply must come from here - the recording supplies observed

package/dist-cjs/synth/compose-from-recording.js

@@ -108,11 +108,17 @@ function composeFromRecording(facts, scopeContract, topLevel, opts) {
                         value: limit,
                     },
                 };
-                if (!interpreterEnabled || token === scopeContract) {
-                    ozConstraints.push(spendCond);
-                }
-                else {
-                    interpreterConstraints.push(spendCond);
+                // A rolling spend cap always goes to OZ, whose `spending_limit` is the
+                // audited implementation. The interpreter is NOT a fallback for the
+                // token != scopeContract case: on chain it sees one authorized call,
+                // not the transaction's token movements, so it has no per-call amount
+                // to accumulate and the counter would never move. OZ reports the case
+                // it cannot cover (it pins the limit to the context contract), which
+                // is the honest outcome - the old fallback produced an interpreter
+                // predicate that silently never bound.
+                ozConstraints.push(spendCond);
+                if (interpreterEnabled && token !== scopeContract) {
+                    warnings.push(`rolling spend cap on ${token} cannot be enforced on chain: OZ spending_limit pins the limit to the context contract, and the interpreter cannot observe token movements. Bound the per-call value with an argument cap plus an invocation-count limit instead.`);
                 }
             }
         }
@@ -137,7 +143,10 @@ function composeFromRecording(facts, scopeContract, topLevel, opts) {
                 op: 'compare',
                 compare: {
                     selector: { kind: 'invocation_count', windowSeconds },
-                    operator: 'lte',
+                    // `lt`, not `lte`: the leaf reports the calls ALREADY made in the
+                    // window, so `< N` is what permits N of them. With `lte` a limit
+                    // of N let an N+1th call through.
+                    operator: 'lt',
                     value: String(invocationLimit),
                 },
             };
@@ -168,6 +177,7 @@ function composeFromRecording(facts, scopeContract, topLevel, opts) {
                     selector: { kind: 'oracle_price', asset: b.asset },
                     operator: b.operator,
                     value: b.value,
+                    valueDecimals: b.decimals,
                 },
             };
             if (interpreterEnabled) {
@@ -303,8 +313,15 @@ function appendProtocolSpecificConstraints(ozConstraints, interpreterConstraints
             });
             for (let i = 0; i < elements.length; i++) {
                 const element = elements[i];
-                if (!element || element.type !== 'map')
+                // An element we cannot bind leaves that request's action, asset and
+                // amount free while the length pin makes the policy LOOK total. The
+                // length pin still stays (it is a real restriction, and dropping it
+                // would only widen the policy) - what must not happen is dropping the
+                // element quietly.
+                if (element?.type !== 'map') {
+                    warnings.push(`Blend submit requests element ${i} is not a Request map (recorded as ${element?.type ?? 'nothing'}): its request_type, address and amount are NOT pinned, so any action on any asset for any amount is permitted in that position`);
                     continue;
+                }
                 const fields = element.value;
                 const fieldValue = (name, scalarType) => {
                     const entry = fields.find((e) => e.key === name);
@@ -321,8 +338,17 @@ function appendProtocolSpecificConstraints(ozConstraints, interpreterConstraints
                 const address = fieldValue('address', 'address');
                 const amount = fieldValue('amount', 'i128');
                 const requestType = fieldValue('request_type', 'u32');
-                if (address === null || amount === null || requestType === null)
+                if (address === null || amount === null || requestType === null) {
+                    const missing = [
+                        requestType === null ? 'request_type (u32)' : null,
+                        address === null ? 'address' : null,
+                        amount === null ? 'amount (i128)' : null,
+                    ].filter((f) => f !== null);
+                    // Partial pins are deliberately NOT emitted (see the note above): a
+                    // half-pinned request reads as a bound one on the review card.
+                    warnings.push(`Blend submit requests element ${i} could not be bound: ${missing.join(', ')} missing or of an unexpected type. That request's request_type, address and amount are NOT pinned, so any action on any asset for any amount is permitted in that position`);
                     continue;
+                }
                 interpreterConstraints.push({
                     op: 'compare',
                     compare: {

package/dist-cjs/synth/deny-cases.d.ts

@@ -1,4 +1,4 @@
-import type { PredicateNode } from '../types.ts';
+import type { PredicateNode, ScVal } from '../types.ts';
 import type { EvalContext } from './evaluate.ts';
 export interface DenyCase {
     dimension: string;
@@ -20,3 +20,6 @@ export { ORIGINAL_DIMENSIONS, OVERPERMISSIVE_DIMENSIONS };
  *                     are emitted. The synth pipeline passes ORIGINAL_DIMENSIONS so
  *                     existing fixtures do not regress. */
 export declare function generateCases(predicate: PredicateNode, permitCtx: EvalContext, dimensions?: string[]): GeneratedCases;
+/** Deep-copy an ScVal so a mutation cannot alias the recorded call.
+ *  Exported so the permit-context builder shares this one implementation. */
+export declare function cloneScVal(value: ScVal, depth?: number): ScVal;

package/dist-cjs/synth/deny-cases.js

@@ -2,6 +2,7 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.OVERPERMISSIVE_DIMENSIONS = exports.ORIGINAL_DIMENSIONS = void 0;
 exports.generateCases = generateCases;
+exports.cloneScVal = cloneScVal;
 const types_ts_1 = require("../types.js");
 const predicate_literals_ts_1 = require("./predicate-literals.js");
 const ORACLE_CASES = [
@@ -481,6 +482,8 @@ function cloneContext(ctx) {
         cloned.signerWeights = { ...ctx.signerWeights };
     return cloned;
 }
+/** Deep-copy an ScVal so a mutation cannot alias the recorded call.
+ *  Exported so the permit-context builder shares this one implementation. */
 function cloneScVal(value, depth = 0) {
     // Recursion is bounded by MAX_SCVAL_CLONE_DEPTH so a hand-crafted nested-vec
     // payload cannot RangeError the JS stack during deny-case mutation. Over-depth

package/dist-cjs/synth/evaluate.js

@@ -32,6 +32,11 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.evaluate = evaluate;
 const predicate_literals_ts_1 = require("./predicate-literals.js");
+/** Oracle prices normalise to this many decimals; mirrors NORMALISED_DECIMALS
+ *  in oracle.rs. A threshold on any other basis must say so. */
+const NORMALISED_DECIMALS = 9;
+/** Mirrors MAX_ORACLE_THRESHOLD_DECIMALS in dsl.rs. */
+const MAX_ORACLE_THRESHOLD_DECIMALS = 18;
 /** Internal fatal thrown by the oracle path; caught at the top of `evaluate`
  *  and converted to the matching `ORACLE_*` deny reason. NOT a
  *  boolean-false that `not` / `or` could mask. */
@@ -168,6 +173,13 @@ function evalCompare(op, left, right, ctx) {
     }
     // --- step 4b: call_arg comparison (eq / exact-vec, or an ordered numeric bound) ---
     if (left.kind === 'call_arg') {
+        // The swap's canonical form is `call_arg[out] >= call_arg_scaled(in, num, den)`.
+        // Dispatched here so the floor's dedicated reason codes (ARITHMETIC_OVERFLOW
+        // -> SLIPPAGE_FLOOR) reach the user; routing the scaled RHS through the
+        // generic `evalArgOrderedCompare` would mask overflow as ARG_MISMATCH.
+        if (right.kind === 'call_arg_scaled') {
+            return evalScaledArgCompare(op, left, right, ctx);
+        }
         const actual = ctx.args[left.index];
         // An ordered comparison (lt/lte/gt/gte) reads the arg as an integer and
         // compares it to a numeric literal via BigInt (e.g. a SoroSwap input-amount
@@ -178,6 +190,11 @@ function evalCompare(op, left, right, ctx) {
             return evalArgOrderedCompare(op, actual, right);
         return evalArgEq(op, actual, right, ctx);
     }
+    // --- step 4b': scaled leaf on the LEFT (`call_arg_scaled(in, num, den) <= call_arg[out]`).
+    // Symmetric form so a policy that phrases the floor either way works.
+    if (left.kind === 'call_arg_scaled') {
+        return evalScaledArgCompare(op, right, left, ctx);
+    }
     // --- step 4c: call_arg_len: the length of a vec-typed argument as a u32.
     // Fails closed on a non-vec arg, an absent arg, or a non-u32 literal.
     if (left.kind === 'call_arg_len') {
@@ -296,6 +313,102 @@ function evalArgEq(op, actual, right, ctx) {
         return { permit: false, reason: 'ARG_MISMATCH' };
     return { permit: false, reason: 'ARG_MISMATCH' };
 }
+/** Step 4b': slippage-floor comparison. Mirrors the Rust `eval_scaled_arg_compare`
+ *  path: the scaled leaf is `args[index] * num / den` (truncating toward
+ *  zero). On `checked_mul` / `checked_div` failure (overflow or
+ *  divide-by-zero) the comparison denies with `ARITHMETIC_OVERFLOW`. A
+ *  failed comparison denies with `SLIPPAGE_FLOOR` (the dedicated reason)
+ *  rather than the generic `ARG_MISMATCH`.
+ *
+ *  `left` is whichever side of the compare is NOT the scaled leaf. A
+ *  scaled-on-scaled compare denies `ARG_MISMATCH` (pipelining two scaled
+ *  leaves has no definable semantics). The other operand must be a
+ *  numeric shape (`call_arg` carrying a number, or a numeric literal);
+ *  anything else is `ARG_MISMATCH`. */
+function evalScaledArgCompare(op, left, right, ctx) {
+    // Identify which side is scaled, and pull the other side as a number.
+    let scaled;
+    let other;
+    let scaledOnRight;
+    if (left.kind === 'call_arg_scaled') {
+        scaled = left;
+        other = right;
+        scaledOnRight = false;
+    }
+    else if (right.kind === 'call_arg_scaled') {
+        scaled = right;
+        other = left;
+        scaledOnRight = true;
+    }
+    else {
+        // Neither side is scaled - this is a programming error in the
+        // dispatcher; the contract returns ARG_MISMATCH to fail closed.
+        return { permit: false, reason: 'ARG_MISMATCH' };
+    }
+    // Source `args[index]` -> BigInt. An out-of-bounds index or a
+    // non-numeric arg fails closed as ARG_MISMATCH (not SLIPPAGE_FLOOR) -
+    // a violated floor is the wrong code when the operand itself could
+    // not be read.
+    if (scaled.index >= ctx.args.length) {
+        return { permit: false, reason: 'ARG_MISMATCH' };
+    }
+    const input = argNumericBigInt(ctx.args[scaled.index]);
+    if (input === null)
+        return { permit: false, reason: 'ARG_MISMATCH' };
+    let num;
+    let den;
+    try {
+        num = BigInt(scaled.num);
+        den = BigInt(scaled.den);
+    }
+    catch {
+        return { permit: false, reason: 'ARG_MISMATCH' };
+    }
+    // Install refuses `den == 0` and `num <= 0` / `den <= 0`. The runtime
+    // check is a defensive belt-and-braces - a future validator
+    // regression cannot panic the frame on a divide-by-zero.
+    if (den === 0n)
+        return { permit: false, reason: 'ARITHMETIC_OVERFLOW' };
+    const product = input * num;
+    // BigInt overflow is silent in JS (it does not throw on multiplication).
+    // We can detect over-range by dividing and checking the result against
+    // i128 bounds, but the more practical check is whether the result
+    // divides cleanly. We rely on BigInt's arbitrary precision and then
+    // surface ARITHMETIC_OVERFLOW if the result is outside i128.
+    let scaledValue;
+    try {
+        // BigInt division truncates toward zero (matches Rust `i128::checked_div`).
+        scaledValue = product / den;
+    }
+    catch {
+        return { permit: false, reason: 'ARITHMETIC_OVERFLOW' };
+    }
+    // i128 range check: if the scaled value is outside i128, the contract
+    // would have wrapped on i128 arithmetic; surface the same deny.
+    const I128_MAX = (1n << 127n) - 1n;
+    const I128_MIN = -(1n << 127n);
+    if (scaledValue > I128_MAX || scaledValue < I128_MIN) {
+        return { permit: false, reason: 'ARITHMETIC_OVERFLOW' };
+    }
+    // Resolving the operand when the scaled side is on the right: the
+    // operand is `left`; the scaled value is the RHS. The AST order is
+    // `left <op> scaled`, so the comparator applies to `other <op> scaled`.
+    // When the scaled side is on the left, the order is `scaled <op> other`,
+    // i.e. `scaled <op> other_val`.
+    let otherVal;
+    if (other.kind === 'call_arg') {
+        otherVal = argNumericBigInt(ctx.args[other.index]);
+    }
+    else {
+        otherVal = (0, predicate_literals_ts_1.literalNumericBigInt)(other);
+    }
+    if (otherVal === null)
+        return { permit: false, reason: 'ARG_MISMATCH' };
+    const pass = scaledOnRight
+        ? bigintCmp(op, otherVal.toString(), scaledValue.toString())
+        : bigintCmp(op, scaledValue.toString(), otherVal.toString());
+    return pass ? { permit: true } : { permit: false, reason: 'SLIPPAGE_FLOOR' };
+}
 /** Ordered numeric comparison (lt/lte/gt/gte) on a `call_arg`. The interpreter
  *  reads the arg as an integer (i128 / u64 / u32 on the recorder's ScVal
  *  surface) and compares it to a numeric literal via BigInt. A non-numeric arg
@@ -392,6 +505,7 @@ function resolveLeaf(leaf, ctx) {
         case 'invocation_count_in_window':
         case 'now':
         case 'valid_until':
+        case 'call_arg_scaled':
             return undefined; // selector leaves with no ScVal projection
         case 'literal_address':
             return { type: 'address', value: leaf.value };
@@ -450,10 +564,23 @@ function evalOracleCompare(op, asset, right, ctx) {
             throw new OracleError('ORACLE_STALE');
         throw new OracleError(mapped);
     }
-    const literal = right.kind === 'literal_i128' ? right.value : null;
-    if (literal === null)
+    // Mirrors eval_oracle_compare in dsl.rs. The threshold MUST declare its
+    // decimal basis: prices are on the normalised 9-dp basis, and assuming a
+    // bare literal shares it is what let a raw 14-dp threshold permit
+    // everything. A bare literal is refused rather than assumed.
+    if (right.kind !== 'oracle_threshold')
         throw new OracleError('ORACLE_DECIMALS_MISMATCH');
-    return bigintCmp(op, entry.price, literal)
+    if (right.decimals > MAX_ORACLE_THRESHOLD_DECIMALS) {
+        throw new OracleError('ORACLE_THRESHOLD_DECIMALS_OUT_OF_RANGE');
+    }
+    // Scale BOTH sides up to the wider basis rather than dividing the threshold
+    // down: dividing truncates, and a truncated bound moves the permit boundary.
+    const decimals = BigInt(right.decimals);
+    const normalised = BigInt(NORMALISED_DECIMALS);
+    const common = decimals > normalised ? decimals : normalised;
+    const priceScaled = BigInt(entry.price) * 10n ** (common - normalised);
+    const literalScaled = BigInt(right.value) * 10n ** (common - decimals);
+    return bigintCmp(op, String(priceScaled), String(literalScaled))
         ? { permit: true }
         : { permit: false, reason: 'FN_MISMATCH' };
 }

package/dist-cjs/synth/permit-context.d.ts

@@ -0,0 +1,15 @@
+import type { PredicateNode, RecordedTransaction } from '../types.ts';
+import type { EvalContext } from './evaluate.ts';
+export interface PermitContextResponses {
+    windowSeconds: number;
+    invocationLimit?: number;
+    limitAmount?: string;
+    validUntilLedger: number;
+    oraclePriceBound?: Array<{
+        asset: string;
+        operator: string;
+        value: string;
+        decimals: number;
+    }>;
+}
+export declare function buildPermitContext(tx: RecordedTransaction, responses: PermitContextResponses, predicate: PredicateNode): EvalContext;