X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fhelper%2Fstartup.tcl;h=6389262a3d5cb3a4ce530c793dbe6496057d1563;hp=71f489dd5f3c2b2068a2586f4bac99e34042a862;hb=cc75aa37c5ba6267956a3613069b7d35420b76fc;hpb=99293ebd15bd2980fa4cb9e161f0069092741a55

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index 71f489dd5f..6389262a3d 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -28,4 +28,26 @@ proc script {filename} {
 add_help_text script "filename of OpenOCD script (tcl) to run"
 add_usage_text script "<file>"
 
+# Run a list of post-init commands
+# Each command should be added with 'lappend post_init_commands command'
+lappend _telnet_autocomplete_skip _run_post_init_commands
+proc _run_post_init_commands {} {
+	if {[info exists ::post_init_commands]} {
+		foreach cmd $::post_init_commands {
+			eval $cmd
+		}
+	}
+}
+
+# Run a list of pre-shutdown commands
+# Each command should be added with 'lappend pre_shutdown_commands command'
+lappend _telnet_autocomplete_skip _run_pre_shutdown_commands
+proc _run_pre_shutdown_commands {} {
+	if {[info exists ::pre_shutdown_commands]} {
+		foreach cmd $::pre_shutdown_commands {
+			eval $cmd
+		}
+	}
+}
+
 #########