debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
28
debuggers/openocd/jimtcl/examples/udp.client
Normal file
28
debuggers/openocd/jimtcl/examples/udp.client
Normal file
@ -0,0 +1,28 @@
|
||||
# Example of sending from an unconnected socket
|
||||
|
||||
set s [socket dgram]
|
||||
|
||||
foreach i [range 1 5] {
|
||||
# Specify the address and port with sendto
|
||||
$s sendto "$i + $i + 10" 127.0.0.1:20000
|
||||
|
||||
# Receive the response - max length of 100
|
||||
puts [$s recvfrom 100]
|
||||
}
|
||||
|
||||
$s close
|
||||
|
||||
# Now sending via a connected udp socket
|
||||
|
||||
set s [socket dgram 127.0.0.1:20000]
|
||||
$s buffering none
|
||||
|
||||
foreach i [range 5 10] {
|
||||
# Socket is connected, so can just use puts here
|
||||
# No need to flush because we set 'buffering none' above.
|
||||
$s puts -nonewline "$i * $i"
|
||||
#$s flush
|
||||
|
||||
# Receive the response - max length of 100
|
||||
puts [$s recvfrom 100]
|
||||
}
|
||||
Reference in New Issue
Block a user