chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ro compiles
[chiark-tcl.git]
/
cdb
/
cdb.tct
diff --git
a/cdb/cdb.tct
b/cdb/cdb.tct
index e33607bc7932348367007a86a0ae3a4547452908..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
lookup
db iddata(&cdbtcl_databases)
key obj
+ ?def obj
=> obj
lookup-hb
db iddata(&cdbtcl_databases)
key hb
=> obj
lookup-hb
db iddata(&cdbtcl_databases)
key hb
- => hb
+ ?def obj
+ => obj
close
db iddata(&cdbtcl_databases)
close
db iddata(&cdbtcl_databases)
@@
-89,8
+91,8
@@
Table cdbwr Cdbwr_SubCommand
lookup-hb 0
db iddata(&cdbtcl_rwdatabases)
key string
lookup-hb 0
db iddata(&cdbtcl_rwdatabases)
key string
- ?def
hb
- =>
hb
+ ?def
obj
+ =>
obj
delete 0
db iddata(&cdbtcl_rwdatabases)
key string
delete 0
db iddata(&cdbtcl_rwdatabases)
key string
@@
-106,7
+108,8
@@
Table cdbwr Cdbwr_SubCommand
db iddata(&cdbtcl_rwdatabases)
compact-check 0
db iddata(&cdbtcl_rwdatabases)
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)
db iddata(&cdbtcl_rwdatabases)
compact-explicit 0
db iddata(&cdbtcl_rwdatabases)