ro compiles

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

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 017b4e63abedb69b96503f61c75b6a5e7cb5756b..a7d22b468cb3ccef22131fb14e9fa2271fc877ff 100644 (file)
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -13,11 +13,13 @@ Table cdb Cdb_SubCommand
        lookup
                db      iddata(&cdbtcl_databases)
                key     obj
+               ?def    obj
                =>      obj
        lookup-hb
                db      iddata(&cdbtcl_databases)
                key     hb
-               =>      hb
+               ?def    obj
+               =>      obj
        close
                db      iddata(&cdbtcl_databases)
 
@@ -58,23 +60,25 @@ Table cdbwr Cdbwr_SubCommand
        open 0
                pathb   string
                on_info obj
-               ?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.
+               ?on_lexminval obj
+               # on_lexminval present and not empty list: provides a
+               #  script which returns the current lexminval.  In
+               #  this case, occasionally,
+               #  on_lexminval will be called and then entries whose
+               #  value is lexically strictly less than lexminval
+               #  will be deleted automatically.  The comparison
+               #  is bytewise on the UTF-8 representations.
                =>      iddata(&cdbtcl_rwdatabases)
        open-okjunk RWSCF_OKJUNK
                pathb   string
                on_info obj
-               ?on_mintstamp obj
+               ?on_lexminval obj
                =>      iddata(&cdbtcl_rwdatabases)
                # on_info <event> <xinfo>...:
                # on_info open-clean <statistics-info-string>
                # on_info open-dirty-start <statistics-info-string>
-               # on_info open-dirty-junk <problem-info-string>
+               # on_info open-dirty-junk <problem-info-string> \
+               #               <problem-error-code-list>
                # on_info open-dirty-done <statistics-info-string>
                # on_info compact-start <statistics-info-string>
                # on_info compact-done <statistics-info-string>
@@ -87,8 +91,8 @@ Table cdbwr Cdbwr_SubCommand
        lookup-hb 0
                db      iddata(&cdbtcl_rwdatabases)
                key     string
-               ?def    hb
-               =>      hb
+               ?def    obj
+               =>      obj
        delete 0
                db      iddata(&cdbtcl_rwdatabases)
                key     string
@@ -104,7 +108,8 @@ Table cdbwr Cdbwr_SubCommand
                db      iddata(&cdbtcl_rwdatabases)
        compact-check 0
                db      iddata(&cdbtcl_rwdatabases)
-       compact-onupdate 0 # this is the default
+       compact-auto 0
+               # this is the default
                db      iddata(&cdbtcl_rwdatabases)
        compact-explicit 0
                db      iddata(&cdbtcl_rwdatabases)