m/grafX2
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update version in gfx2.rc when building with MSVC

Browse Source
This commit is contained in:
Thomas Bernard 2018-07-04 19:07:15 +02:00
parent 5f5d7ba1b0
commit 0285f37fc2
2 changed files with 49 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
project/msvc/generateversion.vbs
View File

@ -3,6 +3,8 @@
Set WshShell = CreateObject("WScript.Shell") Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject") Set FSO = CreateObject("Scripting.FileSystemObject")
versionfile = "..\..\src\version.c" versionfile = "..\..\src\version.c"
pversionfile = "..\..\src\pversion.c"
ressourcefile = "..\..\src\gfx2.rc"
On Error Resume Next On Error Resume Next
@ -57,8 +59,51 @@ If Err.Number = 0 Then
f.Close f.Close
End If End If
Err.Clear
Set f = FSO.OpenTextFile(pversionfile, 1, False) ' 1 = Read
If Err.Number = 0 Then
line = f.ReadLine
i = InStr(line, Chr(34)) + 1
j = InStr(i, line, Chr(34))
label = Mid(line, i, j - i)
f.Close
End If
If NeedWrite Then If NeedWrite Then
Set f = FSO.OpenTextFile(versionfile, 2, True) ' 2 = Write Set f = FSO.OpenTextFile(versionfile, 2, True) ' 2 = Write
f.WriteLine "char SVN_revision[]=" & Chr(34) & revision & Chr(34) & ";" f.WriteLine "char SVN_revision[]=" & Chr(34) & revision & Chr(34) & ";"
f.Close f.Close
' rewrite ressourcefile
Dim lines()
i = 0
Err.Clear
Set f = FSO.OpenTextFile(ressourcefile, 1, False)
If Err.Number = 0 Then
While Not f.AtEndOfStream
line = f.ReadLine
k = InStr(line, "VERSION ")
l = InStr(line, "Version" & Chr(34))
If k <> 0 Then
'Wscript.Echo "* i=" & i & " k=" & k & " l=" & l & " : " & line
k = InStrRev(line, ",")
line = Mid(line, 1, k) & GIT_REVISION
End If
If l <> 0 Then
'Wscript.Echo "_ i=" & i & " k=" & k & " l=" & l & " : " & line
k = InStr(InStr(line, ","), line, Chr(34))
line = Mid(line, 1, k) & label & revision & Chr(34)
End If
Redim preserve lines(i)
lines(i) = line
i = i + 1
Wend
f.Close
' Write lines back to the file
Set f = FSO.OpenTextFile(ressourcefile, 2, True) ' 2 = Write
For i = 0 To UBound(lines)
'Wscript.Echo lines(i)
f.WriteLine lines(i)
Next
f.Close
End If
End If End If

8
src/gfx2.rc
View File

@ -5,8 +5,8 @@
#endif #endif
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,6,0,2058 FILEVERSION 2,6,0,2100
PRODUCTVERSION 2,6,0,2058 PRODUCTVERSION 2,6,0,2100
FILEFLAGSMASK VS_FF_DEBUG FILEFLAGSMASK VS_FF_DEBUG
#ifdef DEBUG #ifdef DEBUG
FILEFLAGS VS_FF_DEBUG FILEFLAGS VS_FF_DEBUG
@ -20,12 +20,12 @@ BEGIN
BEGIN BEGIN
VALUE "CompanyName", "The GrafX2 Team" VALUE "CompanyName", "The GrafX2 Team"
VALUE "FileDescription", "The ultimate 256-color painting programm" VALUE "FileDescription", "The ultimate 256-color painting programm"
VALUE "FileVersion", "2.6wip2058-rc" VALUE "FileVersion", "2.6wip2100"
VALUE "InternalName", "grafx2" VALUE "InternalName", "grafx2"
VALUE "LegalCopyright", "(c) 2007-2018 The GrafX2 Team, (c) 1996-2001 Sunset Design" VALUE "LegalCopyright", "(c) 2007-2018 The GrafX2 Team, (c) 1996-2001 Sunset Design"
VALUE "OriginalFilename", "grafx2.exe" VALUE "OriginalFilename", "grafx2.exe"
VALUE "ProductName", "GrafX2" VALUE "ProductName", "GrafX2"
VALUE "ProductVersion", "2.6wip2058-rc" VALUE "ProductVersion", "2.6wip2100"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"