chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use dispatch()
[chiark-tcl.git]
/
adns
/
adns.tct
diff --git
a/adns/adns.tct
b/adns/adns.tct
index dbb700ce0e1298c5d04b3aed2db387603a3cada7..7abfc9f4697c78a3c5cc6f6bbebe44b127d67c06 100644
(file)
--- a/
adns/adns.tct
+++ b/
adns/adns.tct
@@
-23,8
+23,7
@@
Fini adnsresults free(@);
Table *adnstoplevel TopLevel_Command
adns
Table *adnstoplevel TopLevel_Command
adns
- subcmd enum(Adns/_SubCommand, "adns subcommand")
- ... obj
+ dispatch(Adns/_SubCommand, "adns subcommand")
Table adns Adns_SubCommand
lookup
Table adns Adns_SubCommand
lookup
@@
-45,14
+44,14
@@
Table adns Adns_SubCommand
rrtype enum(AdnsTclRRTypeInfo/, "rrtype")
domain string
... obj
rrtype enum(AdnsTclRRTypeInfo/, "rrtype")
domain string
... obj
- => iddata(&adnstcl_queries)
+ => iddata(&
cht_
adnstcl_queries)
asynch-cancel
asynch-cancel
- query iddata(&adnstcl_queries)
+ query iddata(&
cht_
adnstcl_queries)
new-resolver
... obj
new-resolver
... obj
- => iddata(&adnstcl_resolvers)
+ => iddata(&
cht_
adnstcl_resolvers)
set-default-resolver
set-default-resolver
- res iddata(&adnstcl_resolvers)
+ res iddata(&
cht_
adnstcl_resolvers)
destroy-resolver
destroy-resolver
- res iddata(&adnstcl_resolvers)
+ res iddata(&
cht_
adnstcl_resolvers)