31 lines
1022 B
Factor
31 lines
1022 B
Factor
|
REQUIRES: libs/http-client libs/xml libs/httpd ;
|
||
|
|
USING: http-client xml xml-utils kernel sequences namespaces http errors help ;
|
||
|
|
IN: yahoo
|
||
|
|
|
||
|
|
: parse-yahoo ( xml -- seq )
|
||
|
|
"Result" get-name-tags [
|
||
|
|
{ "Title" "Url" "Summary" }
|
||
|
|
[ get-tag children>string ] map-with
|
||
|
|
] map ;
|
||
|
|
|
||
|
|
: yahoo-url ( -- str )
|
||
|
|
"http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=Factor&query=" ;
|
||
|
|
|
||
|
|
: query ( search num -- url )
|
||
|
|
[
|
||
|
|
yahoo-url %
|
||
|
|
swap url-encode %
|
||
|
|
"&results=" % #
|
||
|
|
] "" make ;
|
||
|
|
|
||
|
|
: search-yahoo ( search num -- seq )
|
||
|
|
query http-get 2nip
|
||
|
|
[ "Search failed" throw ] unless*
|
||
|
|
string>xml parse-yahoo ;
|
||
|
|
|
||
|
|
HELP: search-yahoo
|
||
|
|
{ $values { "search" "a string" } { "num" "a positive integer" } { "seq" "sequence of arrays of length 3" } }
|
||
|
|
{ $description "Uses Yahoo's REST API to search for the query specified in the search string, getting the number of answers specified. Returns a sequence of 3arrays, { title url summary }, each of which is a string." } ;
|
||
|
|
|
||
|
|
PROVIDE: yahoo ;
|