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