fun/examples/tcp_http_get_class.fun at main · hanez/fun · GitHub

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
#!/usr/bin/env fun

/*
 * This file is part of the Fun programming language.
 * https://fun-lang.xyz/
 *
 * Copyright 2025 Johannes Findeisen
 * Licensed under the terms of the Apache-2.0 license.
 * https://opensource.org/license/apache-2-0
 *
 * Added: 2025-10-04
 */

#include <io/socket.fun>

// Simple HTTP GET using TcpClient class from stdlib

c = TcpClient()
if (!c.connect("example.org", 80))
  print("connect failed")
else
  req = join([
    "GET / HTTP/1.0\r\n",
    "Host: example.org\r\n",
    "User-Agent: fun/0.21\r\n",
    "Connection: close\r\n",
    "\r\n"
  ], "")
  c.send(req)
  resp = c.recv_all(8192)
  print(resp)
  c.close()

/* Possible output:
HTTP/1.1 200 OK
Date: Thu, 18 Dec 2025 23:06:52 GMT
Content-Type: text/html
Connection: close
Vary: accept-encoding
Server: cloudflare
Last-Modified: Wed, 17 Dec 2025 03:51:06 GMT
Accept-Ranges: bytes
Age: 59
Cache-Control: max-age=14400
cf-cache-status: HIT
CF-RAY: 9b02502e3f993237-TXL

<!doctype html><html lang="en"><head><title>Example Domain</title><meta name="viewport" content="width=device-width, initial-scale=1"><style>body{background:#eee;width:60vw;margin:15vh auto;font-family:system-ui,sans-serif}h1{font-size:1.5em}div{opacity:0.8}a:link,a:visited{color:#348}</style><body><div><h1>Example Domain</h1><p>This domain is for use in documentation examples without needing permission. Avoid use in operations.<p><a href="https://iana.org/domains/example">Learn more</a></div></body></html>

*/