#!/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_vs90.sln    is for MSVC 2008

# openttd_vs90.vcproj is for MSVC 2008

# langs_vs90.vcproj   is for MSVC 2008

# strgen_vs90.vcproj  is for MSVC 2008

# openttd_vs80.sln    is for MSVC 2005

# openttd_vs80.vcproj is for MSVC 2005

# langs_vs80.vcproj   is for MSVC 2005

# strgen_vs80.vcproj  is for MSVC 2005

# 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"

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' | sed 's/	//' | 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 == "PSP"         && "'$os'" != "PSP")               { 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 == "WINCE"       && "'$os'" != "WINCE")             { next; }

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

			if ($0 == "DIRECTMUSIC" && "'$enable_directmusic'" != "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 "		</Filter>";

				} else {

					first_time = 1;

				}

				print "		<Filter";

				print "			Name=\\""$0"\\"";

				print "			>";

			}

			next;

		}

		/^$/ { next }

		{

			if (deep == skip) {

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

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

				print "			<File";

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

				print "				>";

				print "			</File>";

			}

		}

		END { print "		</Filter>"; }

	'`"

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

}

load_lang_data() {

	RES=""

	for i in `ls $1`

	do

		i=`basename $i | sed s~.txt$~~g`

		RES="$RES

		<File

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

			>

			<FileConfiguration

				Name=\"Debug|Win32\"

				>

				<Tool

					Name=\"VCCustomBuildTool\"

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

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

				/>

			</FileConfiguration>

		</File>"

	done

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

}

generate() {

	echo "Generating $2..."

	# 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"

	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

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

generate "$openttd" "openttd_vs80.vcproj"

generate "$openttd" "openttd_vs90.vcproj"

generate "$lang" "langs_vs80.vcproj"

generate "$lang" "langs_vs90.vcproj"

' strgen_vs80.vcproj  is for MSVC 2005

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

	Dim res, file, line, deep, skip, first_time

	res = ""

	' 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 = "HAVE_THREAD" _

					) Then skip = skip + 1

					deep = deep + 1

				Case "#"

					if deep = skip Then

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

						if first_time <> 0 Then

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

						Else

							first_time = 1

						End If

						res = res & _

						"		<Filter" & vbCrLf & _

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

						"			>" & vbCrLf

					End If

				Case Else

					If deep = skip Then

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

						res = res & _

						"			<File" & vbCrLf & _

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

						"				>" & vbCrLf & _

						"			</File>" & vbCrLf

					End If

			End Select

		End If

	Wend

	res = res & "		</Filter>"

	file.Close()

	load_main_data = res

End Function

Function load_lang_data(dir)

	Dim res, folder, file

	res = ""

	Set folder = FSO.GetFolder(dir)

	For Each file In folder.Files

		file = FSO.GetFileName(file)

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

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

			res = res _

			& vbCrLf & "		<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 & "					Outputs=" & Chr(34) & "..\bin\lang\" & file & ".lng" & Chr(34) _

			& vbCrLf & "				/>" _

			& vbCrLf & "			</FileConfiguration>" _

			& vbCrLf & "		</File>"

		End If

	Next

	load_lang_data = res

End Function

Sub generate(data, dest)

	Dim srcfile, destfile, line

	WScript.Echo "Generating " & FSO.GetFileName(dest) & "..."

	Set srcfile = FSO.OpenTextFile(dest & ".in", 1, 0, 0)

	Set destfile = FSO.CreateTextFile(dest, -1, 0)

	' Everything above the !!FILES!! marker

	line = srcfile.ReadLine()

	While line <> "!!FILES!!"

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

		line = srcfile.ReadLine()

	Wend

	' Our generated content

	destfile.WriteLine(data)

	' Everything below the !!FILES!! marker

	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

openttd = load_main_data(ROOT_DIR &"/source.list")

generate openttd, ROOT_DIR & "/projects/openttd_vs80.vcproj"

generate openttd, ROOT_DIR & "/projects/openttd_vs90.vcproj"

Dim lang

lang = load_lang_data(ROOT_DIR & "/src/lang")

generate lang, ROOT_DIR & "/projects/langs_vs80.vcproj"

generate lang, ROOT_DIR & "/projects/langs_vs90.vcproj"

<?xml version="1.0" encoding="Windows-1252"?>

<VisualStudioProject

	ProjectType="Visual C++"

	Version="8.00"

	Name="langs"

	ProjectGUID="{0F066B23-18DF-4284-8265-F4A5E7E3B966}"

	RootNamespace="langs"

	Keyword="MakeFileProj"

	>

	<Platforms>

		<Platform

			Name="Win32"

		/>

	</Platforms>

	<ToolFiles>

	</ToolFiles>

	<Configurations>

		<Configuration

			Name="Debug|Win32"

			OutputDirectory="..\bin\lang"

			IntermediateDirectory="..\objs\langs"

			ConfigurationType="10"

			InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"

			UseOfMFC="0"

			ATLMinimizesCRunTimeLibraryUsage="false"

			>

			<Tool

				Name="VCPreBuildEventTool"

				Description="Generating strings.h"

				CommandLine="..\objs\strgen\strgen.exe -s ..\src\lang -d ..\objs\langs\table"

			/>

			<Tool

				Name="VCCustomBuildTool"

			/>

			<Tool

				Name="VCMIDLTool"

				TypeLibraryName="./langs.tlb"

				HeaderFileName=""

			/>

			<Tool

				Name="VCPostBuildEventTool"

			/>

		</Configuration>

	</Configurations>

	<References>

	</References>

	<Files>

		<File

			RelativePath="..\src\lang\afrikaans.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating afrikaans language file"

					Outputs="..\bin\lang\afrikaans.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\arabic_egypt.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating arabic_egypt language file"

					Outputs="..\bin\lang\arabic_egypt.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\brazilian_portuguese.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating brazilian_portuguese language file"

					Outputs="..\bin\lang\brazilian_portuguese.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\bulgarian.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating bulgarian language file"

					Outputs="..\bin\lang\bulgarian.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\catalan.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating catalan language file"

					Outputs="..\bin\lang\catalan.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\croatian.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating croatian language file"

					Outputs="..\bin\lang\croatian.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\czech.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating czech language file"

					Outputs="..\bin\lang\czech.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\danish.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating danish language file"

					Outputs="..\bin\lang\danish.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\dutch.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating dutch language file"

					Outputs="..\bin\lang\dutch.lng"

				/>

			</FileConfiguration>

		</File>

		<File

			RelativePath="..\src\lang\english.txt"

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating english language file"