Mercurial > repos > tabletprog

annotate samples/sock.tp @ 356:3b023e5a0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
llcompile almost working well enough for fib sample
author Michael Pavone <pavone@retrodev.com>
date Wed, 15 Apr 2015 23:03:24 -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 }