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 ;