Mercurial > repos > tabletprog

annotate samples/sock.tp @ 196:228df5004ab5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Define methods in an object before running populate symbols on those methods to avoid a bug in which self was not properly marked as closed over due to a method not being defined when a symbol search was done
author Mike Pavone <pavone@retrodev.com>
date Tue, 27 Aug 2013 21:38:09 -0700
parents 4c96a393103e
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1 #{
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2 main <- {
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 sock <- socket connectTo: "127.0.0.1" onPort: 12345
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
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
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 sock close
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
8 0
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9 }
7db37f040a6f Basic socket support
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
10 }