update

2013-06-05 21:47:54 +00:00 · 2013-06-05 21:47:54 +00:00 · 6f050a029e
commit 6f050a029e
parent 1f1ad49427
2496 changed files with 37609 additions and 3031 deletions
--- a/Task/Hello-world-Web-server/Seed7/hello-world-web-server.seed7
+++ b/Task/Hello-world-Web-server/Seed7/hello-world-web-server.seed7
@ -0,0 +1,19 @@
+$ include "seed7_05.s7i";
+  include "listener.s7i";
+
+const proc: main is func
+  local
+    var listener: aListener is listener.value;
+    var file: sock is STD_NULL;
+  begin
+    aListener := openInetListener(8080);
+    listen(aListener, 10);
+    while TRUE do
+      sock := accept(aListener);
+      write(sock, "HTTP/1.1 200 OK\r\n\
+                  \Content-Type: text/html; charset=UTF-8\r\n\
+                  \\r\n\
+                  \<html><body>Hello, world!</body></html>\n");
+      close(sock);
+    end while;
+  end func;