commit 9ec88ea823095bd9cb7b36f85a7be2ff1725db88
Author: Matthieu Dubuget <matthieu.dubuget@gmail.com>
Date:   Sat Dec 3 13:55:44 2016 +0100

    Repository creation

diff --git a/.merlin b/.merlin
new file mode 100644
index 0000000..ee8e1e8
--- /dev/null
+++ b/.merlin
@@ -0,0 +1,3 @@
+S .
+B _build
+PKG js_of_ocaml gen_js_api
diff --git a/META b/META
new file mode 100644
index 0000000..637c944
--- /dev/null
+++ b/META
@@ -0,0 +1,3 @@
+description="OCaml binding to Google Apps"
+archive(byte)="googleApps.cma"
+
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..35a5e19
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,16 @@
+.PHONY: install uninstall
+
+install: META googleApps.mli _build/googleApps.cmo _build/googleApps.cmi _build/googleApps.cma
+	ocamlfind install ocaml-google-apps $^
+
+uninstall:
+	ocamlfind remove ocaml-google-apps
+
+_build/googleApps.cmi: googleApps.mli
+	ocamlbuild googleApps.cmi
+
+_build/googleApps.cmo: googleApps.mli googleApps.ml
+	ocamlbuild googleApps.cmo
+
+_build/googleApps.cma: googleApps.mli googleApps.ml
+	ocamlbuild googleApps.cma
diff --git a/_tags b/_tags
new file mode 100644
index 0000000..53d7f68
--- /dev/null
+++ b/_tags
@@ -0,0 +1,4 @@
+<googleApps.*>: package(gen_js_api.ppx)
+<test.cmo>: package(js_of_ocaml)
+<test.byte>: package(gen_js_api), package(js_of_ocaml), linkpkg, no_check_prims,prettyjs
+
diff --git a/googleApps.ml b/googleApps.ml
new file mode 100644
index 0000000..63f7ef8
--- /dev/null
+++ b/googleApps.ml
@@ -0,0 +1,138 @@
+module Dict : sig
+  type 'a t = (string * 'a) list
+  val t_to_js: ('a -> Ojs.t) -> 'a t -> Ojs.t
+  val t_of_js: (Ojs.t -> 'a) -> Ojs.t -> 'a t
+end = struct
+  type 'a t = (string * 'a) list
+
+  let t_to_js ml2js l =
+    let o = Ojs.empty_obj () in
+    List.iter (fun (k, v) -> Ojs.set o k (ml2js v)) l;
+    o
+
+  let t_of_js js2ml o =
+    let l = ref [] in
+    Ojs.iter_properties o
+                        (fun k -> l := (k, js2ml (Ojs.get o k)) :: !l);
+    !l
+end
+
+
+include ([%js] : sig
+           module Date : sig
+             type t
+             val t_of_js: Ojs.t -> t
+             val t_to_js: t -> Ojs.t
+             val now: unit -> t [@@js.new "Date"]
+             val get_day: t -> int [@@js.call] (* day of the week (0-6) *)
+             val get_full_year: t -> int [@@js.call] (* year (4 digits for 4-digit years)  *)
+             val get_month: t -> int [@@js.call] (* month (0-11) *)
+             val get_date: t -> int [@@js.call] (* day of the month (1-31) *)
+             val get_hours: t -> int [@@js.call] (* hour (0-23) *)
+             val get_minutes: t -> int [@@js.call] (* minutes (0-59) *)
+             val get_seconds: t -> int [@@js.call] (* seconds (0-59) *)
+             val to_date_string: t -> string [@@js.call]
+             val to_ISO_string: t -> string [@@js.call]
+             val to_locale_date_string: t -> string [@@js.call]
+             val to_string: t -> string [@@js.call]
+           end
+
+           module File : sig
+             type t
+             val t_of_js: Ojs.t -> t
+             val get_id: t -> string [@@js.call]
+             val get_name: t -> string [@@js.call]
+             val get_size: t -> int [@@js.call]
+           end
+
+           module FileIterator : sig
+             type t
+             val get_files: unit -> t [@@js.global "DriveApp.getFiles"]
+             val t_of_js: Ojs.t -> t
+             val has_next: t -> bool [@@js.call]
+             val next: t -> File.t [@@js.call]
+           end
+
+
+           val log: string -> unit [@@js.global "Logger.log"]
+
+           module Range : sig
+             type t
+             val get_a1_notation: t -> string [@@js.call]
+             val get_background: t -> string [@@js.call]
+             val get_row: t -> int [@@js.call]
+             val get_last_row: t -> int [@@js.call]
+             val get_column: t -> int [@@js.call]
+             val get_last_column: t -> int [@@js.call]
+             val get_num_columns: t -> int [@@js.call]
+             val get_num_rows: t -> int [@@js.call]
+             val get_values: t -> Ojs.t array array [@@js.call]
+             val get_formulas: t -> string array array [@@js.call]
+             val get_display_values: t -> string array array [@@js.call]
+             val set_value: t -> Ojs.t -> t [@@js.call]
+           end
+
+           module NamedRange: sig
+             type t
+             val get_name: t -> string [@@js.call]
+             val get_range: t -> Range.t [@@js.call]
+           end
+
+           module Sheet : sig
+             type t
+             val get_active_sheet: unit -> t [@@js.global "SpreadsheetApp.getActiveSheet"]
+             val get_last_row: t -> int [@@js.call]
+             val get_last_column: t -> int [@@js.call]
+             val get_sheet_values: t -> start_row:int -> start_column:int -> num_rows:int -> num_columns:int -> Ojs.t array array [@@js.call]
+             val get_range: t -> start_row:int -> start_column:int -> num_rows:int -> num_columns:int -> Range.t [@@js.call]
+             val get_data_range: t -> Range.t [@@js.call]
+             val get_name: t -> string [@@js.call]
+             val get_named_ranges: t -> NamedRange.t list [@@js.call]
+           end
+
+           module EmailField : sig
+             type t
+             val get_address: t -> string [@@js.call]
+           end
+
+           module PhoneField : sig
+             type t
+             module Field : sig
+               type t =
+                 | Work [@js "ContactsApp.Field.WORK_PHONE"]
+                 | Mobile [@js "ContactsApp.Field.MOBILE_PHONE"]
+                 | Home [@js "ContactsApp.Field.HOME_PHONE"]
+                 [@@js.enum]
+             end
+             val get_phone_number: t -> string [@@js.call]
+           end
+
+           module Contacts : sig
+             type t
+             val get_contacts: unit -> t list [@@js.global "ContactsApp.getContacts"]
+
+             val get_family_name: t -> string [@@js.call]
+             val get_given_name: t -> string [@@js.call]
+             val get_full_name: t -> string [@@js.call]
+
+             val get_emails: t -> EmailField.t list [@@js.call]
+             val get_phones: t -> PhoneField.t list [@@js.call]
+             val add_phone: t -> PhoneField.Field.t -> string -> PhoneField.t [@@js.call]
+
+             module Group : sig
+               type g
+               val get_contact_group: string -> g [@@js.global "ContactsApp.getContactGroup"]
+               val get_contacts: g -> t list [@@js.call]
+             end
+
+             val get_contact_groups: t -> Group.g list
+         end
+
+
+           module GmailApp : sig
+             type t
+             val i : t [@@js.global "GmailApp"]
+             val send_email: t -> address:string -> subject:string -> content:string -> unit [@@js.call]
+           end
+
+         end)
diff --git a/googleApps.mli b/googleApps.mli
new file mode 100644
index 0000000..95886cc
--- /dev/null
+++ b/googleApps.mli
@@ -0,0 +1,110 @@
+module Dict :
+  sig
+    type 'a t = (string * 'a) list
+    val t_to_js : ('a -> Ojs.t) -> 'a t -> Ojs.t
+    val t_of_js : (Ojs.t -> 'a) -> Ojs.t -> 'a t
+  end
+module Date :
+  sig
+    type t
+    val t_of_js : Ojs.t -> t
+    val t_to_js : t -> Ojs.t
+    val now : unit -> t
+    val get_day : t -> int
+    val get_full_year : t -> int
+    val get_month : t -> int
+    val get_date : t -> int
+    val get_hours : t -> int
+    val get_minutes : t -> int
+    val get_seconds : t -> int
+    val to_date_string : t -> string
+    val to_ISO_string : t -> string
+    val to_locale_date_string : t -> string
+    val to_string : t -> string
+  end
+module File :
+  sig
+    type t
+    val t_of_js : Ojs.t -> t
+    val get_id : t -> string
+    val get_name : t -> string
+    val get_size : t -> int
+  end
+module FileIterator :
+  sig
+    type t
+    val get_files : unit -> t
+    val t_of_js : Ojs.t -> t
+    val has_next : t -> bool
+    val next : t -> File.t
+  end
+val log : string -> unit
+module Range :
+  sig
+    type t
+    val get_a1_notation : t -> string
+    val get_background : t -> string
+    val get_row : t -> int
+    val get_last_row : t -> int
+    val get_column : t -> int
+    val get_last_column : t -> int
+    val get_num_columns : t -> int
+    val get_num_rows : t -> int
+    val get_values : t -> Ojs.t array array
+    val get_formulas : t -> string array array
+    val get_display_values : t -> string array array
+    val set_value : t -> Ojs.t -> t
+  end
+module NamedRange :
+  sig type t val get_name : t -> string val get_range : t -> Range.t end
+module Sheet :
+  sig
+    type t
+    val get_active_sheet : unit -> t
+    val get_last_row : t -> int
+    val get_last_column : t -> int
+    val get_sheet_values :
+      t ->
+      start_row:int ->
+      start_column:int ->
+      num_rows:int -> num_columns:int -> Ojs.t array array
+    val get_range :
+      t ->
+      start_row:int ->
+      start_column:int -> num_rows:int -> num_columns:int -> Range.t
+    val get_data_range : t -> Range.t
+    val get_name : t -> string
+    val get_named_ranges : t -> NamedRange.t list
+  end
+module EmailField : sig type t val get_address : t -> string end
+module PhoneField :
+  sig
+    type t
+    module Field : sig type t = Work | Mobile | Home end
+    val get_phone_number : t -> string
+  end
+module Contacts :
+  sig
+    type t
+    val get_contacts : unit -> t list
+    module Group :
+      sig
+        type g
+        val get_contact_group : string -> g
+        val get_contacts : g -> t list
+      end
+    val get_emails : t -> EmailField.t list
+     val get_family_name : t -> string
+    val get_given_name : t -> string
+    val get_full_name : t -> string
+    val get_phones : t -> PhoneField.t list
+    val get_contact_groups : t -> Group.g list
+    val add_phone : t -> PhoneField.Field.t -> string -> PhoneField.t
+  end
+module GmailApp :
+  sig
+    type t
+    val i : t
+    val send_email :
+      t -> address:string -> subject:string -> content:string -> unit
+  end
diff --git a/myocamlbuild.ml b/myocamlbuild.ml
new file mode 100644
index 0000000..b8044bd
--- /dev/null
+++ b/myocamlbuild.ml
@@ -0,0 +1,24 @@
+open Ocamlbuild_plugin
+
+module MyProject = struct
+  flag ["js_of_ocaml";"prettyjs"](A"--pretty");
+  flag ["link";"byte";"ocaml";"program";"no_check_prims"](A"-no-check-prims");
+  rule "%.js -> %.byte"
+       ~dep:"%.byte"
+       ~prod:"%.js"
+       (
+         fun env build ->
+         let input = env "%.byte" in
+         let tags = tags_of_pathname input ++ "js_of_ocaml" in
+         Cmd(S[A"js_of_ocaml"; T tags; A"+gen_js_api/ojs_runtime.js"; A input])
+       )
+end
+
+let () = dispatch (
+             function
+             | Before_options ->
+                Options.use_ocamlfind := true;
+             | After_rules ->
+                ()
+             | _ -> ()
+           )