cpp/openttd-patchpack/source Changeset - r8643:08c2c45d74b1

Changeset - r8643:08c2c45d74b1

Parent rev.

Child rev.

[Not reviewed]

master

0 1 0

glx - 16 years ago 2008-02-26 22:32:27
glx@openttd.org

(svn r12282) -Fix (r12123): generate.vbs should not skip files in NO_THREADS section of source.list

1 file changed with 2 insertions and 1 deletions:

projects/generate.vbs

0 comments (0 inline, 0 general)

projects/generate.vbs

➞

Show inline comments

@@ @@ -50,49 +50,50 @@ 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" _
 						line = "DIRECTMUSIC" Or _
 						line = "NO_THREADS" _
 					) 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

0 comments (0 inline, 0 general)