Shuery
2ad7987ffe
3152 行、66 个函数的单文件模块拆成： BakNRet\BakNRet.psd1 模块清单：FunctionsToExport 是显式白名单（62 个名字） BakNRet\BakNRet.psm1 加载器：点源顺序的唯一一处声明 BakNRet\Public\*.ps1 62 个对外函数，一函数一文件，文件名 = 函数名 BakNRet\Private\*.ps1 4 个内部函数 + State.ps1（模块级状态集中一处） 为什么是一函数一文件：这是社区里脚本模块的主流形态（调研实测：winutil 79 个、 Terminal-Icons 24 个、ModuleBuilder 23 个，全部如此）。收益是改动落在小文件里、diff 按职责 可读、模块级状态有唯一去处。 为什么这不算"打散"：模块内 dot-source 的文件共享同一个模块作用域（实测确认），所以 "按顺序点源 67 个文件"与"点源一个大文件"在语义上等价；顺序只在加载器里出现一次， tools\Build-BakNRetModule.ps1 从那里读出顺序就能拼回单文件 —— 本次产物 dist\BakNRet.psm1 3240 行、两个版本都解析零错。 新增一条断言把这条承诺钉住：加载器点源的文件集合必须与磁盘一致、导出名单必须与 Public\ 一一对应。漏一个文件或漏一个名字就是静默少一个函数 —— 而那种错在运行时只表现为 "找不到命令"。 引用更新：11 个文件里的 Common.psm1 改成 BakNRet\BakNRet.psd1（走清单导入， FunctionsToExport 才真的说了算）；Common.psm1 直接删除，不留转发垫片。 验收：test.ps1 9/9 全绿（7 与 5.1），98 个文件两版解析零错，276 个断言原样通过 —— 这次搬家没有改变任何可观察行为。
44 lines
1.5 KiB
PowerShell
44 lines
1.5 KiB
PowerShell
function Get-BackupBaseName {
|
|
<#
|
|
.SYNOPSIS
|
|
由清单中的原始路径生成归档基础名。
|
|
|
|
.DESCRIPTION
|
|
算法与历史版本保持一致（否则已存在的 20 个归档会全部失联）：
|
|
<末级名>_from_<去掉末级后的各级用 + 连接>
|
|
并保留 & % + 三个字符（环境变量写法依赖 %），其余非法字符换 _。
|
|
|
|
额外做一件事：把 `:` 归一化为 `_`，因此 C:\Foo 与 "C:\Foo" 结果相同。
|
|
#>
|
|
param([Parameter(Mandatory = $true)][string]$RawPath)
|
|
|
|
$normalized = $RawPath.Trim() -replace '[/\\]+', '\'
|
|
$parts = @($normalized -split '\\' | Where-Object { -not [string]::IsNullOrWhiteSpace($_) })
|
|
|
|
if ($parts.Count -eq 0) {
|
|
Write-Log "无法解析路径：$RawPath" -Level ERROR
|
|
return $null
|
|
}
|
|
|
|
$folderName = $parts[-1].Trim()
|
|
$pathParts = if ($parts.Count -gt 1) { $parts[0..($parts.Count - 2)] } else { @() }
|
|
|
|
$pathPart = ($pathParts | ForEach-Object { $_.Trim() }) -join '+'
|
|
$baseName = if ([string]::IsNullOrEmpty($pathPart)) {
|
|
$folderName
|
|
} else {
|
|
"${folderName}_from_${pathPart}"
|
|
}
|
|
|
|
$invalidChars = [System.IO.Path]::GetInvalidFileNameChars() |
|
|
Where-Object { $_ -notin @('&', '%', '+') }
|
|
|
|
$baseName = -join ($baseName.ToCharArray() | ForEach-Object {
|
|
if ($_ -in $invalidChars) { '_' } else { $_ }
|
|
})
|
|
$baseName = $baseName -replace ':', '_'
|
|
|
|
Write-Log "生成文件基础名：$baseName" -Level DEBUG
|
|
return $baseName
|
|
}
|