X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=cdb%2Fcdb.tct;h=a7d22b468cb3ccef22131fb14e9fa2271fc877ff;hb=0ec7eaa2194834986c6b46068b9fc459ddf54f87;hp=017b4e63abedb69b96503f61c75b6a5e7cb5756b;hpb=4d5a1756e972ca3970cc5d7b9854a36ff3e47d1a;p=chiark-tcl.git

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index 017b4e6..a7d22b4 100644
--- 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)