82 lines
1.6 KiB
V
82 lines
1.6 KiB
V
|
module net
|
||
|
|
|
||
|
|
// Addr represents an ip address
|
||
|
|
pub struct Addr {
|
||
|
|
addr C.sockaddr
|
||
|
|
len int
|
||
|
|
pub:
|
||
|
|
saddr string
|
||
|
|
port int
|
||
|
|
}
|
||
|
|
|
||
|
|
pub fn (a Addr) str() string {
|
||
|
|
return '${a.saddr}:${a.port}'
|
||
|
|
}
|
||
|
|
|
||
|
|
const (
|
||
|
|
max_ipv4_addr_len = 24
|
||
|
|
ipv4_addr_size = sizeof(C.sockaddr_in)
|
||
|
|
)
|
||
|
|
|
||
|
|
fn new_addr(addr C.sockaddr) ?Addr {
|
||
|
|
addr_len := if addr.sa_family == SocketFamily.inet {
|
||
|
|
sizeof(C.sockaddr)
|
||
|
|
} else {
|
||
|
|
// TODO NOOOOOOOOOOOO
|
||
|
|
0
|
||
|
|
}
|
||
|
|
// Convert to string representation
|
||
|
|
buf := []byte{ len: max_ipv4_addr_len, init: 0 }
|
||
|
|
$if windows {
|
||
|
|
res := C.WSAAddressToStringA(&addr, addr_len, C.NULL, buf.data, &buf.len)
|
||
|
|
if res != 0 {
|
||
|
|
socket_error(-1)?
|
||
|
|
}
|
||
|
|
} $else {
|
||
|
|
res := C.inet_ntop(SocketFamily.inet, &addr, buf.data, buf.len)
|
||
|
|
if res == 0 {
|
||
|
|
socket_error(-1)?
|
||
|
|
}
|
||
|
|
}
|
||
|
|
mut saddr := buf.bytestr()
|
||
|
|
|
||
|
|
hport := (&C.sockaddr_in(&addr)).sin_port
|
||
|
|
port := C.ntohs(hport)
|
||
|
|
|
||
|
|
$if windows {
|
||
|
|
// strip the port from the address string
|
||
|
|
saddr = saddr.split(':')[0]
|
||
|
|
}
|
||
|
|
|
||
|
|
return Addr {
|
||
|
|
addr int(addr_len) saddr port
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
pub fn resolve_addr(addr string, family SocketFamily, typ SocketType) ?Addr {
|
||
|
|
address, port := split_address(addr)?
|
||
|
|
|
||
|
|
mut hints := C.addrinfo{}
|
||
|
|
hints.ai_family = family
|
||
|
|
hints.ai_socktype = typ
|
||
|
|
hints.ai_flags = C.AI_PASSIVE
|
||
|
|
hints.ai_protocol = 0
|
||
|
|
hints.ai_addrlen = 0
|
||
|
|
hints.ai_canonname = C.NULL
|
||
|
|
hints.ai_addr = C.NULL
|
||
|
|
hints.ai_next = C.NULL
|
||
|
|
info := &C.addrinfo(0)
|
||
|
|
|
||
|
|
sport := '$port'
|
||
|
|
|
||
|
|
// This might look silly but is recommended by MSDN
|
||
|
|
$if windows {
|
||
|
|
socket_error(0-C.getaddrinfo(address.str, sport.str, &hints, &info))?
|
||
|
|
} $else {
|
||
|
|
x := C.getaddrinfo(address.str, sport.str, &hints, &info)
|
||
|
|
wrap_error(x)?
|
||
|
|
}
|
||
|
|
|
||
|
|
return new_addr(*info.ai_addr)
|
||
|
|
}
|