docs: TUI 与入口重组的设计记录(4 条 ADR + 验收锚点)
grilling 三轮把设计树走完了,这里把它落成文件,避免决策只活在对话里。 ADR-0010 零依赖自研 TUI:三个候选库全部实测排除 —— ConsoleGuiTools 的 PSGallery 元数据声明最低 7.2(5.1 装不上);Spectre.Console 0.49.1 能在 5.1 加载但要塞 4 个第三方 DLL 且不支持鼠标;Terminal.Gui 1.15.0 能反射接线到真的渲染出窗口,但 Application.Shutdown() 在两端都抛 NRE。同时记下两条实测坑:无控制台时 $Host.UI.SupportsVirtualTerminal 会撒谎返回 True(第一道闸门必须是 [Console]::IsOutputRedirected),以及 5.1 的 RawUI.LengthInBufferCells 对中文返回 2、对边框字符返回 6(都不能用来排版)。 ADR-0011 进度回调这个例外:它是注入点不是状态,无头路径为 $null 时行为与今天完全一致。 ADR-0012 入口改名与垫片:这次留垫片而 Common.psm1 直接删,是因为前者是外部接口(断了是静默没用)后者是内部实现(断了当场报错)。并纠正了自己的一个伪前提 —— 本机实测没有注册任何 BakNRet 计划任务。 ADR-0013 TUI 写配置:外科式改写 + 校验通过才原子替换。硬事实是 SoftwareCatalog.psd1 根本不能被 Import-PowerShellDataFile 读入(动态表达式),任何"解析成对象再序列化"的方案都会毁掉表达式与注释。 .scratch/tui/spec.md 是这次改造的验收锚点:9 条已定决策 + 三轮的判据 + 风险表。 验收:Parse 两版仍绿。
This commit is contained in:
1 parent
187549e2af
commit
60f2ae3e0f
25 files changed
+1708
No files matched your search
@@ -0,0 +1,55 @@
|
||||
param([Parameter(Mandatory=$true)][string]$OutFile)
|
||||
$lines = New-Object System.Collections.Generic.List[string]
|
||||
function L($s) { $lines.Add($s) }
|
||||
function MK([int[]]$cp) { -join ($cp | ForEach-Object { [char]$_ }) }
|
||||
$raw = $Host.UI.RawUI
|
||||
$cases = @(
|
||||
,@('8 ASCII ', 'A1b2C3d4')
|
||||
,@('2 CJK ', (MK @(0x4E2D, 0x6587)))
|
||||
,@('4 CJK ', (MK @(0x4E2D, 0x6587, 0x5907, 0x4EFD)))
|
||||
,@('3 boxdraw ', (MK @(0x250C, 0x2500, 0x2510)))
|
||||
,@('1 emoji ', [char]::ConvertFromUtf32(0x1F600))
|
||||
,@('2 fullwidth', (MK @(0xFF21, 0xFF22)))
|
||||
,@('2 halfkata ', (MK @(0xFF71, 0xFF72)))
|
||||
,@('CJK+colon ', (MK @(0x4E2D, 0x6587, 0xFF1A, 0x0020)) + 'X')
|
||||
,@('punctuation', (MK @(0x3002, 0x3001, 0xFF0C)))
|
||||
,@('hangul ', (MK @(0xD55C, 0xAE00)))
|
||||
,@('kana ', (MK @(0x3042, 0x3044)))
|
||||
,@('cyrillic ', (MK @(0x0416, 0x0418)))
|
||||
,@('accented ', (MK @(0x00E9, 0x00E8)))
|
||||
,@('tabs+ctrl ', "a`tb")
|
||||
)
|
||||
L ("PSVersion: " + $PSVersionTable.PSVersion + " PSEdition: " + $PSVersionTable.PSEdition)
|
||||
L ("IsOutputRedirected: " + [Console]::IsOutputRedirected)
|
||||
L ""
|
||||
L "### `$Host.UI.RawUI.LengthInBufferCells() -- BUILT-IN cell-width API ###"
|
||||
L (" method present? " + [bool]($raw | Get-Member -Name LengthInBufferCells -MemberType Method))
|
||||
$mi = $raw | Get-Member -Name LengthInBufferCells -MemberType Method
|
||||
if ($mi) { foreach ($d in $mi) { L (" overload: " + $d.Definition) } }
|
||||
L ""
|
||||
L " {0,-12} {1,8} {2,14} {3,10}" -f 'case', '.Length', 'LengthInBuffer', 'expected~'
|
||||
foreach ($c in $cases) {
|
||||
$nm = $c[0]; $s = [string]$c[1]
|
||||
$w = 'n/a'
|
||||
try { $w = $raw.LengthInBufferCells($s) } catch { $w = 'THREW: ' + $_.Exception.Message }
|
||||
L (" {0,-12} {1,8} {2,14} {3,10}" -f $nm, $s.Length, $w, '')
|
||||
}
|
||||
L ""
|
||||
L "### per-character version: LengthInBufferCells(char, offset) ###"
|
||||
foreach ($c in $cases) {
|
||||
$nm = $c[0]; $s = [string]$c[1]
|
||||
$sum = 0; $eb = ''
|
||||
foreach ($ch in $s.ToCharArray()) {
|
||||
try { $u = $raw.LengthInBufferCells($ch); $eb += $u } catch { $eb += '?'; $sum = -999 }
|
||||
}
|
||||
L (" {0,-12} sum(char overload)={1} perchar={2}" -f $nm, $sum, $eb)
|
||||
}
|
||||
L ""
|
||||
L "### Other RawUI helpers that exist in BOTH hosts ###"
|
||||
L (" NewBufferCellArray overloads: " + (((($raw | Get-Member -Name NewBufferCellArray -MemberType Method).Definition) -join ' | ')))
|
||||
L (" SetBufferContents overloads : " + (((($raw | Get-Member -Name SetBufferContents -MemberType Method).Definition) -join ' | ')))
|
||||
L (" GetBufferContents overloads : " + (((($raw | Get-Member -Name GetBufferContents -MemberType Method).Definition) -join ' | ')))
|
||||
L (" ScrollBufferContents overloads: " + (((($raw | Get-Member -Name ScrollBufferContents -MemberType Method).Definition) -join ' | ')))
|
||||
L (" ReadKey overloads : " + (((($raw | Get-Member -Name ReadKey -MemberType Method).Definition) -join ' | ')))
|
||||
L (" FlushInputBuffer overloads : " + (((($raw | Get-Member -Name FlushInputBuffer -MemberType Method).Definition) -join ' | ')))
|
||||
[System.IO.File]::WriteAllLines($OutFile, $lines, (New-Object System.Text.UTF8Encoding($false)))
|
||||
Reference in new issue
Block a user