correct doc comment re EntryExtra

[chiark-tcl.git] / cdb / cdb.tct

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 9bb1fe431127d1e9b0d2ccaa36556b8ec312b7cf..e55e15c6a6d3f067d38deb21b04f93812370c577 100644 (file)
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -1,9 +1,9 @@
-Table cdbtoplevel TopLevel_Command
+Table *cdbtoplevel TopLevel_Command
        cdb
                subcmd  enum(Cdb/_SubCommand, "cdb subcommand")
                ...     obj
        cdb-wr
-               subcmd  enum(CdbWr/_SubCommand, "cdb-wr subcommand")
+               subcmd  enum(Cdbwr/_SubCommand, "cdb-wr subcommand")
                ...     obj
 
 Table cdb Cdb_SubCommand
@@ -21,96 +21,61 @@ Table cdb Cdb_SubCommand
        close
                db      iddata(&cdbtcl_databases)
 
-Table cdbwr CdbWr_SubCommand
-       open
+Table cdbwr Cdbwr_SubCommand
+       create-empty -1
                pathb   string
-               on_info obj
-               =>      iddata(&cdbtcl_rwdatabases)
-               # on_info <event> <xinfo>...:
-               # on_info
-               #
                # files:
-               #       <pathdb>.main
+               #       <pathb>.main
                #       <pathb>.cdb
-               #       <pathdb>.log
+               #       <pathb>.log
                #       <pathb>.tmp (might be new .main or new .cdb)
                # invariants:
- fixme finish this
- also mention file format
- and whether cdb text format files are terminated
-               #       .main always exists
+               #       .main is a cdb native text file
+               #         and always exists
                #       if .tmp exists it is irrelevant
-               #       if .cdb exists it contains exactly the same
-               #          as .main
-               #       if .log exists, it _must_ be read and contents
-               #          override values from .main or .cdb
-       create-empty
+               #       if .cdb exists it is a cdb database
+               #         containing exactly the same as .main
+               #       if .log exists, it is a cdb native
+               #         text file _without the trailing newline_;
+               #         its contents override values from .main or .cdb
+       open -1
                pathb   string
-       lookup
+               on_info obj
+               =>      iddata(&cdbtcl_rwdatabases)
+               # on_info <event> <xinfo>...:
+               # on_info open-clean <statistics-info-string>
+               # on_info open-dirty <statistics-info-string>
+               # on_info compact-start <statistics-info-string>
+               # on_info compact-end <statistics-info-string>
+               # on_info close <statistics-info-string>
+       lookup 1
                db      iddata(&cdbtcl_rwdatabases)
                key     obj
                =>      obj
-       lookup-hb
+       lookup-hb 1
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                =>      hb
-       update
+       update 0
                db      iddata(&cdbtcl_rwdatabases)
                key     obj
                value   obj
-       update-hb
+       update-hb 0
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                value   hb
-       update-quick
+       update-quick 1
                db      iddata(&cdbtcl_rwdatabases)
                key     obj
                value   obj
-       update-quick-hb
+       update-quick-hb 1
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                value   hb
+       close 0
+               db      iddata(&cdbtcl_rwdatabases)
+       close-quick 1
+               db      iddata(&cdbtcl_rwdatabases)
 
-       open-autolog
-               
-
-       lookup
-               rrtype  enum(CdbTclRRTypeInfo/, "rrtype")
-               domain  string
-               ...     obj
-               =>      obj
-       synch
-               rrtype  enum(CdbTclRRTypeInfo/, "rrtype")
-               domain  string
-               ...     obj
-               =>      obj
-       asynch
-               on_yes  obj
-               on_no   obj
-               on_fail obj
-               xargs   obj
-               rrtype  enum(CdbTclRRTypeInfo/, "rrtype")
-               domain  string
-               ...     obj
-               =>      iddata(&cdbtcl_queries)
-       asynch-cancel
-               query   iddata(&cdbtcl_queries)
-       new-resolver
-               ...     obj
-               =>      iddata(&cdbtcl_resolvers)
-       set-default-resolver
-               res     iddata(&cdbtcl_resolvers)
-       destroy-resolver
-               res     iddata(&cdbtcl_resolvers)
-
-
-
-Type cdbresults:               cdb_answer *@
-Init cdbresults                @=0;
-Fini cdbresults                free(@);
-
-Table cdbtoplevel TopLevel_Command
-       cdb
-               subcmd  enum(Cdb/_SubCommand, "cdb subcommand")
-               ...     obj
-
+EntryExtra Cdbwr_SubCommand
+       int quick;