wip is good

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

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 0999af9d94018820df2bc43cd76f78836ddde89e..05d818be1b803c18d2245edccd780976f1200aa0 100644 (file)
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -58,10 +58,15 @@ Table cdbwr Cdbwr_SubCommand
        open 0
                pathb   string
                on_info obj
+               ?maxage int
+               #        >0 means entries start with a 16-hex-digit
+               #         time_t and a single space
+               #         this time_t _is_ part of the value as seen !
                =>      iddata(&cdbtcl_rwdatabases)
        open-okjunk RWSCF_OKJUNK
                pathb   string
                on_info obj
+               ?maxage int
                =>      iddata(&cdbtcl_rwdatabases)
                # on_info <event> <xinfo>...:
                # on_info open-clean <statistics-info-string>
@@ -73,21 +78,24 @@ Table cdbwr Cdbwr_SubCommand
                # on_info close <statistics-info-string>
        lookup 0
                db      iddata(&cdbtcl_rwdatabases)
-               key     obj
+               key     string
                ?def    obj
                =>      obj
        lookup-hb 0
                db      iddata(&cdbtcl_rwdatabases)
-               key     hb
+               key     string
                ?def    hb
                =>      hb
+       delete 0
+               db      iddata(&cdbtcl_rwdatabases)
+               key     string
        update 0
                db      iddata(&cdbtcl_rwdatabases)
-               key     obj
+               key     string
                value   obj
        update-hb 0
                db      iddata(&cdbtcl_rwdatabases)
-               key     hb
+               key     string
                value   hb
        compact-force 0
                db      iddata(&cdbtcl_rwdatabases)