QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 12:21:20 +00:00
Code Issues Releases Wiki Activity

Merge pull request #38 from mkilgore/versioninfo-num-string

Browse source 
Allow numerical $VERSIONINFO values to set corresponding string values
This commit is contained in:
Matt Kilgore 2022-05-06 16:44:55 -04:00 committed by GitHub
parent 25ab5b92f7 2d1e4ec761
commit 8c42b16d29
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/qb64.bas
View file

@ -3286,10 +3286,12 @@ DO
CASE "FILEVERSION#"
GOSUB ValidateVersion
viFileVersionNum$ = VersionInfoValue$
if viFileVersion$ = "" THEN viFileVersion$ = viFileVersionNum$
layout$ = SCase$("$VersionInfo:FILEVERSION#=") + VersionInfoValue$
CASE "PRODUCTVERSION#"
GOSUB ValidateVersion
viProductVersionNum$ = VersionInfoValue$
if viProductVersion$ = "" THEN viProductVersion$ = viProductVersionNum$
layout$ = SCase$("$VersionInfo:PRODUCTVERSION#=") + VersionInfoValue$
CASE "COMPANYNAME"
viCompanyName$ = VersionInfoValue$

2
tests/compile_tests/versioninfo2/test.bas Normal file
View file

@ -0,0 +1,2 @@
$VERSIONINFO:ProductVersion#=1,2,3,4

3
tests/compile_tests/versioninfo3/test.bas Normal file
View file

@ -0,0 +1,3 @@
$VERSIONINFO:ProductVersion#=1,2,3,4
$VERSIONINFO:ProductVersion=1,2,3,4