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"

			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"

' 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 & "" _

	While Not srcfile.AtEndOfStream

		line = srcfile.ReadLine()

		If len(line) > 0 Then destfile.WriteLine(line)

	Wend

	srcfile.Close()

	destfile.Close()

End Sub

Dim ROOT_DIR

ROOT_DIR = FSO.GetFolder("..").Path

If Not FSO.FileExists(ROOT_DIR & "/source.list") Then

	ROOT_DIR = FSO.GetFolder(".").Path

End If

If Not FSO.FileExists(ROOT_DIR & "/source.list") Then

	WScript.Echo "Can't find source.list, needed in order to make this run." _

	& vbCrLf & "Please go to either the project dir, or the root dir of a clean SVN checkout."

	WScript.Quit(1)

End If

safety_check ROOT_DIR & "/source.list"

headers_check ROOT_DIR & "/source.list", ROOT_DIR & "\src\" ' Backslashes needed for DoFiles

Dim openttd, openttdvcxproj, openttdfilters, openttdfiles

openttd = load_main_data(ROOT_DIR & "/source.list", openttdvcxproj, openttdfilters, openttdfiles)

generate openttdvcxproj, ROOT_DIR & "/projects/openttd_vs140.vcxproj", Null

generate openttdfiles, ROOT_DIR & "/projects/openttd_vs140.vcxproj.filters", openttdfilters

generate openttdvcxproj, ROOT_DIR & "/projects/openttd_vs141.vcxproj", Null

generate openttdfiles, ROOT_DIR & "/projects/openttd_vs141.vcxproj.filters", openttdfilters

Dim lang, langvcxproj, langfiles

lang = load_lang_data(ROOT_DIR & "/src/lang", langvcxproj, langfiles)

generate langvcxproj, ROOT_DIR & "/projects/langs_vs140.vcxproj", Null

generate langfiles, ROOT_DIR & "/projects/langs_vs140.vcxproj.filters", Null

generate langvcxproj, ROOT_DIR & "/projects/langs_vs141.vcxproj", Null

generate langfiles, ROOT_DIR & "/projects/langs_vs141.vcxproj.filters", Null

Dim settings, settingsvcxproj, settingscommand, settingsfiles

settings = load_settings_data(ROOT_DIR & "/src/table", settingsvcxproj, settingscommand, settingsfiles)

generate settingsvcxproj, ROOT_DIR & "/projects/settings_vs140.vcxproj", settingscommand

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