3323 - Add simple network primitives

Includes four Mu functions:
- $socket: Creates the C structure for a socket and tries to bind and
  listen on a user-provided port.
- $accept: Returns a number pointer to a new socket session. Should
    be called with the result of $socket.
- $read-from-socket: Read one character from the socket, passed in
    as a Mu number. Should only be called after calling $socket and
    $accept.
- $close-socket: Takes two parameters, one for the result of $socket
    and one for the result of $accept, closing both sockets
    and releasing bound ports.

1 files changed, 14 insertions, 0 deletions

diff --git a/server-socket.mu b/server-socket.mu
new file mode 100644
index 00000000..8a9b27ef
--- /dev/null
+++ b/server-socket.mu
@@ -0,0 +1,14 @@
+def main [
+  local-scope
+  socket:number <- $socket 8080/port
+  $print [Mu socket creation returned ], socket, 10/newline
+  session:number <- $accept socket
+  {
+    client-message:address:buffer <- new-buffer 1024
+    c:character <- $read-from-socket session
+    break-unless c
+    $print c
+    loop
+  }
+  $close-socket socket, session
+]