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
wip is good
[chiark-tcl.git]
/
cdb
/
cdb.tct
diff --git
a/cdb/cdb.tct
b/cdb/cdb.tct
index 0999af9d94018820df2bc43cd76f78836ddde89e..05d818be1b803c18d2245edccd780976f1200aa0 100644
(file)
--- a/
cdb/cdb.tct
+++ b/
cdb/cdb.tct
@@
-58,10
+58,15
@@
Table cdbwr Cdbwr_SubCommand
open 0
pathb string
on_info obj
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 !
=> iddata(&cdbtcl_rwdatabases)
open-okjunk RWSCF_OKJUNK
pathb string
on_info obj
=> iddata(&cdbtcl_rwdatabases)
open-okjunk RWSCF_OKJUNK
pathb string
on_info obj
+ ?maxage int
=> iddata(&cdbtcl_rwdatabases)
# on_info <event> <xinfo>...:
# on_info open-clean <statistics-info-string>
=> iddata(&cdbtcl_rwdatabases)
# on_info <event> <xinfo>...:
# on_info open-clean <statistics-info-string>
@@
-73,21
+78,24
@@
Table cdbwr Cdbwr_SubCommand
# on_info close <statistics-info-string>
lookup 0
db iddata(&cdbtcl_rwdatabases)
# on_info close <statistics-info-string>
lookup 0
db iddata(&cdbtcl_rwdatabases)
- key
obj
+ key
string
?def obj
=> obj
lookup-hb 0
db iddata(&cdbtcl_rwdatabases)
?def obj
=> obj
lookup-hb 0
db iddata(&cdbtcl_rwdatabases)
- key
hb
+ key
string
?def hb
=> hb
?def hb
=> hb
+ delete 0
+ db iddata(&cdbtcl_rwdatabases)
+ key string
update 0
db iddata(&cdbtcl_rwdatabases)
update 0
db iddata(&cdbtcl_rwdatabases)
- key
obj
+ key
string
value obj
update-hb 0
db iddata(&cdbtcl_rwdatabases)
value obj
update-hb 0
db iddata(&cdbtcl_rwdatabases)
- key
hb
+ key
string
value hb
compact-force 0
db iddata(&cdbtcl_rwdatabases)
value hb
compact-force 0
db iddata(&cdbtcl_rwdatabases)