Asynchronous DNS requests with Nim

asyncdns_test.nim

import asyncdispatch
import asynctools/asyncdns


type
  DNSQueryResult = ref object
    name: string
    error: bool
    ans: ptr AsyncAddrInfo

proc lookup(n: string): Future[DNSQueryResult] {.async.} =
  var response = await asyncGetAddrInfo(n, Port(0))
  return DNSQueryResult(name:n, error:false, ans:response)

proc main() {.async.} =
  let domains = @["www.google.ca", "www.microsoft.com", "autodiscover-nameast3.outlook.com"]
  var futures = newSeq[Future[DNSQueryResult]]()
  for domain in domains:
    futures.add(lookup(domain))
  let results = await all futures

  for r in results:
    echo(r.name)
    echo(r.ans)
    echo()

waitFor main()