flash/nor/stm32f1x: Add support for GD32E23x

[fw/openocd] / src / server / startup.tcl

diff --git a/src/server/startup.tcl b/src/server/startup.tcl
index dd1b31e417dd15942a3906dbf3b25a5734aa062e..447b57cc36e3f977d331afbc642ac934453150be 100644 (file)
--- a/src/server/startup.tcl
+++ b/src/server/startup.tcl
@@ -9,6 +9,9 @@ proc ocd_gdb_restart {target_id} {
        reset halt
 }
 
+lappend _telnet_autocomplete_skip prevent_cps
+lappend _telnet_autocomplete_skip POST
+lappend _telnet_autocomplete_skip Host:
 proc prevent_cps {} {
        echo "Possible SECURITY ATTACK detected."
        echo "It looks like somebody is sending POST or Host: commands to OpenOCD."
@@ -19,3 +22,20 @@ proc prevent_cps {} {
 
 proc POST {args} { prevent_cps }
 proc Host: {args} { prevent_cps }
+
+# list of commands we don't want to appear in autocomplete
+lappend _telnet_autocomplete_skip _telnet_autocomplete_helper
+
+# helper for telnet autocomplete
+proc _telnet_autocomplete_helper pattern {
+       set cmds [info commands $pattern]
+
+       # skip matches in variable '_telnet_autocomplete_skip'
+       foreach skip $::_telnet_autocomplete_skip {
+               foreach n [lsearch -all -regexp $cmds "^$skip\$"] {
+                       set cmds [lreplace $cmds $n $n]
+               }
+       }
+
+       return [lsort $cmds]
+}