1 files changed, 50 insertions, 0 deletions
diff --git a/src/libs6dns/s6dns_resolvenoq_aaaaa.c b/src/libs6dns/s6dns_resolvenoq_aaaaa.c
new file mode 100644
index 0000000..b280fe0
--- /dev/null
+++ b/src/libs6dns/s6dns_resolvenoq_aaaaa.c
@@ -0,0 +1,50 @@
+/* ISC license. */
+
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+#include <skalibs/tai.h>
+#include <skalibs/ip46.h>
+#include <s6-dns/s6dns-constants.h>
+#include <s6-dns/s6dns-ip46.h>
+#include <s6-dns/s6dns-domain.h>
+#include <s6-dns/s6dns-message.h>
+#include <s6-dns/s6dns-resolve.h>
+
+int s6dns_resolvenoq_aaaaa_r (genalloc *ips, char const *name, unsigned int len, s6dns_ip46list_t const *servers, s6dns_debughook_t const *dbh, tain_t const *deadline, tain_t *stamp)
+{
+  stralloc sa[2] = { STRALLOC_ZERO, STRALLOC_ZERO } ;
+  s6dns_resolve_t blob[2] ;
+  if (!s6dns_domain_fromstring_noqualify_encode(&blob[0].q, name, len)) return -1 ;
+  blob[0].qtype = S6DNS_T_AAAA ;
+  blob[0].options = S6DNS_O_RECURSIVE ;
+  blob[0].deadline = *deadline ;
+  blob[0].parsefunc = &s6dns_message_parse_answer_aaaa ;
+  blob[0].data = &sa[0] ;
+  blob[1].q = blob[0].q ;
+  blob[1].qtype = S6DNS_T_A ;
+  blob[1].options = S6DNS_O_RECURSIVE ;
+  blob[1].deadline = *deadline ;
+  blob[1].parsefunc = &s6dns_message_parse_answer_a ;
+  blob[1].data = &sa[1] ;
+  if (!s6dns_resolven_parse_r(blob, 2, servers, dbh, deadline, stamp)) return -1 ;
+  if (blob[0].status && blob[1].status) return (errno = blob[1].status, 0) ;
+  if (!genalloc_readyplus(ip46_t, ips, (sa[0].len >> 4) + (sa[1].len >> 2)))
+  {
+    stralloc_free(&sa[0]) ;
+    stralloc_free(&sa[1]) ;
+    return -1 ;
+  }
+  {
+    unsigned int n = genalloc_len(ip46_t, ips) ;
+    int e = (!!sa[0].len << 1) | !!sa[1].len ;
+    register unsigned int i = 0 ;
+    for (; i < (sa[0].len >> 4) ; i++)
+      ip46_from_ip6(genalloc_s(ip46_t, ips) + n++, sa[0].s + (i << 4)) ;
+    for (i = 0 ; i < (sa[1].len >> 2) ; i++)
+      ip46_from_ip4(genalloc_s(ip46_t, ips) + n++, sa[1].s + (i << 2)) ;
+    genalloc_setlen(ip46_t, ips, n) ;
+    stralloc_free(&sa[0]) ;
+    stralloc_free(&sa[1]) ;
+    return e ;
+  }
+}