wrappers/pl_Net_Google_Response.ml

   1 (** Wrapper around Perl [Net::Google::Reponse] class. *)
   2 (*  Copyright (C) 2003 Merjis Ltd.
   3
   4     This library is free software; you can redistribute it and/or
   5     modify it under the terms of the GNU Library General Public
   6     License as published by the Free Software Foundation; either
   7     version 2 of the License, or (at your option) any later version.
   8
   9     This library is distributed in the hope that it will be useful,
  10     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12     Library General Public License for more details.
  13
  14     You should have received a copy of the GNU General Public License
  15     along with this library; see the file COPYING.  If not, write to
  16     the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17     Boston, MA 02111-1307, USA.
  18
  19     $Id: pl_Net_Google_Response.ml,v 1.4 2008-03-01 13:02:21 rich Exp $
  20   *)
  21
  22 open Perl
  23
  24 let _ = eval "use Net::Google::Response"
  25
  26 class net_google_response sv =
  27
  28 object (self)
  29
  30   method documentFiltering =
  31     bool_of_sv (call_method sv "documentFiltering" [])
  32   method searchComments =
  33     string_of_sv (call_method sv "searchComments" [])
  34   method estimateTotalResultsNumber =
  35     int_of_sv (call_method sv "estimateTotalResultsNumber" [])
  36   method estimateIsExact =
  37     bool_of_sv (call_method sv "estimateIsExact" [])
  38   method searchQuery =
  39     string_of_sv (call_method sv "searchQuery" [])
  40   method startIndex =
  41     int_of_sv (call_method sv "startIndex" [])
  42   method endIndex =
  43     int_of_sv (call_method sv "endIndex" [])
  44   method searchTips =
  45     string_of_sv (call_method sv "searchTips" [])
  46   method directoryCategories =
  47     let sv = call_method sv "directoryCategories" [] in
  48     let av = deref_array sv in
  49     av_map (fun sv -> new net_google_response sv) av
  50   method searchTime =
  51     float_of_sv (call_method sv "searchTime" [])
  52   method toString =
  53     string_of_sv (call_method sv "toString" [])
  54   method title =
  55     string_of_sv (call_method sv "title" [])
  56   method url =
  57     string_of_sv (call_method sv "URL" [])
  58   method snippet =
  59     string_of_sv (call_method sv "snippet" [])
  60   method cachedSize =
  61     string_of_sv (call_method sv "cachedSize" [])
  62   method directoryTitle =
  63     string_of_sv (call_method sv "directoryTitle" [])
  64   method summary =
  65     string_of_sv (call_method sv "summary" [])
  66   method hostName =
  67     string_of_sv (call_method sv "hostName" [])
  68
  69   (* method directoryCategory *)
  70
  71 end
  72
  73 (* let new_ = ... *)