83d72a091e
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
23 lines
486 B
Tcl
23 lines
486 B
Tcl
lappend auto_path [pwd]
|
|
package require dns
|
|
|
|
# Use google's DNS
|
|
dns::configure -nameserver 8.8.8.8
|
|
|
|
puts "Resolve with udp"
|
|
set tok [dns::resolve www.tcl.tk]
|
|
puts status=[dns::status $tok]
|
|
puts address=[dns::address $tok]
|
|
puts names=[dns::name $tok]
|
|
dns::cleanup $tok
|
|
|
|
# Now with tcp
|
|
dns::configure -protocol tcp
|
|
|
|
puts "Resolve with tcp"
|
|
set tok [dns::resolve www.google.com]
|
|
puts status=[dns::status $tok]
|
|
puts address=[dns::address $tok]
|
|
puts names=[dns::name $tok]
|
|
dns::cleanup $tok
|