"quick" rw table entry extra value

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

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index cfb93baaaafb3a034acf6fe76988c70272919e9a..e55e15c6a6d3f067d38deb21b04f93812370c577 100644 (file)
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -1,4 +1,4 @@
-Table cdbtoplevel TopLevel_Command
+Table *cdbtoplevel TopLevel_Command
        cdb
                subcmd  enum(Cdb/_SubCommand, "cdb subcommand")
                ...     obj
@@ -12,8 +12,8 @@ Table cdb Cdb_SubCommand
                =>      iddata(&cdbtcl_databases)
        lookup
                db      iddata(&cdbtcl_databases)
-               key     bytearray
-               =>      bytearray
+               key     obj
+               =>      obj
        lookup-hb
                db      iddata(&cdbtcl_databases)
                key     hb
@@ -21,8 +21,8 @@ Table cdb Cdb_SubCommand
        close
                db      iddata(&cdbtcl_databases)
 
-Table cdbwr CdbWr_SubCommand
-       create-empty
+Table cdbwr Cdbwr_SubCommand
+       create-empty -1
                pathb   string
                # files:
                #       <pathb>.main
@@ -38,7 +38,7 @@ Table cdbwr CdbWr_SubCommand
                #       if .log exists, it is a cdb native
                #         text file _without the trailing newline_;
                #         its contents override values from .main or .cdb
-       open
+       open -1
                pathb   string
                on_info obj
                =>      iddata(&cdbtcl_rwdatabases)
@@ -48,31 +48,34 @@ Table cdbwr CdbWr_SubCommand
                # on_info compact-start <statistics-info-string>
                # on_info compact-end <statistics-info-string>
                # on_info close <statistics-info-string>
-       lookup
+       lookup 1
                db      iddata(&cdbtcl_rwdatabases)
-               key     bytearray
-               =>      bytearray
-       lookup-hb
+               key     obj
+               =>      obj
+       lookup-hb 1
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                =>      hb
-       update
+       update 0
                db      iddata(&cdbtcl_rwdatabases)
-               key     bytearray
-               value   bytearray
-       update-hb
+               key     obj
+               value   obj
+       update-hb 0
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                value   hb
-       update-quick
+       update-quick 1
                db      iddata(&cdbtcl_rwdatabases)
-               key     bytearray
-               value   bytearray
-       update-quick-hb
+               key     obj
+               value   obj
+       update-quick-hb 1
                db      iddata(&cdbtcl_rwdatabases)
                key     hb
                value   hb
-       close
+       close 0
                db      iddata(&cdbtcl_rwdatabases)
-       close-quick
+       close-quick 1
                db      iddata(&cdbtcl_rwdatabases)
+
+EntryExtra Cdbwr_SubCommand
+       int quick;