Вот решение, на котором я остановился.Это далеко от идеала, но лучше, чем другие альтернативы, которые я рассмотрел.
Я создал скрипт Autohotkey, который выполняет следующее:
- возвращает файлы MS Access в хранилище с помощьюобнаруженные изменения (в файлы .orig)
- читает в файле .orig (тот, что с изменениями)
- читает в существующем файле (тот, который уже находится в хранилище)
- преобразует текст обоих файлов в нижний регистр
- сравнивает содержимое строчных файлов
- , если файлы все еще различаются, файл .orig восстанавливается, поэтому он может быть передан врепозиторий
- если файлы одинаковые (т. е. отличаются только в том случае, если файл .orig удален, потому что эти изменения нас не интересуют)
Для файлов, которыеесть реальные изменения, о которых мы заботимся, я все еще вижу изменения в деле, которые были также сделаны.Если это приводит к большому шуму, я открываю файл в инструменте сравнения, который позволяет сравнивать без учета регистра (например, kdiff).
Это не идеальное решение, но оно устраняет около 90% разочарованиядля меня.
Вот мой сценарий.Обратите внимание, что сценарий включает в себя другой сценарий Autohotkey, ConsoleApp.ahk, который предоставляет функцию с именем ConsoleApp_RunWait().Это сторонний скрипт, который больше не очень хорошо работает с 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
}