Added HTTP server class to stdlib and an example server written in 100% pure Fun. (0.37.28)

lib/net/http_server.fun

@@ -0,0 +1,78 @@
+/*
+ * This file is part of the Fun programming language.
+ * https://fun-lang.xyz/
+ *
+ * Copyright 2025 Johannes Findeisen <you@hanez.org>
+ * Licensed under the terms of the Apache-2.0 license.
+ * https://opensource.org/license/apache-2-0
+ *
+ * Added: 2025-12-28
+ */
+
+#include <io/socket.fun>
+#include <strings.fun>
+
+class HTTPServer(number port)
+  fun _construct(this, port)
+    this.port = port
+    srv = TcpServer(port, 10)
+    this.server = srv
+    this.htdocs = "./"
+
+  fun set_htdocs(this, path)
+    this.htdocs = to_string(path)
+
+  fun start(this)
+    if (this.server.listen() <= 0)
+      print("HTTPServer: failed to listen on port " + to_string(this.port))
+      return 0
+    print("HTTPServer: serving " + this.htdocs + " on port " + to_string(this.port))
+    while true
+      client_fd = this.server.accept()
+      if (client_fd > 0)
+        this.handle_client(client_fd)
+    return 1
+
+  fun handle_client(this, fd)
+    request = sock_recv(fd, 4096)
+    if (len(request) == 0)
+      sock_close(fd)
+      return 0
+
+    // Basic request parsing
+    lines = str_split(request, "\n")
+    if (len(lines) == 0)
+      sock_close(fd)
+      return 0
+
+    first_line = lines[0]
+    parts = str_split(first_line, " ")
+    if (len(parts) < 2)
+      sock_close(fd)
+      return 0
+
+    method = parts[0]
+    path = parts[1]
+
+    if (path == "/")
+      path = "/index.html"
+
+    full_path = this.htdocs + path
+    content = read_file(full_path)
+
+    if (len(content) > 0)
+      this.send_response(fd, 200, "OK", content)
+    else
+      this.send_response(fd, 404, "Not Found", "<h1>404 Not Found</h1>")
+
+    sock_close(fd)
+    return 1
+
+  fun send_response(this, fd, status_code, status_text, body)
+    resp = "HTTP/1.1 " + to_string(status_code) + " " + status_text + "\r\n"
+    resp = resp + "Content-Type: text/html\r\n"
+    resp = resp + "Content-Length: " + to_string(len(body)) + "\r\n"
+    resp = resp + "Connection: close\r\n"
+    resp = resp + "\r\n"
+    resp = resp + body
+    sock_send(fd, resp)