#include <arpa/inet.h>

function psi\htonl(int $l) : int {
	let l = intval($l);
	return htonl(l) as to_int(htonl);
}
function psi\htons(int $s) : int {
	let s = intval($s);
	return htons(s) as to_int(htons);
}

function psi\ntohl(int $l) : int {
	let l = intval($l);
	return ntohl(l) as to_int(ntohl);
}
function psi\ntohs(int $s) : int {
	let s = intval($s);
	return ntohs(s) as to_int(ntohs);
}


function psi\inet_addr(string $cp) : int {
	let cp = strval($cp);
	return inet_addr(cp) as to_int(inet_addr);
}

function psi\inet_ntoa(array $in) : string {
	let in = arrval($in,
		intval($s_addr)
	);
	return inet_ntoa(in) as to_string(inet_ntoa);
}

function psi\inet_ntop(int $af, string $src) : string {
	let af = intval($af);
	let src = strval($src);
	let size = sizeof(struct sockaddr_storage);
	let dst = calloc(1, size);
	return inet_ntop(af, src, dst, size) as to_string(inet_ntop);
}

function psi\inet_pton(int $af, string $src, string &$dst) : int {
	let af = intval($af);
	let src = strval($src);
	let dst = calloc(1, sizeof(struct sockaddr_storage));
	return inet_pton(af, src, dst) as to_int(inet_pton);
	set $dst = to_string(dst, sizeof(struct sockaddr_storage));
}