1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
Option Explicit
''
' This script updates the language PO files from the master POT file.
'
' Copyright (C) 2007-2008 by Tim Gerundt
' Released under the "GNU General Public License"
'
' ID line follows -- this is updated by SVN
' $Id$
Const ForReading = 1
Dim oFSO, bRunFromCmd
Set oFSO = CreateObject("Scripting.FileSystemObject")
bRunFromCmd = False
If LCase(oFSO.GetFileName(Wscript.FullName)) = "cscript.exe" Then
bRunFromCmd = True
End If
Call Main
''
' ...
Sub Main
Dim oLanguages, oLanguage, sLanguage, sDir, bPotChanged
Dim oEnglishPotContent, oLanguagePoContent
Dim StartTime, EndTime, Seconds
StartTime = Time
InfoBox "Updating PO files from POT file...", 3
sDir = oFSO.GetParentFolderName(Wscript.ScriptFullName)
Set oEnglishPotContent = GetContentFromPoFile("English.pot")
If oEnglishPotContent.Count = 0 Then Err.Raise vbObjectError, "Sub Main", "Error reading content from English.pot"
bPotChanged = GetArchiveBit("English.pot")
Set oLanguages = Wscript.Arguments
If oLanguages.Count = 0 Then Set oLanguages = oFSO.GetFolder(".").Files
For Each oLanguage In oLanguages 'For all languages...
sLanguage = CStr(oLanguage)
If LCase(oFSO.GetExtensionName(sLanguage)) = "po" Then
If bPotChanged Or GetArchiveBit(sLanguage) Then 'If update necessary...
If bRunFromCmd Then 'If run from command line...
Wscript.Echo oFSO.GetFileName(sLanguage)
End If
Set oLanguagePoContent = GetContentFromPoFile(sLanguage)
If oLanguagePoContent.Count > 0 Then 'If content exists...
CreateUpdatedPoFile sLanguage, oEnglishPotContent, oLanguagePoContent
End If
SetArchiveBit sLanguage, False
End If
End If
Next
EndTime = Time
Seconds = DateDiff("s", StartTime, EndTime)
InfoBox "All PO files updated, after " & Seconds & " second(s).", 10
End Sub
''
' ...
Class CSubContent
Dim sMsgCtxt2, sMsgId2, sMsgStr2, sTranslatorComments, sExtractedComments, sReferences, sFlags
End Class
''
' ...
Function GetContentFromPoFile(ByVal sPoPath)
Dim oContent, oSubContent, oTextFile, sLine
Dim oMatch, iMsgStarted, sMsgCtxt, sMsgId
Dim reMsgCtxt, reMsgId, reMsgContinued
Set reMsgCtxt = New RegExp
reMsgCtxt.Pattern = "^msgctxt ""(.*)""$"
reMsgCtxt.IgnoreCase = True
Set reMsgId = New RegExp
reMsgId.Pattern = "^msgid ""(.*)""$"
reMsgId.IgnoreCase = True
Set reMsgContinued = New RegExp
reMsgContinued.Pattern = "^""(.*)""$"
reMsgContinued.IgnoreCase = True
Set oContent = CreateObject("Scripting.Dictionary")
iMsgStarted = 0
sMsgCtxt = ""
Set oSubContent = New CSubContent
Set oTextFile = oFSO.OpenTextFile(sPoPath, ForReading, False, -1)
Do Until oTextFile.AtEndOfStream 'For all lines...
sLine = Trim(oTextFile.ReadLine)
If sLine <> "" Then 'If NOT empty line...
If Left(sLine, 1) <> "#" Then 'If NOT comment line...
If reMsgCtxt.Test(sLine) Then 'If "msgctxt"...
iMsgStarted = 1
Set oMatch = reMsgCtxt.Execute(sLine)(0)
sMsgCtxt = oMatch.SubMatches(0)
oSubContent.sMsgCtxt2 = sLine & vbCrLf
ElseIf reMsgId.Test(sLine) Then 'If "msgid"...
iMsgStarted = 2
Set oMatch = reMsgId.Execute(sLine)(0)
sMsgId = oMatch.SubMatches(0)
oSubContent.sMsgId2 = sLine & vbCrLf
ElseIf Left(sLine, 8) = "msgstr """ Then 'If "msgstr"...
iMsgStarted = 3
oSubContent.sMsgStr2 = sLine & vbCrLf
ElseIf reMsgContinued.Test(sLine) Then 'If "msgctxt", "msgid" or "msgstr" continued...
If iMsgStarted = 1 Then
sMsgCtxt = sMsgCtxt & oMatch.SubMatches(0)
oSubContent.sMsgCtxt2 = oSubContent.sMsgCtxt2 & sLine & vbCrLf
ElseIf iMsgStarted = 2 Then
Set oMatch = reMsgContinued.Execute(sLine)(0)
sMsgId = sMsgId & oMatch.SubMatches(0)
oSubContent.sMsgId2 = oSubContent.sMsgId2 & sLine & vbCrLf
ElseIf iMsgStarted = 3 Then
oSubContent.sMsgStr2 = oSubContent.sMsgStr2 & sLine & vbCrLf
End If
End If
Else 'If comment line...
iMsgStarted = -1
Select Case Left(sLine, 2)
Case "#~" 'Obsolete message...
iMsgStarted = 0
Case "#." 'Extracted comment...
oSubContent.sExtractedComments = oSubContent.sExtractedComments & sLine & vbCrLf
Case "#:" 'Reference...
oSubContent.sReferences = oSubContent.sReferences & sLine & vbCrLf
Case "#," 'Flag...
oSubContent.sFlags = oSubContent.sFlags & sLine & vbCrLf
Case Else 'Translator comment...
oSubContent.sTranslatorComments = oSubContent.sTranslatorComments & sLine & vbCrLf
End Select
End If
ElseIf iMsgStarted <> 0 Then 'If empty line AND there is pending translation...
iMsgStarted = 0 'Don't process same translation twice
If sMsgId = "" Then sMsgId = "__head__"
If (oContent.Exists(sMsgCtxt & sMsgId) = False) Then 'If the key is NOT already used...
oContent.Add sMsgCtxt & sMsgId, oSubContent
End If
sMsgCtxt = ""
Set oSubContent = New CSubContent
End If
Loop
oTextFile.Close
Set GetContentFromPoFile = oContent
End Function
''
' ...
Sub CreateUpdatedPoFile(ByVal sPoPath, ByVal oEnglishPotContent, ByVal oLanguagePoContent)
Dim sBakPath, oPoFile, sKey, oEnglish, oLanguage
'--------------------------------------------------------------------------------
' Backup the old PO file...
'--------------------------------------------------------------------------------
sBakPath = sPoPath & ".bak"
If oFSO.FileExists(sBakPath) Then
oFSO.DeleteFile sBakPath
End If
oFSO.MoveFile sPoPath, sBakPath
'--------------------------------------------------------------------------------
Set oPoFile = oFSO.CreateTextFile(sPoPath, True, True)
Set oLanguage = oLanguagePoContent("__head__")
oPoFile.Write oLanguage.sTranslatorComments
oPoFile.Write oLanguage.sMsgId2
oPoFile.Write oLanguage.sMsgStr2
oPoFile.Write vbCrLf
For Each sKey In oEnglishPotContent.Keys 'For all English content...
If sKey <> "__head__" Then
Set oEnglish = oEnglishPotContent(sKey)
If oLanguagePoContent.Exists(sKey) Then 'If translation exists...
Set oLanguage = oLanguagePoContent(sKey)
Else 'If translation NOT exists...
Set oLanguage = oEnglish
End If
oPoFile.Write oLanguage.sTranslatorComments
oPoFile.Write oEnglish.sExtractedComments
oPoFile.Write oEnglish.sReferences
oPoFile.Write oLanguage.sFlags
oPoFile.Write oLanguage.sMsgCtxt2
oPoFile.Write oLanguage.sMsgId2
oPoFile.Write oLanguage.sMsgStr2
oPoFile.Write vbCrLf
End If
Next
oPoFile.Close
End Sub
''
' ...
Function InfoBox(ByVal sText, ByVal iSecondsToWait)
Dim oShell
If (bRunFromCmd = False) Then 'If run from command line...
Set oShell = Wscript.CreateObject("WScript.Shell")
InfoBox = oShell.Popup(sText, iSecondsToWait, Wscript.ScriptName, 64)
Else 'If NOT run from command line...
Wscript.Echo sText
End If
End Function
''
' ...
Function GetArchiveBit(ByVal sFilePath)
Dim oFile
GetArchiveBit = False
If (oFSO.FileExists(sFilePath) = True) Then 'If the file exists...
Set oFile = oFSO.GetFile(sFilePath)
If (oFile.Attributes AND 32) Then 'If archive bit set...
GetArchiveBit = True
End If
End If
End Function
''
' ...
Sub SetArchiveBit(ByVal sFilePath, ByVal bValue)
Dim oFile
If (oFSO.FileExists(sFilePath) = True) Then 'If the file exists...
Set oFile = oFSO.GetFile(sFilePath)
If (oFile.Attributes AND 32) Then 'If archive bit set...
If (bValue = False) Then
oFile.Attributes = oFile.Attributes - 32
End If
Else 'If archive bit NOT set...
If (bValue = True) Then
oFile.Attributes = oFile.Attributes + 32
End If
End If
End If
End Sub
|