mirror/OpenTTD
1
0
Fork 1
mirror of https://github.com/OpenTTD/OpenTTD.git synced 2025-08-16 19:19:09 +00:00
Code Issues Activity

(svn r21351) -Change: read some metadata from (official) source tarballs so you'll more likely get the right version/revision out-of-the-box

Browse Source
This commit is contained in:
rubidium
2010-11-29 12:49:27 +00:00
parent c60a850fed
commit 4aa6a24d95
3 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
projects/determineversion.vbs
View File

@@ -35,8 +35,9 @@ Sub UpdateFiles(version)
If InStr(version, Chr(9)) Then
revision = Mid(version, InStr(version, Chr(9)) + 1)
modified = Mid(revision, InStr(revision, Chr(9)) + 1)
revision = Mid(revision, 1, InStr(revision, Chr(9)) - 1)
modified = Mid(version, InStrRev(version, Chr(9)) + 1)
modified = Mid(modified, 1, InStr(modified, Chr(9)) - 1)
version = Mid(version, 1, InStr(version, Chr(9)) - 1)
Else
revision = 0
@@ -260,19 +261,27 @@ Function DetermineSVNVersion()
End If ' version = "norev000"
End If ' version <> "norev000"
If modified = 2 Then
version = version & "M"
End If
If branch <> "" Then
version = version & "-" & branch
End If
If version <> "norev000" Then
DetermineSVNVersion = version & Chr(9) & revision & Chr(9) & modified
Dim rev_file
Set rev_file = FSO.OpenTextFile("../.ottdrev", 1, True, 0)
If Not rev_file.atEndOfStream Then
DetermineSVNVersion = rev_file.ReadLine()
Else
DetermineSVNVersion = version
If modified = 2 Then
version = version & "M"
End If
clean_rev = version
If branch <> "" Then
version = version & "-" & branch
End If
If version <> "norev000" Then
DetermineSVNVersion = version & Chr(9) & revision & Chr(9) & modified & Chr(9) & clean_rev
Else
DetermineSVNVersion = version
End If
End If
rev_file.close
End Function
Function IsCachedVersion(ByVal version)