param-values ( statement -- seq seq2 )

Vocabulary

db.postgresql.lib

Inputs

statement

an object

Outputs

seq	an object
seq2	an object

Definition

USING: accessors alien.c-types alien.data arrays calendar.format
combinators db.types kernel present sequences serialize ;

IN: db.postgresql.lib

: param-values ( statement -- seq seq2 )
    [ bind-params>> ] [ in-params>> ] bi [
        [ value>> ] [ type>> ] bi* {
            {
                FACTOR-BLOB
                [
                    dup
                    [ object>bytes malloc-byte-array/length ]
                    [ 0 ] if
                ]
            }
            {
                BLOB
                [ dup [ malloc-byte-array/length ] [ 0 ] if ]
            }
            {
                DATE
                [
                    dup [ timestamp>ymd ] when
                    default-param-value
                ]
            }
            {
                TIME
                [
                    dup [ duration>hms ] when
                    default-param-value
                ]
            }
            {
                DATETIME
                [
                    dup [ timestamp>ymdhms ] when
                    default-param-value
                ]
            }
            {
                TIMESTAMP
                [
                    dup [ timestamp>ymdhms ] when
                    default-param-value
                ]
            }
            { URL [ dup [ present ] when default-param-value ] }
            [ drop default-param-value ]
        } case 2array
    ] 2map flip
    [ f f ] [ first2 [ void* >c-array ] [ uint >c-array ] bi* ]
    if-empty ;