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

Fixes

db4
Slava Pestov 2008-05-27 02:28:48 -05:00
parent 8278ac5b28
commit 6edcd94b62
1 changed files with 0 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
extra/http/server/crud/crud.factor
View File

@ -1,66 +0,0 @@
! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel namespaces db.tuples math.parser
accessors fry locals hashtables validators
http.server
http.server.actions
http.server.components
http.server.forms ;
IN: http.server.crud
:: <view-action> ( form ctor -- action )
<action>
{ { "id" [ v-number ] } } >>get-params
[ "id" get ctor call select-tuple from-tuple ] >>init
[ form view-form ] >>display ;
: <id-redirect> ( id next -- response )
swap "id" associate <standard-redirect> ;
:: <edit-action> ( form ctor next -- action )
<action>
{ { "id" [ [ v-number ] v-optional ] } } >>get-params
[
"id" get ctor call
"id" get
[ select-tuple from-tuple ]
[ from-tuple form set-defaults ]
if
] >>init
[ form edit-form ] >>display
[
f ctor call from-tuple
form validate-form
values-tuple
"id" value [ update-tuple ] [ insert-tuple ] if
"id" value next <id-redirect>
] >>submit ;
:: <delete-action> ( ctor next -- action )
<action>
{ { "id" [ v-number ] } } >>post-params
[
"id" get ctor call delete-tuples
next f <standard-redirect>
] >>submit ;
:: <list-action> ( form ctor -- action )
<action>
[
blank-values
f ctor call select-tuples "list" set-value
form view-form
] >>display ;