mirror of
https://github.com/JGRennison/OpenTTD-patches.git
synced 2024-11-17 21:25:40 +00:00
124 lines
2.8 KiB
Plaintext
124 lines
2.8 KiB
Plaintext
|
Option Explicit
|
||
|
|
|
||
|
|
' This file is part of OpenTTD.
|
||
|
|
' OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
|
||
|
|
' OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||
|
|
' See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
Dim FSO
|
||
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
||
|
|
|
||
|
|
Dim inputfile, outputfile, langpath, extra_grf
|
||
|
|
inputfile = WScript.Arguments(0)
|
||
|
|
outputfile = WScript.Arguments(1)
|
||
|
|
langpath = WScript.Arguments(2)
|
||
|
|
|
||
|
|
If WScript.Arguments.Length > 3 Then
|
||
|
|
extra_grf = WScript.Arguments(3)
|
||
|
|
End If
|
||
|
|
|
||
|
|
Function GetExtraGrfHash
|
||
|
|
Dim WSO, exe, line
|
||
|
|
|
||
|
|
Set WSO = WScript.CreateObject("WScript.Shell")
|
||
|
|
Set exe = WSO.Exec("certutil -hashfile " & extra_grf & " MD5")
|
||
|
|
|
||
|
|
Do Until exe.StdOut.AtEndOfStream
|
||
|
|
line = exe.StdOut.ReadLine
|
||
|
|
If Len(line) = 32 Then GetExtraGrfHash = line
|
||
|
|
Loop
|
||
|
|
|
||
|
|
Set WSO = Nothing
|
||
|
|
End Function
|
||
|
|
|
||
|
|
' Simple insertion sort, copied from translations.awk
|
||
|
|
Sub ISort(a)
|
||
|
|
Dim i, j, n, hold
|
||
|
|
n = UBound(a)
|
||
|
|
|
||
|
|
For i = 1 To n
|
||
|
|
j = i
|
||
|
|
hold = a(j)
|
||
|
|
Do While a(j - 1) > hold
|
||
|
|
j = j - 1
|
||
|
|
a(j + 1) = a(j)
|
||
|
|
|
||
|
|
If j = 0 Then Exit Do
|
||
|
|
Loop
|
||
|
|
a(j) = hold
|
||
|
|
Next
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Sub Lookup(ini_key, str_id, outfile)
|
||
|
|
Dim folder, file, line, p, lang, i
|
||
|
|
|
||
|
|
' Ensure only complete string matches
|
||
|
|
str_id = str_id & " "
|
||
|
|
|
||
|
|
Set folder = FSO.GetFolder(langpath)
|
||
|
|
|
||
|
|
Dim output()
|
||
|
|
ReDim output(folder.Files.Count)
|
||
|
|
|
||
|
|
For Each file In folder.Files
|
||
|
|
If UCase(FSO.GetExtensionName(file.Name)) = "TXT" Then
|
||
|
|
Dim f
|
||
|
|
Set f = FSO.OpenTextFile(file.Path)
|
||
|
|
|
||
|
|
Do Until f.atEndOfStream
|
||
|
|
line = f.ReadLine()
|
||
|
|
|
||
|
|
If InStr(1, line, "##isocode ") = 1 Then
|
||
|
|
p = Split(line)
|
||
|
|
lang = p(1)
|
||
|
|
ElseIf InStr(1, line, str_id) = 1 Then
|
||
|
|
p = Split(line, ":", 2)
|
||
|
|
If lang = "en_GB" Then
|
||
|
|
output(i) = ini_key & " = " & p(1)
|
||
|
|
Else
|
||
|
|
output(i) = ini_key & "." & lang & " = " & p(1)
|
||
|
|
End If
|
||
|
|
i = i + 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
Loop
|
||
|
|
End If
|
||
|
|
Next
|
||
|
|
|
||
|
|
ReDim Preserve output(i - 1)
|
||
|
|
ISort output
|
||
|
|
|
||
|
|
For Each line In output
|
||
|
|
outfile.Write line & vbCrLf
|
||
|
|
Next
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Dim line, p
|
||
|
|
|
||
|
|
Dim infile
|
||
|
|
Set infile = FSO.OpenTextFile(inputfile)
|
||
|
|
|
||
|
|
Dim outfile
|
||
|
|
Set outfile = FSO.CreateTextFile(outputfile, True)
|
||
|
|
|
||
|
|
Do Until infile.atEndOfStream
|
||
|
|
|
||
|
|
line = infile.ReadLine()
|
||
|
|
|
||
|
|
If InStr(1, line, "ORIG_EXTRA.GRF ") = 1 Then
|
||
|
|
p = Split(line, "=")
|
||
|
|
If Trim(p(1)) = "" Then
|
||
|
|
outfile.Write("ORIG_EXTRA.GRF = " & GetExtraGrfHash() & vbCrLf)
|
||
|
|
Else
|
||
|
|
outfile.Write(line & vbCrLf)
|
||
|
|
End If
|
||
|
|
ElseIf InStr(1, line, "!! ") = 1 Then
|
||
|
|
p = Split(line)
|
||
|
|
Lookup p(1), p(2), outfile
|
||
|
|
Else
|
||
|
|
outfile.Write(line & vbCrLf)
|
||
|
|
End If
|
||
|
|
|
||
|
|
Loop
|