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

rename word

db4
Doug Coleman 2009-03-31 18:23:02 -05:00
parent ce04d1dfa9
commit e22823f2c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/spider/spider.factor
View File

@ -25,7 +25,7 @@ TUPLE: unique-deque assoc deque ;
: <unique-deque> ( -- unique-deque ) : <unique-deque> ( -- unique-deque )
H{ } clone <dlist> unique-deque boa ; H{ } clone <dlist> unique-deque boa ;
: store-url ( url depth unique-deque -- ) : push-url ( url depth unique-deque -- )
[ <todo-url> ] dip [ <todo-url> ] dip
[ [ [ t ] dip url>> ] [ assoc>> ] bi* set-at ] [ [ [ t ] dip url>> ] [ assoc>> ] bi* set-at ]
[ deque>> push-back ] 2bi ; [ deque>> push-back ] 2bi ;
@ -38,7 +38,7 @@ TUPLE: unique-deque assoc deque ;
>url >url
spider new spider new
over >>base over >>base
swap 0 <unique-deque> [ store-url ] keep >>todo swap 0 <unique-deque> [ push-url ] keep >>todo
<unique-deque> >>nonmatching <unique-deque> >>nonmatching
<unique-deque> >>filtered <unique-deque> >>filtered
0 >>max-depth 0 >>max-depth
@ -52,7 +52,7 @@ TUPLE: unique-deque assoc deque ;
filters>> [ '[ [ _ 1&& ] filter ] call( seq -- seq' ) ] when* ; filters>> [ '[ [ _ 1&& ] filter ] call( seq -- seq' ) ] when* ;
: push-links ( links level unique-deque -- ) : push-links ( links level unique-deque -- )
'[ _ _ store-url ] each ; '[ _ _ push-url ] each ;
: add-todo ( links level spider -- ) : add-todo ( links level spider -- )
todo>> push-links ; todo>> push-links ;