adns/adns.tct

   1 H-Include "adnstcl.h"
   2
   3 Type adnsresults:               adns_answer *@
   4 Init adnsresults                @=0;
   5 Fini adnsresults                free(@);
   6
   7 Table toplevel TopLevel_Command
   8         adns
   9                 subcmd  enum(Adns_SubCommand,"adns subcommand")
  10                 ...     obj
  11
  12 Table adns Adns_SubCommand
  13         lookup
  14                 rrtype  enum(AdnsTclRRTypeInfo, "rrtype")
  15                 domain  string
  16                 ...     obj
  17                 =>      obj
  18         synch
  19                 rrtype  enum(AdnsTclRRTypeInfo, "rrtype")
  20                 domain  string
  21                 ...     obj
  22                 =>      obj
  23         asynch
  24                 on_yes  obj
  25                 on_no   obj
  26                 on_fail obj
  27                 xargs   obj
  28                 rrtype  enum(AdnsTclRRTypeInfo, "rrtype")
  29                 domain  string
  30                 ...     obj
  31                 =>      iddata(&adnstcl_queries)
  32         asynch-cancel
  33                 query   iddata(&adnstcl_queries)
  34         new-resolver
  35                 ...     obj
  36                 =>      iddata(&adnstcl_resolvers)
  37         set-default-resolver
  38                 res     iddata(&adnstcl_resolvers)
  39         destroy-resolver
  40                 res     iddata(&adnstcl_resolvers)
  41