Add basic ipv6 support to Jim

Use -ipv6 to signify that ipv6 should be used

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 17 insertions, 1 deletions

diff --git a/examples/udp.client b/examples/udp.client
index 32dbc02..da74e77 100644
--- a/examples/udp.client
+++ b/examples/udp.client
@@ -2,10 +2,26 @@
 
 set s [socket dgram]
 
-foreach i [range 1 20] {
+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]
+
+foreach i [range 5 10] {
+	# Socket is connected, so can just use puts here
+	# But remember to flush to ensure that each message is separate
+	$s puts -nonewline "$i * $i"
+	$s flush
+
+	# Receive the response - max length of 100
+	puts [$s recvfrom 100]
+}