Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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;