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

fixed point signals

db4
Sam Anklesaria 2009-06-21 21:08:24 -05:00
parent 08c386f534
commit b8633e5e12
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/ui/frp/signals/signals.factor
View File

@ -77,7 +77,8 @@ M: mapped-model (model-changed)
set-model ; set-model ;
TUPLE: side-effect-model < mapped-model ; TUPLE: side-effect-model < mapped-model ;
M: side-effect-model (model-changed) [ [ value>> ] [ quot>> ] bi* call( old -- ) ] keep t swap set-model ; M: side-effect-model (model-changed) [ value>> ] dip [ quot>> call( old -- ) ] 2keep set-model ;
: $> ( model quot -- signal ) side-effect-model new-mapped-model ; : $> ( model quot -- signal ) side-effect-model new-mapped-model ;
TUPLE: quot-model < mapped-model ; TUPLE: quot-model < mapped-model ;
@ -115,5 +116,11 @@ M: model fmap <mapped> ;
USE: ui.frp.functors USE: ui.frp.functors
FMAPS: $> <$ fmap FOR & | product ; FMAPS: $> <$ fmap FOR & | product ;
! for side effects
TUPLE: (frp-when) < multi-model quot cond ;
: frp-when ( model quot cond -- model ) rot 1array (frp-when) <multi-model> swap >>cond swap >>quot ;
M: (frp-when) (model-changed) [ quot>> ] 2keep
[ value>> ] [ cond>> ] bi* call( a -- ? ) [ call( model -- ) ] [ 2drop ] if ;
! only used in construction ! only used in construction
: with-self ( quot: ( model -- model ) -- model ) [ f <basic> dup ] dip call swap [ add-dependency ] keep ; inline : with-self ( quot: ( model -- model ) -- model ) [ f <basic> dup ] dip call swap [ add-dependency ] keep ; inline