#!/bin/bash

# $Id$

# 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/>.

# This file generates all project files based on sources.list, so everyone who

#  can start a bash process, can update the project files.

ROOT_DIR="`pwd`/.."

if ! [ -e "$ROOT_DIR/source.list" ]

then

	ROOT_DIR="`pwd`"

fi

if ! [ -e "$ROOT_DIR/source.list" ]

then

	echo "Can't find source.list, needed in order to make this run. Please go to either"

	echo " the project dir, or the root dir of a clean SVN checkout."

	exit 1

fi

# openttd_vs141.sln             is for MSVC 2017

# openttd_vs141.vcxproj         is for MSVC 2017

# openttd_vs141.vcxproj.filters is for MSVC 2017

# langs_vs141.vcxproj           is for MSVC 2017

# strgen_vs141.vcxproj          is for MSVC 2017

# strgen_vs141.vcxproj.filters  is for MSVC 2017

# generate_vs141.vcxproj        is for MSVC 2017

# version_vs141.vcxproj         is for MSVC 2017

# openttd_vs140.sln             is for MSVC 2015

# openttd_vs140.vcxproj         is for MSVC 2015

# openttd_vs140.vcxproj.filters is for MSVC 2015

# langs_vs140.vcxproj           is for MSVC 2015

# strgen_vs140.vcxproj          is for MSVC 2015

# strgen_vs140.vcxproj.filters  is for MSVC 2015

# generate_vs140.vcxproj        is for MSVC 2015

# version_vs140.vcxproj         is for MSVC 2015

# First, collect the list of Windows files

allegro_config=""

sdl_config="1"

png_config="1"

os="MSVC"

enable_dedicated="0"

enable_ai="1"

with_cocoa="0"

enable_directmusic="1"

enable_fluidsynth="0"

with_threads="1"

file_prefix="..\\\\src\\\\"

safety_check() {

	li=""

	for i in `cat $1 | grep -v "#\|ottdres.rc\|win32.cpp\|win32_v.cpp" | xargs -n 1 basename | sort`; do

		if [ "$li" = "$i" ]; then

			echo " !! ERROR !!"

			echo ""

			echo "The filename '$i' is already used in this project."

			echo "Because MSVC uses one single directory for all object files, it"

			echo "cannot handle filenames with the same name inside the same project."

			echo "Please rename either one of the file and try generating again."

			echo ""

			echo " !! ERROR !!"

			exit 1

		fi

		li="$i"

	done

}

grep '\.h' "$ROOT_DIR/source.list" | grep -v '../objs/langs/table/strings.h\|../objs/settings/table/settings.h' | sed 's/	//g' | sort > tmp.headers.source.list

find "$ROOT_DIR/src" \( -iname "*.h" -or -iname "*.hpp" \) -and -not -ipath "*/.svn/*" | sed "s~$ROOT_DIR/src/~~" | sort > tmp.headers.src

if [ -n "`diff tmp.headers.source.list tmp.headers.src`" ]; then

	echo "The following headers are missing in source.list and not in /src/ or vice versa."

	diff tmp.headers.source.list tmp.headers.src | grep '[<>]' | sort

	echo ""

fi

rm tmp.headers.*

load_main_data() {

	# Read the source.list and process it

	RES="`cat $1 | tr '\r' '\n' | awk '

		/^(	*)#end/  { if (deep == skip) { skip -= 1; } deep -= 1; next; }

		/^(	*)#else/ { if (deep == skip) { skip -= 1; } else if (deep - 1 == skip) { skip += 1; } next; }

		/^(	*)#if/   {

			gsub("	", "", $0);

			gsub("^#if", "", $0);

			gsub("^ ", "", $0);

			if (deep != skip) { deep += 1; next; }

			deep += 1;

			if ($0 == "ALLEGRO"     && "'$allegro_config'" == "")      { next; }

			if ($0 == "SDL"         && "'$sdl_config'" == "")          { next; }

			if ($0 == "PNG"         && "'$png_config'" == "")          { next; }

			if ($0 == "OSX"         && "'$os'" != "OSX")               { next; }

			if ($0 == "OS2"         && "'$os'" != "OS2")               { next; }

			if ($0 == "DOS"         && "'$os'" != "DOS")               { next; }

			if ($0 == "DEDICATED"   && "'$enable_dedicated'" != "1")   { next; }

			if ($0 == "AI"          && "'$enable_ai'" == "0")          { next; }

			if ($0 == "COCOA"       && "'$with_cocoa'" == "0")         { next; }

			if ($0 == "BEOS"        && "'$os'" != "BEOS")              { next; }

			if ($0 == "WIN32"       && "'$os'" != "MINGW" &&

											"'$os'" != "CYGWIN" && "'$os'" != "MSVC" ) { next; }

			if ($0 == "MSVC"        && "'$os'" != "MSVC")              { next; }

			if ($0 == "DIRECTMUSIC" && "'$enable_directmusic'" != "1") { next; }

			if ($0 == "FLUIDSYNTH"  && "'$enable_fluidsynth'" != "1")  { next; }

			if ($0 == "LIBTIMIDITY" && "'$libtimidity'" == "" )        { next; }

			if ($0 == "HAVE_THREAD" && "'$with_threads'" == "0")       { next; }

			skip += 1;

			next;

		}

		/^(	*)#/ {

			if (deep == skip) {

				gsub("	", "", $0);

				gsub("^#", "", $0);

				gsub("^ ", "", $0);

				if (first_time != 0) {

					print "#1		</Filter>";

				} else {

					first_time = 1;

				}

				filter = $0;

				print "#1		<Filter";

				print "#1			Name=\\""filter"\\"";

				print "#1			>";

				print "#3    <Filter Include=\\""filter"\\">";

				printf "#3      <UniqueIdentifier>{c76ff9f1-1e62-46d8-8d55-%012d}</UniqueIdentifier>\n", i;

				print "#3    </Filter>";

				i += 1;

			}

			next;

		}

		/^$/ { next }

		{

			if (deep == skip) {

				gsub("	", "", $0);

				gsub("/", "\\\\", $0);

				print "#1			<File";

				print "#1				RelativePath=\\".\\\\'$file_prefix'"$0"\\"";

				print "#1				>";

				print "#1			</File>";

				split($0, file, ".");

				cltype = "ClInclude"

				if (file[2] == "cpp") cltype = "ClCompile";

				if (file[2] == "rc") cltype = "ResourceCompile";

				print "#2    <"cltype" Include=\\"'$file_prefix'"$0"\\" />";

				print "#4    <"cltype" Include=\\"'$file_prefix'"$0"\\">";

				print "#4      <Filter>"filter"</Filter>";

				print "#4    </"cltype">";

			}

		}

		END { print "#1		</Filter>"; }

	'`"

	eval "$2=\"\$RES\""

}

load_lang_data() {

	RES=""

	# Windows Folder sort and Linux Folder sort are slightly different.

	# By removing the extension and sorting it on Linux, they are the same.

	for i in `ls $1 | sed s~.txt$~~g | sort`

	do

		i=`basename $i`

		if [ "$i" == "english" ]

		then

			continue

		fi

		RES="$RES

#1			<File

#1				RelativePath=\"..\\src\\lang\\"$i".txt\"

#1				>

#1				<FileConfiguration

#1					Name=\"Debug|Win32\"

#1					>

#1					<Tool

#1						Name=\"VCCustomBuildTool\"

#1						Description=\"Generating "$i" language file\"

#1						CommandLine=\"..\\objs\\strgen\\strgen.exe -s ..\\src\\lang -d ..\\bin\\lang "\$(InputPath)"
exit 0
\"

#1						AdditionalDependencies=\"..\\src\\lang\\english.txt;..\\objs\\strgen\\strgen.exe\"

#1						Outputs=\"..\\bin\\lang\\"$i".lng\"

#1					/>

#1				</FileConfiguration>

#1			</File>

#2    <CustomBuild Include=\"..\\src\\lang\\"$i".txt\">

#2      <Message Condition=\"'\$(Configuration)|\$(Platform)'=='Debug|Win32'\">Generating "$i" language file</Message>

#2      <Command Condition=\"'\$(Configuration)|\$(Platform)'=='Debug|Win32'\">..\\objs\\strgen\\strgen.exe -s ..\\src\\lang -d ..\\bin\\lang \"%(FullPath)\"</Command>

#2      <AdditionalInputs Condition=\"'\$(Configuration)|\$(Platform)'=='Debug|Win32'\">..\\src\\lang\\english.txt;..\\objs\\strgen\\strgen.exe;%(AdditionalInputs)</AdditionalInputs>

#2      <Outputs Condition=\"'\$(Configuration)|\$(Platform)'=='Debug|Win32'\">..\\bin\\lang\\"$i".lng;%(Outputs)</Outputs>

#2    </CustomBuild>

#3    <CustomBuild Include=\"..\\src\\lang\\"$i".txt\">

#3      <Filter>Translations</Filter>

#3    </CustomBuild>"

	done

	eval "$2=\"\$RES\""

}

load_settings_data() {

	RES=""

	RES2="

#3..\\objs\\settings\\settings_gen.exe -o ..\\objs\\settings\\table\\settings.h -b ..\\src\\table\\settings.h.preamble -a ..\\src\\table\\settings.h.postamble"

	for i in `ls $1`

	do

		i=`basename $i`

		RES="$RES

#1		<File

#1			RelativePath=\"..\\src\\table\\"$i"\"

#1			>

#1		</File>

#2    <None Include=\"..\\src\\table\\"$i"\" />

#4    <None Include=\"..\\src\\table\\"$i"\">

#4      <Filter>INI</Filter>

#4    </None>"

		RES2="$RES2 ..\\src\\table\\"$i

	done

	eval "$2=\"\$RES\$RES2\""

}

generate() {

	echo "Generating $2..."

	if [ $# -eq 3 ]; then

		# Everything above the !!FILTERS!! marker

		cat "$ROOT_DIR/projects/$2".in | tr '\r' '\n' | awk '

			/^$/ { next }

			/!!FILTERS!!/ { stop = 1; }

			{

				if (stop == 0) { print $0 }

			}

		' > "$ROOT_DIR/projects/$2"

		echo "$3" >> "$ROOT_DIR/projects/$2"

		# Everything below the !!FILTERS!! marker and above the !!FILES!! marker

		cat "$ROOT_DIR/projects/$2".in | tr '\r' '\n' | awk '

			BEGIN { stop = 1; }

			/^$/ { next }

			/!!FILTERS!!/ { stop = 2; }

			/!!FILES!!/ { stop = 1; }

			{

				if (stop == 0) { print $0 }

				if (stop == 2) { stop = 0 }

			}

		' >> "$ROOT_DIR/projects/$2"

	else

		# Everything above the !!FILES!! marker

		cat "$ROOT_DIR/projects/$2".in | tr '\r' '\n' | awk '

			/^$/ { next }

			/!!FILES!!/ { stop = 1; }

			{

				if (stop == 0) { print $0 }

			}

		' > "$ROOT_DIR/projects/$2"

	fi

	echo "$1" >> "$ROOT_DIR/projects/$2"

	# Everything below the !!FILES!! marker

	cat "$ROOT_DIR/projects/$2".in | tr '\r' '\n' | awk '

		BEGIN { stop = 1; }

		/^$/ { next }

		/!!FILES!!/ { stop = 2; }

		{

			if (stop == 0) { print $0 }

			if (stop == 2) { stop = 0 }

		}

	' >> "$ROOT_DIR/projects/$2"

}

safety_check "$ROOT_DIR/source.list"

load_main_data "$ROOT_DIR/source.list" openttd

openttdfiles=`echo "$openttd" | grep "^#4" | sed "s~#4~~g"`

openttdfilters=`echo "$openttd" | grep "^#3" | sed "s~#3~~g"`

openttdvcxproj=`echo "$openttd" | grep "^#2" | sed "s~#2~~g"`

openttd=`echo "$openttd" | grep "^#1" | sed "s~#1~~g"`

load_lang_data "$ROOT_DIR/src/lang/*.txt" lang

langfiles=`echo "$lang" | grep "^#3" | sed "s~#3~~g"`

langvcxproj=`echo "$lang" | grep "^#2" | sed "s~#2~~g"`

lang=`echo "$lang" | grep "^#1" | sed "s~#1~~g"`

load_settings_data "$ROOT_DIR/src/table/*.ini" settings

settingsfiles=`echo "$settings" | grep "^#4" | sed "s~#4~~g"`

settingscommand=`echo "$settings" | grep "^#3" | sed "s~#3~~g"`

settingsvcxproj=`echo "$settings" | grep "^#2" | sed "s~#2~~g"`

settings=`echo "$settings" | grep "^#1" | sed "s~#1~~g"`

generate "$openttdvcxproj" "openttd_vs140.vcxproj"

generate "$openttdfiles" "openttd_vs140.vcxproj.filters" "$openttdfilters"

generate "$openttdvcxproj" "openttd_vs141.vcxproj"

generate "$openttdfiles" "openttd_vs141.vcxproj.filters" "$openttdfilters"

generate "$langvcxproj" "langs_vs140.vcxproj"

generate "$langfiles" "langs_vs140.vcxproj.filters"

generate "$langvcxproj" "langs_vs141.vcxproj"

generate "$langfiles" "langs_vs141.vcxproj.filters"

generate "$settingsvcxproj" "settings_vs140.vcxproj" "$settingscommand"

generate "$settingsfiles" "settings_vs140.vcxproj.filters"

generate "$settingsvcxproj" "settings_vs141.vcxproj" "$settingscommand"

generate "$settingsfiles" "settings_vs141.vcxproj.filters"

Option Explicit

' $Id$

'

' 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")

' openttd_vs141.sln             is for MSVC 2017

' openttd_vs141.vcxproj         is for MSVC 2017

' openttd_vs141.vcxproj.filters is for MSVC 2017

' langs_vs141.vcxproj           is for MSVC 2017

' strgen_vs141.vcxproj          is for MSVC 2017

' strgen_vs141.vcxproj.filters  is for MSVC 2017

' generate_vs141.vcxproj        is for MSVC 2017

' version_vs141.vcxproj         is for MSVC 2017

' openttd_vs140.sln             is for MSVC 2015

' openttd_vs140.vcxproj         is for MSVC 2015

' openttd_vs140.vcxproj.filters is for MSVC 2015

' langs_vs140.vcxproj           is for MSVC 2015

' strgen_vs140.vcxproj          is for MSVC 2015

' strgen_vs140.vcxproj.filters  is for MSVC 2015

' generate_vs140.vcxproj        is for MSVC 2015

' version_vs140.vcxproj         is for MSVC 2015

Sub safety_check(filename)

	Dim file, line, regexp, list

	' Define regexp

	Set regexp = New RegExp

	regexp.Pattern = "#|ottdres.rc|win32.cpp|win32_v.cpp"

	regexp.Global = True

	' We use a dictionary to check duplicates

	Set list = CreateObject("Scripting.Dictionary")

	Set file = FSO.OpenTextFile(filename, 1, 0, 0)

	While Not file.AtEndOfStream

		line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs

		If Len(line) > 0 And Not regexp.Test(line) Then

			line = FSO.GetFileName(line)

			if list.Exists(line) Then

				WScript.Echo " !! ERROR !!" _

				& vbCrLf & "" _

				& vbCrLf & "The filename '" & line & "' is already used in this project." _

				& vbCrLf & "Because MSVC uses one single directory for all object files, it" _

				& vbCrLf & "cannot handle filenames with the same name inside the same project." _

				& vbCrLf & "Please rename either one of the file and try generating again." _

				& vbCrLf & "" _

				& vbCrLf & " !! ERROR !!"

				WScript.Quit(1)

			End If

			list.Add line, line

		End If

	Wend

	file.Close

End Sub

Sub get_files(srcdir, dir, list)

	Dim file, filename

	Dim rekeep, reskip

	' pattern for files to keep

	Set rekeep = New RegExp

	rekeep.Pattern = "\.h(pp)?$"

	rekeep.Global = True

	' pattern for files to exclude

	Set reskip = New RegExp

	reskip.Pattern = "\.svn"

	reskip.Global = True

	For Each file in dir.Files

		filename = Replace(file.path, srcdir, "") ' Remove */src/

		filename = Replace(filename, "\", "/") ' Replace separators

		If rekeep.Test(filename) And Not reskip.Test(filename) Then

			list.Add filename, filename

		End If

	Next

End Sub

Sub get_dir_files(srcdir, dir, list)

	Dim folder

	' Get files

	get_files srcdir, dir, list

	' Recurse in subfolders

	For Each folder in dir.SubFolders

		get_dir_files srcdir, folder, list

	Next

End Sub

Sub headers_check(filename, dir)

	Dim source_list_headers, src_dir_headers, regexp, line, file, str

	' Define regexp for source.list parsing

	Set regexp = New RegExp

	regexp.Pattern = "\.h"

	regexp.Global = True

	' Parse source.list and store headers in a dictionary

	Set source_list_headers = CreateObject("Scripting.Dictionary")

	Set file = FSO.OpenTextFile(filename, 1, 0, 0)

	While Not file.AtEndOfStream

		line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs

		If Len(line) > 0 And regexp.Test(line) And line <> "../objs/langs/table/strings.h" And line <> "../objs/settings/table/settings.h" Then

			source_list_headers.Add line, line

		End If

	Wend

	file.Close()

	' Get header files in /src/

	Set src_dir_headers = CreateObject("Scripting.Dictionary")

	get_dir_files dir, FSO.GetFolder(dir), src_dir_headers

	' Finding files in source.list but not in /src/

	For Each line In source_list_headers

		If Not src_dir_headers.Exists(line) Then

			str = str & "< " & line & vbCrLf

		End If

	Next

	' Finding files in /src/ but not in source.list

	For Each line In src_dir_headers

		If Not source_list_headers.Exists(line) Then

			str = str & "> " & line & vbCrLf

		End If

	Next

	' Display the missing files if any

	If str <> "" Then

		str = "The following headers are missing in source.list and not in /src/ or vice versa." _

		& vbCrLf & str

		WScript.Echo str

	End If

End Sub

Function load_main_data(filename, ByRef vcxproj, ByRef filters, ByRef files)

	Dim res, file, line, deep, skip, first_filter, first_file, filter, cltype, index

	res = ""

	index = 0

	' Read the source.list and process it

	Set file = FSO.OpenTextFile(filename, 1, 0, 0)

	While Not file.AtEndOfStream

		line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs

		If Len(line) > 0 Then

			Select Case Split(line, " ")(0)

				Case "#end"

					If deep = skip Then skip = skip - 1

					deep = deep - 1

				Case "#else"

					If deep = skip Then

						skip = skip - 1

					ElseIf deep - 1 = skip Then

						skip = skip + 1

					End If

				Case "#if"

					line = Replace(line, "#if ", "")

					If deep = skip And ( _

						line = "SDL" Or _

						line = "PNG" Or _

						line = "WIN32" Or _

						line = "MSVC" Or _

						line = "DIRECTMUSIC" Or _

						line = "AI" Or _

						line = "SSE" Or _

						line = "HAVE_THREAD" _

					) Then skip = skip + 1

					deep = deep + 1

				Case "#"

					if deep = skip Then

						line = Replace(line, "# ", "")

						if first_filter <> 0 Then

							res = res & "		</Filter>" & vbCrLf

							filters = filters & vbCrLf

						Else

							first_filter = 1

						End If

						filter = line

						res = res & _

						"		<Filter" & vbCrLf & _

						"			Name=" & Chr(34) & filter & Chr(34) & vbCrLf & _

						"			>" & vbCrLf

						filters = filters & _

						"    <Filter Include="& Chr(34) & filter & Chr(34) & ">" & vbCrLf & _

						"      <UniqueIdentifier>{c76ff9f1-1e62-46d8-8d55-" & String(12 - Len(CStr(index)), "0") & index & "}</UniqueIdentifier>" & vbCrLf & _

						"    </Filter>"

						index = index + 1

					End If

				Case Else

					If deep = skip Then

						line = Replace(line, "/" ,"\")

						if first_file <> 0 Then

							vcxproj = vcxproj & vbCrLf

							files = files & vbCrLf

						Else

							first_file = 1

						End If

						res = res & _

						"			<File" & vbCrLf & _

						"				RelativePath=" & Chr(34) & ".\..\src\" & line & Chr(34) & vbCrLf & _

						"				>" & vbCrLf & _

						"			</File>" & vbCrLf

						Select Case Split(Line, ".")(1)

							Case "cpp"

								cltype = "ClCompile"

							Case "rc"

								cltype = "ResourceCompile"

							Case Else

								cltype = "ClInclude"

						End Select

						vcxproj = vcxproj & "    <" & cltype & " Include="& Chr(34) & "..\src\" & line & Chr(34) & " />"

						files = files & _

						"    <" & cltype & " Include="& Chr(34) & "..\src\" & line & Chr(34) & ">" & vbCrLf & _

						"      <Filter>" & filter & "</Filter>" & vbCrLf & _

						"    </" & cltype & ">"

					End If

			End Select

		End If

	Wend

	res = res & "		</Filter>"

	file.Close()

	load_main_data = res

End Function

Function load_lang_data(dir, ByRef vcxproj, ByRef files)

	Dim res, folder, file, first_time

	res = ""

	Set folder = FSO.GetFolder(dir)

	For Each file In folder.Files

		file = FSO.GetFileName(file)

		If file <> "english.txt" And FSO.GetExtensionName(file) = "txt" Then

			file = Left(file, Len(file) - 4)

			If first_time <> 0 Then

				res = res & vbCrLf

				vcxproj = vcxproj & vbCrLf

				files = files & vbCrLf

			Else

				first_time = 1

			End If

			res = res & _

			"			<File" & vbCrLf & _

			"				RelativePath=" & Chr(34) & "..\src\lang\" & file & ".txt" & Chr(34) & vbCrLf & _

			"				>" & vbCrLf & _

			"				<FileConfiguration" & vbCrLf & _

			"					Name=" & Chr(34) & "Debug|Win32" & Chr(34) & vbCrLf & _

			"					>" & vbCrLf & _

			"					<Tool" & vbCrLf & _

			"						Name=" & Chr(34) & "VCCustomBuildTool" & Chr(34) & vbCrLf & _

			"						Description=" & Chr(34) & "Generating " & file & " language file" & Chr(34) & vbCrLf & _

			"						CommandLine=" & Chr(34) & "..\objs\strgen\strgen.exe -s ..\src\lang -d ..\bin\lang "$(InputPath)"
exit 0
" & Chr(34) & vbCrLf & _

			"						AdditionalDependencies=" & Chr(34) & "..\src\lang\english.txt;..\objs\strgen\strgen.exe" & Chr(34) & vbCrLf & _

			"						Outputs=" & Chr(34) & "..\bin\lang\" & file & ".lng" & Chr(34) & vbCrLf & _

			"					/>" & vbCrLf & _

			"				</FileConfiguration>" & vbCrLf & _

			"			</File>"

			vcxproj = vcxproj & _

			"    <CustomBuild Include=" & Chr(34) & "..\src\lang\" & file & ".txt" & Chr(34) & ">" & vbCrLf & _

			"      <Message Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">Generating " & file & " language file</Message>" & vbCrLf & _

			"      <Command Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">..\objs\strgen\strgen.exe -s ..\src\lang -d ..\bin\lang " & Chr(34) & "%(FullPath)" & Chr(34) & "</Command>" & vbCrLf & _

			"      <AdditionalInputs Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">..\src\lang\english.txt;..\objs\strgen\strgen.exe;%(AdditionalInputs)</AdditionalInputs>" & vbCrLf & _

			"      <Outputs Condition=" & Chr(34) & "'$(Configuration)|$(Platform)'=='Debug|Win32'" & Chr(34) & ">..\bin\lang\" & file & ".lng;%(Outputs)</Outputs>" & vbCrLf & _

			"    </CustomBuild>"

			files = files & _

			"    <CustomBuild Include=" & Chr(34) & "..\src\lang\" & file & ".txt" & Chr(34) & ">" & vbCrLf & _

			"      <Filter>Translations</Filter>" & vbCrLf & _

			"    </CustomBuild>"

		End If

	Next

	load_lang_data = res

End Function

Function load_settings_data(dir, ByRef vcxproj, ByRef command, ByRef files)

	Dim res, folder, file, first_time

	res = ""

	command = "..\objs\settings\settings_gen.exe -o ..\objs\settings\table\settings.h -b ..\src\table\settings.h.preamble -a ..\src\table\settings.h.postamble"

	Set folder = FSO.GetFolder(dir)

	For Each file In folder.Files

		file = FSO.GetFileName(file)

		If FSO.GetExtensionName(file) = "ini" Then

			if first_time <> 0 Then

				res = res & vbCrLf

				vcxproj = vcxproj & vbCrLf

				files = files & vbCrLf

			Else

				first_time = 1

			End If

			res = res & _

			"		<File" & vbCrLf & _

			"			RelativePath=" & Chr(34) & "..\src\table\" & file & Chr(34) & vbCrLf & _

			"			>" & vbCrLf & _

			"		</File>"

			vcxproj = vcxproj & _

			"    <None Include=" & Chr(34) & "..\src\table\" & file & Chr(34) & " />"

			command = command & " ..\src\table\" & file

			files = files & _

			"    <None Include=" & Chr(34) & "..\src\table\" & file & Chr(34) & ">" & vbCrLf & _

			"      <Filter>INI</Filter>" & vbCrLf & _

			"    </None>"

		End If

	Next

	load_settings_data = res