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

Make alloy easier to use by creating the database tables for you

db4
Slava Pestov 2008-09-23 03:34:48 -05:00
parent 216064ab50
commit b890c83744
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/furnace/alloy/alloy.factor
View File

@ -11,21 +11,24 @@ furnace.auth.providers
furnace.auth.login.permits ; furnace.auth.login.permits ;
IN: furnace.alloy IN: furnace.alloy
: <alloy> ( responder db params -- responder' )
'[
<asides>
<conversations>
<sessions>
_ _ <db-persistence>
<check-form-submissions>
] call ;
: state-classes { session aside conversation permit } ; inline : state-classes { session aside conversation permit } ; inline
: init-furnace-tables ( -- ) : init-furnace-tables ( -- )
state-classes ensure-tables state-classes ensure-tables
user ensure-table ; user ensure-table ;
: <alloy> ( responder db params -- responder' )
[ [ init-furnace-tables ] with-db ]
[
[
<asides>
<conversations>
<sessions>
] 2dip
<db-persistence>
<check-form-submissions>
] 2bi ;
: start-expiring ( db params -- ) : start-expiring ( db params -- )
'[ '[
_ _ [ state-classes [ expire-state ] each ] with-db _ _ [ state-classes [ expire-state ] each ] with-db