diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-10-16 13:02:52 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-10-16 13:02:52 -0700 |
commit | 62ae069ef5bad4079c7f138c383210acf524dc6b (patch) | |
tree | 8518d7d1c5f89d9af6103b2158b34253f3d7eb9b /http-server.mu | |
parent | 93569d9d32ae0c7a07da45be39a479e3a56e1907 (diff) | |
download | mu-62ae069ef5bad4079c7f138c383210acf524dc6b.tar.gz |
3510
Diffstat (limited to 'http-server.mu')
-rw-r--r-- | http-server.mu | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/http-server.mu b/http-server.mu index c415b094..8f34725d 100644 --- a/http-server.mu +++ b/http-server.mu @@ -33,40 +33,3 @@ SUCCESS! $close-socket session $close-socket socket ] - -def write-to-socket session-socket:num, s:text [ - local-scope - load-ingredients - len:num <- length *s - i:num <- copy 0 - { - done?:bool <- greater-or-equal i, len - break-if done? - c:char <- index *s, i - $print [writing to socket: ], i, [ ], c, 10/newline - $write-to-socket session-socket, c - i <- add i, 1 - loop - } -] - -def receive-from-socket session:num, sink:&:sink:char -> sink:&:sink:char [ - local-scope - load-ingredients - { - req:text, bytes-read:num <- $read-from-socket session, 4096/bytes - $print [read ], bytes-read, [ bytes from socket], 10/newline - i:num <- copy 0 - { - done?:bool <- greater-or-equal i, bytes-read - break-if done? - c:char <- index *req, i - end-of-request?:bool <- equal c, 10/newline - break-if end-of-request? # To be safe, for now. - sink <- write sink, c - i <- add i, 1 - loop - } - } - sink <- close sink -] |