basis/db/pools/pools.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors db io.pools kernel namespaces ;
   4 IN: db.pools
   5
   6 TUPLE: db-pool < pool db ;
   7
   8 : <db-pool> ( db -- pool )
   9     db-pool <pool>
  10         swap >>db ;
  11
  12 : with-db-pool ( db quot -- )
  13     [ <db-pool> ] dip with-pool ; inline
  14
  15 M: db-pool make-connection
  16     db>> db-open ;
  17
  18 : with-pooled-db ( pool quot -- )
  19     '[ db-connection _ with-variable ] with-pooled-connection ; inline