1 (* Wrapper around Perl Net::Google::Reponse class.
2 * Copyright (C) 2003 Merjis Ltd.
3 * $Id: pl_Net_Google_Response.ml,v 1.1 2003-10-14 16:05:22 rich Exp $
8 class net_google_response sv =
12 method documentFiltering =
13 bool_of_sv (call_method sv "documentFiltering" [])
14 method searchComments =
15 string_of_sv (call_method sv "searchComments" [])
16 method estimateTotalResultsNumber =
17 int_of_sv (call_method sv "estimateTotalResultsNumber" [])
18 method estimateIsExact =
19 bool_of_sv (call_method sv "estimateIsExact" [])
21 string_of_sv (call_method sv "searchQuery" [])
23 int_of_sv (call_method sv "startIndex" [])
25 int_of_sv (call_method sv "endIndex" [])
27 string_of_sv (call_method sv "searchTips" [])
28 method directoryCategories =
29 let sv = call_method sv "directoryCategories" [] in
30 let av = deref_array sv in
31 av_map (fun sv -> new net_google_response sv) av
33 float_of_sv (call_method sv "searchTime" [])
35 string_of_sv (call_method sv "toString" [])
37 string_of_sv (call_method sv "title" [])
39 string_of_sv (call_method sv "URL" [])
41 string_of_sv (call_method sv "snippet" [])
43 string_of_sv (call_method sv "cachedSize" [])
44 method directoryTitle =
45 string_of_sv (call_method sv "directoryTitle" [])
47 string_of_sv (call_method sv "summary" [])
49 string_of_sv (call_method sv "hostName" [])
51 (* method directoryCategory *)