IN: db.sqlite

GENERIC: sqlite-bind-conversion ( tuple obj -- array )

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

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> ;

USING: accessors db.sqlite db.types kernel ;

M: literal-bind sqlite-bind-conversion
nip [ key>> ] [ value>> ] [ type>> ] tri
<sqlite-low-level-binding> ;

USING: accessors classes.tuple db.sqlite db.types kernel
sequences ;

M: sql-spec sqlite-bind-conversion
[ column-name>> ":" prepend ]
[ slot-name>> rot get-slot-named ] [ type>> ] tri
<sqlite-low-level-binding> ;