author | rubidium |
Wed, 09 Jan 2008 18:11:12 +0000 | |
branch | noai |
changeset 9723 | eee46cb39750 |
parent 9722 | ebf0ece7d8f6 |
child 9826 | 9707ad4c9b60 |
permissions | -rw-r--r-- |
9703 | 1 |
Option Explicit |
2 |
||
3 |
Dim FSO |
|
4 |
Set FSO = CreateObject("Scripting.FileSystemObject") |
|
5 |
||
6 |
Sub FindReplaceInFile(filename, to_find, replacement) |
|
7 |
Dim file, data |
|
8 |
Set file = FSO.OpenTextFile(filename, 1, 0, 0) |
|
9 |
data = file.ReadAll |
|
10 |
file.Close |
|
11 |
data = Replace(data, to_find, replacement) |
|
12 |
Set file = FSO.CreateTextFile(FileName, -1, 0) |
|
13 |
file.Write data |
|
14 |
file.Close |
|
15 |
End Sub |
|
16 |
||
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
17 |
Sub UpdateFile(revision, version, cur_date, filename) |
9703 | 18 |
FSO.CopyFile filename & ".in", filename |
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
19 |
FindReplaceInFile filename, "@@REVISION@@", revision |
9703 | 20 |
FindReplaceInFile filename, "@@VERSION@@", version |
21 |
FindReplaceInFile filename, "@@DATE@@", cur_date |
|
22 |
End Sub |
|
23 |
||
24 |
Sub UpdateFiles(version) |
|
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
25 |
Dim WshShell, cur_date, revision, oExec |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
26 |
Set WshShell = CreateObject("WScript.Shell") |
9703 | 27 |
cur_date = DatePart("D", Date) & "." & DatePart("M", Date) & "." & DatePart("YYYY", Date) |
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
28 |
revision = 0 |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
29 |
Select Case Mid(version, 1, 1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
30 |
Case "r" ' svn |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
31 |
revision = Mid(version, 2) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
32 |
If InStr(revision, "M") Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
33 |
revision = Mid(revision, 1, InStr(revision, "M") - 1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
34 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
35 |
If InStr(revision, "-") Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
36 |
revision = Mid(revision, 1, InStr(revision, "-") - 1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
37 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
38 |
Case "h" ' mercurial (hg) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
39 |
Set oExec = WshShell.Exec("hg log -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
40 |
If Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
41 |
revision = Mid(OExec.StdOut.ReadLine(), 7) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
42 |
revision = Mid(revision, 1, InStr(revision, ")") - 1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
43 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
44 |
Case "g" ' git |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
45 |
Set oExec = WshShell.Exec("git log --pretty=format:%s --grep=" & Chr(34) & "^(svn r[0-9]*)" & Chr(34) & " -1 ../src") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
46 |
if Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
47 |
revision = Mid(oExec.StdOut.ReadLine(), 7) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
48 |
revision = Mid(revision, 1, InStr(revision, ")") - 1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
49 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
50 |
End Select |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
51 |
|
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
52 |
UpdateFile revision, version, cur_date, "../src/rev.cpp" |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
53 |
UpdateFile revision, version, cur_date, "../src/ottdres.rc" |
9703 | 54 |
End Sub |
55 |
||
56 |
Function DetermineSVNVersion() |
|
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
57 |
Dim WshShell, version, url, oExec, line |
9703 | 58 |
Set WshShell = CreateObject("WScript.Shell") |
59 |
On Error Resume Next |
|
60 |
||
61 |
' Try TortoiseSVN |
|
62 |
' Get the directory where TortoiseSVN (should) reside(s) |
|
63 |
Dim sTortoise |
|
64 |
sTortoise = WshShell.RegRead("HKLM\SOFTWARE\TortoiseSVN\Directory") |
|
65 |
||
66 |
Dim file |
|
67 |
' Write some "magic" to a temporary file so we can acquire the svn revision/state |
|
68 |
Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0) |
|
69 |
file.WriteLine "r$WCREV$$WCMODS?M:$" |
|
70 |
file.WriteLine "$WCURL$" |
|
71 |
file.Close |
|
72 |
Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp") |
|
73 |
' Wait till the application is finished ... |
|
74 |
Do |
|
75 |
OExec.StdOut.ReadLine() |
|
76 |
Loop While Not OExec.StdOut.atEndOfStream |
|
77 |
||
78 |
Set file = FSO.OpenTextFile("tsvn_tmp", 1, 0, 0) |
|
79 |
version = file.ReadLine |
|
80 |
url = file.ReadLine |
|
81 |
file.Close |
|
82 |
||
83 |
Set file = FSO.GetFile("tsvn_tmp") |
|
84 |
file.Delete |
|
85 |
||
86 |
' Looks like there is no TortoiseSVN installed either. Then we don't know it. |
|
87 |
If InStr(version, "$") Then |
|
88 |
' Reset error and version |
|
89 |
Err.Clear |
|
90 |
version = "norev000" |
|
91 |
' Do we have subversion installed? Check immediatelly whether we've got a modified WC. |
|
92 |
Set oExec = WshShell.Exec("svnversion ../src") |
|
93 |
If Err.Number = 0 Then |
|
94 |
Dim modified |
|
95 |
If InStr(OExec.StdOut.ReadLine(), "M") Then |
|
96 |
modified = "M" |
|
97 |
Else |
|
98 |
modified = "" |
|
99 |
End If |
|
100 |
||
101 |
' Set the environment to english |
|
102 |
WshShell.Environment("PROCESS")("LANG") = "en" |
|
103 |
||
104 |
' And use svn info to get the correct revision and branch information. |
|
105 |
Set oExec = WshShell.Exec("svn info ../src") |
|
106 |
If Err.Number = 0 Then |
|
107 |
Do |
|
108 |
line = OExec.StdOut.ReadLine() |
|
109 |
If InStr(line, "URL") Then |
|
110 |
url = line |
|
111 |
End If |
|
112 |
If InStr(line, "Last Changed Rev") Then |
|
113 |
version = "r" & Mid(line, 19) & modified |
|
114 |
End If |
|
115 |
Loop While Not OExec.StdOut.atEndOfStream |
|
116 |
End If |
|
117 |
End If |
|
118 |
End If |
|
119 |
||
120 |
If version <> "norev000" Then |
|
121 |
If InStr(url, "branches") Then |
|
122 |
url = Mid(url, InStr(url, "branches") + 8) |
|
123 |
url = Mid(url, 1, InStr(2, url, "/") - 1) |
|
124 |
version = version & Replace(url, "/", "-") |
|
125 |
End If |
|
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
126 |
Else |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
127 |
' svn detection failed, reset error and try git |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
128 |
Err.Clear |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
129 |
Set oExec = WshShell.Exec("git rev-parse --verify --short=8 HEAD") |
9723
eee46cb39750
(svn r11796) [NoAI] -Sync: with trunk r11502:11795.
rubidium
parents:
9722
diff
changeset
|
130 |
If Err.Number = 0 Then |
9722
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
131 |
version = "g" & oExec.StdOut.ReadLine() |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
132 |
Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../src") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
133 |
Do While oExec.Status = 0 And Err.Number = 0 |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
134 |
Loop |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
135 |
If Err.Number = 0 And oExec.ExitCode = 1 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
136 |
version = version & "M" |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
137 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
138 |
|
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
139 |
Set oExec = WshShell.Exec("git symbolic-ref HEAD") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
140 |
If Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
141 |
line = oExec.StdOut.ReadLine() |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
142 |
line = Mid(line, InStrRev(line, "/")+1) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
143 |
If line <> "master" Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
144 |
version = version & "-" & line |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
145 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
146 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
147 |
Else |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
148 |
' try mercurial (hg) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
149 |
Err.Clear |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
150 |
Set oExec = WshShell.Exec("hg tip") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
151 |
If Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
152 |
version = "h" & Mid(OExec.StdOut.ReadLine(), 19, 8) |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
153 |
Set oExec = WshShell.Exec("hg status ../src") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
154 |
If Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
155 |
Do |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
156 |
line = OExec.StdOut.ReadLine() |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
157 |
If Mid(line, 1, 1) <> "?" Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
158 |
version = version & "M" |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
159 |
Exit Do |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
160 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
161 |
Loop While Not OExec.StdOut.atEndOfStream |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
162 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
163 |
Set oExec = WshShell.Exec("hg branch") |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
164 |
If Err.Number = 0 Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
165 |
line = OExec.StdOut.ReadLine() |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
166 |
If line <> "default" Then |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
167 |
version = version & "-" & line |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
168 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
169 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
170 |
End If |
ebf0ece7d8f6
(svn r11503) [NoAI] -Sync: with trunk r11308:11502.
rubidium
parents:
9703
diff
changeset
|
171 |
End If |
9703 | 172 |
End If |
173 |
||
174 |
DetermineSVNVersion = version |
|
175 |
End Function |
|
176 |
||
177 |
Function IsCachedVersion(version) |
|
178 |
Dim cache_file, cached_version |
|
179 |
cached_version = "" |
|
180 |
Set cache_file = FSO.OpenTextFile("../config.cache.version", 1, True, 0) |
|
181 |
If Not cache_file.atEndOfStream Then |
|
182 |
cached_version = cache_file.ReadLine() |
|
183 |
End If |
|
184 |
cache_file.Close |
|
185 |
||
186 |
If version <> cached_version Then |
|
187 |
Set cache_file = fso.CreateTextFile("../config.cache.version", True) |
|
188 |
cache_file.WriteLine(version) |
|
189 |
cache_file.Close |
|
190 |
IsCachedVersion = False |
|
191 |
Else |
|
192 |
IsCachedVersion = True |
|
193 |
End If |
|
194 |
End Function |
|
195 |
||
196 |
Dim version |
|
197 |
version = DetermineSVNVersion |
|
198 |
If Not (IsCachedVersion(version) And FSO.FileExists("../src/rev.cpp") And FSO.FileExists("../src/ottdres.rc")) Then |
|
199 |
UpdateFiles version |
|
200 |
End If |