2022-06-25 16:19:46 +00:00
|
|
|
# SPDX-License-Identifier: GPL-2.0-or-later
|
|
|
|
|
2009-11-17 16:29:20 +00:00
|
|
|
# Defines basic Tcl procs that must exist for OpenOCD scripts to work.
|
2008-07-11 08:17:31 +00:00
|
|
|
#
|
|
|
|
# Embedded into OpenOCD executable
|
|
|
|
#
|
|
|
|
|
2008-07-16 20:20:15 +00:00
|
|
|
# Try flipping / and \ to find file if the filename does not
|
|
|
|
# match the precise spelling
|
|
|
|
proc find {filename} {
|
2008-07-20 17:04:58 +00:00
|
|
|
if {[catch {ocd_find $filename} t]==0} {
|
2008-07-16 20:20:15 +00:00
|
|
|
return $t
|
2008-10-24 15:53:22 +00:00
|
|
|
}
|
2008-07-20 17:04:58 +00:00
|
|
|
if {[catch {ocd_find [string map {\ /} $filename} t]==0} {
|
2008-07-16 20:20:15 +00:00
|
|
|
return $t
|
2008-10-24 15:53:22 +00:00
|
|
|
}
|
2008-07-20 17:04:58 +00:00
|
|
|
if {[catch {ocd_find [string map {/ \\} $filename} t]==0} {
|
2008-07-16 20:20:15 +00:00
|
|
|
return $t
|
2008-10-24 15:53:22 +00:00
|
|
|
}
|
2008-07-16 20:20:15 +00:00
|
|
|
# make sure error message matches original input string
|
2008-07-22 08:58:44 +00:00
|
|
|
return -code error "Can't find $filename"
|
2008-07-16 20:20:15 +00:00
|
|
|
}
|
2009-11-23 20:16:27 +00:00
|
|
|
add_usage_text find "<file>"
|
|
|
|
add_help_text find "print full path to file according to OpenOCD search rules"
|
2008-07-16 20:20:15 +00:00
|
|
|
|
2011-08-11 02:10:54 +00:00
|
|
|
# Find and run a script
|
2008-07-16 20:20:15 +00:00
|
|
|
proc script {filename} {
|
2011-10-22 07:53:55 +00:00
|
|
|
uplevel #0 [list source [find $filename]]
|
2008-07-16 20:20:15 +00:00
|
|
|
}
|
2009-11-23 20:16:27 +00:00
|
|
|
add_help_text script "filename of OpenOCD script (tcl) to run"
|
|
|
|
add_usage_text script "<file>"
|
2008-07-16 20:20:15 +00:00
|
|
|
|
2022-02-18 16:25:58 +00:00
|
|
|
# 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
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2009-10-14 22:18:00 +00:00
|
|
|
#########
|