tokyo-remotedb-keys ( db -- keys )

Vocabulary

tokyo.remotedb

Inputs

db

an object

Outputs

keys

an object

Definition

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

IN: tokyo.remotedb

: tokyo-remotedb-keys ( db -- keys )
    [ assoc-size <vector> ] [ handle>> ] bi
    dup tcrdbiterinit drop 0 int <ref>
    [ 2dup tcrdbiternext ]
    [ [ memory>object ] [ tcfree ] bi reach push ] while* 2drop
    ;