aboutsummaryrefslogtreecommitdiff
path: root/examples/tcp.client
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-08-12 12:21:18 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:02:50 +1000
commit0f4cb39eb1ebaf3cc931b450b517a177beb8c05e (patch)
tree288021a44441ecc21e785641c507eff7dbe707d6 /examples/tcp.client
parent2077c587650b0ff0332ceaacece892e38e1c436a (diff)
downloadjimtcl-0f4cb39eb1ebaf3cc931b450b517a177beb8c05e.zip
jimtcl-0f4cb39eb1ebaf3cc931b450b517a177beb8c05e.tar.gz
jimtcl-0f4cb39eb1ebaf3cc931b450b517a177beb8c05e.tar.bz2
Make udp sockets useful
Separate socket types: udp client and udp server Allow client sockets to 'connect' to an address Allow server sockets to 'bind' to an address Add support for 'sendto' and 'recvfrom' Add socket client and server examples Document new udp sockets Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/tcp.client')
-rw-r--r--examples/tcp.client9
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/tcp.client b/examples/tcp.client
new file mode 100644
index 0000000..ed8582b
--- /dev/null
+++ b/examples/tcp.client
@@ -0,0 +1,9 @@
+# Example of sending via a connected tcp socket
+
+set s [socket stream 127.0.0.1:20000]
+
+foreach i [range 1 20] {
+ $s puts "1 << $i"
+
+ puts [$s gets]
+}