Fixed loads of bugs. It now works. Ready to integrate in assessortool.

[perl4caml.git] / wrappers / pl_Net_Google.ml

diff --git a/wrappers/pl_Net_Google.ml b/wrappers/pl_Net_Google.ml
new file mode 100644 (file)
index 0000000..0ebebbe
--- /dev/null
+++ b/wrappers/pl_Net_Google.ml
@@ -0,0 +1,71 @@
+(* Wrapper around Perl Net::Google class.
+ * Copyright (C) 2003 Merjis Ltd.
+ * $Id: pl_Net_Google.ml,v 1.1 2003-10-14 16:05:22 rich Exp $
+ *)
+
+open Perl
+
+open Pl_Net_Google_Cache
+open Pl_Net_Google_Search
+open Pl_Net_Google_Spelling
+
+let may f = function None -> () | Some v -> f v
+
+class net_google sv =
+
+object (self)
+
+  method search ?key ?starts_at ?max_results ?lr ?ie ?oe ?safe ?filter () =
+    let args = ref [] in
+    may (fun v ->
+          args := sv_of_string "key" :: sv_of_string v :: !args) key;
+    may (fun v ->
+          args := sv_of_string "starts_at" :: sv_of_int v :: !args) starts_at;
+    may (fun v ->
+          args := sv_of_string "max_results" :: sv_of_int v :: !args)
+      max_results;
+    may (fun v ->
+          args := sv_of_string "lr" :: sv_of_string v :: !args) lr;
+    may (fun v ->
+          args := sv_of_string "ie" :: sv_of_string v :: !args) ie;
+    may (fun v ->
+          args := sv_of_string "oe" :: sv_of_string v :: !args) oe;
+    may (fun v ->
+          args := sv_of_string "safe" :: sv_of_bool v :: !args) safe;
+    may (fun v ->
+          args := sv_of_string "filter" :: sv_of_bool v :: !args) filter;
+    let sv = call_method sv "search" !args in
+    new net_google_search sv
+
+  method spelling ?key ?phrase ?debug () =
+    let args = ref [] in
+    may (fun v ->
+          args := sv_of_string "key" :: sv_of_string v :: !args) key;
+    may (fun v ->
+          args := sv_of_string "phrase" :: sv_of_string v :: !args) phrase;
+    may (fun v ->
+          args := sv_of_string "debug" :: sv_of_int v :: !args) debug;
+    let sv = call_method sv "spelling" !args in
+    new net_google_spelling sv
+
+  method cache ?key ?url ?debug () =
+    let args = ref [] in
+    may (fun v ->
+          args := sv_of_string "key" :: sv_of_string v :: !args) key;
+    may (fun v ->
+          args := sv_of_string "url" :: sv_of_string v :: !args) url;
+    may (fun v ->
+          args := sv_of_string "debug" :: sv_of_int v :: !args) debug;
+    let sv = call_method sv "cache" !args in
+    new net_google_cache sv
+
+end
+
+let new_ ?key ?debug () =
+  let args = ref [] in
+  may (fun v ->
+        args := sv_of_string "key" :: sv_of_string v :: !args) key;
+  may (fun v ->
+        args := sv_of_string "debug" :: sv_of_int v :: !args) debug;
+  let sv = call_class_method "Net::Google" "new" !args in
+  new net_google sv