author | rubidium |
Mon, 14 Apr 2008 19:54:33 +0000 | |
changeset 10175 | 1119f6640ee6 |
parent 9139 | d15b4e07ed34 |
child 10238 | 05c80dbcb98c |
permissions | -rwxr-xr-x |
9041
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
1 |
Option Explicit |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
2 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
3 |
Dim FSO |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
4 |
Set FSO = CreateObject("Scripting.FileSystemObject") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
5 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
6 |
' openttd_vs90.sln is for MSVC 2008 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
7 |
' openttd_vs90.vcproj is for MSVC 2008 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
8 |
' langs_vs90.vcproj is for MSVC 2008 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
9 |
' strgen_vs90.vcproj is for MSVC 2008 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
10 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
11 |
' openttd_vs80.sln is for MSVC 2005 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
12 |
' openttd_vs80.vcproj is for MSVC 2005 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
13 |
' langs_vs80.vcproj is for MSVC 2005 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
14 |
' strgen_vs80.vcproj is for MSVC 2005 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
15 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
16 |
Sub safety_check(filename) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
17 |
Dim file, line, regexp, list |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
18 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
19 |
' Define regexp |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
20 |
Set regexp = New RegExp |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
21 |
regexp.Pattern = "#|ottdres.rc|win32.cpp|win32_v.cpp" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
22 |
regexp.Global = True |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
23 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
24 |
' We use a dictionary to check duplicates |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
25 |
Set list = CreateObject("Scripting.Dictionary") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
26 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
27 |
Set file = FSO.OpenTextFile(filename, 1, 0, 0) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
28 |
While Not file.AtEndOfStream |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
29 |
line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
30 |
If Len(line) > 0 And Not regexp.Test(line) Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
31 |
line = FSO.GetFileName(line) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
32 |
if list.Exists(line) Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
33 |
WScript.Echo " !! ERROR !!" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
34 |
& vbCrLf & "" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
35 |
& vbCrLf & "The filename '" & line & "' is already used in this project." _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
36 |
& vbCrLf & "Because MSVC uses one single directory for all object files, it" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
37 |
& vbCrLf & "cannot handle filenames with the same name inside the same project." _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
38 |
& vbCrLf & "Please rename either one of the file and try generating again." _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
39 |
& vbCrLf & "" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
40 |
& vbCrLf & " !! ERROR !!" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
41 |
WScript.Quit(1) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
42 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
43 |
list.Add line, line |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
44 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
45 |
Wend |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
46 |
file.Close |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
47 |
End Sub |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
48 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
49 |
Function load_main_data(filename) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
50 |
Dim res, file, line, deep, skip, first_time |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
51 |
res = "" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
52 |
' Read the source.list and process it |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
53 |
Set file = FSO.OpenTextFile(filename, 1, 0, 0) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
54 |
While Not file.AtEndOfStream |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
55 |
line = Replace(file.ReadLine, Chr(9), "") ' Remove tabs |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
56 |
If Len(line) > 0 Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
57 |
Select Case Split(line, " ")(0) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
58 |
Case "#end" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
59 |
If deep = skip Then skip = skip - 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
60 |
deep = deep - 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
61 |
Case "#else" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
62 |
If deep = skip Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
63 |
skip = skip - 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
64 |
ElseIf deep - 1 = skip Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
65 |
skip = skip + 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
66 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
67 |
Case "#if" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
68 |
line = Replace(line, "#if ", "") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
69 |
If deep = skip And ( _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
70 |
line = "SDL" Or _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
71 |
line = "PNG" Or _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
72 |
line = "WIN32" Or _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
73 |
line = "MSVC" Or _ |
9139
d15b4e07ed34
(svn r12282) -Fix (r12123): generate.vbs should not skip files in NO_THREADS section of source.list
glx
parents:
9041
diff
changeset
|
74 |
line = "DIRECTMUSIC" Or _ |
10175
1119f6640ee6
(svn r12706) -Merge: the thread rewrite from NoAI. The rewrite makes the threading we have better extendable.
rubidium
parents:
9139
diff
changeset
|
75 |
line = "HAVE_THREAD" _ |
9041
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
76 |
) Then skip = skip + 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
77 |
deep = deep + 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
78 |
Case "#" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
79 |
if deep = skip Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
80 |
line = Replace(line, "# ", "") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
81 |
if first_time <> 0 Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
82 |
res = res & " </Filter>" & vbCrLf |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
83 |
Else |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
84 |
first_time = 1 |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
85 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
86 |
res = res & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
87 |
" <Filter" & vbCrLf & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
88 |
" Name=" & Chr(34) & line & Chr(34) & vbCrLf & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
89 |
" >" & vbCrLf |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
90 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
91 |
Case Else |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
92 |
If deep = skip Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
93 |
line = Replace(line, "/" ,"\") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
94 |
res = res & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
95 |
" <File" & vbCrLf & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
96 |
" RelativePath=" & Chr(34) & ".\..\src\" & line & Chr(34) & vbCrLf & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
97 |
" >" & vbCrLf & _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
98 |
" </File>" & vbCrLf |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
99 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
100 |
End Select |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
101 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
102 |
Wend |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
103 |
res = res & " </Filter>" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
104 |
file.Close() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
105 |
load_main_data = res |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
106 |
End Function |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
107 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
108 |
Function load_lang_data(dir) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
109 |
Dim res, folder, file |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
110 |
res = "" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
111 |
Set folder = FSO.GetFolder(dir) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
112 |
For Each file In folder.Files |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
113 |
file = FSO.GetFileName(file) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
114 |
If FSO.GetExtensionName(file) = "txt" Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
115 |
file = Left(file, Len(file) - 4) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
116 |
res = res _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
117 |
& vbCrLf & " <File" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
118 |
& vbCrLf & " RelativePath=" & Chr(34) & "..\src\lang\" & file & ".txt" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
119 |
& vbCrLf & " >" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
120 |
& vbCrLf & " <FileConfiguration" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
121 |
& vbCrLf & " Name=" & Chr(34) & "Debug|Win32" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
122 |
& vbCrLf & " >" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
123 |
& vbCrLf & " <Tool" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
124 |
& vbCrLf & " Name=" & Chr(34) & "VCCustomBuildTool" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
125 |
& vbCrLf & " Description=" & Chr(34) & "Generating " & file & " language file" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
126 |
& vbCrLf & " CommandLine=" & Chr(34) & "..\objs\strgen\strgen.exe -s ..\src\lang -d ..\bin\lang "$(InputPath)"
" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
127 |
& vbCrLf & " AdditionalDependencies=" & Chr(34) & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
128 |
& vbCrLf & " Outputs=" & Chr(34) & "..\bin\lang\" & file & ".lng" & Chr(34) _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
129 |
& vbCrLf & " />" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
130 |
& vbCrLf & " </FileConfiguration>" _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
131 |
& vbCrLf & " </File>" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
132 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
133 |
Next |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
134 |
load_lang_data = res |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
135 |
End Function |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
136 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
137 |
Sub generate(data, dest) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
138 |
Dim srcfile, destfile, line |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
139 |
WScript.Echo "Generating " & FSO.GetFileName(dest) & "..." |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
140 |
Set srcfile = FSO.OpenTextFile(dest & ".in", 1, 0, 0) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
141 |
Set destfile = FSO.CreateTextFile(dest, -1, 0) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
142 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
143 |
' Everything above the !!FILES!! marker |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
144 |
line = srcfile.ReadLine() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
145 |
While line <> "!!FILES!!" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
146 |
If len(line) > 0 Then destfile.WriteLine(line) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
147 |
line = srcfile.ReadLine() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
148 |
Wend |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
149 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
150 |
' Our generated content |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
151 |
destfile.WriteLine(data) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
152 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
153 |
' Everything below the !!FILES!! marker |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
154 |
While Not srcfile.AtEndOfStream |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
155 |
line = srcfile.ReadLine() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
156 |
If len(line) > 0 Then destfile.WriteLine(line) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
157 |
Wend |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
158 |
srcfile.Close() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
159 |
destfile.Close() |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
160 |
End Sub |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
161 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
162 |
Dim ROOT_DIR |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
163 |
ROOT_DIR = FSO.GetFolder("..").Path |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
164 |
If Not FSO.FileExists(ROOT_DIR & "/source.list") Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
165 |
ROOT_DIR = FSO.GetFolder(".").Path |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
166 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
167 |
If Not FSO.FileExists(ROOT_DIR & "/source.list") Then |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
168 |
WScript.Echo "Can't find source.list, needed in order to make this run." _ |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
169 |
& vbCrLf & "Please go to either the project dir, or the root dir of a clean SVN checkout." |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
170 |
WScript.Quit(1) |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
171 |
End If |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
172 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
173 |
safety_check ROOT_DIR & "/source.list" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
174 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
175 |
Dim openttd |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
176 |
openttd = load_main_data(ROOT_DIR &"/source.list") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
177 |
generate openttd, ROOT_DIR & "/projects/openttd_vs80.vcproj" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
178 |
generate openttd, ROOT_DIR & "/projects/openttd_vs90.vcproj" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
179 |
|
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
180 |
Dim lang |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
181 |
lang = load_lang_data(ROOT_DIR & "/src/lang") |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
182 |
generate lang, ROOT_DIR & "/projects/langs_vs80.vcproj" |
8051cc588895
(svn r12123) -Add: generate.vbs script to allow project files generation for users unable to run generate bash script
glx
parents:
diff
changeset
|
183 |
generate lang, ROOT_DIR & "/projects/langs_vs90.vcproj" |