30 lines
751 B
Factor
30 lines
751 B
Factor
! Copyright (C) 2006 Daniel Ehrenberg
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: http.client xml xml.utilities kernel sequences
|
|
namespaces http math.parser help ;
|
|
IN: yahoo
|
|
|
|
TUPLE: result title url summary ;
|
|
|
|
C: <result> result
|
|
|
|
: parse-yahoo ( xml -- seq )
|
|
"Result" deep-tags-named [
|
|
{ "Title" "Url" "Summary" }
|
|
[ tag-named children>string ] with map
|
|
first3 <result>
|
|
] map ;
|
|
|
|
: yahoo-url ( -- str )
|
|
"http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=Factor-search&query=" ;
|
|
|
|
: query ( search num -- url )
|
|
[
|
|
yahoo-url %
|
|
swap url-encode %
|
|
"&results=" % #
|
|
] "" make ;
|
|
|
|
: search-yahoo ( search num -- seq )
|
|
query http-get string>xml parse-yahoo ;
|