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

cursors: -find iterator

release
Joe Groff 2010-03-26 20:08:29 -07:00
parent e0435f6261
commit dbebe044c9
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/cursors/cursors-tests.factor
View File

@ -8,6 +8,10 @@ IN: cursors.tests
{ } make { } make
] unit-test ] unit-test
[ T{ linear-cursor f 3 1 } ] [
T{ linear-cursor f 1 1 } T{ linear-cursor f 5 1 } [ value>> 3 mod zero? ] -find
] unit-test
[ { 1 3 } ] [ [ { 1 3 } ] [
[ T{ linear-cursor f 1 2 } T{ linear-cursor f 5 2 } [ value>> , ] -each ] [ T{ linear-cursor f 1 2 } T{ linear-cursor f 5 2 } [ value>> , ] -each ]
{ } make { } make

3
extra/cursors/cursors.factor
View File

@ -125,6 +125,9 @@ M: end-of-stream cursor-stream-ended? drop t ; inline
[ '[ dup _ cursor>= ] ] [ '[ dup _ cursor>= ] ]
[ '[ _ keep inc-cursor ] ] bi* until drop ; inline [ '[ _ keep inc-cursor ] ] bi* until drop ; inline
: -find ( ... begin end quot: ( ... cursor -- ... ? ) -- ... cursor )
'[ dup _ cursor>= [ t ] [ dup @ ] if ] [ inc-cursor ] until ; inline
: -in- ( quot -- quot' ) : -in- ( quot -- quot' )
'[ cursor-value-unsafe @ ] ; inline '[ cursor-value-unsafe @ ] ; inline