Commit c4a46272c9d61187d4e65c51e4731a9f49869c8e
2024-07-31T13:41:32
wip httpd.kc3
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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
diff --git a/lib/kc3/0.1/httpd.kc3 b/lib/kc3/0.1/httpd.kc3
index 1e29fdf..6554630 100644
--- a/lib/kc3/0.1/httpd.kc3
+++ b/lib/kc3/0.1/httpd.kc3
@@ -1,11 +1,12 @@
-defmodule HTTPd do
+puts("KC3 HTTPd loading, please wait...")
- puts("KC3 HTTPd loading, please wait...")
+defmodule HTTPd do
- def server_loop = fn (client) do
- while true do
- req = HTTP.Request.buf_parse(client.buf_rw.r)
- res = %HTTP.Response{body: "
+ def server_loop = fn (client) {
+ ok = true
+ while ok do
+ req = HTTP.Request.buf_parse(client.buf_rw.r)
+ res = %HTTP.Response{body: "
<html>
<head>
<title>KC3 HTTPd</title>
@@ -19,22 +20,21 @@ defmodule HTTPd do
<pre><code>#{req}</code></pre>
</body>
</html>
-"
-}
- if HTTP.Response.buf_write(res, client.buf_rw.w) < 0
- break
- end
- end
+"}
+ if (HTTP.Response.buf_write(res, client.buf_rw.w) < 0)
+ ok = false
+ end
+ }
- def server = fn (host, port) do
- socket = Socket.listen(host, port)
- puts("KC3 HTTPd: listening on #{host}:#{port}")
- while true do
- client = Socket.Buf.accept(socket)
- HTTPd.server_loop(client)
- end
- end
-
- HTTPd.server(getenv("KC3_HTTPD_HOST"), getenv("KC3_HTTPD_PORT"))
+ def server = fn (host, port) {
+ socket = Socket.listen(host, port)
+ puts("KC3 HTTPd: listening on #{host}:#{port}")
+ while true do
+ client = Socket.Buf.accept(socket)
+ HTTPd.server_loop(client)
+ end
+ }
end
+
+HTTPd.server(getenv("KC3_HTTPD_HOST"), getenv("KC3_HTTPD_PORT"))