Jocelyn Fiat
48f5cb78d5
- using http_client library instead of libcurl directly - using implicit conversion to JSON_STRING to improve code readability - use ARRAYED_LIST instead of LINKED_LIST .. for performance. - cosmetic .. but still a lot of feature clauses are missing, comments, assertions ...
100 lines
2.5 KiB
Plaintext
100 lines
2.5 KiB
Plaintext
note
|
|
description: "Summary description for {GOOGLE_NEWS_DATASOURCE}."
|
|
author: ""
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
|
|
class
|
|
GOOGLE_NEWS_DATASOURCE
|
|
|
|
inherit
|
|
|
|
WSF_PAGABLE_DATASOURCE [GOOGLE_NEWS]
|
|
redefine
|
|
state,
|
|
set_state
|
|
end
|
|
|
|
create
|
|
make_news
|
|
|
|
feature --States
|
|
|
|
state: JSON_OBJECT
|
|
-- Return state which contains the current html and if there is an event handle attached
|
|
do
|
|
Result := Precursor
|
|
Result.put (create {JSON_STRING}.make_json (query), create {JSON_STRING}.make_json ("query"))
|
|
end
|
|
|
|
set_state (new_state: JSON_OBJECT)
|
|
do
|
|
Precursor (new_state)
|
|
if attached {JSON_STRING} new_state.item (create {JSON_STRING}.make_json ("query")) as new_query then
|
|
query := new_query.item
|
|
end
|
|
end
|
|
|
|
feature
|
|
|
|
make_news
|
|
do
|
|
page := 1
|
|
page_size := 8
|
|
query := "eiffel"
|
|
end
|
|
|
|
data: ITERABLE [GOOGLE_NEWS]
|
|
local
|
|
list: LINKED_LIST [GOOGLE_NEWS]
|
|
l_json: detachable READABLE_STRING_8
|
|
json_parser: JSON_PARSER
|
|
query_str: STRING
|
|
cl: LIBCURL_HTTP_CLIENT
|
|
sess: HTTP_CLIENT_SESSION
|
|
do
|
|
create list.make
|
|
row_count := 0
|
|
query_str := query.out
|
|
query_str.replace_substring_all (" ", "+")
|
|
create cl.make
|
|
sess := cl.new_session ("https://ajax.googleapis.com/ajax/services/search")
|
|
sess.set_is_insecure (True)
|
|
if sess.is_available then
|
|
if attached {HTTP_CLIENT_RESPONSE} sess.get ("/news?v=1.0&q=" + query_str + "&rsz=" + page_size.out + "&start=" + (page_size * (page - 1)).out, Void) as l_response then
|
|
if not l_response.error_occurred then
|
|
l_json := l_response.body
|
|
end
|
|
end
|
|
end
|
|
if l_json /= Void and then not l_json.is_empty then
|
|
create json_parser.make_parser (l_json)
|
|
if attached {JSON_OBJECT} json_parser.parse_json as sp then
|
|
if attached {JSON_OBJECT} sp.item (create {JSON_STRING}.make_json ("responseData")) as responsedata and then attached {JSON_ARRAY} responsedata.item (create {JSON_STRING}.make_json ("results")) as results then
|
|
if attached {JSON_OBJECT} responsedata.item (create {JSON_STRING}.make_json ("cursor")) as cursor and then attached {JSON_STRING} cursor.item (create {JSON_STRING}.make_json ("estimatedResultCount")) as count then
|
|
row_count := count.item.to_integer.min (64)
|
|
end
|
|
across
|
|
1 |..| results.count as c
|
|
loop
|
|
if attached {JSON_OBJECT} results.i_th (c.item) as j then
|
|
list.extend (create {GOOGLE_NEWS}.make_from_json (j))
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
Result := list
|
|
end
|
|
|
|
feature
|
|
|
|
set_query (q: STRING)
|
|
do
|
|
query := q
|
|
end
|
|
|
|
query: STRING
|
|
|
|
end
|