diff options
Diffstat (limited to 'html/http-server.mu.html')
| -rw-r--r-- | html/http-server.mu.html | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/html/http-server.mu.html b/html/http-server.mu.html index d09f4f87..cdc4d661 100644 --- a/html/http-server.mu.html +++ b/html/http-server.mu.html @@ -13,7 +13,6 @@ pre { white-space: pre-wrap; font-family: monospace; color: #eeeeee; background-color: #080808; } body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color: #080808; } * { font-size: 12pt; font-size: 1em; } -.Delimiter { color: #800080; } .muControl { color: #c0a020; } .Comment { color: #9090ff; } .Constant { color: #00a0a0; } @@ -47,14 +46,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color session:num<span class="Special"> <- </span>$accept socket contents:&:source:char, sink:&:sink:char<span class="Special"> <- </span>new-channel <span class="Constant">30</span> sink<span class="Special"> <- </span>start-running receive-from-socket session, sink - buf:&:buffer<span class="Special"> <- </span>new-buffer <span class="Constant">30</span> - <span class="Delimiter">{</span> - c:char, done?:bool, contents<span class="Special"> <- </span>read contents - <span class="muControl">break-if</span> done? - buf<span class="Special"> <- </span>append buf, c - <span class="muControl">loop</span> - <span class="Delimiter">}</span> - socket-text:text<span class="Special"> <- </span>buffer-to-array buf + query:text<span class="Special"> <- </span>drain contents $print <span class="Constant">[Done reading from socket.]</span>, <span class="Constant">10/newline</span> write-to-socket session, <span class="Constant">[HTTP/1.0 200 OK</span> <span class="Constant">Content-type: text/plain</span> |