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_ = ... *)