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)
-               key     bytearray
-               =>      bytearray
+               key     obj
+               =>      obj
        lookup-hb
                db      iddata(&cdbtcl_databases)
                key     hb
@@ -21,7 +21,7 @@ Table cdb Cdb_SubCommand
        close
                db      iddata(&cdbtcl_databases)
 
-Table cdbwr CdbWr_SubCommand
+Table cdbwr Cdbwr_SubCommand
        create-empty
                pathb   string
                # files:
@@ -50,24 +50,24 @@ Table cdbwr CdbWr_SubCommand
                # 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)
-               key     bytearray
-               value   bytearray
+               key     obj
+               value   obj
        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