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"

		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"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating english_US language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating esperanto language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating estonian language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating finnish language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating french language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating galician language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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

			>

			<FileConfiguration

				Name="Debug|Win32"

				>

				<Tool

					Name="VCCustomBuildTool"

					Description="Generating german language file"

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

				/>

			</FileConfiguration>

		</File>

		<File

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