basis/furnace/db/db.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel accessors continuations namespaces destructors
   4 db db.private db.pools io.pools http.server http.server.filters ;
   5 IN: furnace.db
   6
   7 TUPLE: db-persistence < filter-responder pool disposed ;
   8
   9 : <db-persistence> ( responder db -- responder' )
  10     <db-pool> f db-persistence boa ;
  11
  12 M: db-persistence call-responder*
  13     [
  14         pool>> [ acquire-connection ] keep
  15         [ return-connection-later ] [ drop db-connection set ] 2bi
  16     ]
  17     [ call-next-method ] bi ;
  18
  19 M: db-persistence dispose* pool>> dispose ;