28 lines
929 B
Plaintext
28 lines
929 B
Plaintext
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
|