17 lines
507 B
Factor
Executable File
17 lines
507 B
Factor
Executable File
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: db http.server kernel accessors
|
|
continuations namespaces destructors ;
|
|
IN: http.server.db
|
|
|
|
TUPLE: db-persistence responder db params ;
|
|
|
|
C: <db-persistence> db-persistence
|
|
|
|
: connect-db ( db-persistence -- )
|
|
[ db>> ] [ params>> ] bi make-db
|
|
[ db set ] [ db-open ] [ add-always-destructor ] tri ;
|
|
|
|
M: db-persistence call-responder
|
|
[ connect-db ] [ responder>> call-responder ] bi ;
|