Mercurial 中不区分大小写的差异

Question

我正在使用 Mercurial（特别是 Windows 上的 TortoiseHg）对 VBA 代码进行版本控制。任何尝试过此操作的人都知道，每当项目中任何位置（无论范围如何）更改该变量的任何声明时，VBA 都会更改整个项目中每个变量的大小写。它使版本控制成为一场噩梦。

我想在执行差异时忽略源代码中的大小写更改。做到这一点最简单的方法是什么？ （我缺少的 diff 的一些选项，外部 diff 实用程序，还是其他东西？）

注意：我不是在谈论处理“不区分大小写的文件名”（是的，我正在与你交谈谷歌......）

Answer 1

您可以在使用 ExtDiff 扩展 比较屏幕上的消耗时执行此操作。

  [extensions]
  hgext.extdiff =

  [extdiff]
  # add new command that runs GNU diff(1) in case-insensitive mode
  cmd.mydiff = diff
  opts.mydiff = -i

然后，您可以从命令行运行 hg mydiff 。当然，这需要您安装一个 diff 二进制文件，无论是 gnu 的还是其他的。

然而，这不会像您希望的那样有用，因为在内部，Mercurial 当然不能忽略大小写——它采用文件内容的加密哈希，而这些不允许有回旋余地。因此，如果您进行了此设置，您将执行 hg mydiff，并不会看到任何更改，然后执行 hg commit 并看到整个地方的更改。

所以你可以在屏幕上实现这一点，但不是从根本上实现。

一种选择是找到一个 Visual Basic 代码清理器，类似于类 C 语言的缩进，它可以标准化变量大小写并在 Mercurial 提交钩子中运行它。那么至少进入源代码管理的所有代码都将是一致的，并且您可以准确地跨版本进行比较。

Answer 2

如果您同意将代码全部采用小写，那么您可以使用 为此编码/解码挂钩。它的工作原理如下：

[encode]
*.vba = tr A-Z a-z

每当您进行提交时，这都会以小写形式对文件内容进行编码。差异也是根据文件的编码（存储库）版本计算的。

考虑一个文件，其中包含

hello

将其在工作副本中更改为

Hello World

将给出差异请

% hg diff
diff --git a/a.txt b/a.txt
--- a/a.txt
+++ b/a.txt
@@ -1,1 +1,1 @@
-hello
+hello world

注意大写“H”和“W”是如何被忽略的。

我对 VBA 代码一无所知，所以我不能 100% 确定这个解决方案适合您。但我希望这可以成为一个起点。

一个缺点是您需要为所有存储库设置此编码规则。 reposettings 扩展程序可以在这里为您提供帮助。

Answer 3

这是我已经确定的解决方案。它远非理想，但比我考虑过的其他替代方案要好。

我创建了一个 Autohotkey 脚本，它执行以下操作：

• 恢复存储库中检测到更改的 MS Access 文件（到 .orig 文件）
• 读取 .orig 文件（有更改的文件）
• 读取现有文件（已存在于 .orig 文件中）存储库）
• 将两个文件的文本转换为小写，
• 比较文件的小写内容，
• 则可以将其提交到存储库
• 如果文件仍然不同，则恢复 .orig 文件，以便如果文件相同（即它们不同）， 仅在以防万一，.orig 文件被删除，因为我们不关心这些更改）

对于具有我们关心的实际更改的文件，我仍然会看到所做的大小写更改。如果这会导致大量噪音，我会在允许不区分大小写比较的比较工具（例如 kdiff）中打开文件。

这不是一个完美的解决方案，但它消除了我大约 90% 的挫败感。

这是我的脚本。请注意，该脚本包含另一个 Autohotkey 脚本 ConsoleApp.ahk，它提供了一个名为 ConsoleApp_RunWait() 的函数。这是一个 3rd 方脚本，不再适用于 64 位 AHK，因此我不会将其包含在我的答案中。任何执行命令行并将输出作为字符串返回的 AHK 函数就足够了。

; This script checks an MS Access source directory and reverts all files whose only modifications are to the 
; case of the characters within the file.

#Include %A_ScriptDir%\ConsoleApp.ahk
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; Allow for custom path to hg (support for moving to TortoiseHg 2.0)
IniRead hg, %A_ScriptDir%\LocalSettings\Settings.cfg, TortoiseHg, hg_path, hg

if 0 < 1  ; The left side of a non-expression if-statement is always the name of a variable.
{
    MsgBox Usage:`n`HgIgnoreCase DirectoryWithFilesToScrub
    ExitApp
}

SrcDir = %1%
StringReplace SrcDir, SrcDir, ", , All

StringRight test, SrcDir, 1 ; add trailing slash if necessary
ifnotequal test, \
    SrcDir = %SrcDir%\

RestoreOriginals(SrcDir)
RevertCaseChangeModifiedFiles(SrcDir)

RevertCaseChangeModifiedFiles(SrcDir) {
global hg
    includes =  -I "*.form" -I "*.bas" -I "*.report" -I "*.table"
    cmdline = %hg% revert --all %includes%

    ;Don't revert items that have been removed completely
    Loop 3
    {
        Result := ConsoleApp_RunWait(hg . " status -nrd " . includes, SrcDir)
        If (Result)
            Break
    }
    Loop parse, Result, `n, `r
    {
        if (A_LoopField)
            cmdline = %cmdline% -X "%A_LoopField%"
    }
    Result =
    ;msgbox %cmdline%
    ;revert all modified forms, reports, and code modules
    Loop 3
    {

        Result := ConsoleApp_RunWait(cmdline, SrcDir)
        If (Result)
            Break
    }
    ;MsgBox %Result%

    Loop parse, Result, `n, `r
    {
        StringLeft FileStatus, A_LoopField, 9
        If (FileStatus = "reverting")
        {
            StringMid FName, A_LoopField, 11
            FullPath = %SrcDir%%FName%
            ToolTip Checking %FullPath%
            RestoreIfNotEqual(FullPath, FullPath . ".orig")
        }
    }
    ToolTip
}

RestoreIfNotEqual(FName, FNameOrig) {
    FileRead File1, %FName%
    FileRead File2, %FNameOrig%

    StringLower File1, File1
    StringLower File2, File2
    ;MsgBox %FName%`n%FNameOrig%
    If (File1 = File2)
        FileDelete %FNameOrig%
    Else
        FileMove %FNameOrig%, %FName%, 1
}

RestoreOriginals(SrcDir) {
    Loop %SrcDir%*.orig
    {
        ;MsgBox %A_LoopFileLongPath%`n%NewName%
        NewName := SubStr(A_LoopFileLongPath, 1, -5)
        FileMove %A_LoopFileLongPath%, %NewName%, 1
    }
    while FileExist(SrcDir . "*.orig")
        Sleep 10
}