sqlite-db-connection

Vocabulary

db.sqlite.private

Definition

USING: db ;

IN: db.sqlite.private

TUPLE: sqlite-db-connection < db-connection ;

Methods

USING: accessors db.queries db.sqlite.private db.tuples db.types
kernel nmake sequences ;

M: sqlite-db-connection <insert-db-assigned-statement>
    [
        "insert into " 0% 0% "(" 0% remove-db-assigned-id dup
        [ ", " 0% ] [ column-name>> 0% ] interleave
        ") values(" 0%
        [ ", " 0% ] [
            dup type>> +random-id+ = [
                [ slot-name>> ] [
                    column-name>> ":" prepend dup 0%
                    random-id-generator
                ] [ type>> ] tri <generator-bind> 1,
            ] [ bind% ] if
        ] interleave ");" 0%
    ] query-make ;


USING: db.sqlite.private db.tuples ;

M: sqlite-db-connection <insert-user-assigned-statement>
    <insert-db-assigned-statement> ;


USING: db db.sqlite db.sqlite.private ;

M: sqlite-db-connection <prepared-statement>
    sqlite-statement new-statement ;


USING: db db.sqlite.private ;

M: sqlite-db-connection <simple-statement>
    <prepared-statement> ;


USING: accessors db.sqlite.private db.tuples.private db.types
kernel nmake sequences ;

M: sqlite-db-connection bind#
    [
        [ column-name>> ":" next-sql-counter surround dup 0% ]
        [ type>> ] bi
    ] dip <literal-bind> 1, ;


USING: accessors db.sqlite.private db.types kernel nmake
sequences ;

M: sqlite-db-connection bind%
    dup 1, column-name>> ":" prepend 0% ;


USING: combinators db.sqlite.private db.types kernel math.parser
sequences ;

M: sqlite-db-connection compound
    over {
        { "default" [ first number>string " " glue ] }
        { "references" [ >reference-string ] }
        [ 2drop ]
    } case ;


USING: db.queries db.sqlite db.sqlite.private db.tuples kernel ;

M: sqlite-db-connection create-sql-statement
    [ [ sqlite-create-table ] [ drop create-db-triggers ] 2bi ]
    query-make ;


USING: db db.sqlite.lib db.sqlite.private ;

M: sqlite-db-connection db-close sqlite-close ;


USING: db.queries db.sqlite.private db.tuples kernel nmake ;

M: sqlite-db-connection drop-sql-statement
    [ nip "drop table " 0% 0% ";" 0% ] query-make ;


USING: db db.sqlite db.sqlite.private db.tuples db.types kernel
;

M: sqlite-db-connection insert-tuple-set-key
    execute-statement last-insert-id swap set-primary-key ;


USING: accessors combinators db db.sqlite.errors db.sqlite.lib
db.sqlite.private kernel ;

M: sqlite-db-connection parse-db-error
    dup sqlite-error? [
        dup n>>
        { { 1 [ string>> parse-sqlite-sql-error ] } [ drop ] }
        case
    ] when ;


USING: db.sqlite.private db.types random ;

M: sqlite-db-connection persistent-table
    H{
        { +unique+ { f f "unique" } }
        { system-random-generator { f f f } }
        { +null+ { f f "null" } }
        { +cascade+ { f f "cascade" } }
        { SIGNED-BIG-INTEGER { "bigint" "bigint" f } }
        { TIMESTAMP { "timestamp" "timestamp" f } }
        { +restrict+ { f f "restrict" } }
        { BIG-INTEGER { "bigint" "bigint" f } }
        { DATETIME { "datetime" "datetime" f } }
        { +user-assigned-id+ { f f f } }
        { TIME { "time" "time" f } }
        { INTEGER { "integer" "integer" f } }
        { VARCHAR { "text" "text" f } }
        { +on-delete+ { f f "on delete" } }
        { +db-assigned-id+ { "integer" "integer" f } }
        { BLOB { "blob" "blob" f } }
        { DOUBLE { "real" "real" f } }
        { +primary-key+ { f f "primary key" } }
        { TEXT { "text" "text" f } }
        { +random-id+ { "integer" "integer" f } }
        { BOOLEAN { "boolean" "boolean" f } }
        { URL { "text" "text" f } }
        { secure-random-generator { f f f } }
        { +not-null+ { f f "not null" } }
        { +set-null+ { f f "set null" } }
        { DATE { "date" "date" f } }
        { +on-update+ { f f "on update" } }
        { +autoincrement+ { f f "autoincrement" } }
        { random-generator { f f f } }
        { +foreign-id+ { "integer" "integer" "references" } }
        { +set-default+ { f f "set default" } }
        { UNSIGNED-BIG-INTEGER { "bigint" "bigint" f } }
        { +default+ { f f "default" } }
        { FACTOR-BLOB { "blob" "blob" f } }
    } ;