server-socket.mu


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

def main [
  local-scope
  socket:num <- $socket 8080/port
  $print [Mu socket creation returned ], socket, 10/newline
  session:num <- $accept socket
  write-to-socket session, [HTTP/1.0 200 OK

OK]
  {
    c:char, eof?:boolean <- $read-from-socket session
    $print c
    break-if eof?
    loop
  }
  $print 10/newline, [Hit end of socket, closing...], 10/newline
  $close-socket socket, session
]

def write-to-socket session-socket:number, s:address:array:character [
  local-scope
  load-ingredients
  len:number <- length *s
  i:number <- copy 0
  {
    done?:boolean <- greater-or-equal i, len
    break-if done?
    c:character <- index *s, i
    $write-to-socket session-socket, c
    i <- add i, 1
    loop
  }
]