factor/basis/db/pools/pools.factor

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel arrays namespaces sequences continuations
io.pools db fry db.private ;
IN: db.pools

TUPLE: db-pool < pool db ;

: <db-pool> ( db -- pool )
    db-pool <pool>
        swap >>db ;

: with-db-pool ( db quot -- )
    [ <db-pool> ] dip with-pool ; inline

M: db-pool make-connection ( pool -- )
    db>> db-open ;

: with-pooled-db ( pool quot -- )
    '[ db-connection _ with-variable ] with-pooled-connection ; inline
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00			`! Copyright (C) 2008 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
			`USING: accessors kernel arrays namespaces sequences continuations`
rename db symbol -> db-connection 2008-12-17 22:04:17 -05:00			`io.pools db fry db.private ;`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00			`IN: db.pools`

make-db is gone, use <sqlite-db> or <postgresql-db> instead. docs. use dip instead of >r r> 2008-10-02 13:11:56 -04:00			`TUPLE: db-pool < pool db ;`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00
update with-db usages 2008-10-02 13:51:21 -04:00			`: <db-pool> ( db -- pool )`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00			`db-pool <pool>`
update with-db usages 2008-10-02 13:51:21 -04:00			`swap >>db ;`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00
update with-db usages 2008-10-02 13:51:21 -04:00			`: with-db-pool ( db quot -- )`
			`[ <db-pool> ] dip with-pool ; inline`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00
			`M: db-pool make-connection ( pool -- )`
make-db is gone, use <sqlite-db> or <postgresql-db> instead. docs. use dip instead of >r r> 2008-10-02 13:11:56 -04:00			`db>> db-open ;`
Abstract out connection pooling into io.pools, add summary and tags to a few places 2008-05-21 23:22:09 -04:00
			`: with-pooled-db ( pool quot -- )`
rename db symbol -> db-connection 2008-12-17 22:04:17 -05:00			`'[ db-connection _ with-variable ] with-pooled-connection ; inline`