1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 04:50:22 +00:00

Rename internal meta flags

- mainly done to avoid faulty highlighting, but also makes more sense IMO
This commit is contained in:
Roland Heyder 2024-01-26 00:43:38 +01:00
parent b8424f1336
commit f24cabd9ad

View file

@ -154,10 +154,11 @@ DIM SHARED viLegalCopyright$, viLegalTrademarks$, viOriginalFilename$
DIM SHARED viProductName$, viProductVersion$, viComments$, viWeb$ DIM SHARED viProductName$, viProductVersion$, viComments$, viWeb$
DIM SHARED NoChecks DIM SHARED NoChecks
DIM SHARED ConsoleOn
DIM SHARED ScreenHideOn
DIM SHARED AssertsOn
DIM SHARED ResizeOn, ResizeScale
DIM SHARED Console
DIM SHARED ScreenHide
DIM SHARED Asserts
DIM SHARED OptMax AS LONG DIM SHARED OptMax AS LONG
OptMax = 256 OptMax = 256
REDIM SHARED Opt(1 TO OptMax, 1 TO 10) AS STRING * 256 REDIM SHARED Opt(1 TO OptMax, 1 TO 10) AS STRING * 256
@ -1142,9 +1143,6 @@ lastLineReturn = 0
lastLine = 0 lastLine = 0
firstLine = 1 firstLine = 1
Resize = 0
Resize_Scale = 0
UseGL = 0 UseGL = 0
Error_Happened = 0 Error_Happened = 0
@ -1294,9 +1292,10 @@ HashAdd "WHILE", f, 0
'clear/init variables 'clear/init variables
Console = 0 ConsoleOn = 0
ScreenHide = 0 ScreenHideOn = 0
Asserts = 0 AssertsOn = 0
ResizeOn = 0: ResizeScale = 0
ResolveStaticFunctions = 0 ResolveStaticFunctions = 0
dynamiclibrary = 0 dynamiclibrary = 0
dimsfarray = 0 dimsfarray = 0
@ -3079,13 +3078,13 @@ DO
IF a3u$ = "$CONSOLE" THEN IF a3u$ = "$CONSOLE" THEN
layout$ = SCase$("$Console") layout$ = SCase$("$Console")
Console = 1 ConsoleOn = 1
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$CONSOLE:ONLY" THEN IF a3u$ = "$CONSOLE:ONLY" THEN
layout$ = SCase$("$Console:Only") layout$ = SCase$("$Console:Only")
DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) OR 1 DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) OR 1
Console = 1 ConsoleOn = 1
IF prepass = 0 THEN IF prepass = 0 THEN
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "do{" IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "do{"
WriteBufLine MainTxtBuf, "sub__dest(func__console());" WriteBufLine MainTxtBuf, "sub__dest(func__console());"
@ -3098,45 +3097,45 @@ DO
IF a3u$ = "$ASSERTS" THEN IF a3u$ = "$ASSERTS" THEN
layout$ = SCase$("$Asserts") layout$ = SCase$("$Asserts")
Asserts = 1 AssertsOn = 1
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$ASSERTS:CONSOLE" THEN IF a3u$ = "$ASSERTS:CONSOLE" THEN
layout$ = SCase$("$Asserts:Console") layout$ = SCase$("$Asserts:Console")
Asserts = 1 AssertsOn = 1
Console = 1 ConsoleOn = 1
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$SCREENHIDE" THEN IF a3u$ = "$SCREENHIDE" THEN
layout$ = SCase$("$ScreenHide") layout$ = SCase$("$ScreenHide")
ScreenHide = 1 ScreenHideOn = 1
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$SCREENSHOW" THEN IF a3u$ = "$SCREENSHOW" THEN
layout$ = SCase$("$ScreenShow") layout$ = SCase$("$ScreenShow")
ScreenHide = 0 ScreenHideOn = 0
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$RESIZE:OFF" THEN IF a3u$ = "$RESIZE:OFF" THEN
layout$ = SCase$("$Resize:Off") layout$ = SCase$("$Resize:Off")
Resize = 0: Resize_Scale = 0 ResizeOn = 0: ResizeScale = 0
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$RESIZE:ON" THEN IF a3u$ = "$RESIZE:ON" THEN
layout$ = SCase$("$Resize:On") layout$ = SCase$("$Resize:On")
Resize = 1: Resize_Scale = 0 ResizeOn = 1: ResizeScale = 0
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$RESIZE:STRETCH" THEN IF a3u$ = "$RESIZE:STRETCH" THEN
layout$ = SCase$("$Resize:Stretch") layout$ = SCase$("$Resize:Stretch")
Resize = 1: Resize_Scale = 1 ResizeOn = 1: ResizeScale = 1
GOTO finishednonexec GOTO finishednonexec
END IF END IF
IF a3u$ = "$RESIZE:SMOOTH" THEN IF a3u$ = "$RESIZE:SMOOTH" THEN
layout$ = SCase$("$Resize:Smooth") layout$ = SCase$("$Resize:Smooth")
Resize = 1: Resize_Scale = 2 ResizeOn = 1: ResizeScale = 2
GOTO finishednonexec GOTO finishednonexec
END IF END IF
@ -7796,7 +7795,7 @@ DO
'_ECHO checking '_ECHO checking
IF firstelement$ = "_ECHO" OR (firstelement$ = "ECHO" AND qb64prefix_set = 1) THEN IF firstelement$ = "_ECHO" OR (firstelement$ = "ECHO" AND qb64prefix_set = 1) THEN
IF Console = 0 THEN IF ConsoleOn = 0 THEN
a$ = qb64prefix$ + "ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first": GOTO errmes a$ = qb64prefix$ + "ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first": GOTO errmes
END IF END IF
END IF END IF
@ -11851,19 +11850,19 @@ defdatahandle = GlobTxtBuf
DataTxtBuf = OpenBuffer%("A", tmpdir$ + "maindata.txt") DataTxtBuf = OpenBuffer%("A", tmpdir$ + "maindata.txt")
FreeTxtBuf = OpenBuffer%("A", tmpdir$ + "mainfree.txt") FreeTxtBuf = OpenBuffer%("A", tmpdir$ + "mainfree.txt")
IF Console THEN IF ConsoleOn THEN
WriteBufLine GlobTxtBuf, "int32 console=1;" WriteBufLine GlobTxtBuf, "int32 console=1;"
ELSE ELSE
WriteBufLine GlobTxtBuf, "int32 console=0;" WriteBufLine GlobTxtBuf, "int32 console=0;"
END IF END IF
IF ScreenHide THEN IF ScreenHideOn THEN
WriteBufLine GlobTxtBuf, "int32 screen_hide_startup=1;" WriteBufLine GlobTxtBuf, "int32 screen_hide_startup=1;"
ELSE ELSE
WriteBufLine GlobTxtBuf, "int32 screen_hide_startup=0;" WriteBufLine GlobTxtBuf, "int32 screen_hide_startup=0;"
END IF END IF
IF Asserts THEN IF AssertsOn THEN
WriteBufLine GlobTxtBuf, "int32 asserts=1;" WriteBufLine GlobTxtBuf, "int32 asserts=1;"
ELSE ELSE
WriteBufLine GlobTxtBuf, "int32 asserts=0;" WriteBufLine GlobTxtBuf, "int32 asserts=0;"
@ -11876,11 +11875,11 @@ ELSE
END IF END IF
bh = OpenBuffer%("A", tmpdir$ + "dyninfo.txt") bh = OpenBuffer%("A", tmpdir$ + "dyninfo.txt")
IF Resize THEN IF ResizeOn THEN
WriteBufLine bh, "ScreenResize=1;" WriteBufLine bh, "ScreenResize=1;"
END IF END IF
IF Resize_Scale THEN IF ResizeScale THEN
WriteBufLine bh, "ScreenResizeScale=" + str2(Resize_Scale) + ";" WriteBufLine bh, "ScreenResizeScale=" + str2(ResizeScale) + ";"
END IF END IF
IF vWatchOn = 1 THEN IF vWatchOn = 1 THEN
@ -12537,7 +12536,7 @@ IF DEPENDENCY(DEPENDENCY_DEVICEINPUT) THEN makedeps$ = makedeps$ + " DEP_DEVICEI
IF DEPENDENCY(DEPENDENCY_ZLIB) THEN makedeps$ = makedeps$ + " DEP_ZLIB=y" IF DEPENDENCY(DEPENDENCY_ZLIB) THEN makedeps$ = makedeps$ + " DEP_ZLIB=y"
IF inline_DATA = 0 AND DataOffset THEN makedeps$ = makedeps$ + " DEP_DATA=y" IF inline_DATA = 0 AND DataOffset THEN makedeps$ = makedeps$ + " DEP_DATA=y"
IF DEPENDENCY(DEPENDENCY_EMBED) THEN makedeps$ = makedeps$ + " DEP_EMBED=y" IF DEPENDENCY(DEPENDENCY_EMBED) THEN makedeps$ = makedeps$ + " DEP_EMBED=y"
IF Console THEN makedeps$ = makedeps$ + " DEP_CONSOLE=y" IF ConsoleOn THEN makedeps$ = makedeps$ + " DEP_CONSOLE=y"
IF ExeIconSet OR VersionInfoSet THEN makedeps$ = makedeps$ + " DEP_ICON_RC=y" IF ExeIconSet OR VersionInfoSet THEN makedeps$ = makedeps$ + " DEP_ICON_RC=y"
IF DEPENDENCY(DEPENDENCY_MINIAUDIO) THEN makedeps$ = makedeps$ + " DEP_AUDIO_MINIAUDIO=y" IF DEPENDENCY(DEPENDENCY_MINIAUDIO) THEN makedeps$ = makedeps$ + " DEP_AUDIO_MINIAUDIO=y"