summaryrefslogtreecommitdiff
path: root/projects
diff options
context:
space:
mode:
authorrubidium <rubidium@openttd.org>2010-08-02 16:38:26 +0000
committerrubidium <rubidium@openttd.org>2010-08-02 16:38:26 +0000
commite8dc701cc42b3f92703930812594d04a32823caf (patch)
treef4d5da47f4004d9d8cec2746bc2568117e8c32f9 /projects
parent6371e6c4db8a131911da091563818c2c8cfa92f0 (diff)
downloadopenttd-e8dc701cc42b3f92703930812594d04a32823caf.tar.xz
(svn r20308) -Change: don't only look at only the src directory for the revision, but at the parent of the src directory.
Diffstat (limited to 'projects')
-rwxr-xr-xprojects/determineversion.vbs16
1 files changed, 8 insertions, 8 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs
index 338b3d2b0..9d300bd60 100755
--- a/projects/determineversion.vbs
+++ b/projects/determineversion.vbs
@@ -105,7 +105,7 @@ Function DetermineSVNVersion()
If sTortoise <> "" Then
Dim SubWCRev
Set SubWCRev = WScript.CreateObject("SubWCRev.object")
- SubWCRev.GetWCInfo FSO.GetAbsolutePathName("../src"), 0, 0
+ SubWCRev.GetWCInfo FSO.GetAbsolutePathName("../"), 0, 0
revision = SubWCRev.Revision
version = "r" & revision
modified = 0
@@ -124,7 +124,7 @@ Function DetermineSVNVersion()
WshShell.Environment("PROCESS")("LANG") = "en"
' Do we have subversion installed? Check immediatelly whether we've got a modified WC.
- Set oExec = WshShell.Exec("svnversion ../src")
+ Set oExec = WshShell.Exec("svnversion ../")
If Err.Number = 0 Then
' Wait till the application is finished ...
Do While oExec.Status = 0
@@ -137,7 +137,7 @@ Function DetermineSVNVersion()
End If
' And use svn info to get the correct revision and branch information.
- Set oExec = WshShell.Exec("svn info ../src")
+ Set oExec = WshShell.Exec("svn info ../")
If Err.Number = 0 Then
Do
line = OExec.StdOut.ReadLine()
@@ -179,7 +179,7 @@ Function DetermineSVNVersion()
WScript.Sleep 10
Loop
End If
- Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../src")
+ Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../")
If Err.Number = 0 Then
' Wait till the application is finished ...
Do While oExec.Status = 0
@@ -198,7 +198,7 @@ Function DetermineSVNVersion()
End If ' line <> "master"
End If ' Err.Number = 0
- Set oExec = WshShell.Exec("git log --pretty=format:%s --grep=" & Chr(34) & "^(svn r[0-9]*)" & Chr(34) & " -1 ../src")
+ Set oExec = WshShell.Exec("git log --pretty=format:%s --grep=" & Chr(34) & "^(svn r[0-9]*)" & Chr(34) & " -1 ../")
if Err.Number = 0 Then
revision = Mid(oExec.StdOut.ReadLine(), 7)
revision = Mid(revision, 1, InStr(revision, ")") - 1)
@@ -207,7 +207,7 @@ Function DetermineSVNVersion()
' No revision? Maybe it is a custom git-svn clone
' Reset error number as WshShell.Exec will not do that on success
Err.Clear
- Set oExec = WshShell.Exec("git log --pretty=format:%b --grep=" & Chr(34) & "git-svn-id:.*@[0-9]*" & Chr(34) & " -1 ../src")
+ Set oExec = WshShell.Exec("git log --pretty=format:%b --grep=" & Chr(34) & "git-svn-id:.*@[0-9]*" & Chr(34) & " -1 ../")
If Err.Number = 0 Then
revision = oExec.StdOut.ReadLine()
revision = Mid(revision, InStr(revision, "@") + 1)
@@ -231,7 +231,7 @@ Function DetermineSVNVersion()
line = OExec.StdOut.ReadLine()
hash = Mid(line, InStrRev(line, ":") + 1)
version = "h" & Mid(hash, 1, 8)
- Set oExec = WshShell.Exec("hg status ../src")
+ Set oExec = WshShell.Exec("hg status ../")
If Err.Number = 0 Then
Do
line = OExec.StdOut.ReadLine()
@@ -249,7 +249,7 @@ Function DetermineSVNVersion()
End If ' line <> "default"
End If ' Err.Number = 0
- Set oExec = WshShell.Exec("hg log -r " & hash & ":0 -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src")
+ Set oExec = WshShell.Exec("hg log -r " & hash & ":0 -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../")
If Err.Number = 0 Then
revision = Mid(OExec.StdOut.ReadLine(), 7)
revision = Mid(revision, 1, InStr(revision, ")") - 1)