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