petern/OpenTTD
1
0
Fork 0
forked from mirror/OpenTTD
Code Pull Requests Activity

Change: Always build baseset metadata, instead of including it in the repo.

Browse Source 
This adds a script and project files to generate these files within MSVC.
This commit is contained in:
Peter Nelson
2019-01-13 09:08:01 +00:00
committed by PeterN
parent e76fd99c47
commit 1334cfb3e5
28 changed files with 661 additions and 871 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
projects/generate.vbs
View File

@@ -18,6 +18,7 @@ Set FSO = CreateObject("Scripting.FileSystemObject")
' strgen_vs141.vcxproj.filters is for MSVC 2017
' generate_vs141.vcxproj is for MSVC 2017
' version_vs141.vcxproj is for MSVC 2017
' basesets_vs141.vcxproj is for MSVC 2017
' openttd_vs140.sln is for MSVC 2015
' openttd_vs140.vcxproj is for MSVC 2015
@@ -27,6 +28,7 @@ Set FSO = CreateObject("Scripting.FileSystemObject")
' strgen_vs140.vcxproj.filters is for MSVC 2015
' generate_vs140.vcxproj is for MSVC 2015
' version_vs140.vcxproj is for MSVC 2015
' basesets_vs140.vcxproj is for MSVC 2015
Sub safety_check(filename)
Dim file, line, regexp, list
@@ -267,6 +269,48 @@ Sub load_settings_data(dir, ByRef vcxproj, ByRef command, ByRef files)
Next
End Sub
Sub load_baseset_data(dir, langdir, ByRef vcxproj, ByRef files, ByRef langs)
Dim folder, file, ext, first_time
Set folder = FSO.GetFolder(langdir)
langs = " <Langs>"
For Each file In folder.Files
If first_time <> 0 Then
langs = langs & ";"
Else
first_time = 1
End If
file = FSO.GetFileName(file)
ext = FSO.GetExtensionName(file)
langs = langs & "..\src\lang\" & file
Next
langs = langs & "</Langs>"
first_time = 0
Set folder = FSO.GetFolder(dir)
For Each file In folder.Files
file = FSO.GetFileName(file)
ext = FSO.GetExtensionName(file)
If ext = "obm" Or ext = "obg" Or ext = "obs" Then
If first_time <> 0 Then
vcxproj = vcxproj & vbCrLf
files = files & vbCrLf
Else
first_time = 1
End If
vcxproj = vcxproj & _
" <CustomBuild Include=" & Chr(34) & "..\media\baseset\" & file & Chr(34) & ">" & vbCrLf & _
" <Message Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">Generating " & file & " baseset metadata file</Message>" & vbCrLf & _
" <Command Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">cscript //nologo ..\media\baseset\translations.vbs " & Chr(34) & "%(FullPath)" & Chr(34) & " " & Chr(34) & "$(OutputPath)" & file & Chr(34) & " ..\src\lang ..\bin\baseset\orig_extra.grf</Command>" & vbCrLf & _
" <AdditionalInputs Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">$(Langs);..\bin\baseset\orig_extra.grf;%(AdditionalInputs)</AdditionalInputs>" & vbCrLf & _
" <Outputs Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">..\bin\baseset\" & file & ";%(Outputs)</Outputs>" & vbCrLf & _
" </CustomBuild>"
files = files & _
" <CustomBuild Include=" & Chr(34) & "..\media\baseset\" & file & Chr(34) & ">" & vbCrLf & _
" <Filter>Baseset Metadata</Filter>" & vbCrLf & _
" </CustomBuild>"
End If
Next
End Sub
Sub generate(data, dest, data2)
Dim srcfile, destfile, line
WScript.Echo "Generating " & FSO.GetFileName(dest) & "..."
@@ -338,3 +382,10 @@ generate settingsvcxproj, ROOT_DIR & "/projects/settings_vs140.vcxproj", setting
generate settingsfiles, ROOT_DIR & "/projects/settings_vs140.vcxproj.filters", Null
generate settingsvcxproj, ROOT_DIR & "/projects/settings_vs141.vcxproj", settingscommand
generate settingsfiles, ROOT_DIR & "/projects/settings_vs141.vcxproj.filters", Null
Dim basesetvcxproj, basesetfiles, basesetlangs
load_baseset_data ROOT_DIR & "/media/baseset", ROOT_DIR & "/src/lang", basesetvcxproj, basesetfiles, basesetlangs
generate basesetvcxproj, ROOT_DIR & "/projects/basesets_vs140.vcxproj", basesetlangs
generate basesetfiles, ROOT_DIR & "/projects/basesets_vs140.vcxproj.filters", Null
generate basesetvcxproj, ROOT_DIR & "/projects/basesets_vs141.vcxproj", basesetlangs
generate basesetfiles, ROOT_DIR & "/projects/basesets_vs141.vcxproj.filters", Null