diff options
author | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-11-04 11:08:19 +0000 |
---|---|---|
committer | oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60> | 2008-11-04 11:08:19 +0000 |
commit | c7e9d09e966b582731b4c2036e83092cb3555fc8 (patch) | |
tree | 263583225d132a7ab6a386e374613a73edd16e0e /src | |
parent | 3e3c313de342698efcfc4f5c7baa9ee2daf652d3 (diff) | |
download | openocd_libswd-c7e9d09e966b582731b4c2036e83092cb3555fc8.tar.gz openocd_libswd-c7e9d09e966b582731b4c2036e83092cb3555fc8.tar.bz2 openocd_libswd-c7e9d09e966b582731b4c2036e83092cb3555fc8.tar.xz openocd_libswd-c7e9d09e966b582731b4c2036e83092cb3555fc8.zip |
cpu help command wip
git-svn-id: svn://svn.berlios.de/openocd/trunk@1131 b42882b7-edfa-0310-969c-e2dbd0fdcd60
Diffstat (limited to 'src')
-rw-r--r-- | src/helper/startup.tcl | 41 |
1 files changed, 40 insertions, 1 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index 0ac1ebd7..794654c6 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -315,4 +315,43 @@ proc telnet_async {state} { } else { return -code error "Illegal option $state" } -}
\ No newline at end of file +} + + +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)] + } +} + |