Handbook Glossary
factorcode.org
tokyo-abstractdb


Vocabulary
tokyo.abstractdb

Definition
IN: tokyo.abstractdb

TUPLE: tokyo-abstractdb handle disposed ;


Methods
USING: arrays assocs kernel sequences tokyo.abstractdb ;

M: tokyo-abstractdb >alist
[ tokyo-abstractdb-keys dup ] keep [ [ dup ] ] dip
[ at 2array ] curry compose map! drop ;


USING: accessors assocs tokyo.abstractdb tokyo.alien.tcadb ;

M: tokyo-abstractdb assoc-size handle>> tcadbrnum ;


USING: accessors alien.c-types alien.data assocs kernel
sequences serialize tokyo.abstractdb tokyo.alien.tcadb
tokyo.alien.tcutil tokyo.utils ;

M: tokyo-abstractdb at*
handle>> swap object>bytes dup length 0 int <ref> tcadbget
[ [ memory>object ] [ tcfree ] bi t ] [ f f ] if* ;


USING: accessors assocs kernel tokyo.abstractdb
tokyo.alien.tcadb ;

M: tokyo-abstractdb clear-assoc handle>> tcadbvanish drop ;


USING: accessors assocs kernel sequences serialize
tokyo.abstractdb tokyo.alien.tcadb ;

M: tokyo-abstractdb delete-at
handle>> swap object>bytes dup length tcadbout drop ;


USING: accessors destructors kernel tokyo.abstractdb
tokyo.alien.tcadb ;

M: tokyo-abstractdb dispose* [ tcadbdel f ] change-handle drop ;


USING: assocs kernel tokyo.abstractdb ;

M: tokyo-abstractdb equal? assoc= ;


USING: assocs kernel tokyo.abstractdb ;

M: tokyo-abstractdb hashcode* assoc-hashcode ;


USING: accessors assocs kernel sequences serialize
tokyo.abstractdb tokyo.alien.tcadb ;

M: tokyo-abstractdb set-at
handle>> swap rot [ object>bytes dup length ] bi@ tcadbput
drop ;