Launcher.ps1
|
# 执行层（spec 5）：先切目录再启动 claude（顺序不可颠倒，发现 9） # 降级链（决策 23 + 三轮反馈修正）：-r 失败 → -c 接续最近会话 → 带 prompt 兜底 # 第四轮根因修复（2026-09-01 探针矩阵实锤）： # 旧形态 $null = Invoke-WithSpinner { Invoke-Expression ... } 中 PowerShell 一旦捕获子进程输出 # 就给它挂 stdout 管道 → claude（Node）检测 stdout 非 TTY → 进 headless print 模式 → # 无 prompt 启动报 "No deferred tool marker found"（L1 -r 与 L2 -c 同报此错的根因）。 # 探针矩阵：$null= / 管道 / 上层赋值捕获全管道化（B/C/G/I 形态）；Start-Process -NoNewWindow # 子进程继承控制台（TTY 保持），ExitCode 是 Int32 本尊，绝无污染可能。 # 最终形态：Start-Process 直启 + -RedirectStandardError 分流（stderr 不与 TUI 输出竞争时序） # ── 诊断探针开关（硬编码常量，代码评审约束：探针必须有关闭路径）────────── # $script:CctProbeEnabled = $false 为出厂值，正式启动零探针 IO。 # 排查 claude「接管/渲染时序」时改为 $true（下次启动生效），把启动轮询时间线写成 # %TEMP%\cct_probe_*.csv（elapsed_ms,mode_hex,cursor_y,cursor_x,title）； # 亦可作未来非交互版调试子命令的数据源。仅真实终端下有意义，重定向环境无 TTY 不写。 $script:CctProbeEnabled = $false # 运行一条 claude 命令：旋转 spinner + stderr 分流；返回退出码（Int32 本尊，绝不被输出污染） function Invoke-CctClaude { param([string]$Command, [string]$SpinnerText) # 命令拆分：首 token 为可执行文件（含引号形态），其余为参数行 $m = [regex]::Match($Command, '^\s*("[^"]+"|\S+)\s*(.*)$') $exeToken = $m.Groups[1].Value $exe = $exeToken.Trim('"') $argLine = $m.Groups[2].Value # 脚本类可执行：Start-Process 只认原生 Win32 程序，直启脚本报「%1 不是有效的 Win32 应用程序」。 # claude 安装形态多样（npm→.cmd/.ps1、bun/原生→无扩展名）；显式路径按扩展名判断，裸名经 Get-Command 解析。 switch ([System.IO.Path]::GetExtension($exe).ToLowerInvariant()) { '.cmd' { $exe = $env:COMSPEC; $argLine = "/c $exeToken $argLine" } # COMSPEC = cmd.exe 全路径 '.bat' { $exe = $env:COMSPEC; $argLine = "/c $exeToken $argLine" } '.ps1' { $script = $exe; $exe = (Join-Path $PSHOME 'pwsh.exe'); $argLine = "-NoProfile -File `"$script`" $argLine" } # 显式全路径 '.exe' { } # 原生程序：直启保 TTY '' { # 裸名/无扩展名：解析真实目标；脚本形态按解释器包装，解析不到则交 cmd 按 PATHEXT 找配套脚本 $resolved = Get-Command -Name $exe -ErrorAction SilentlyContinue | Select-Object -First 1 if ($resolved) { switch ([System.IO.Path]::GetExtension($resolved.Path).ToLowerInvariant()) { '.cmd' { $exe = $env:COMSPEC; $argLine = "/c $exeToken $argLine" } '.bat' { $exe = $env:COMSPEC; $argLine = "/c $exeToken $argLine" } '.ps1' { $script = $resolved.Path; $exe = (Join-Path $PSHOME 'pwsh.exe'); $argLine = "-NoProfile -File `"$script`" $argLine" } # 裸名解析到 ps1，用其全路径 } } elseif (-not $exe.Contains([System.IO.Path]::DirectorySeparatorChar)) { $exe = $env:COMSPEC $argLine = "/c $exeToken $argLine" } } } $errFile = Join-Path ([System.IO.Path]::GetTempPath()) ("cct_err_" + [guid]::NewGuid().ToString('N') + '.txt') try { # spinner 停止策略（决策 88，第十五轮定稿）：以「光标离开 spinner 所在行」为接管信号。 # claude 接管时（渲染 TUI 那一刻）会把共享屏幕的光标移走——conpty 下共享光标可见。 # 实测（2026-09-02 探针）claude 1.18s 就切 raw 但到 9.87s 才开始渲染，raw 超前 8.5s # 被证过早弃用；光标离开与渲染几乎同步，spinner 恰好贴住「屏幕交给 claude」的瞬间熄灭。 # 固定 autoStopMs 25s 仅作异常安全网；循环同限 25s 防信号失效时空转。 # 重定向/测试环境无 TTY 可检，保持 Start-Process -Wait 直跑不变。 if (-not [Console]::IsOutputRedirected) { $spinner = $null $yBase = $null $probe = $null $h = $null $sw = [System.Diagnostics.Stopwatch]::StartNew() try { $spinner = [CctSpinner]::Start($SpinnerText, 100, 25000) $yBase = [Console]::CursorTop # spinner 每帧归位的行号 if ($script:CctProbeEnabled) { # 探针（开关见文件头） $h = [CctConsoleMode]::GetStdHandle([CctConsoleMode]::STD_INPUT) $probe = Join-Path ([System.IO.Path]::GetTempPath()) ("cct_probe_" + [guid]::NewGuid().ToString('N') + '.csv') Set-Content -Path $probe -Value 'elapsed_ms,mode_hex,cursor_y,cursor_x,title' -Encoding UTF8 -NoNewline } } catch { } try { $p = Start-Process -FilePath $exe -ArgumentList $argLine -RedirectStandardError $errFile -NoNewWindow -PassThru while (-not $p.HasExited -and $sw.ElapsedMilliseconds -lt 25000) { # 接管信号：claude 开始向共享屏幕渲染 → 光标离开我们 spinner 归位的行 $cy = try { [Console]::CursorTop } catch { $null } if ($null -ne $cy -and $cy -ne $yBase) { break } if ($null -ne $probe) { try { $m = '?' $mm = [uint32]0 if ($null -ne $h) { [CctConsoleMode]::GetConsoleMode($h, [ref]$mm) | Out-Null; $m = '{0:x}' -f $mm } $cx = [Console]::CursorLeft $t = [Console]::Title } catch { $cx = -1; $t = '' } Add-Content -Path $probe -Value "$($sw.ElapsedMilliseconds),$m,$cy,$cx,$t" -Encoding UTF8 } Start-Sleep -Milliseconds 50 } } finally { if ($null -ne $spinner) { [CctSpinner]::Stop($spinner) } } $p.WaitForExit() $code = [int]$p.ExitCode } else { $p = Start-Process -FilePath $exe -ArgumentList $argLine -RedirectStandardError $errFile -NoNewWindow -Wait -PassThru $code = [int]$p.ExitCode } } catch { # Start-Process 失败（命令不存在等）：清理临时 errFile 后报错 if ($errFile -and (Test-Path -LiteralPath $errFile)) { Remove-Item -LiteralPath $errFile -ErrorAction SilentlyContinue } Write-Host "" Write-Error "启动命令失败: $($_.Exception.Message)" return 1 } # stderr 回放（无后台线程写屏，时序干净） if (Test-Path -LiteralPath $errFile) { $err = Get-Content -LiteralPath $errFile -Raw -ErrorAction SilentlyContinue if ($err) { [Console]::Error.WriteLine($err.TrimEnd()) } Remove-Item -LiteralPath $errFile -ErrorAction SilentlyContinue } return $code } # spinner 文本（反馈 3-2）：正在启动会话：[账号调优（管理_sub2api）]——会话项带父目录括号，与卡片显示一致 function Get-CctSpinnerText { param([pscustomobject]$Item) $display = if ($Item.Kind -eq 'Session') { $parent = Split-Path -Leaf $Item.Path "$($Item.Name)（$parent）" } else { [string]$Item.Name } return "正在启动会话：[$display]" } function Invoke-CctTask { [CmdletBinding()] param([pscustomobject]$Item, [pscustomobject]$Config, [switch]$DryRun) # 目录校验（决策 26：不存在报错留原地） if (-not (Test-Path -LiteralPath $Item.Path)) { Write-Error "任务目录不存在: $($Item.Path)" return [pscustomobject]@{ Started = $false; Command = $null; Location = (Get-Location).Path } } # 1. 先切目录（发现 9：--resume 不会自动回原目录，必须先 Set-Location） Set-Location -LiteralPath $Item.Path # 2. 组命令（决策 4/10） $cmd = if ($Item.Kind -eq 'Session' -and $Item.SessionId) { $Config.resumeCommand -replace '\{sessionId\}', $Item.SessionId } else { $Config.launchCommand } if ($DryRun) { return [pscustomobject]@{ Started = $true; Command = $cmd; Location = $Item.Path } } # spinner 文本带卡片名（反馈 3-2） $spinnerText = Get-CctSpinnerText $Item # 3. 启动（交互式 claude，直接调用透传错误——决策 27） try { $exit = Invoke-CctClaude $cmd $spinnerText if ($exit -eq 0) { return [pscustomobject]@{ Started = $true; Command = $cmd; Location = $Item.Path } } # 用户 Ctrl+C 主动中断（exit 130/143）：不降级不报错，静默收尾 if (130, 143 -contains $exit) { return [pscustomobject]@{ Started = $true; Command = $cmd; Location = $Item.Path; Interrupted = $true } } # 降级 L2：接续最近会话（反馈 3-3：降级也要 spinner，接续会话启动也要时间） Write-Host "该会话无法恢复（退出码 $exit），已改为接续最近会话" -ForegroundColor Yellow $exit2 = Invoke-CctClaude $Config.launchCommand "$spinnerText（接续）" if ($exit2 -eq 0) { return [pscustomobject]@{ Started = $true; Command = $Config.launchCommand; Location = $Item.Path } } if ($exit2 -in 130, 143) { return [pscustomobject]@{ Started = $true; Command = $Config.launchCommand; Location = $Item.Path; Interrupted = $true } } # （-in 对 int 安全；Invoke-CctClaude 返回值已 [int] 强转，不可能再是数组） # 降级 L3：带 prompt 兜底（绕过 CC 无 prompt 空输入判定，实测退出码 0） Write-Host "接续最近会话也失败（退出码 $exit2），改为带提示词恢复" -ForegroundColor Yellow $fallbackCmd = if ($Item.Kind -eq 'Session' -and $Item.SessionId) { "$($Config.resumeCommand -replace '\{sessionId\}', $Item.SessionId) `"继续`"" } else { "$($Config.launchCommand) `"继续`"" } $exit3 = Invoke-CctClaude $fallbackCmd "$spinnerText（兜底）" if ($exit3 -eq 0) { return [pscustomobject]@{ Started = $true; Command = $fallbackCmd; Location = $Item.Path } } if ($exit3 -in 130, 143) { return [pscustomobject]@{ Started = $true; Command = $fallbackCmd; Location = $Item.Path; Interrupted = $true } } # 全失败：诊断块（反馈 3-4：输出任务完整地址 + 会话 ID，方便排错） Write-Host "带提示词恢复也失败（退出码 $exit3）" -ForegroundColor Red Write-Host "" Write-Host "===== 诊断信息 =====" -ForegroundColor Red Write-Host "任务路径: $($Item.Path)" if ($Item.SessionId) { Write-Host "会话 ID: $($Item.SessionId)" } Write-Host "目录存在: $(Test-Path -LiteralPath $Item.Path)" Write-Host "退出码链: L1(-r)=$exit → L2(-c)=$exit2 → L3(prompt)=$exit3" return [pscustomobject]@{ Started = $false; Command = $fallbackCmd; Location = $Item.Path } } catch { Write-Error "启动失败: $_" return [pscustomobject]@{ Started = $false; Command = $cmd; Location = $Item.Path } } } |