steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

furnace.db: update for Doug's db fixes

db4
Slava Pestov 2008-12-17 23:35:46 -06:00
parent 6fb57d821f
commit dbd0f865e5
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/furnace/alloy/alloy-docs.factor
View File

@ -5,7 +5,7 @@ HELP: init-furnace-tables
{ $description "Initializes database tables used by asides, conversations and session management. This word must be invoked inside a " { $link with-db } " scope." } ; { $description "Initializes database tables used by asides, conversations and session management. This word must be invoked inside a " { $link with-db } " scope." } ;
HELP: <alloy> HELP: <alloy>
{ $values { "responder" "a responder" } { "db" db } { "responder'" "an alloy responder" } } { $values { "responder" "a responder" } { "db" "a database descriptor" } { "responder'" "an alloy responder" } }
{ $description "Wraps the responder with support for asides, conversations, sessions and database persistence." } { $description "Wraps the responder with support for asides, conversations, sessions and database persistence." }
{ $examples { $examples
"The " { $vocab-link "webapps.counter" } " vocabulary uses an alloy to configure the counter:" "The " { $vocab-link "webapps.counter" } " vocabulary uses an alloy to configure the counter:"
@ -21,7 +21,7 @@ HELP: <alloy>
} ; } ;
HELP: start-expiring HELP: start-expiring
{ $values { "db" db } } { $values { "db" "a database descriptor" } }
{ $description "Starts a timer which expires old session state from the given database." } ; { $description "Starts a timer which expires old session state from the given database." } ;
ARTICLE: "furnace.alloy" "Furnace alloy responder" ARTICLE: "furnace.alloy" "Furnace alloy responder"

2
basis/furnace/db/db-docs.factor
View File

@ -3,7 +3,7 @@ IN: furnace.db
HELP: <db-persistence> HELP: <db-persistence>
{ $values { $values
{ "responder" "a responder" } { "db" db } { "responder" "a responder" } { "db" "a database descriptor" }
{ "responder'" db-persistence } { "responder'" db-persistence }
} }
{ $description "Wraps a responder with database persistence support. The responder's " { $link call-responder* } " method will run in a " { $link with-db } " scope." } ; { $description "Wraps a responder with database persistence support. The responder's " { $link call-responder* } " method will run in a " { $link with-db } " scope." } ;

4
basis/furnace/db/db.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors continuations namespaces destructors USING: kernel accessors continuations namespaces destructors
db db.pools io.pools http.server http.server.filters ; db db.private db.pools io.pools http.server http.server.filters ;
IN: furnace.db IN: furnace.db
TUPLE: db-persistence < filter-responder pool ; TUPLE: db-persistence < filter-responder pool ;
@ -12,6 +12,6 @@ TUPLE: db-persistence < filter-responder pool ;
M: db-persistence call-responder* M: db-persistence call-responder*
[ [
pool>> [ acquire-connection ] keep pool>> [ acquire-connection ] keep
[ return-connection-later ] [ drop db set ] 2bi [ return-connection-later ] [ drop db-connection set ] 2bi
] ]
[ call-next-method ] bi ; [ call-next-method ] bi ;