diff options
| author | michi_cc <michi_cc@openttd.org> | 2011-01-19 17:10:57 +0000 |
|---|---|---|
| committer | michi_cc <michi_cc@openttd.org> | 2011-01-19 17:10:57 +0000 |
| commit | 10a7678beb83801daed3aaf5b14b715afc4d52e3 (patch) | |
| tree | b3c8ed231239831266b70a26063adc5b36db5ad9 /projects | |
| parent | 22922414eb3d37a35c4446de39db52420ab2f05d (diff) | |
| download | openttd-10a7678beb83801daed3aaf5b14b715afc4d52e3.tar.xz | |
(svn r21857) -Add: Revision detection for hgsubversion repositories.
Diffstat (limited to 'projects')
| -rwxr-xr-x | projects/determineversion.vbs | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index 097282bfd..8a991b40e 100755 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -278,11 +278,23 @@ Function DetermineSVNVersion() End If ' line <> "default" End If ' Err.Number = 0 - Set oExec = WshShell.Exec("hg log -f -k " & Chr(34) & "(svn r" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " --cwd ../") + Set oExec = WshShell.Exec("hg log -f -k " & Chr(34) & "(svn r" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc|firstline}\n" & Chr(34) & " --cwd ../") If Err.Number = 0 Then - revision = Mid(OExec.StdOut.ReadLine(), 7) - revision = Mid(revision, 1, InStr(revision, ")") - 1) + line = oExec.StdOut.ReadLine() + If Left(line, 6) = "(svn r" Then + revision = Mid(line, 7) + revision = Mid(revision, 1, InStr(revision, ")") - 1) + End If 'Left(line, 6) = "(svn r" End If ' Err.Number = 0 + + If revision = "" Then + ' No rev? Maybe it is a custom hgsubversion clone + Err.Clear + Set oExec = WshShell.Exec("hg parent --template=" & Chr(34) & "{svnrev}" & Chr(34)) + If Err.Number = 0 Then + revision = oExec.StdOut.ReadLine() + End If ' Err.Number = 0 + End If ' revision = "" End If ' Err.Number = 0 End If ' oExec.ExitCode = 0 End If ' Err.Number = 0 |