tokyo-remotedb

Vocabulary

tokyo.remotedb

Definition

IN: tokyo.remotedb

TUPLE: tokyo-remotedb handle disposed ;

Methods

USING: arrays assocs kernel sequences tokyo.remotedb ;

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


USING: accessors assocs tokyo.alien.tcrdb tokyo.remotedb ;

M: tokyo-remotedb assoc-size handle>> tcrdbrnum ;


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

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


USING: accessors assocs kernel tokyo.alien.tcrdb tokyo.remotedb
;

M: tokyo-remotedb clear-assoc handle>> tcrdbvanish drop ;


USING: accessors assocs kernel sequences serialize
tokyo.alien.tcrdb tokyo.remotedb ;

M: tokyo-remotedb delete-at
    handle>> swap object>bytes dup length tcrdbout drop ;


USING: accessors destructors kernel tokyo.alien.tcrdb
tokyo.remotedb ;

M: tokyo-remotedb dispose* [ tcrdbdel f ] change-handle drop ;


USING: assocs kernel tokyo.remotedb ;

M: tokyo-remotedb equal? assoc= ;


USING: assocs kernel tokyo.remotedb ;

M: tokyo-remotedb hashcode* assoc-hashcode ;


USING: accessors assocs kernel sequences serialize
tokyo.alien.tcrdb tokyo.remotedb ;

M: tokyo-remotedb set-at
    handle>> spin [ object>bytes dup length ] bi@ tcrdbput drop
    ;