aboutsummaryrefslogtreecommitdiff
path: root/src/helper
diff options
context:
space:
mode:
authorDavid Brownell <dbrownell@users.sourceforge.net>2009-10-14 15:18:00 -0700
committerDavid Brownell <dbrownell@users.sourceforge.net>2009-10-14 15:18:00 -0700
commitbc792857a5cbfb603a5c3be5ac62d9d54981959c (patch)
tree5de8e178b63791d52910086187bc659b6524dea0 /src/helper
parentdd54981702f4fedfdd0c984654fc294f529479fc (diff)
doc updates to match "help" better
This makes the documentation a closer match to "help" output: - "pathmove" somehow was not documented in the User's Guide - "jtag_nsrst_assert_width" and "jtag_ntrst_assert_width" are new; both needed descriptions. - Removed two undocumented and fairly useless script mechanisms: * production/production_info/production_test ... using it, requires replacing everything; so having it adds no value. * cpu ... way out of date; hopeless to keep that current Note that anyone using that "production" stuff already defines their own procedures, and can keep using them with no change. Signed-off-by: David Brownell <dbrownell@users.sourceforge.net>
Diffstat (limited to 'src/helper')
-rw-r--r--src/helper/startup.tcl57
1 files changed, 5 insertions, 52 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index b12d02bb..2c909729 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -291,59 +291,10 @@ proc ocd_process_reset_inner { MODE } {
}
}
-# stubs for targets scripts that do not have production procedure
-proc production_info {} {
- return "Imagine an explanation here..."
-}
-add_help_text production_info "Displays information on production procedure for target script. Implement this procedure in target script."
-
-proc production {firmwarefile serialnumber} {
- puts "Imagine production procedure running successfully. Programmed $firmwarefile with serial number $serialnumber"
-}
-
-add_help_text production "<serialnumber> - Runs production procedure. Throws exception if procedure failed. Prints progress messages. Implement this procedure in the target script."
-
-proc production_test {} {
- puts "Imagine nifty test procedure having run to completion here."
-}
-add_help_text production_test "Runs test procedure. Throws exception if procedure failed. Prints progress messages. Implement in target script."
-
-add_help_text cpu "<name> - prints out target options and a comment on CPU which matches name"
-
-# A list of names of CPU and options required
-set ocd_cpu_list {
- {
- name IXP42x
- options {xscale -variant IXP42x}
- comment {IXP42x cpu}
- }
- {
- name arm7
- options {arm7tdmi -variant arm7tdmi}
- comment {vanilla ARM7}
- }
-}
-
-# Invoked from Tcl code
-proc ocd_cpu {args} {
- set name $args
- set result ""
- global ocd_cpu_list
- foreach a [lsort $ocd_cpu_list] {
- if {[string length $args]==0||[string first [string toupper $name] [string toupper "$a(name)$a(options)$a(comment)"]]!=-1} {
- lappend result $a
- }
- }
- return $result
-}
+#########
-proc cpu {args} {
- # 0123456789012345678901234567890123456789012345678901234567890123456789
- puts "CPU Options Comment"
- foreach a [lsort [ocd_cpu $args]] {
- puts [format "%-20s%-40s%s" $a(name) $a(options) $a(comment)]
- }
-}
+# REVISIT power_restore, power_dropout, srst_deasserted, srst_asserted
+# are currently neither documented nor supported except on ZY1000.
proc power_restore {} {
puts "Sensed power restore."
@@ -366,6 +317,8 @@ proc srst_asserted {} {
puts "Sensed nSRST asserted."
}
+#########
+
# catch any exceptions, capture output and return output
proc capture_catch {a} {
catch {