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
cdb framework compiles - now just need to implement it
[chiark-tcl.git]
/
cdb
/
cdb.tct
diff --git
a/cdb/cdb.tct
b/cdb/cdb.tct
index cfb93baaaafb3a034acf6fe76988c70272919e9a..a70aa1524c522d661300d6c6ac83b600ef24bd5d 100644
(file)
--- a/
cdb/cdb.tct
+++ b/
cdb/cdb.tct
@@
-12,8
+12,8
@@
Table cdb Cdb_SubCommand
=> iddata(&cdbtcl_databases)
lookup
db iddata(&cdbtcl_databases)
=> iddata(&cdbtcl_databases)
lookup
db iddata(&cdbtcl_databases)
- key
bytearray
- =>
bytearray
+ key
obj
+ =>
obj
lookup-hb
db iddata(&cdbtcl_databases)
key hb
lookup-hb
db iddata(&cdbtcl_databases)
key hb
@@
-21,7
+21,7
@@
Table cdb Cdb_SubCommand
close
db iddata(&cdbtcl_databases)
close
db iddata(&cdbtcl_databases)
-Table cdbwr Cdb
W
r_SubCommand
+Table cdbwr Cdb
w
r_SubCommand
create-empty
pathb string
# files:
create-empty
pathb string
# files:
@@
-50,24
+50,24
@@
Table cdbwr CdbWr_SubCommand
# on_info close <statistics-info-string>
lookup
db iddata(&cdbtcl_rwdatabases)
# on_info close <statistics-info-string>
lookup
db iddata(&cdbtcl_rwdatabases)
- key
bytearray
- =>
bytearray
+ key
obj
+ =>
obj
lookup-hb
db iddata(&cdbtcl_rwdatabases)
key hb
=> hb
update
db iddata(&cdbtcl_rwdatabases)
lookup-hb
db iddata(&cdbtcl_rwdatabases)
key hb
=> hb
update
db iddata(&cdbtcl_rwdatabases)
- key
bytearray
- value
bytearray
+ key
obj
+ value
obj
update-hb
db iddata(&cdbtcl_rwdatabases)
key hb
value hb
update-quick
db iddata(&cdbtcl_rwdatabases)
update-hb
db iddata(&cdbtcl_rwdatabases)
key hb
value hb
update-quick
db iddata(&cdbtcl_rwdatabases)
- key
bytearray
- value
bytearray
+ key
obj
+ value
obj
update-quick-hb
db iddata(&cdbtcl_rwdatabases)
key hb
update-quick-hb
db iddata(&cdbtcl_rwdatabases)
key hb