Mercurial > repos > tabletprog

annotate samples/sock.tp @ 242:0e7982adc76b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make the successful return value from a match expression be truthy and the failure value false. This avoids an extra method call when checking the result and avoids allocating a new object when a match fails.
author Mike Pavone <pavone@retrodev.com>
date Sun, 05 Jan 2014 20:56:25 -0800
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 }