arch-msx/msxbuild
2
0
Fork 0
Code Issues Pull requests 3 Activity Actions

Split headless and renderer vars.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -7s
Details

Browse source
This commit is contained in:
Willem Cazander 2024-06-29 05:07:15 +02:00
parent 807b32f92c
commit 97088650d4
3 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/openmsx/share/scripts/boot_env.tcl
View file

@ -9,11 +9,11 @@
#
# Supported environment variables by this script;
#
# RENDERER=on|off
# HEADLESS=on|off
# Override video output from command line.
#
# RENDERER_TYPE=SDL
# Select video renderer type.
# RENDERER=SDL
# Select video renderer type for gui mode or in none headless mode.
#
# SCALE_FACTOR=3
# Override video scale factor for SDL renderer.
@ -37,7 +37,7 @@ proc boot_gui_mode {} {
set renderer $boot_env_renderer_type
set throttle on
} else {
puts stderr "error: Requested boot_gui_mode but env.RENDERER_TYPE is missing."
puts stderr "error: Requested boot_gui_mode but env.RENDERER is missing."
exit 1
}
}
@ -45,13 +45,13 @@ proc boot_gui_mode {} {
# Globals
set boot_env_renderer_type 0
if {[info exists ::env(RENDERER_TYPE)] && ([string trim $::env(RENDERER_TYPE)] != "")} {
set boot_env_renderer_type [string trim $::env(RENDERER_TYPE)]
if {[info exists ::env(RENDERER)] && ([string trim $::env(RENDERER)] != "")} {
set boot_env_renderer_type [string trim $::env(RENDERER)]
}
if {[info exists ::env(RENDERER)] && ([string trim $::env(RENDERER)] == "on")} {
if {[info exists ::env(HEADLESS)] && ([string trim $::env(HEADLESS)] != "on")} {
if {[catch {set renderer $boot_env_renderer_type} err_msg]} {
puts stderr "error: env.RENDERER value $err_msg"
puts stderr "error: env.HEADLESS value $err_msg"
exit 1
}
}