Mercurial > repos > tabletprog
annotate samples/sock.tp @ 267:d2b70cba661e
Warning cleanup
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 18 Jul 2014 00:14:22 -0700 |
parents | 4c96a393103e |
children |
rev | line source |
---|---|
145 | 1 #{ |
2 main <- { | |
3 sock <- socket connectTo: "127.0.0.1" onPort: 12345 | |
4 sock send: "Hello, Socket!\n" | |
147
4c96a393103e
Add support for receiving data from a socket
Mike Pavone <pavone@retrodev.com>
parents:
145
diff
changeset
|
5 response <- sock recv: 1024 |
4c96a393103e
Add support for receiving data from a socket
Mike Pavone <pavone@retrodev.com>
parents:
145
diff
changeset
|
6 print: (string: response) |
145 | 7 sock close |
8 0 | |
9 } | |
10 } |