do-postgresql-bound-statement ( statement -- res )

Vocabulary

db.postgresql.lib

Inputs

statement

an object

Outputs

res

an object

Definition

USING: accessors combinators db db.postgresql.ffi destructors
kernel namespaces sequences ;

IN: db.postgresql.lib

: do-postgresql-bound-statement ( statement -- res )
    [
        [ db-connection get handle>> ] dip {
            [ sql>> ]
            [ bind-params>> length ]
            [ param-types ]
            [ param-values ]
            [ param-formats ]
        } cleave 0 PQexecParams dup postgresql-result-ok? [
            [ postgresql-result-error-message ] [ PQclear ] bi
            throw
        ] unless
    ] with-destructors ;