generator-bind

Vocabulary

db.types

Definition

IN: db.types

TUPLE: generator-bind slot-name key generator-singleton type ;

Methods

USING: accessors classes.tuple db.postgresql db.tuples.private
db.types kernel ;

M: generator-bind postgresql-bind-conversion
    dup generator-singleton>> eval-generator
    [ swap slot-name>> rot set-slot-named ]
    [ <low-level-binding> ] bi ;


USING: accessors classes.tuple db.sqlite db.tuples.private
db.types ;

M:: generator-bind sqlite-bind-conversion
    ( tuple generate-bind -- array )
    generate-bind generator-singleton>> eval-generator :> obj
    generate-bind slot-name>> :> name obj name tuple
    set-slot-named
    generate-bind key>> obj generate-bind type>>
    <sqlite-low-level-binding> ;