Mercurial > hg > openttd

annotate projects/generate.vbs @ 14529:73c4918ae53a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(svn r19100) -Fix: [MSVC] don't stop building language files if building one language file fails
author yexo <yexo@openttd.org>
date Fri, 12 Feb 2010 00:45:44 +0000
parents 7e2812a8ef44
children 0b38c1a85bcf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
1 Option Explicit
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
2
12778
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
3 ' $Id$
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
4 '
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
5 ' This file is part of OpenTTD.
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
6 ' 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.
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
7 ' 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.
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
8 ' 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/>.
bc7926153e19 (svn r17248) -Fix: add GPL license notice where appropriate
rubidium <rubidium@openttd.org>
parents: 12537
diff changeset
9
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
10 Dim FSO
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
11 Set FSO = CreateObject("Scripting.FileSystemObject")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
12
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
13 ' openttd_vs90.sln is for MSVC 2008
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
14 ' openttd_vs90.vcproj is for MSVC 2008
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
15 ' langs_vs90.vcproj is for MSVC 2008
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
16 ' strgen_vs90.vcproj is for MSVC 2008
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
17
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
18 ' openttd_vs80.sln is for MSVC 2005
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
19 ' openttd_vs80.vcproj is for MSVC 2005
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
20 ' langs_vs80.vcproj is for MSVC 2005
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
21 ' strgen_vs80.vcproj is for MSVC 2005
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
22
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
23 Sub safety_check(filename)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
24 Dim file, line, regexp, list
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
25
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
26 ' Define regexp
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
27 Set regexp = New RegExp
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
28 regexp.Pattern = "#|ottdres.rc|win32.cpp|win32_v.cpp"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
29 regexp.Global = True
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
30
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
31 ' We use a dictionary to check duplicates
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
32 Set list = CreateObject("Scripting.Dictionary")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
33
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
34 Set file = FSO.OpenTextFile(filename, 1, 0, 0)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
35 While Not file.AtEndOfStream
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
36 line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
37 If Len(line) > 0 And Not regexp.Test(line) Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
38 line = FSO.GetFileName(line)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
39 if list.Exists(line) Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
40 WScript.Echo " !! ERROR !!" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
41 & vbCrLf & "" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
42 & vbCrLf & "The filename '" & line & "' is already used in this project." _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
43 & vbCrLf & "Because MSVC uses one single directory for all object files, it" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
44 & vbCrLf & "cannot handle filenames with the same name inside the same project." _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
45 & vbCrLf & "Please rename either one of the file and try generating again." _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
46 & vbCrLf & "" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
47 & vbCrLf & " !! ERROR !!"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
48 WScript.Quit(1)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
49 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
50 list.Add line, line
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
51 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
52 Wend
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
53 file.Close
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
54 End Sub
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
55
8978
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
56 Sub get_files(srcdir, dir, list)
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
57 Dim file, filename
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
58 Dim rekeep, reskip
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
59
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
60 ' pattern for files to keep
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
61 Set rekeep = New RegExp
9051
79f4f261efbf (svn r12881) -Fix (r12770): the check for missing header files could find more files than needed
glx <glx@openttd.org>
parents: 8978
diff changeset
62 rekeep.Pattern = "\.h(pp)?$"
8978
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
63 rekeep.Global = True
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
64
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
65 ' pattern for files to exclude
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
66 Set reskip = New RegExp
9051
79f4f261efbf (svn r12881) -Fix (r12770): the check for missing header files could find more files than needed
glx <glx@openttd.org>
parents: 8978
diff changeset
67 reskip.Pattern = "\.svn"
8978
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
68 reskip.Global = True
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
69
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
70 For Each file in dir.Files
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
71 filename = Replace(file.path, srcdir, "") ' Remove */src/
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
72 filename = Replace(filename, "\", "/") ' Replace separators
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
73 If rekeep.Test(filename) And Not reskip.Test(filename) Then
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
74 list.Add filename, filename
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
75 End If
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
76 Next
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
77 End Sub
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
78
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
79 Sub get_dir_files(srcdir, dir, list)
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
80 Dim folder
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
81 ' Get files
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
82 get_files srcdir, dir, list
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
83
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
84 ' Recurse in subfolders
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
85 For Each folder in dir.SubFolders
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
86 get_dir_files srcdir, folder, list
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
87 Next
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
88 End Sub
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
89
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
90 Sub headers_check(filename, dir)
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
91 Dim source_list_headers, src_dir_headers, regexp, line, file, str
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
92
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
93 ' Define regexp for source.list parsing
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
94 Set regexp = New RegExp
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
95 regexp.Pattern = "\.h"
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
96 regexp.Global = True
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
97
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
98 ' Parse source.list and store headers in a dictionary
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
99 Set source_list_headers = CreateObject("Scripting.Dictionary")
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
100 Set file = FSO.OpenTextFile(filename, 1, 0, 0)
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
101 While Not file.AtEndOfStream
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
102 line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
103 If Len(line) > 0 And regexp.Test(line) And line <> "../objs/langs/table/strings.h" Then
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
104 source_list_headers.Add line, line
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
105 End If
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
106 Wend
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
107 file.Close()
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
108
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
109 ' Get header files in /src/
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
110 Set src_dir_headers = CreateObject("Scripting.Dictionary")
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
111 get_dir_files dir, FSO.GetFolder(dir), src_dir_headers
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
112
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
113 ' Finding files in source.list but not in /src/
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
114 For Each line In source_list_headers
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
115 If Not src_dir_headers.Exists(line) Then
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
116 str = str & "< " & line & vbCrLf
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
117 End If
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
118 Next
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
119
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
120 ' Finding files in /src/ but not in source.list
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
121 For Each line In src_dir_headers
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
122 If Not source_list_headers.Exists(line) Then
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
123 str = str & "> " & line & vbCrLf
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
124 End If
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
125 Next
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
126
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
127 ' Display the missing files if any
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
128 If str <> "" Then
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
129 str = "The following headers are missing in source.list and not in /src/ or vice versa." _
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
130 & vbCrLf & str
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
131 WScript.Echo str
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
132 End If
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
133 End Sub
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
134
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
135 Function load_main_data(filename)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
136 Dim res, file, line, deep, skip, first_time
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
137 res = ""
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
138 ' Read the source.list and process it
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
139 Set file = FSO.OpenTextFile(filename, 1, 0, 0)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
140 While Not file.AtEndOfStream
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
141 line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
142 If Len(line) > 0 Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
143 Select Case Split(line, " ")(0)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
144 Case "#end"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
145 If deep = skip Then skip = skip - 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
146 deep = deep - 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
147 Case "#else"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
148 If deep = skip Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
149 skip = skip - 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
150 ElseIf deep - 1 = skip Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
151 skip = skip + 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
152 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
153 Case "#if"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
154 line = Replace(line, "#if ", "")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
155 If deep = skip And ( _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
156 line = "SDL" Or _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
157 line = "PNG" Or _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
158 line = "WIN32" Or _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
159 line = "MSVC" Or _
8643
81bd89f38ceb (svn r12282) -Fix (r12123): generate.vbs should not skip files in NO_THREADS section of source.list
glx <glx@openttd.org>
parents: 8545
diff changeset
160 line = "DIRECTMUSIC" Or _
14521
7e2812a8ef44 (svn r19092) -Fix (r19081): MSVC couldn't quite compile OpenTTD
rubidium <rubidium@openttd.org>
parents: 12778
diff changeset
161 line = "AI" Or _
8934
a56c5ca0f396 (svn r12706) -Merge: the thread rewrite from NoAI. The rewrite makes the threading we have better extendable.
rubidium <rubidium@openttd.org>
parents: 8643
diff changeset
162 line = "HAVE_THREAD" _
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
163 ) Then skip = skip + 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
164 deep = deep + 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
165 Case "#"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
166 if deep = skip Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
167 line = Replace(line, "# ", "")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
168 if first_time <> 0 Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
169 res = res & " </Filter>" & vbCrLf
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
170 Else
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
171 first_time = 1
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
172 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
173 res = res & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
174 " <Filter" & vbCrLf & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
175 " Name=" & Chr(34) & line & Chr(34) & vbCrLf & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
176 " >" & vbCrLf
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
177 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
178 Case Else
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
179 If deep = skip Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
180 line = Replace(line, "/" ,"\")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
181 res = res & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
182 " <File" & vbCrLf & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
183 " RelativePath=" & Chr(34) & ".\..\src\" & line & Chr(34) & vbCrLf & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
184 " >" & vbCrLf & _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
185 " </File>" & vbCrLf
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
186 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
187 End Select
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
188 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
189 Wend
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
190 res = res & " </Filter>"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
191 file.Close()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
192 load_main_data = res
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
193 End Function
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
194
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
195 Function load_lang_data(dir)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
196 Dim res, folder, file
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
197 res = ""
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
198 Set folder = FSO.GetFolder(dir)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
199 For Each file In folder.Files
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
200 file = FSO.GetFileName(file)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
201 If FSO.GetExtensionName(file) = "txt" Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
202 file = Left(file, Len(file) - 4)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
203 res = res _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
204 & vbCrLf & " <File" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
205 & vbCrLf & " RelativePath=" & Chr(34) & "..\src\lang\" & file & ".txt" & Chr(34) _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
206 & vbCrLf & " >" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
207 & vbCrLf & " <FileConfiguration" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
208 & vbCrLf & " Name=" & Chr(34) & "Debug|Win32" & Chr(34) _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
209 & vbCrLf & " >" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
210 & vbCrLf & " <Tool" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
211 & vbCrLf & " Name=" & Chr(34) & "VCCustomBuildTool" & Chr(34) _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
212 & vbCrLf & " Description=" & Chr(34) & "Generating " & file & " language file" & Chr(34) _
14529
73c4918ae53a (svn r19100) -Fix: [MSVC] don't stop building language files if building one language file fails
yexo <yexo@openttd.org>
parents: 14521
diff changeset
213 & vbCrLf & " CommandLine=" & Chr(34) & "..\objs\strgen\strgen.exe -s ..\src\lang -d ..\bin\lang &quot;$(InputPath)&quot;&#x0D;&#x0A;exit 0" & Chr(34) _
12537
c8f92c5ca668 (svn r16975) -Change [MSVC]: Make all language files depend on english.txt
yexo <yexo@openttd.org>
parents: 9051
diff changeset
214 & vbCrLf & " AdditionalDependencies=" & Chr(34) & "..\src\lang\english.txt" & Chr(34) _
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
215 & vbCrLf & " Outputs=" & Chr(34) & "..\bin\lang\" & file & ".lng" & Chr(34) _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
216 & vbCrLf & " />" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
217 & vbCrLf & " </FileConfiguration>" _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
218 & vbCrLf & " </File>"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
219 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
220 Next
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
221 load_lang_data = res
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
222 End Function
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
223
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
224 Sub generate(data, dest)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
225 Dim srcfile, destfile, line
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
226 WScript.Echo "Generating " & FSO.GetFileName(dest) & "..."
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
227 Set srcfile = FSO.OpenTextFile(dest & ".in", 1, 0, 0)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
228 Set destfile = FSO.CreateTextFile(dest, -1, 0)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
229
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
230 ' Everything above the !!FILES!! marker
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
231 line = srcfile.ReadLine()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
232 While line <> "!!FILES!!"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
233 If len(line) > 0 Then destfile.WriteLine(line)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
234 line = srcfile.ReadLine()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
235 Wend
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
236
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
237 ' Our generated content
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
238 destfile.WriteLine(data)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
239
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
240 ' Everything below the !!FILES!! marker
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
241 While Not srcfile.AtEndOfStream
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
242 line = srcfile.ReadLine()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
243 If len(line) > 0 Then destfile.WriteLine(line)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
244 Wend
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
245 srcfile.Close()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
246 destfile.Close()
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
247 End Sub
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
248
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
249 Dim ROOT_DIR
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
250 ROOT_DIR = FSO.GetFolder("..").Path
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
251 If Not FSO.FileExists(ROOT_DIR & "/source.list") Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
252 ROOT_DIR = FSO.GetFolder(".").Path
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
253 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
254 If Not FSO.FileExists(ROOT_DIR & "/source.list") Then
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
255 WScript.Echo "Can't find source.list, needed in order to make this run." _
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
256 & vbCrLf & "Please go to either the project dir, or the root dir of a clean SVN checkout."
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
257 WScript.Quit(1)
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
258 End If
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
259
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
260 safety_check ROOT_DIR & "/source.list"
8978
8503652d4f51 (svn r12770) -Add: check for missing (forgotten) header files in the generate.vbs script.
glx <glx@openttd.org>
parents: 8934
diff changeset
261 headers_check ROOT_DIR & "/source.list", ROOT_DIR & "\src\" ' Backslashes needed for DoFiles
8545
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
262
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
263 Dim openttd
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
264 openttd = load_main_data(ROOT_DIR &"/source.list")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
265 generate openttd, ROOT_DIR & "/projects/openttd_vs80.vcproj"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
266 generate openttd, ROOT_DIR & "/projects/openttd_vs90.vcproj"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
267
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
268 Dim lang
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
269 lang = load_lang_data(ROOT_DIR & "/src/lang")
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
270 generate lang, ROOT_DIR & "/projects/langs_vs80.vcproj"
e13ff026f5df (svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx <glx@openttd.org>
parents:
diff changeset
271 generate lang, ROOT_DIR & "/projects/langs_vs90.vcproj"