@danmoisan/drm-copilot-mcp 1.1.12 → 1.1.14

package/out/mcp-server.js

@@ -19728,7 +19728,10 @@ var CARRIED_KEYS = [
   "shared_surface_globs",
   "over_breadth_fraction",
   "mandate_reads",
-  "mergeable_paths"
+  "mergeable_paths",
+  "conflict_tolerance",
+  "write_intent_extraction",
+  "path_roots"
 ];
 var BlastRadiusDeriveError = class extends Error {
   /** Destination-relative path of the document that failed to parse. */
@@ -19835,6 +19838,9 @@ function deriveDestinationModuleMap(observations, sourceDocumentText) {
     shared_surface_globs: source[CARRIED_KEYS[2]],
     mandate_reads: source[CARRIED_KEYS[4]],
     mergeable_paths: source[CARRIED_KEYS[5]],
+    conflict_tolerance: source[CARRIED_KEYS[6]],
+    write_intent_extraction: source[CARRIED_KEYS[7]],
+    path_roots: source[CARRIED_KEYS[8]],
     modules,
     over_breadth_fraction: source[CARRIED_KEYS[3]]
   };
@@ -32067,6 +32073,15 @@ function formatList(values, emptyText) {
   }
   return valuesList.map((item) => `- ${item}`).join("\n");
 }
+function compareCodePoint(left, right) {
+  if (left < right) {
+    return -1;
+  }
+  if (left > right) {
+    return 1;
+  }
+  return 0;
+}
 
 // ../../extensions/drm-copilot/src/lib/pr-context/git-client.ts
 var GitClient = class {
@@ -32261,15 +32276,6 @@ function extractClosingNumbers(raw) {
 function sortedSet(values) {
   return [...new Set(values)].sort(compareCodePoint);
 }
-function compareCodePoint(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
-}
 function authorLogin(record3, key) {
   const raw = record3[key];
   if (isRecord5(raw)) {
@@ -32836,9 +32842,9 @@ function selectPendingPrimary(options) {
 }
 function buildCloseCandidatesSection(params) {
   const { verified, authorAsserted, referenced, verifiedReason, authorReason } = params;
-  const authorAutoClose = [...new Set(authorAsserted)].sort(compareCodePoint2);
+  const authorAutoClose = [...new Set(authorAsserted)].sort(compareCodePoint);
   const closing = /* @__PURE__ */ new Set([...verified, ...authorAsserted]);
-  const referencedOnly = [...new Set(referenced)].filter((ref) => !closing.has(ref)).sort(compareCodePoint2);
+  const referencedOnly = [...new Set(referenced)].filter((ref) => !closing.has(ref)).sort(compareCodePoint);
   return [
     section("Close candidates"),
     "Auto-close issues (verified from GitHub PR metadata):",
@@ -32885,15 +32891,6 @@ ${AUTOCLOSE_UNVERIFIED_ANNOTATION}`;
     "\n"
   );
 }
-function compareCodePoint2(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
-}
 
 // ../../extensions/drm-copilot/src/lib/pr-context/render-pr-helpers.ts
 var DEFAULT_BASE_CANDIDATES = [
@@ -32961,7 +32958,7 @@ function extensionSummary(files) {
     const ext = suffix2 ? suffix2 : "(noext)";
     counts.set(ext, (counts.get(ext) ?? 0) + 1);
   }
-  const lines = [...counts.keys()].sort(compareCodePoint3).map((key) => `${padCount(counts.get(key))}  ${key}`);
+  const lines = [...counts.keys()].sort(compareCodePoint).map((key) => `${padCount(counts.get(key))}  ${key}`);
   return lines.join("\n");
 }
 function extractIssueReferences(text2) {
@@ -32988,7 +32985,7 @@ function extractMergePrNumbers(subjects) {
       numbers.add(`#${match[1]}`);
     }
   }
-  return [...numbers].sort(compareCodePoint3);
+  return [...numbers].sort(compareCodePoint);
 }
 function summarizeConventionalCommits(subjects) {
   const counts = /* @__PURE__ */ new Map();
@@ -33052,15 +33049,6 @@ function padName(name) {
 function isDigits(value) {
   return value.length > 0 && /^\d+$/u.test(value);
 }
-function compareCodePoint3(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
-}
 function splitLines4(value) {
   if (value === "") {
     return [];
@@ -33287,16 +33275,7 @@ function errorMessage(exc) {
   return exc instanceof Error ? exc.message : String(exc);
 }
 function sortedSet2(values) {
-  return [...new Set(values)].sort(compareCodePoint4);
-}
-function compareCodePoint4(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
+  return [...new Set(values)].sort(compareCodePoint);
 }
 function splitLines5(value) {
   if (value === "") {
@@ -33384,7 +33363,7 @@ function readText(fs12, path16) {
   return fs12.exists(path16) ? fs12.readTextFile(path16) : "";
 }
 function latestGlobPath(fs12, directory, pattern) {
-  const matches = [...fs12.glob(directory, pattern)].sort(compareCodePoint5);
+  const matches = [...fs12.glob(directory, pattern)].sort(compareCodePoint);
   return matches.length > 0 ? matches[matches.length - 1] : null;
 }
 function verificationText(planText) {
@@ -33428,7 +33407,7 @@ function parseReadinessValue(text2) {
 }
 function resolveReadinessSignal(fs12, featureDir) {
   const auditFiles = [...fs12.glob(featureDir, "feature-audit.*.md")].sort(
-    compareCodePoint5
+    compareCodePoint
   );
   for (let index = auditFiles.length - 1; index >= 0; index -= 1) {
     const auditPath = auditFiles[index];
@@ -33447,15 +33426,6 @@ function relativeToPosix6(root, path16) {
   }
   return normalized.replace(/^\/+/u, "");
 }
-function compareCodePoint5(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
-}
 function escapeRegExp4(value) {
   return value.replace(/[.*+?^${}()|[\]\\]/gu, "\\$&");
 }
@@ -33485,7 +33455,7 @@ function discoverCanonicalEvidenceFiles(fs12, root, feature) {
       }
     }
   }
-  return [...discovered].sort(compareCodePoint6);
+  return [...discovered].sort(compareCodePoint);
 }
 function parseVerificationEvidenceMarkdown(params) {
   const { feature, sourceFile, markdown } = params;
@@ -33581,15 +33551,6 @@ function relativeToPosix7(root, absolute) {
   }
   return normalized.replace(/^\/+/u, "");
 }
-function compareCodePoint6(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
-}
 function splitLines6(value) {
   if (value === "") {
     return [];
@@ -33629,7 +33590,7 @@ function gatherFeatureExcerpts2(fs12, root, changedFiles) {
   const excerpts = [];
   const baseDir = `${normalizedRoot}/docs/features/active`;
   const promotedDir = `${normalizedRoot}/docs/features/potential/promoted`;
-  for (const feature of [...features].sort(compareCodePoint5)) {
+  for (const feature of [...features].sort(compareCodePoint)) {
     const featureDir = resolveFeatureDir2(fs12, baseDir, feature);
     const promotedFeatureDir = resolveFeatureDir2(fs12, promotedDir, feature);
     if (featureDir === null && promotedFeatureDir === null) {
@@ -33783,7 +33744,7 @@ function buildContextFiles(params) {
     feature
   );
   return [.../* @__PURE__ */ new Set([...contextFiles, ...evidenceContextFiles])].sort(
-    compareCodePoint5
+    compareCodePoint
   );
 }
 
@@ -34219,9 +34180,9 @@ function collectPrContext(options) {
     referencedPrsSet,
     invalidRefsSet
   });
-  const referencedIssues = [...referencedIssuesSet].sort(compareCodePoint7);
-  const referencedPrs = [...referencedPrsSet].sort(compareCodePoint7);
-  const invalidRefs = [...invalidRefsSet].sort(compareCodePoint7);
+  const referencedIssues = [...referencedIssuesSet].sort(compareCodePoint);
+  const referencedPrs = [...referencedPrsSet].sort(compareCodePoint);
+  const invalidRefs = [...invalidRefsSet].sort(compareCodePoint);
   const authorAsserted = [];
   const authorReason = "None (author has not asserted autoclose issues)";
   const verified = ghAvailable ? contextResult.verifiedClosing : [];
@@ -34368,16 +34329,7 @@ function errorMessage2(exc) {
   return exc instanceof Error ? exc.message : String(exc);
 }
 function sortedSet3(values) {
-  return [...new Set(values)].sort(compareCodePoint7);
-}
-function compareCodePoint7(left, right) {
-  if (left < right) {
-    return -1;
-  }
-  if (left > right) {
-    return 1;
-  }
-  return 0;
+  return [...new Set(values)].sort(compareCodePoint);
 }
 
 // ../../extensions/drm-copilot/src/lib/pr-context/collector-output.ts

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@danmoisan/drm-copilot-mcp",
-  "version": "1.1.12",
+  "version": "1.1.14",
   "description": "Stdio MCP server exposing drm-copilot repo-automation tools.",
   "license": "MIT",
   "type": "commonjs",
@@ -40,7 +40,7 @@
   "overrides": {
     "fast-uri": "^3.1.4",
     "hono": "^4.12.27",
-    "ip-address": "^10.2.0",
+    "ip-address": "^10.7.2",
     "qs": "^6.15.2",
     "@hono/node-server": "^2.0.5"
   },

package/resources/claude-customizations/.claude/agents/parallel-planner.md

@@ -110,7 +110,8 @@ your own initiative; withdrawal is a caller decision made through F6's remove op
 Update `artifacts/orchestration/parallel-planner-state.json` after every completed step with:
 `objective`, `parallel_slug`, `parallel_manifest_path`, `mode`, `max_concurrency`,
 `plan_home_branch`, `items[]`, `cohorts[]`, `conflict_edges[]`, `recolor_generation`,
-`kickoff_prompt_path`, `completed_steps`, `next_step`, and `last_updated`.
+`kickoff_prompt_path`, `completed_steps`, `next_step`, and `last_updated`. Also record the
+`tolerated_overlaps` list returned by Get-BlastRadiusConflictEdge (tolerated-not-validated).
 
 Each `items[]` entry carries `issue_num`, `feature_folder`, `kind`, `state`, `complexity_band`,
 `preparation_status`, `research_path`, `plan_path`, `preflight_status`, `branch_name`,
@@ -163,6 +164,22 @@ The facade exports `Get-PlanPaths`, `Get-BlastRadius`, `Get-BlastRadiusFromObser
 `Test-BlastRadiusConflict` reads that table's optional `mergeable_paths` list and contributes no
 `path_overlap` edge for a path matching it, while the path stays in the declared radius.
 
+The facade also exports the scheduling entry point Get-BlastRadiusConflictEdge (with its per-pair
+helper `Get-BlastRadiusPairDecision`), the PowerShell port of `schedule_conflict_edges` in
+`scripts/dev_tools/_blast_radius_scheduling.py`. Build the conflict edges with one call,
+`Get-BlastRadiusConflictEdge -Item <records carrying key, radius, band> -Config <parsed truth table> -Relation ${function:Test-BlastRadiusConflict}`,
+rather than applying `Test-BlastRadiusConflict` to each pair by hand. The -Relation argument is
+required: the scheduling module does not resolve the relation itself, and an omitted relation fails
+fast. It applies the detection
+relation to every unordered pair and then the integration-cost edge rule of
+`.claude/rules/parallel-orchestration.md` under the table's configured `conflict_tolerance`, and
+returns `edges` and `tolerated_overlaps`. Record the edges in `conflict_edges[]` (each entry may
+carry the tolerated extra fields `hard`, `cost`, and `benefit`) and record every returned tolerated
+overlap in a `tolerated_overlaps` list on the planner checkpoint; tolerated overlaps are required
+checkpoint content, never discarded. A tolerated pair runs in the same or adjacent cohorts without a
+barrier, and the later-merging item merges `origin/main` and re-passes CI. The configured tolerance
+is the only sanctioned relaxation: never hand-narrow a radius to suppress an edge.
+
 **Cohort seeding and concurrency batching — bash entry points.** The bash library is granted as
 four entry-point-specific allowlist entries — `"Bash(bash .claude/lib/bash/compute-cohorts.sh*)"`,
 `"Bash(bash .claude/lib/bash/compute-concurrency-batches.sh*)"`,

package/resources/claude-customizations/.claude/hooks/enforce-completion-consistency.ps1

@@ -29,9 +29,13 @@
     completion is not asserted, the write is allowed via
     hookSpecificOutput.permissionDecision='allow' (backward compatibility).
 
-    Edit tool calls supply only old_string/new_string (a partial patch) and
-    cannot be reliably validated without the full target file content, so they
-    are allowed by this hook, matching enforce-checkpoint-monotonic.ps1. For
+    Edit tool calls supply only old_string/new_string (a partial patch). An Edit
+    call is validated by reading the checkpoint at the Edit's
+    targeted file_path through the injectable CheckpointReader seam and
+    applying the old_string -> new_string replacement in memory; the resulting
+    content is then evaluated like a Write. When the patch cannot be resolved
+    (the targeted file is missing or empty, the Edit has no old_string, or the
+    old_string is absent from the targeted content), the call is allowed. For
     Write calls whose content is not valid JSON, the hook allows the operation
     and defers to downstream tools to surface the error.
 
@@ -266,10 +270,11 @@ function Resolve-EditedCheckpointContent {
         when the patch cannot be applied against the on-disk checkpoint.
     .DESCRIPTION
         Implements the read-then-validate Edit path. When the tool input carries
-        an old_string (an Edit patch), the on-disk checkpoint is read through the
+        an old_string (an Edit patch), the checkpoint at the caller-supplied
+        CheckpointPath (the Edit's targeted file_path) is read through the
         injectable CheckpointReader seam and the old_string -> new_string
         replacement is applied in memory (no on-disk mutation). Returns $null
-        when there is no old_string, the on-disk file does not exist, or the
+        when there is no old_string, the targeted file does not exist or is empty, or the
         old_string is not present in the on-disk content, signalling the caller
         to allow (defer).
     #>
@@ -281,7 +286,10 @@ function Resolve-EditedCheckpointContent {
         $ToolInput,
 
         [Parameter(Mandatory)]
-        [scriptblock] $CheckpointReader
+        [scriptblock] $CheckpointReader,
+
+        [Parameter(Mandatory)]
+        [string] $CheckpointPath
     )
 
     $oldString = $null
@@ -297,7 +305,7 @@ function Resolve-EditedCheckpointContent {
         $newString = [string]$ToolInput.new_string
     }
 
-    $onDisk = & $CheckpointReader 'artifacts/orchestration/orchestrator-state.json'
+    $onDisk = & $CheckpointReader $CheckpointPath
     if ([string]::IsNullOrEmpty([string]$onDisk)) {
         # The on-disk checkpoint does not exist (or is empty); cannot patch.
         return $null
@@ -363,7 +371,7 @@ function Invoke-CompletionConsistencyDecision {
     # apply the old_string -> new_string patch in memory (read-then-validate).
     $content = Get-ClaudeHookToolInputString -ToolInput $toolInput -Name 'content'
     if (-not $content) {
-        $content = Resolve-EditedCheckpointContent -ToolInput $toolInput -CheckpointReader $CheckpointReader
+        $content = Resolve-EditedCheckpointContent -ToolInput $toolInput -CheckpointReader $CheckpointReader -CheckpointPath $filePath
         if (-not $content) {
             # No content, and the Edit could not be resolved against on-disk
             # state (missing file or non-matching patch): defer and allow.

package/resources/claude-customizations/.claude/hooks/enforce-orchestration-preimplementation-gate-helpers.ps1

@@ -28,12 +28,12 @@ $script:OrchestrationBookkeepingTrees = @(
 )
 
 # Characters that make a command line statically unresolvable (D4 row 12, as narrowed by
-# issue #663). Interpolation characters are unresolvable in every quote state, because a
-# double-quoted span still expands them. Redirection characters are unresolvable only
-# outside a quoted span: inside single or double quotes the shell treats `<` and `>` as
-# literal text, so a quoted Co-Authored-By trailer is not a redirection.
+# issues #663 and #713): interpolation characters outside single quotes; outside-quote
+# characters (`<`, `>`, and the `#` comment introducer) outside any quote; and typographic
+# quotes (U+2018 to U+201E) anywhere, because a PowerShell host reads them as quotes.
 $script:InterpolationCommandCharacters = [char[]]@('$', '`')
-$script:RedirectionCommandCharacters = [char[]]@('>', '<')
+$script:OutsideQuoteCommandCharacters = [char[]]@('>', '<', '#')
+$script:TypographicQuoteCharacters = [char[]]@(0x2018, 0x2019, 0x201A, 0x201B, 0x201C, 0x201D, 0x201E)
 
 # Wildcards that make an operand a glob (D4 row 15). Only the literal prefix before the
 # first of these is prefix-tested.
@@ -60,10 +60,9 @@ function Split-OrchestrationCommandLine {
     .SYNOPSIS
         Splits a command line into segments on chain operators outside quotes.
     .DESCRIPTION
-        Realizes D4 row 13. Quote state is tracked while scanning so a chain operator
-        inside a quoted span does not split. The returned `Balanced` flag reports whether
-        the scan ended outside every quote; unbalanced text is not splittable and the
-        caller denies (D4 rows 11 and 13). Empty and whitespace-only segments are dropped.
+        Realizes D4 row 13. Quote state and POSIX backslash escapes (issue #710) are tracked, so a quoted or
+        escaped chain operator does not split. `Balanced` reports whether the scan ended outside every quote;
+        the caller denies unbalanced text (D4 rows 11 and 13). Empty and whitespace-only segments are dropped.
     .OUTPUTS
         System.Collections.Hashtable with keys `Balanced` (bool) and `Segments` (string[]).
     #>
@@ -74,8 +73,9 @@ function Split-OrchestrationCommandLine {
     $segments = [System.Collections.Generic.List[string]]::new()
     $current = [System.Text.StringBuilder]::new()
     $openQuote = [char]0
-
+    $escaped = $false
     foreach ($character in $CommandText.ToCharArray()) {
+        if ($escaped -or ($character -eq '\' -and $openQuote -ne "'")) { $escaped = -not $escaped; [void]$current.Append($character); continue }
         if ($openQuote -ne [char]0) {
             if ($character -eq $openQuote) {
                 $openQuote = [char]0
@@ -112,12 +112,12 @@ function Test-OrchestrationCommandTextUnresolvable {
     .SYNOPSIS
         Reports whether a command line carries a statically unresolvable character.
     .DESCRIPTION
-        Realizes D4 row 12 as narrowed by issue #663. Quote state is tracked with the same
-        state machine as Split-OrchestrationCommandLine. An interpolation character (`$` or
-        backtick) answers true in any quote state; a redirection character (`<` or `>`)
-        answers true only outside a quoted span. Backslash escapes are not modelled, so a
-        backslash before any quote character, or anywhere inside a double-quoted span,
-        answers true: the shell may end the span where this scan does not (fail closed).
+        Realizes D4 row 12 as narrowed by issues #663 and #713, with quote state tracked as in
+        Split-OrchestrationCommandLine. `$` or backtick answers true outside quotes or inside
+        double quotes (single quotes keep it literal); `<`, `>`, or a `#` comment answers true
+        only outside a quoted span. A typographic quote (U+2018 to U+201E), a backslash before
+        any quote character, or a backslash inside a double-quoted span answers true anywhere:
+        a shell may end the span where this scan does not (fail closed).
     .PARAMETER CommandText
         The full command line as the shell would receive it.
     .OUTPUTS
@@ -127,17 +127,17 @@ function Test-OrchestrationCommandTextUnresolvable {
     [OutputType([bool])]
     param([Parameter(Mandatory)][AllowEmptyString()][string] $CommandText)
 
-    # An escaped quote moves a span boundary the scan cannot model (issue #663 remediation CR-1).
-    if ($CommandText.Contains('\"') -or $CommandText.Contains("\'")) {
+    # An escaped or typographic quote moves a span boundary the scan cannot model (#663, #713).
+    if ($CommandText.Contains('\"') -or $CommandText.Contains("\'") -or $CommandText.IndexOfAny($script:TypographicQuoteCharacters) -ge 0) {
         return $true
     }
 
     $openQuote = [char]0
 
     # Scan every character once, tracking whether it sits inside a quoted span so that
-    # redirection characters are judged only where the shell would honour them.
+    # outside-quote characters are judged only where the shell would honour them.
     foreach ($character in $CommandText.ToCharArray()) {
-        if ($script:InterpolationCommandCharacters -contains $character) {
+        if ($openQuote -ne "'" -and $script:InterpolationCommandCharacters -contains $character) {
             return $true
         }
 
@@ -153,7 +153,7 @@ function Test-OrchestrationCommandTextUnresolvable {
             }
         } elseif ($character -eq '"' -or $character -eq "'") {
             $openQuote = $character
-        } elseif ($script:RedirectionCommandCharacters -contains $character) {
+        } elseif ($script:OutsideQuoteCommandCharacters -contains $character) {
             return $true
         }
     }
@@ -393,21 +393,21 @@ function Test-ExemptOrchestrationSegmentToken {
             }
 
             if ($candidate.StartsWith('-')) {
-                # The message option is the only modelled option on either subcommand. Rows
+                # Only the message and trailer options of commit are modelled (issue #713). Rows
                 # 2, 5, 6, 8, and 10 all land here and deny, including a dash-leading
                 # operand supplied without a preceding separator.
                 if ($subcommand -cne 'commit') {
                     return $false
                 }
-                if ($candidate -ceq '-m' -or $candidate -ceq '--message') {
-                    # The message value is the following token and is not a pathspec.
+                if ($candidate -ceq '-m' -or $candidate -ceq '--message' -or $candidate -ceq '--trailer') {
+                    # The message or trailer value is the following token and is not a pathspec.
                     $index += 2
                     if ($index -gt $Token.Count) {
                         return $false
                     }
                     continue
                 }
-                if ($candidate.StartsWith('--message=') -or
+                if ($candidate.StartsWith('--message=') -or $candidate.StartsWith('--trailer=') -or
                     ($candidate.Length -gt 2 -and $candidate.StartsWith('-m'))) {
                     $index++
                     continue
@@ -464,8 +464,8 @@ function Test-ExemptOrchestrationStagingCommand {
         return $false
     }
 
-    # Row 12: interpolation anywhere, redirection outside quotes, and unmodelled backslash
-    # escapes are not statically resolvable, so the operand list cannot be trusted.
+    # Row 12: `$` or backtick outside single quotes, `<`, `>`, or `#` outside quotes, any
+    # typographic quote, and unmodelled backslash escapes make the operand list untrustworthy.
     if (Test-OrchestrationCommandTextUnresolvable -CommandText $CommandText) {
         return $false
     }

package/resources/claude-customizations/.claude/lib/blast-radius/BlastRadius.psm1

@@ -18,6 +18,17 @@
       - Test-BlastRadius                  port of validate_blast_radius
       - Test-BlastRadiusConflict          port of conflicts
 
+    It also re-exports two scheduling functions of BlastRadiusScheduling.psm1
+    (issue #722); each takes the relation as -Relation, so a caller passes
+    ${function:Test-BlastRadiusConflict} from this facade:
+
+      - Get-BlastRadiusConflictEdge       port of schedule_conflict_edges
+      - Get-BlastRadiusPairDecision       port of decide_pair
+
+    It also re-exports the six functions of BlastRadiusWriteIntent.psm1 (issue
+    #722); Get-BlastRadius and Get-NormalizedDeclaredRadius delegate their
+    write_intent_extraction flag branch to that module.
+
     The Python modules remain the authoritative reference implementation. This
     module is one half of a two-language mirror; it never imports validator
     logic. Every function is pure: no filesystem, subprocess, network, or
@@ -60,6 +71,8 @@ Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusConfig.psm1'
 Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusNormalization.psm1') -Force -ErrorAction Stop
 Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusValidation.psm1') -Force -ErrorAction Stop
 Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusConflict.psm1') -Force -ErrorAction Stop
+Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusScheduling.psm1') -Force -ErrorAction Stop
+Import-Module (Join-Path -Path $PSScriptRoot -ChildPath 'BlastRadiusWriteIntent.psm1') -Force -ErrorAction Stop
 
 # Feature-folder handling. Every radius contains its own feature folder, and a
 # caller may pass either a bare folder name or an already-qualified path.
@@ -169,10 +182,19 @@ function Get-BlastRadius {
     # derived radius always passes V1 and V2 against its own plan (issue #452).
     $rootSurface = [string[]]@(Get-ConfigRootSurface -Config $Config)
 
-    $specLine = [string[]]@(ConvertTo-NormalizedLine -Text $SpecText)
+    # Write-intent mode (issue #722) delegates to BlastRadiusWriteIntent.psm1:
+    # plan paths come from the selector Test-BlastRadius also uses and the spec
+    # contributes contracts only.
     $entry = [System.Collections.Generic.List[string]]::new()
-    $entry.AddRange([string[]]@(Get-PlanPaths -PlanText $PlanText -RootSurface $rootSurface))
-    $entry.AddRange([string[]]@(Get-PathFromLine -Line $specLine -RootSurface $rootSurface))
+    if (Test-WriteIntentExtractionEnabled -Config $Config) {
+        $entry.AddRange([string[]]@(Get-PlanPathForConfig -PlanText $PlanText -Config $Config -RootSurface $rootSurface))
+        $contract = @(Get-WriteIntentSpecContract -SpecText $SpecText)
+    } else {
+        $specLine = [string[]]@(ConvertTo-NormalizedLine -Text $SpecText)
+        $entry.AddRange([string[]]@(Get-PlanPaths -PlanText $PlanText -RootSurface $rootSurface))
+        $entry.AddRange([string[]]@(Get-PathFromLine -Line $specLine -RootSurface $rootSurface))
+        $contract = @(Get-ContractIdentifier -SpecText $SpecText)
+    }
 
     # Read-by-mandate citations are dropped before the feature folder is added: a
     # plan cites the policy rules because its author was told to read them, not
@@ -193,7 +215,7 @@ function Get-BlastRadius {
         paths           = $paths
         modules         = @(Resolve-BlastRadiusModule -PathEntry $paths -Config $Config)
         shared_surfaces = @(Resolve-BlastRadiusSharedSurface -ConcretePath $concrete -Config $Config)
-        contracts       = @(Get-ContractIdentifier -SpecText $SpecText)
+        contracts       = $contract
         source          = $Source
         computed_at     = $ComputedAt
     }
@@ -264,7 +286,14 @@ function Get-NormalizedDeclaredRadius {
         }
     }
 
-    $paths = [string[]]@(Get-NonMandateReadEntry -Entry $accepted.ToArray() `
+    # Write-intent mode (issue #722) applies the token-level rules W1, W4, and W6
+    # before the mandate-read filter; the feature-folder glob is kept.
+    $acceptedEntry = [string[]]$accepted.ToArray()
+    if (Test-WriteIntentExtractionEnabled -Config $Config) {
+        $acceptedEntry = [string[]]@(Select-WriteIntentPathEntry -Entry $acceptedEntry -RootSurface $rootSurface `
+                -PathRoot ([string[]]@(Get-ConfigPathRoot -Config $Config)))
+    }
+    $paths = [string[]]@(Get-NonMandateReadEntry -Entry $acceptedEntry `
             -MandateRead ([string[]]@(Get-ConfigMandateRead -Config $Config)))
     $concrete = [string[]]@(Get-ConcreteEntry -Entry $paths)
 
@@ -435,4 +464,12 @@ Export-ModuleMember -Function `
     Get-NormalizedDeclaredRadius, `
     Get-BlastRadiusFromObservedPaths, `
     Test-BlastRadius, `
-    Test-BlastRadiusConflict
+    Test-BlastRadiusConflict, `
+    Get-BlastRadiusConflictEdge, `
+    Get-BlastRadiusPairDecision, `
+    Test-WriteIntentExtractionEnabled, `
+    Get-ConfigPathRoot, `
+    Get-WriteIntentPlanPath, `
+    Get-WriteIntentSpecContract, `
+    Select-WriteIntentPathEntry, `
+    Get-PlanPathForConfig