Fixed for Perl 5.8.2.
[perl4caml.git] / wrappers / pl_Net_Google_Response.ml
1 (** Wrapper around Perl [Net::Google::Reponse] class.
2   *
3   * Copyright (C) 2003 Merjis Ltd.
4   *
5   * $Id: pl_Net_Google_Response.ml,v 1.3 2003-10-16 13:41:07 rich Exp $
6   *)
7
8 open Perl
9
10 let _ = eval "use Net::Google::Response"
11
12 class net_google_response sv =
13
14 object (self)
15
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" [])
24   method searchQuery =
25     string_of_sv (call_method sv "searchQuery" [])
26   method startIndex =
27     int_of_sv (call_method sv "startIndex" [])
28   method endIndex =
29     int_of_sv (call_method sv "endIndex" [])
30   method searchTips =
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
36   method searchTime =
37     float_of_sv (call_method sv "searchTime" [])
38   method toString =
39     string_of_sv (call_method sv "toString" [])
40   method title =
41     string_of_sv (call_method sv "title" [])
42   method url =
43     string_of_sv (call_method sv "URL" [])
44   method snippet =
45     string_of_sv (call_method sv "snippet" [])
46   method cachedSize =
47     string_of_sv (call_method sv "cachedSize" [])
48   method directoryTitle =
49     string_of_sv (call_method sv "directoryTitle" [])
50   method summary =
51     string_of_sv (call_method sv "summary" [])
52   method hostName =
53     string_of_sv (call_method sv "hostName" [])
54
55   (* method directoryCategory *)
56
57 end
58
59 (* let new_ = ... *)