62 lines
2.9 KiB
PowerShell
62 lines
2.9 KiB
PowerShell
|
# 注释纯度审计：去掉纯注释行后把工作区与 git index 逐行比对
|
||
|
|
# 相同说明改动只有注释；有差异的文件会被列出，仅作人工判断不设退出码
|
||
|
|
param([string]$Root = (Split-Path -Parent $PSScriptRoot))
|
||
|
|
|
||
|
|
Set-Location $Root
|
||
|
|
$dirs = @('chusql-core','chusql-server','chusql-web','chusql-cli','chusql-bootstrap','chusql-interface','chusql-benchmark','scripts','gate-check')
|
||
|
|
$files = @()
|
||
|
|
foreach ($d in $dirs) {
|
||
|
|
$p = Join-Path $Root $d
|
||
|
|
if (Test-Path -LiteralPath $p) {
|
||
|
|
$files += Get-ChildItem -LiteralPath $p -Recurse -File -Include *.hs,*.rs,*.js,*.css,*.html,*.ps1,*.sh |
|
||
|
|
Where-Object { $_.FullName -notmatch '\\\.stack-work\\|\\dist-newstyle\\|\\target\\|\\node_modules\\|\\localdata\\|\\logs\\|\\tmp\\' }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$files = $files | Sort-Object FullName
|
||
|
|
|
||
|
|
function Is-CommentLine([string]$l, [string]$ext) {
|
||
|
|
switch ($ext) {
|
||
|
|
'.hs' { return $l -match '^\s*--' }
|
||
|
|
'.rs' { return $l -match '^\s*//' }
|
||
|
|
'.js' { return $l -match '^\s*(//|/\*|\*)' }
|
||
|
|
'.css' { return $l -match '^\s*(/\*|\*|//)' }
|
||
|
|
'.html' { return $l -match '^\s*(<!--|-->)' }
|
||
|
|
default { return $l -match '^\s*#' }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
function Strip-Comments([string[]]$lines, [string]$ext) {
|
||
|
|
$out = New-Object System.Collections.Generic.List[string]
|
||
|
|
foreach ($l in $lines) { if (-not (Is-CommentLine $l $ext)) { $out.Add($l.TrimEnd()) } }
|
||
|
|
return , $out
|
||
|
|
}
|
||
|
|
|
||
|
|
$pure = 0; $new = 0; $diffFiles = @()
|
||
|
|
foreach ($f in $files) {
|
||
|
|
$rel = (Resolve-Path -LiteralPath $f.FullName -Relative) -replace '^\.\\', '' -replace '\\', '/'
|
||
|
|
git cat-file -e ":$rel" 2>$null | Out-Null
|
||
|
|
$tracked = ($LASTEXITCODE -eq 0)
|
||
|
|
if (-not $tracked) { $new++; continue }
|
||
|
|
$wt = Strip-Comments @(Get-Content -LiteralPath $f.FullName) $f.Extension.ToLower()
|
||
|
|
$idx = Strip-Comments @(git show ":$rel") $f.Extension.ToLower()
|
||
|
|
if ($wt.Count -eq $idx.Count) {
|
||
|
|
$same = $true
|
||
|
|
for ($i = 0; $i -lt $wt.Count; $i++) { if ($wt[$i] -cne $idx[$i]) { $same = $false; break } }
|
||
|
|
if ($same) { $pure++; continue }
|
||
|
|
}
|
||
|
|
# 统计差异行
|
||
|
|
$set = @{}
|
||
|
|
foreach ($l in $idx) { if ($set.ContainsKey($l)) { $set[$l]++ } else { $set[$l] = 1 } }
|
||
|
|
$extra = @()
|
||
|
|
foreach ($l in $wt) {
|
||
|
|
if ($set.ContainsKey($l) -and $set[$l] -gt 0) { $set[$l]-- } else { $extra += $l }
|
||
|
|
}
|
||
|
|
$removed = @()
|
||
|
|
foreach ($k in $set.Keys) { if ($set[$k] -gt 0) { $removed += ("{0}x {1}" -f $set[$k], $k) } }
|
||
|
|
$diffFiles += [pscustomobject]@{ File = $rel; Added = $extra.Count; Removed = $removed.Count; Sample = (($extra | Select-Object -First 3) -join ' | ') }
|
||
|
|
}
|
||
|
|
|
||
|
|
"扫描文件: $($files.Count)"
|
||
|
|
"仅注释变更（去注释后与 index 完全相同）: $pure"
|
||
|
|
"index 无基线（新文件，跳过）: $new"
|
||
|
|
"含非注释差异的文件: $($diffFiles.Count)"
|
||
|
|
if ($diffFiles.Count -gt 0) { $diffFiles | Format-Table -AutoSize -Wrap | Out-String -Width 240 }
|