autoconf: split into subdirectories; redirect calls in debug builds

[m6w6/ext-psi] / psi.d / netdb.psi

diff --git a/psi.d/netdb.psi b/psi.d/netdb.psi
index dd81ed882de993602f2e670fd1c91b4f75ca3272..3eca2915c84438512c427f93d9e109c102814be5 100644 (file)
--- a/psi.d/netdb.psi
+++ b/psi.d/netdb.psi
@@ -29,7 +29,7 @@ function psi\setservent(bool $stayopen) : void {
 }
 
 function psi\gethostent() : array {
-       return to_array(gethostent, 
+       return to_array(*gethostent,
                to_string(h_name),
                to_array(h_aliases, to_string(h_aliases)),
                to_int(h_addrtype),
@@ -43,11 +43,11 @@ function psi\gai_strerror(int $errcode) : string {
        return to_string(gai_strerror);
 }
 
-// extern int getaddrinfo(const char *node, const char *service, const struct addrinfo *hints, struct addrinfo **res);
+// extern int getaddrinfo(const char *node, const char *service, const struct addrinfo *hints, struct addrinfo **res)
 function psi\getaddrinfo(string $node, string $service, array $hints, object &$res = NULL) : int {
        let node = strval($node);
        let service = strval($service);
-       let hints = arrval($hints);
+       let hints = &arrval($hints);
        let res = &NULL;
        return to_int(getaddrinfo);
        set $res = to_array(**res,
@@ -60,5 +60,19 @@ function psi\getaddrinfo(string $node, string $service, array $hints, object &$r
                to_string(ai_canonname),
                to_array(*ai_next, ...)
        );
-       free freeaddrinfo(res);
-}
\ No newline at end of file
+       free freeaddrinfo(*res);
+}
+
+// extern int getnameinfo(struct sockaddr *sa, socklen_t salen, char *host, socklen_t hostlen, char *serv, socklen_t servlen, int flags)
+function psi\getnameinfo(string $addr, string &$host = NULL, string &$service = NULL, int $flags = 0) : int {
+       let sa = strval($addr);
+       let salen = strlen($addr);
+       let hostlen = psi\NI_MAXHOST;
+       let host = calloc(hostlen, psi\SIZEOF_CHAR);
+       let servlen = psi\NI_MAXSERV;
+       let serv = calloc(servlen, psi\SIZEOF_CHAR);
+       let flags = intval($flags);
+       return to_int(getnameinfo);
+       set $host = to_string(host);
+       set $service = to_string(serv);
+}