basis/furnace/db/db.factor

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