cpp/openttd-patchpack/source Changeset - r10283:9e25a570261c

Changeset - r10283:9e25a570261c

Parent rev.

Child rev.

[Not reviewed]

master

0 1 0

glx - 16 years ago 2008-10-23 02:52:11
glx@openttd.org

(svn r14522) -Fix: apply r14519 to determineversion.vbs. Also properly set 'modified' for hg and git (was always 1).

1 file changed with 61 insertions and 47 deletions:

projects/determineversion.vbs

0 comments (0 inline, 0 general)

projects/determineversion.vbs

➞

Show inline comments

@@ @@ -20,42 +20,24 @@ Sub UpdateFile(modified, revision, versi @@
 	FindReplaceInFile filename, "@@REVISION@@", revision
 	FindReplaceInFile filename, "@@VERSION@@", version
 	FindReplaceInFile filename, "@@DATE@@", cur_date
 End Sub
 Sub UpdateFiles(version)
 	Dim WshShell, cur_date, modified, revision, oExec
 	Set WshShell = CreateObject("WScript.Shell")
 	Dim modified, revision, cur_date
 	cur_date = DatePart("D", Date) & "." & DatePart("M", Date) & "." & DatePart("YYYY", Date)
 	revision = 0
 	modified = 1
 	Select Case Mid(version, 1, 1)
 		Case "r" ' svn
 			revision = Mid(version, 2)
 			If InStr(revision, "M") Then
 				revision = Mid(revision, 1, InStr(revision, "M") - 1)
 				modified = 2
 			Else
 				modified = 0
 			End If
 			If InStr(revision, "-") Then
 				revision = Mid(revision, 1, InStr(revision, "-") - 1)
 			End If
 		Case "h" ' mercurial (hg)
 			Set oExec = WshShell.Exec("hg log -r " & Mid(version, 2, 8) & ":0 -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src")
 			If Err.Number = 0 Then
 				revision = Mid(OExec.StdOut.ReadLine(), 7)
 				revision = Mid(revision, 1, InStr(revision, ")") - 1)
 			End If
 		Case "g" ' git
 			Set oExec = WshShell.Exec("git log --pretty=format:%s --grep=" & Chr(34) & "^(svn r[0-9]*)" & Chr(34) & " -1 ../src")
 			if Err.Number = 0 Then
 				revision = Mid(oExec.StdOut.ReadLine(), 7)
 				revision = Mid(revision, 1, InStr(revision, ")") - 1)
 			End If
 	End Select
 	If InStr(version, Chr(9)) Then
 		revision = Mid(version, InStr(version, Chr(9)) + 1)
 		revision = Mid(revision, 1, InStr(revision, Chr(9)) - 1)
 		modified = Mid(version, InStrRev(version, Chr(9)) + 1)
 		version  = Mid(version, 1, InStr(version, Chr(9)) - 1)
 	Else
 		revision = 0
 		modified = 1
 	End If
 	UpdateFile modified, revision, version, cur_date, "../src/rev.cpp"
 	UpdateFile modified, revision, version, cur_date, "../src/ottdres.rc"
 End Sub
 Function ReadRegistryKey(shive, subkey, valuename, architecture)
@@ @@ -93,13 +75,13 @@ Function ReadRegistryKey(shive, subkey, @@
 	Set Outparams = objReg.ExecMethod_("GetStringValue", Inparams,,objCtx)
 	ReadRegistryKey = Outparams.SValue
 End Function
 Function DetermineSVNVersion()
 	Dim WshShell, version, url, oExec, line
+	Dim WshShell, version, branch, modified, revision, url, oExec, line, hash
 	Set WshShell = CreateObject("WScript.Shell")
 	On Error Resume Next
 	' Try TortoiseSVN
 	' Get the directory where TortoiseSVN (should) reside(s)
 	Dim sTortoise
@@ @@ -114,33 +96,38 @@ Function DetermineSVNVersion() @@
 	If sTortoise <> Nothing Then
 		Dim file
 		' Write some "magic" to a temporary file so we can acquire the svn revision/state
 		Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0)
 		file.WriteLine "r$WCREV$$WCMODS?M:$"
 		file.WriteLine "$WCURL$"
 		file.WriteLine "$WCMODS?2:0$"
 		file.WriteLine "$WCREV$"
 		file.Close
 		Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp")
 		' Wait till the application is finished ...
 		Do
 			OExec.StdOut.ReadLine()
 		Loop While Not OExec.StdOut.atEndOfStream
 		Set file = FSO.OpenTextFile("tsvn_tmp", 1, 0, 0)
 		version = file.ReadLine
 		url = file.ReadLine
 		modified = file.ReadLine
 		revision = file.ReadLine
 		file.Close
 		Set file = FSO.GetFile("tsvn_tmp")
 		file.Delete
 	End If
 	' Looks like there is no TortoiseSVN installed either. Then we don't know it.
 	If InStr(version, "$") Then
 		' Reset error and version
 		Err.Clear
 		version = "norev000"
 		modified = 0
 		' Set the environment to english
 		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")
@@ @@ -148,71 +135,75 @@ Function DetermineSVNVersion() @@
 			' Wait till the application is finished ...
 			Do While oExec.Status = 0
 			Loop
 			line = OExec.StdOut.ReadLine()
 			If line <> "exported" Then
 				Dim modified
 				If InStr(line, "M") Then
 					modified = "M"
 				Else
 					modified = ""
 					modified = 2
 				End If
 				' And use svn info to get the correct revision and branch information.
 				Set oExec = WshShell.Exec("svn info ../src")
 				If Err.Number = 0 Then
 					Do
 						line = OExec.StdOut.ReadLine()
 						If InStr(line, "URL") Then
 							url = line
 						End If
 						If InStr(line, "Last Changed Rev") Then
 							version = "r" & Mid(line, 19) & modified
 							revision = Mid(line, 19)
 							version = "r" & revision
 						End If
 					Loop While Not OExec.StdOut.atEndOfStream
 				End If ' Err.Number = 0
 			End If ' line <> "exported"
 		End If ' Err.Number = 0
 	End If ' InStr(version, "$")
 	If version <> "norev000" Then
 		If InStr(url, "branches") Then
 			url = Mid(url, InStr(url, "branches") + 8)
 			url = Mid(url, 1, InStr(2, url, "/") - 1)
 			version = version & Replace(url, "/", "-")
 			url = Mid(url, InStr(url, "branches/") + 9)
 			branch = Mid(url, 1, InStr(2, url, "/") - 1)
 		End If
 	Else ' version <> "norev000"
 		' svn detection failed, reset error and try git
 		Err.Clear
-		Set oExec = WshShell.Exec("git rev-parse --verify --short=8 HEAD")
 		Set oExec = WshShell.Exec("git rev-parse --verify HEAD")
 		If Err.Number = 0 Then
 			' Wait till the application is finished ...
 			Do While oExec.Status = 0
 			Loop
 			If oExec.ExitCode = 0 Then
 				version = "g" & oExec.StdOut.ReadLine()
 				hash = oExec.StdOut.ReadLine()
 				version = "g" & Mid(hash, 1, 8)
 				Set oExec = WshShell.Exec("git diff-index --exit-code --quiet HEAD ../src")
 				If Err.Number = 0 Then
 					' Wait till the application is finished ...
 					Do While oExec.Status = 0
 					Loop
 					If oExec.ExitCode = 1 Then
-						version = version & "M"
+						modified = 2
 					End If ' oExec.ExitCode = 1
 					Set oExec = WshShell.Exec("git symbolic-ref HEAD")
 					If Err.Number = 0 Then
 						line = oExec.StdOut.ReadLine()
 						line = Mid(line, InStrRev(line, "/") + 1)
 						If line <> "master" Then
-							version = version & "-" & line
+							branch = line
 						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")
 					if Err.Number = 0 Then
 						revision = Mid(oExec.StdOut.ReadLine(), 7)
 						revision = Mid(revision, 1, InStr(revision, ")") - 1)
 					End If ' Err.Number = 0
 				End If ' Err.Number = 0
 			End If ' oExec.ExitCode = 0
 		End If ' Err.Number = 0
 		If version = "norev000" Then
 			' git detection failed, reset error and try mercurial (hg)
@@ @@ -222,48 +213,71 @@ Function DetermineSVNVersion() @@
 				' Wait till the application is finished ...
 				Do While oExec.Status = 0
 				Loop
 				If oExec.ExitCode = 0 Then
 					line = OExec.StdOut.ReadLine()
 					version = "h" & Mid(line, InStrRev(line, ":") + 1, 8)
 					hash = Mid(line, InStrRev(line, ":") + 1)
 					version = "h" & Mid(hash, 1, 8)
 					Set oExec = WshShell.Exec("hg status ../src")
 					If Err.Number = 0 Then
 						Do
 							line = OExec.StdOut.ReadLine()
 							If Len(line) > 0 And Mid(line, 1, 1) <> "?" Then
-								version = version & "M"
+								modified = 2
 								Exit Do
 							End If ' Len(line) > 0 And Mid(line, 1, 1) <> "?"
 						Loop While Not OExec.StdOut.atEndOfStream
 						Set oExec = WshShell.Exec("hg branch")
 						If Err.Number = 0 Then
 							line = OExec.StdOut.ReadLine()
 							If line <> "default" Then
-								version = version & "-" & line
+								branch = line
 							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")
 						If Err.Number = 0 Then
 							revision = Mid(OExec.StdOut.ReadLine(), 7)
 							revision = Mid(revision, 1, InStr(revision, ")") - 1)
 						End If ' Err.Number = 0
 					End If ' Err.Number = 0
 				End If ' oExec.ExitCode = 0
 			End If ' Err.Number = 0
 		End If ' version = "norev000"
 	End If ' version <> "norev000"
 	DetermineSVNVersion = version
 	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
 	Else
 		DetermineSVNVersion = version
 	End If
 End Function
 Function IsCachedVersion(version)
+Function IsCachedVersion(ByVal version)
 	Dim cache_file, cached_version
 	cached_version = ""
 	Set cache_file = FSO.OpenTextFile("../config.cache.version", 1, True, 0)
 	If Not cache_file.atEndOfStream Then
 		cached_version = cache_file.ReadLine()
 	End If
 	cache_file.Close
 	If InStr(version, Chr(9)) Then
 		version = Mid(version, 1, Instr(version, Chr(9)) - 1)
 	End If
 	If version <> cached_version Then
 		Set cache_file = fso.CreateTextFile("../config.cache.version", True)
 		cache_file.WriteLine(version)
 		cache_file.Close
 		IsCachedVersion = False
 	Else

0 comments (0 inline, 0 general)