[Winmerge-svn] SF.net SVN: winmerge: [4957] trunk/Src/Languages
Windows visual diff and merge for files and directories
Brought to you by:
christianlist,
grimmdp
From: <ge...@us...> - 2008-01-24 23:23:29
|
Revision: 4957 http://winmerge.svn.sourceforge.net/winmerge/?rev=4957&view=rev Author: gerundt Date: 2008-01-24 15:23:27 -0800 (Thu, 24 Jan 2008) Log Message: ----------- Fix archive bit trick for PO(T) scripts Modified Paths: -------------- trunk/Src/Languages/CreateMasterPotFile.vbs trunk/Src/Languages/UpdatePoFilesFromPotFile.vbs Modified: trunk/Src/Languages/CreateMasterPotFile.vbs =================================================================== --- trunk/Src/Languages/CreateMasterPotFile.vbs 2008-01-24 22:15:03 UTC (rev 4956) +++ trunk/Src/Languages/CreateMasterPotFile.vbs 2008-01-24 23:23:27 UTC (rev 4957) @@ -33,7 +33,7 @@ Sub Main Dim oStrings, sCodePage Dim StartTime, EndTime, Seconds - Dim bNecessary + Dim bNecessary, oFile StartTime = Time @@ -50,6 +50,11 @@ SetArchiveBit "../Merge.rc", False SetArchiveBit "English.pot", False SetArchiveBit "MergeLang.rc", False + For Each oFile In oFSO.GetFolder(".").Files 'For all files in the current folder... + If (LCase(oFSO.GetExtensionName(oFile.Name)) = "po") Then 'If a PO file... + oFile.Attributes = oFile.Attributes XOR 32 'Set archive bit! + End If + Next EndTime = Time Seconds = DateDiff("s", StartTime, EndTime) @@ -356,7 +361,7 @@ End If Else 'If archive bit NOT set... If (bValue = True) Then - oFile.Attributes = oFile.Attributes AND 32 + oFile.Attributes = oFile.Attributes XOR 32 End If End If End If Modified: trunk/Src/Languages/UpdatePoFilesFromPotFile.vbs =================================================================== --- trunk/Src/Languages/UpdatePoFilesFromPotFile.vbs 2008-01-24 22:15:03 UTC (rev 4956) +++ trunk/Src/Languages/UpdatePoFilesFromPotFile.vbs 2008-01-24 23:23:27 UTC (rev 4957) @@ -228,7 +228,7 @@ End If Else 'If archive bit NOT set... If (bValue = True) Then - oFile.Attributes = oFile.Attributes AND 32 + oFile.Attributes = oFile.Attributes XOR 32 End If End If End If This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |