little front update
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
diff --git a/httpd/httpd.c b/httpd/httpd.c
index cff9c4d..a72214c 100644
--- a/httpd/httpd.c
+++ b/httpd/httpd.c
@@ -29,6 +29,7 @@ int main (int argc, char **argv)
call_init(&call);
call.ident.module = module;
call.ident.sym = sym_1("main");
+ //FIXME
if (argc >= 2)
call.arguments = list_new_str_1
(NULL, argv[0], list_new_str_1
diff --git a/lib/kc3/0.1/httpd.kc3 b/lib/kc3/0.1/httpd.kc3
index ac4224f..832c785 100644
--- a/lib/kc3/0.1/httpd.kc3
+++ b/lib/kc3/0.1/httpd.kc3
@@ -5,9 +5,18 @@ defmodule HTTPd do
req = HTTP.Request.buf_parse(client.buf_rw.r)
if req do
puts("HTTPd.server_loop: got request #{req}")
- res = %HTTP.Response{body: "<html>
+ res = %HTTP.Response{body: "<html>
<head>
<title>KC3 HTTPd</title>
+ <style>
+ pre {
+ white-space: pre-wrap; /* CSS3 */
+ white-space: -moz-pre-wrap; /* Mozilla */
+ white-space: -pre-wrap; /* Opera 4-6 */
+ white-space: -o-pre-wrap; /* Opera 7 */
+ word-wrap: break-word; /* Internet Explorer 5.5+ */
+ }
+ </style>
</head>
<body>
<h1>KC3 HTTPd</h1>
@@ -42,7 +51,7 @@ defmodule HTTPd do
}
(host, port) {
server(host, port)
- }
+ }
}
end