forked from BobbyCounts/openocd
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
git-svn-id: svn://svn.berlios.de/openocd/trunk@800 b42882b7-edfa-0310-969c-e2dbd0fdcd60
- Loading branch information
ntfreak
committed
Jul 12, 2008
1 parent
cebfbfa
commit 2e832a3
Showing
6 changed files
with
111 additions
and
223 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file was deleted.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,15 +1,15 @@ | ||
| # Simple tcl client to connect to openocd | ||
| puts "Use empty line to exit" | ||
| set fo [socket 127.0.0.1 6666] | ||
| puts -nonewline stdout "> " | ||
| flush stdout | ||
| while {[gets stdin line] >= 0} { | ||
| if {$line eq {}} break | ||
| puts $fo $line | ||
| flush $fo | ||
| gets $fo line | ||
| puts $line | ||
| puts -nonewline stdout "> " | ||
| flush stdout | ||
| } | ||
| close $fo | ||
| # Simple tcl client to connect to openocd | ||
| puts "Use empty line to exit" | ||
| set fo [socket 127.0.0.1 6666] | ||
| puts -nonewline stdout "> " | ||
| flush stdout | ||
| while {[gets stdin line] >= 0} { | ||
| if {$line eq {}} break | ||
| puts $fo $line | ||
| flush $fo | ||
| gets $fo line | ||
| puts $line | ||
| puts -nonewline stdout "> " | ||
| flush stdout | ||
| } | ||
| close $fo |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,65 +1,65 @@ | ||
| if { $argc != 1 } { | ||
| puts "Usage: test_tcl.tcl <ipaddress>" | ||
| exit 1 | ||
| } | ||
|
|
||
| puts $argv | ||
|
|
||
| # Simple tcl client to connect to openocd | ||
| global fo | ||
| set fo [socket $argv 6666] | ||
|
|
||
| # If a fn is unknown to Tcl, send it off to OpenOCD | ||
| proc unknown args { | ||
| global fo | ||
| puts $fo $args | ||
| flush $fo | ||
| gets $fo line | ||
| return $line | ||
| } | ||
|
|
||
|
|
||
|
|
||
| #Print help text for a command. Word wrap | ||
| #help text that is too wide inside column. | ||
| proc pc_help {args} { | ||
| global ocd_helptext | ||
| set cmd $args | ||
| foreach a [lsort $ocd_helptext] { | ||
| if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} { | ||
| set w 50 | ||
| set cmdname [lindex $a 0] | ||
| set h [lindex $a 1] | ||
| set n 0 | ||
| while 1 { | ||
| if {$n > [string length $h]} {break} | ||
|
|
||
| set next_a [expr $n+$w] | ||
| if {[string length $h]>$n+$w} { | ||
| set xxxx [string range $h $n [expr $n+$w]] | ||
| for {set lastpos [expr [string length $xxxx]-1]} {$lastpos>=0&&[string compare [string range $xxxx $lastpos $lastpos] " "]!=0} {set lastpos [expr $lastpos-1]} { | ||
| } | ||
| #set next_a -1 | ||
| if {$lastpos!=-1} { | ||
| set next_a [expr $lastpos+$n+1] | ||
| } | ||
| } | ||
|
|
||
|
|
||
| puts [format "%-25s %s" $cmdname [string range $h $n [expr $next_a-1]] ] | ||
| set cmdname "" | ||
| set n [expr $next_a] | ||
| } | ||
| } | ||
| } | ||
| } | ||
|
|
||
| puts "Running flash_banks" | ||
| puts [flash_banks] | ||
| puts "Running help on PC using data from OpenOCD" | ||
| global ocd_helptext | ||
| set ocd_helptext [get_help_text] | ||
| puts [pc_help] | ||
|
|
||
|
|
||
|
|
||
| if { $argc != 1 } { | ||
| puts "Usage: test_tcl.tcl <ipaddress>" | ||
| exit 1 | ||
| } | ||
|
|
||
| puts $argv | ||
|
|
||
| # Simple tcl client to connect to openocd | ||
| global fo | ||
| set fo [socket $argv 6666] | ||
|
|
||
| # If a fn is unknown to Tcl, send it off to OpenOCD | ||
| proc unknown args { | ||
| global fo | ||
| puts $fo $args | ||
| flush $fo | ||
| gets $fo line | ||
| return $line | ||
| } | ||
|
|
||
|
|
||
|
|
||
| #Print help text for a command. Word wrap | ||
| #help text that is too wide inside column. | ||
| proc pc_help {args} { | ||
| global ocd_helptext | ||
| set cmd $args | ||
| foreach a [lsort $ocd_helptext] { | ||
| if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} { | ||
| set w 50 | ||
| set cmdname [lindex $a 0] | ||
| set h [lindex $a 1] | ||
| set n 0 | ||
| while 1 { | ||
| if {$n > [string length $h]} {break} | ||
|
|
||
| set next_a [expr $n+$w] | ||
| if {[string length $h]>$n+$w} { | ||
| set xxxx [string range $h $n [expr $n+$w]] | ||
| for {set lastpos [expr [string length $xxxx]-1]} {$lastpos>=0&&[string compare [string range $xxxx $lastpos $lastpos] " "]!=0} {set lastpos [expr $lastpos-1]} { | ||
| } | ||
| #set next_a -1 | ||
| if {$lastpos!=-1} { | ||
| set next_a [expr $lastpos+$n+1] | ||
| } | ||
| } | ||
|
|
||
|
|
||
| puts [format "%-25s %s" $cmdname [string range $h $n [expr $next_a-1]] ] | ||
| set cmdname "" | ||
| set n [expr $next_a] | ||
| } | ||
| } | ||
| } | ||
| } | ||
|
|
||
| puts "Running flash_banks" | ||
| puts [flash_banks] | ||
| puts "Running help on PC using data from OpenOCD" | ||
| global ocd_helptext | ||
| set ocd_helptext [get_help_text] | ||
| puts [pc_help] | ||
|
|
||
|
|
||
|
|