From: ian <ian>
Date: Sun, 15 Jan 2006 15:28:33 +0000 (+0000)
Subject: "quick" rw table entry extra value
X-Git-Tag: debian/1.1.1~90
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=commitdiff_plain;h=ea19bd2a97c9a283245c23e07d26d177707b6fb1;ds=sidebyside

"quick" rw table entry extra value
---

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index a70aa15..e55e15c 100644
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -1,4 +1,4 @@
-Table cdbtoplevel TopLevel_Command
+Table *cdbtoplevel TopLevel_Command
 	cdb
 		subcmd	enum(Cdb/_SubCommand, "cdb subcommand")
 		...	obj
@@ -22,7 +22,7 @@ Table cdb Cdb_SubCommand
 		db	iddata(&cdbtcl_databases)
 
 Table cdbwr Cdbwr_SubCommand
-	create-empty
+	create-empty -1
 		pathb	string
 		# files:
 		#	<pathb>.main
@@ -38,7 +38,7 @@ Table cdbwr Cdbwr_SubCommand
 		#	if .log exists, it is a cdb native
 		#	  text file _without the trailing newline_;
 		#	  its contents override values from .main or .cdb
-	open
+	open -1
 		pathb	string
 		on_info	obj
 		=>	iddata(&cdbtcl_rwdatabases)
@@ -48,31 +48,34 @@ Table cdbwr Cdbwr_SubCommand
 		# on_info compact-start <statistics-info-string>
 		# on_info compact-end <statistics-info-string>
 		# on_info close <statistics-info-string>
-	lookup
+	lookup 1
 		db	iddata(&cdbtcl_rwdatabases)
 		key	obj
 		=>	obj
-	lookup-hb
+	lookup-hb 1
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb
 		=>	hb
-	update
+	update 0
 		db	iddata(&cdbtcl_rwdatabases)
 		key	obj
 		value	obj
-	update-hb
+	update-hb 0
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb
 		value	hb
-	update-quick
+	update-quick 1
 		db	iddata(&cdbtcl_rwdatabases)
 		key	obj
 		value	obj
-	update-quick-hb
+	update-quick-hb 1
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb
 		value	hb
-	close
+	close 0
 		db	iddata(&cdbtcl_rwdatabases)
-	close-quick
+	close-quick 1
 		db	iddata(&cdbtcl_rwdatabases)
+
+EntryExtra Cdbwr_SubCommand
+	int quick;