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
update wip; see cvs diff from 1.12 before checkin
[chiark-tcl.git]
/
adns
/
adns.tct
diff --git
a/adns/adns.tct
b/adns/adns.tct
index dc620179bebce37199bbd4eed169b7b0efdcfeff..513de6ed2126dc666c4e7ff709dd7d0a04319be1 100644
(file)
--- a/
adns/adns.tct
+++ b/
adns/adns.tct
@@
-1,22
+1,20
@@
-H-Include "adnstcl.h"
-
Type adnsresults: adns_answer *@
Init adnsresults @=0;
Fini adnsresults free(@);
Type adnsresults: adns_answer *@
Init adnsresults @=0;
Fini adnsresults free(@);
-Table toplevel TopLevel_Command
+Table
*adns
toplevel TopLevel_Command
adns
adns
- subcmd enum(Adns
_SubCommand,
"adns subcommand")
+ subcmd enum(Adns
/_SubCommand,
"adns subcommand")
... obj
Table adns Adns_SubCommand
lookup
... obj
Table adns Adns_SubCommand
lookup
- rrtype enum(AdnsTclRRTypeInfo, "rrtype")
+ rrtype enum(AdnsTclRRTypeInfo
/
, "rrtype")
domain string
... obj
=> obj
synch
domain string
... obj
=> obj
synch
- rrtype enum(AdnsTclRRTypeInfo, "rrtype")
+ rrtype enum(AdnsTclRRTypeInfo
/
, "rrtype")
domain string
... obj
=> obj
domain string
... obj
=> obj
@@
-25,7
+23,7
@@
Table adns Adns_SubCommand
on_no obj
on_fail obj
xargs obj
on_no obj
on_fail obj
xargs obj
- rrtype enum(AdnsTclRRTypeInfo, "rrtype")
+ rrtype enum(AdnsTclRRTypeInfo
/
, "rrtype")
domain string
... obj
=> iddata(&adnstcl_queries)
domain string
... obj
=> iddata(&adnstcl_queries)