X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=cdb%2Fcdb.tct;h=d113af977771cf888dc8f05c054c690c70c4d562;hp=05d818be1b803c18d2245edccd780976f1200aa0;hb=2b24ccf8dc74b52fad1d1a74f29c5d3fe493d68a;hpb=ebd7e30dd682685e1f4390718ec2797b8e902768

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 05d818b..d113af9 100644
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -58,20 +58,25 @@ 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_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
-		?maxage	int
+		?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>
@@ -101,7 +106,7 @@ 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)