Version 0.3.4 for release.
[perl4caml.git] / wrappers / pl_Net_Google_Response.ml
1 (* Wrapper around Perl Net::Google::Reponse class.
2  * Copyright (C) 2003 Merjis Ltd.
3  * $Id: pl_Net_Google_Response.ml,v 1.2 2003-10-15 16:51:12 rich Exp $
4  *)
5
6 open Perl
7
8 let _ = eval "use Net::Google::Response"
9
10 class net_google_response sv =
11
12 object (self)
13
14   method documentFiltering =
15     bool_of_sv (call_method sv "documentFiltering" [])
16   method searchComments =
17     string_of_sv (call_method sv "searchComments" [])
18   method estimateTotalResultsNumber =
19     int_of_sv (call_method sv "estimateTotalResultsNumber" [])
20   method estimateIsExact =
21     bool_of_sv (call_method sv "estimateIsExact" [])
22   method searchQuery =
23     string_of_sv (call_method sv "searchQuery" [])
24   method startIndex =
25     int_of_sv (call_method sv "startIndex" [])
26   method endIndex =
27     int_of_sv (call_method sv "endIndex" [])
28   method searchTips =
29     string_of_sv (call_method sv "searchTips" [])
30   method directoryCategories =
31     let sv = call_method sv "directoryCategories" [] in
32     let av = deref_array sv in
33     av_map (fun sv -> new net_google_response sv) av
34   method searchTime =
35     float_of_sv (call_method sv "searchTime" [])
36   method toString =
37     string_of_sv (call_method sv "toString" [])
38   method title =
39     string_of_sv (call_method sv "title" [])
40   method url =
41     string_of_sv (call_method sv "URL" [])
42   method snippet =
43     string_of_sv (call_method sv "snippet" [])
44   method cachedSize =
45     string_of_sv (call_method sv "cachedSize" [])
46   method directoryTitle =
47     string_of_sv (call_method sv "directoryTitle" [])
48   method summary =
49     string_of_sv (call_method sv "summary" [])
50   method hostName =
51     string_of_sv (call_method sv "hostName" [])
52
53   (* method directoryCategory *)
54
55 end
56
57 (* let new_ = ... *)