diff options
author | michi_cc <michi_cc@openttd.org> | 2011-01-18 21:27:35 +0000 |
---|---|---|
committer | michi_cc <michi_cc@openttd.org> | 2011-01-18 21:27:35 +0000 |
commit | 5f285916100bea2ee28ca3d8680f5bc2c99fa942 (patch) | |
tree | a4161965eec4a4227d057ea45b34a09c509e3ad7 /projects/determineversion.vbs | |
parent | 73da045f50ac7aa67ad9330e4671f1d49c6c340c (diff) | |
download | openttd-5f285916100bea2ee28ca3d8680f5bc2c99fa942.tar.xz |
(svn r21840) -Change: Support tags created by hgsubversion for the revision detection.
Diffstat (limited to 'projects/determineversion.vbs')
-rwxr-xr-x | projects/determineversion.vbs | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index 872ff7b0a..9b159785c 100755 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -237,7 +237,7 @@ Function DetermineSVNVersion() If version = "norev000" Then ' git detection failed, reset error and try mercurial (hg) Err.Clear - Set oExec = WshShell.Exec("hg parents") + Set oExec = WshShell.Exec("hg id -i") If Err.Number = 0 Then ' Wait till the application is finished ... Do While oExec.Status = 0 @@ -245,8 +245,21 @@ Function DetermineSVNVersion() If oExec.ExitCode = 0 Then line = OExec.StdOut.ReadLine() - hash = Mid(line, InStrRev(line, ":") + 1) + hash = Left(line, 12) version = "h" & Mid(hash, 1, 8) + + ' Check if a tag is currently checked out + Err.Clear + Set oExec = WshShell.Exec("hg id -t") + If Err.Number = 0 Then + line = oExec.StdOut.ReadLine() + If Len(line) > 0 And line <> "tip" Then + version = line + branch = "" + End If ' Len(line) > 0 And line <> "tip" + End If ' Err.Number = 0 + + Err.Clear Set oExec = WshShell.Exec("hg status ../") If Err.Number = 0 Then Do |