make generation of svnrev.h slightly more sane, by using vbscript instead of just batch script.

git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@5932 8ced0084-cf51-0410-be5f-012b33b47a6e
This commit is contained in:
Shawn Hoffman
2010-07-22 02:46:11 +00:00
parent 3859a7dce2
commit b4ce9c90b6
3 changed files with 38 additions and 12 deletions

View File

@ -0,0 +1,26 @@
set wshShell = CreateObject("WScript.Shell")
outfile = "Src/svnrev.h"
svncmd = "SubWCRev ../../.. Src/svnrev_template.h " & outfile
hgcmd = "hg svn info"
ret = wshShell.run(svncmd, 0, true)
if ret <> 0 then ' Perhaps we should just check for 6? dunno/care...
set hgexec = wshShell.exec(hgcmd)
do while hgexec.status = 0 : wscript.sleep 100 : loop
do while true
line = hgexec.stdout.readline
if instr(line, "Revision") then
sline = split(line)
wscript.echo "Hg: Working copy at SVN revision " & sline(1)
set oFS = CreateObject("Scripting.fileSystemObject")
set oFile = oFS.CreateTextFile(outfile, true)
oFile.writeline("#define SVN_REV_STR """ & sline(1) & """")
set oFS = nothing
exit do
end if
if hgexec.stdout.atEndofStream then
wscript.echo "Neither SVN or Hg revision info found!"
wscript.quit 1
end if
loop
end if