Renamed tcl scritps.

lib/openmsx/share/scripts/headless.tcl

@@ -1,10 +1,10 @@
-# boot_mode -- Controls the boot mode config of openMSX from environment variables.
+# headless -- Controls the boot mode config of openMSX from environment variables.
 #
 # Typically used in automation tools which run openMSX without human interaction.
 #
 # Adds the following command to openMSX;
 #
-# 'boot_mode_show_gui'
+# 'headless_show_gui'
 # Enables the renderer and throttle from the inside.
 #
 # Supported environment variables by this script;
@@ -27,7 +27,7 @@
 
 set boot_env_renderer_type 0
 
-proc boot_mode_show_gui {} {
+proc headless_show_gui {} {
 	global renderer
 	global throttle
 	global boot_env_renderer_type

lib/openmsx/share/scripts/night_flight.tcl

@@ -0,0 +1,63 @@
+# night_flight -- Setup the travel for night flight black box recorder for build pipelines.
+#
+# Adds the following command to openMSX;
+#
+# 'night_flight_save_screenshot'
+# Takes an screenshot with optional prefix parameter.
+#
+# 'night_flight_save_video'
+# Starts video recording with optional prefix parameter.
+#
+# Supported environment variables by this script;
+#
+# NF_PREFIX=msxbuild
+# Gives screenshots and videos an prefix; msxbuild0001.avi
+#
+# NF_SEPERATOR=-
+# Gives screenshots and videos an seperator; openmsx-0001.png
+#
+# NF_RECORD_FLAG=-doublesize
+# Flag given to the video record command.
+#
+
+set night_flight_prefix flight
+set night_flight_seperator -
+set night_flight_record_flag ""
+
+proc night_flight_save_screenshot {{prefix_id 0}} {
+	global night_flight_prefix
+	global night_flight_seperator
+	if {$prefix_id != 0} {
+		set file_prefix "$prefix_id$night_flight_seperator"
+	} else {
+		set file_prefix "$night_flight_prefix$night_flight_seperator"
+	}
+	screenshot -prefix $file_prefix
+	return "Flight screenshot saved"
+}
+
+proc night_flight_save_video {{prefix_id 0}} {
+	global night_flight_prefix
+	global night_flight_seperator
+	global night_flight_record_flag
+	if {$prefix_id != 0} {
+		set file_prefix "$prefix_id$night_flight_seperator"
+	} else {
+		set file_prefix "$night_flight_prefix$night_flight_seperator"
+	}
+	after quit "record stop"
+	after time 1 "record start $night_flight_record_flag -prefix $file_prefix"
+	return "Flight video started"
+}
+
+if {[info exists ::env(NF_PREFIX)] && ([string trim $::env(NF_PREFIX)] != "")} {
+	set night_flight_prefix [string trim $::env(NF_PREFIX)]
+}
+
+if {[info exists ::env(NF_SEPERATOR)] && ([string trim $::env(NF_SEPERATOR)] != "")} {
+	set night_flight_seperator [string trim $::env(NF_SEPERATOR)]
+}
+
+if {[info exists ::env(NF_RECORD_FLAG)] && ([string trim $::env(NF_RECORD_FLAG)] != "")} {
+	set night_flight_record_flag [string trim $::env(NF_RECORD_FLAG)]
+}

lib/openmsx/share/scripts/save_flight.tcl

@@ -1,63 +0,0 @@
-# safe_flight -- Setup the black box flight recorder for build pipelines.
-#
-# Adds the following command to openMSX;
-#
-# 'save_flight_screenshot'
-# Takes an screenshot with optional prefix parameter.
-#
-# 'save_flight_video'
-# Starts video recording with optional prefix parameter.
-#
-# Supported environment variables by this script;
-#
-# SAVE_FLIGHT_PREFIX=msxbuild
-# Gives screenshots and videos an prefix; msxbuild0001.avi
-#
-# SAVE_FLIGHT_SEPERATOR=-
-# Gives screenshots and videos an seperator; openmsx-0001.png
-#
-# SAVE_FLIGHT_RECORD_FLAG=-doublesize
-# Flag given to the video record command.
-#
-
-set save_flight_prefix flight
-set save_flight_seperator -
-set save_flight_record_flag ""
-
-proc save_flight_screenshot {{prefix_id 0}} {
-	global save_flight_prefix
-	global save_flight_seperator
-	if {$prefix_id != 0} {
-		set file_prefix "$prefix_id$save_flight_seperator"
-	} else {
-		set file_prefix "$save_flight_prefix$save_flight_seperator"
-	}
-	screenshot -prefix $file_prefix
-	return "Flight screenshot saved"
-}
-
-proc save_flight_video {{prefix_id 0}} {
-	global save_flight_prefix
-	global save_flight_seperator
-	global save_flight_record_flag
-	if {$prefix_id != 0} {
-		set file_prefix "$prefix_id$save_flight_seperator"
-	} else {
-		set file_prefix "$save_flight_prefix$save_flight_seperator"
-	}
-	after quit "record stop"
-	after time 1 "record start $save_flight_record_flag -prefix $file_prefix"
-	return "Flight video started"
-}
-
-if {[info exists ::env(SAVE_FLIGHT_PREFIX)] && ([string trim $::env(SAVE_FLIGHT_PREFIX)] != "")} {
-	set save_flight_prefix [string trim $::env(SAVE_FLIGHT_PREFIX)]
-}
-
-if {[info exists ::env(SAVE_FLIGHT_SEPERATOR)] && ([string trim $::env(SAVE_FLIGHT_SEPERATOR)] != "")} {
-	set save_flight_seperator [string trim $::env(SAVE_FLIGHT_SEPERATOR)]
-}
-
-if {[info exists ::env(SAVE_FLIGHT_RECORD_FLAG)] && ([string trim $::env(SAVE_FLIGHT_RECORD_FLAG)] != "")} {
-	set save_flight_record_flag [string trim $::env(SAVE_FLIGHT_RECORD_FLAG)]
-}