Type adnsresults:		adns_answer *@
Init adnsresults		@=0;
Fini adnsresults		free(@);

Table *adnstoplevel TopLevel_Command
	adns
		subcmd	enum(Adns/_SubCommand, "adns subcommand")
		...	obj

Table adns Adns_SubCommand
	lookup
		rrtype	enum(AdnsTclRRTypeInfo/, "rrtype")
		domain	string
		...	obj
		=>	obj
	synch
		rrtype	enum(AdnsTclRRTypeInfo/, "rrtype")
		domain	string
		...	obj
		=>	obj
	asynch
		on_yes	obj
		on_no	obj
		on_fail	obj
		xargs	obj
		rrtype	enum(AdnsTclRRTypeInfo/, "rrtype")
		domain	string
		...	obj
		=>	iddata(&adnstcl_queries)
	asynch-cancel
		query	iddata(&adnstcl_queries)
	new-resolver
		...	obj
		=>	iddata(&adnstcl_resolvers)
	set-default-resolver
		res	iddata(&adnstcl_resolvers)
	destroy-resolver
		res	iddata(&adnstcl_resolvers)