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

Improved plug support and added plug result messages.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in 2s
Details

Browse source
This commit is contained in:
Willem Cazander 2024-07-03 00:38:25 +02:00
parent ae4b97dbeb
commit f4197c1a14
3 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/make/mb_autoexec.mk
View file

@ -85,10 +85,16 @@ endef
MB_DOC_HELP_FUNCTION += $(call mb_doc_function,mb_autoexec_append_exit,"Appends exit emulation command.","<dir>")
define mb_autoexec_append_joyporta_mouse
$(call mb_autoexec_append_cmd,$(1),omsxctl plug joyporta mouse)
define mb_autoexec_append_plug_porta
$(call mb_autoexec_append_cmd,$(1),omsxctl boot_exec_plug_porta $(2))
endef
MB_DOC_HELP_FUNCTION += $(call mb_doc_function,mb_autoexec_append_joyporta_mouse,"Appends plug mouse in joyporta command.","<dir>")
MB_DOC_HELP_FUNCTION += $(call mb_doc_function,mb_autoexec_append_plug_porta,"Appends an plug device into joyporta action.","<dir> <plug-dev>")
define mb_autoexec_append_plug_portb
$(call mb_autoexec_append_cmd,$(1),omsxctl boot_exec_plug_portb $(2))
endef
MB_DOC_HELP_FUNCTION += $(call mb_doc_function,mb_autoexec_append_plug_portb,"Appends an plug device into joyportb action.","<dir> <plug-dev>")
define mb_autoexec_append_save_screenshot

2
lib/make/mb_msxpipe.mk
View file

@ -38,7 +38,7 @@ MB_DOC_HELP_FUNCTION += $(call mb_doc_function,mb_msxpipe_safe_test,"Runs openMS
define _mb_msxpipe_run_gui
$(call mb_autoexec_write_default,$(1),$(MB_MSXPIPE_COLOR_FG_RUN_GUI),$(MB_MSXPIPE_COLOR_BG_RUN_GUI))
$(if $(filter mouse,$(4)),$(call mb_autoexec_append_joyporta_mouse,$(1)))
$(if $(filter mouse,$(4)),$(call mb_autoexec_append_plug_porta,$(1),$(4)))
$(call mb_autoexec_append_stop_fail,$(1))
$(call mb_autoexec_append_show_gui,$(1))
$(call mb_autoexec_append_echo,$(1),mb::help Run shutdown to exit)

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

@ -43,3 +43,13 @@ proc boot_exec_show_init {} {
append result [openmsx_info version]
return $result
}
proc boot_exec_plug_porta {{plug_dev}} {
plug joyporta $plug_dev
return "mb::plug porta $plug_dev"
}
proc boot_exec_plug_portb {{plug_dev}} {
plug joyportb $plug_dev
return "mb::plug portb $plug_dev"
}