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

Added vdp color optional arguments and small doc chars.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -11s
Details

Browse source
This commit is contained in:
Willem Cazander 2024-07-01 11:57:30 +02:00
parent 59ddde5bec
commit 4fc2cae2ea
4 changed files with 22 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lib/openmsx/share/scripts/boot_exec.tcl
View file

@ -2,8 +2,8 @@
# #
# Adds the following commands to openMSX; # Adds the following commands to openMSX;
# #
# 'boot_exec_color_dark' # 'boot_exec_color_dark <vdp_fg> <vdp_bg>'
# Sets the VDP colors to dark color tones. # Sets the VDP colors to defaults or supplied colors.
# #
# 'boot_exec_config_info' # 'boot_exec_config_info'
# Displays machine and openMSX version on one line. # Displays machine and openMSX version on one line.
@ -20,12 +20,22 @@
set boot_exec_color_vdp_fg "777" set boot_exec_color_vdp_fg "777"
set boot_exec_color_vdp_bg "000" set boot_exec_color_vdp_bg "000"
proc boot_exec_color_vdp {} { proc boot_exec_color_vdp {{vdp_fg 0} {vdp_bg 0}} {
global boot_exec_color_vdp_fg global boot_exec_color_vdp_fg
global boot_exec_color_vdp_bg global boot_exec_color_vdp_bg
setcolor 15 $boot_exec_color_vdp_fg if {$vdp_fg != 0} {
setcolor 4 $boot_exec_color_vdp_bg set color_vdp_fg $vdp_fg
return "Boot color vdp fg $boot_exec_color_vdp_fg bg $boot_exec_color_vdp_bg" } else {
set color_vdp_fg $boot_exec_color_vdp_fg
}
if {$vdp_bg != 0} {
set color_vdp_bg $vdp_bg
} else {
set color_vdp_bg $boot_exec_color_vdp_bg
}
setcolor 15 $color_vdp_fg
setcolor 4 $color_vdp_bg
return "Boot color vdp fg $color_vdp_fg bg $color_vdp_bg"
} }
proc boot_exec_config_info {} { proc boot_exec_config_info {} {

2
lib/openmsx/share/scripts/fail_after.tcl
View file

@ -4,7 +4,7 @@
# #
# Adds two commands to openMSX; # Adds two commands to openMSX;
# #
# 'fail_after timeout [timeunit] [fail_id] [fail_code]' # 'fail_after <timeout> [timeunit] [fail_id] [fail_code]'
# Schedules an openMSX exit after the timeout. # Schedules an openMSX exit after the timeout.
# This can be canceled by requesting a timeout of 0 or new timeout. # This can be canceled by requesting a timeout of 0 or new timeout.
# The timeunit can be selected between (msx)'time' and (host)'realtime'. # The timeunit can be selected between (msx)'time' and (host)'realtime'.

6
lib/openmsx/share/scripts/headless.tcl
View file

@ -1,8 +1,6 @@
# headless -- Controls the boot mode config of openMSX from environment variables. # headless -- Control openMSX in headless mode.
# #
# Typically used in automation tools which run openMSX without human interaction. # Adds the following commands to openMSX;
#
# Adds the following command to openMSX;
# #
# 'headless_exit' # 'headless_exit'
# A normal exit of the openMSX emulator. # A normal exit of the openMSX emulator.

6
lib/openmsx/share/scripts/night_flight.tcl
View file

@ -1,11 +1,11 @@
# night_flight -- Setup the travel for night flight black box recorder for build pipelines. # night_flight -- Setup the night flight black box recorder for build pipelines.
# #
# Adds the following commands to openMSX; # Adds the following commands to openMSX;
# #
# 'night_flight_save_screenshot' # 'night_flight_save_screenshot [prefix-id]'
# Takes an screenshot with optional prefix parameter. # Takes an screenshot with optional prefix parameter.
# #
# 'night_flight_save_video' # 'night_flight_save_video [prefix-id]'
# Starts video recording with optional prefix parameter. # Starts video recording with optional prefix parameter.
# #
# Supported environment variables by this script; # Supported environment variables by this script;