tokyo-abstractdb-keys ( db -- keys )

Vocabulary

tokyo.abstractdb

Inputs

db

an object

Outputs

keys

an object

Definition

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

IN: tokyo.abstractdb

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