diff options
Diffstat (limited to 'server-socket.mu')
-rw-r--r-- | server-socket.mu | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/server-socket.mu b/server-socket.mu index d7be418e..dbdf1ef7 100644 --- a/server-socket.mu +++ b/server-socket.mu @@ -3,12 +3,30 @@ def main [ 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] { - client-message:&:buffer <- new-buffer 1024 - c:char <- $read-from-socket session - break-unless c + 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 + } +] |