chiark / gitweb /
test-load targets: Nicer tracing output from make
[chiark-tcl.git] / adns / adns.tct
1 # adns binding for Tcl
2 # Copyright 2006-2012 Ian Jackson
3 #
4 # This program is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU General Public License as
6 # published by the Free Software Foundation; either version 2 of the
7 # License, or (at your option) any later version.
8 #
9 # This program is distributed in the hope that it will be useful, but
10 # WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 # General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License
15 # along with this library; if not, see <http://www.gnu.org/licenses/>.
16
17
18 Type adnsresults:               adns_answer *@
19 Init adnsresults                @=0;
20 Fini adnsresults                free(@);
21
22 Table *adnstoplevel TopLevel_Command
23         adns
24                 dispatch(Adns/_SubCommand, "adns subcommand")
25
26 Table adns Adns_SubCommand
27         lookup
28                 rrtype  enum(AdnsTclRRTypeInfo/, "rrtype")
29                 domain  string
30                 ...     obj
31                 =>      obj
32         synch
33                 rrtype  enum(AdnsTclRRTypeInfo/, "rrtype")
34                 domain  string
35                 ...     obj
36                 =>      obj
37         asynch
38                 on_yes  obj
39                 on_no   obj
40                 on_fail obj
41                 xargs   obj
42                 rrtype  enum(AdnsTclRRTypeInfo/, "rrtype")
43                 domain  string
44                 ...     obj
45                 =>      iddata(&cht_adnstcl_queries)
46         asynch-cancel
47                 query   iddata(&cht_adnstcl_queries)
48         new-resolver
49                 ...     obj
50                 =>      iddata(&cht_adnstcl_resolvers)
51         set-default-resolver
52                 res     iddata(&cht_adnstcl_resolvers)
53         destroy-resolver
54                 res     iddata(&cht_adnstcl_resolvers)
55