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

copyright

db4
Doug Coleman 2008-09-25 02:06:49 -05:00
parent 3dc81abc07
commit 3b98f2bc2f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/html/parser/analyzer/analyzer.factor
View File

@ -1,3 +1,5 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs html.parser kernel math sequences strings ascii USING: assocs html.parser kernel math sequences strings ascii
arrays generalizations shuffle unicode.case namespaces make arrays generalizations shuffle unicode.case namespaces make
splitting http accessors io combinators http.client urls splitting http accessors io combinators http.client urls
@ -17,7 +19,6 @@ TUPLE: link attributes clickable ;
'[ _ [ second @ ] find-from rot drop swap 1+ ] '[ _ [ second @ ] find-from rot drop swap 1+ ]
[ f 0 ] 2dip times drop first2 ; inline [ f 0 ] 2dip times drop first2 ; inline
: find-first-name ( str vector -- i/f tag/f ) : find-first-name ( str vector -- i/f tag/f )
[ >lower ] dip [ name>> = ] with find ; inline [ >lower ] dip [ name>> = ] with find ; inline