blob: 5260d5ca59b86ded1097155688510d3a5a50486b (
plain)
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
|
# Provide nice ways to do TCP/IP networking
<
bin .scan "->" via
bin .print "<-" via
bin .produce "<=" via
sys .linux "+" via
# 0 -> port
# 1 -> host (as network byte ordered string)
# 0 <- string representing the sockaddr_in
{ ==port ==host
+AFINET <=u16
port <-un16
host cat
0 <-un64
} /sockaddrIpv4 deffd
# 0 -> "host:port"
# 0 <- connected socket fd
{ "^([^:]+):(\\d+)$" regex not { "host:port expected" die } rep
net .dns .resolveIpv4
-01 txt .consume .u16
sockaddrIpv4
+socket _ ==s
-01 +connect -- # TODO: error handling
} /connectFd deffd
# 0 -> "host:port"
# 0 <- connected socket as file
{
connectFd sys .RDWR 0 sys .fdToFile
} /connect deffd
> /udp net .defv
# vim: syn=elymas
|
