halfway through implementing mintstamp

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

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 05d818be1b803c18d2245edccd780976f1200aa0..017b4e63abedb69b96503f61c75b6a5e7cb5756b 100644 (file)
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -58,15 +58,18 @@ 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 !
+               ?on_mintstamp obj
+               # on_mintstamp present and not empty list: provides a
+               #  script which returns the current mintstamp.  This
+               #  means entries start with a 16-hex-digit signed
+               #  integer known as a tstamp; occasionally,
+               #  on_mintstamp will be called and then entries whose
+               #  tstamp is < mintstamp will be deleted automatically.
                =>      iddata(&cdbtcl_rwdatabases)
        open-okjunk RWSCF_OKJUNK
                pathb   string
                on_info obj
-               ?maxage int
+               ?on_mintstamp obj
                =>      iddata(&cdbtcl_rwdatabases)
                # on_info <event> <xinfo>...:
                # on_info open-clean <statistics-info-string>