blob: 339a0299ebe5ae32db2f9249b36a5e153158f56a (
plain) (
blame)
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
|
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Dim s, infile, outfile, command
Function CreateFolderIfNonexistent(folder)
if not fso.FolderExists(folder) then
fso.CreateFolder(folder)
end if
end Function
'check for existence of msgfmt
if not fso.FileExists("msgfmt.exe") then
WScript.echo "msgfmt.exe not found. Please get gettext for windows from http://gnuwin32.sourceforge.net/packages/gettext.htm and copy the files msgfmt.exe and all dll files from the gettext/bin directory into this directory and run this script again."
WScript.Quit(1)
end if
CreateFolderIfNonexistent("..\..\translations\")
'open translation list
Set stream = fso.GetFile("..\..\po\LINGUAS").OpenAsTextStream(1, 0)
'iterate contents of translations file
translations = 0
do while not stream.AtEndOfStream
s = stream.ReadLine()
if inStr(s, "#") = false then
'create the output directory
CreateFolderIfNonexistent("..\..\translations\" + s)
CreateFolderIfNonexistent("..\..\translations\" + s + "\LC_MESSAGES")
'build the translate command
infile = "../../po/" + s + ".po"
outfile = "../../translations/" + s +"/LC_MESSAGES/mana.mo"
command = "msgfmt -c -o " + outfile + " " + infile
'execute translate command
errval = WshShell.run(command, 0, true)
if errval = 0 then
translations = translations + 1
end if
end if
loop
WScript.echo translations, " translations compiled."
|
