compound ( string obj -- hash )

Vocabulary

db.types

Inputs

string	an object
obj	an object

Outputs

hash

an object

Definition

USING: db ;

IN: db.types

HOOK: compound db-connection ( string obj -- hash )

Methods

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

M: postgresql-db-connection compound
    over {
        { "default" [ first number>string " " glue ] }
        {
            "varchar"
            [ first number>string "(" ")" surround append ]
        }
        { "references" [ >reference-string ] }
        [ drop no-compound-found ]
    } case ;


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 ;