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

add query>hash* to html.parser.analyzer

db4
Doug Coleman 2008-02-11 17:19:27 -06:00
parent d7a5f9f505
commit 3b6e6a1e13
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,6 @@
USING: assocs html.parser kernel math sequences strings ascii
arrays shuffle unicode.case namespaces ;
arrays shuffle unicode.case namespaces splitting
http.server.responders ;
IN: html.parser.analyzer
: remove-blank-text ( vector -- vector' )
@ -81,5 +82,14 @@ IN: html.parser.analyzer
: href-contains? ( str tag -- ? )
tag-attributes "href" swap at* [ subseq? ] [ 2drop f ] if ;
: query>hash* ( str -- hash )
"?" split1 nip query>hash ;
! clear "http://fark.com" http-get parse-html find-links [ "go.pl" swap start ] subset [ "=" split peek ] map
! clear "http://www.sailwx.info/shiptrack/cruiseships.phtml" http-get parse-html remove-blank-text
! "a" over find-opening-tags-by-name
! [ nip "shipposition.phtml?call=GBTT" swap href-contains? ] assoc-subset
! first first 8 + over nth
! tag-attributes "href" swap at query>hash*
! "lat" over at "lon" rot at