dolphin/Source/Core/Common/make_svnrev.h.vbs

27 lines
929 B
Text

set wshShell = CreateObject("WScript.Shell")
basedir = wscript.arguments(0)
outfile = basedir & "/Src/svnrev.h"
svncmd = "SubWCRev ../../.. " & basedir & "/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