Merge pull request ManasJayanth#3 from prometheansacrifice/value-array

Adds Value array and some deps

gen/gen.ml

@@ -19,8 +19,9 @@ let files_suffix = "Raw"
 (** Instead of generate all the data structures (and theirs related methods or
  *  constants), the idea is to choose what is needed. *)
 let data_structures =
-  ["TypeInterface"; "ParamSpec"; "Object";]
-(* "Value"; "Binding"; "Closure" *)
+  ["TypeInterface"; "TypeInstance"; "TypeClass"; "ParamSpec"; "Object"; "ValueArray";]
+(* @ [ "Value"; ] *)
+(* "Binding"; "Closure" *)
 
 (** One can choose to skip the bindings of some constants because they are not
  *  needed or because you want to create manually the bindings in the "Core.ml"

gobject.opam

@@ -17,5 +17,6 @@ depends: [
   "base"
   "stdio"
   "configurator"
+  "gi-glib2"
 ]
 

lib/Value.ml

@@ -13,7 +13,7 @@ let copy =
 let dup_string =
   foreign "g_value_dup_string" (ptr t_typ @-> returning (string_opt))
 (* let dup_variant =
- *   foreign "g_value_dup_variant" (ptr t_typ @-> returning (ptr_opt Variant.t_typ)) *)
+ *   foreign "g_value_dup_variant" (ptr t_typ @-> returning (ptr Variant.t_typ)) *)
 let fits_pointer =
   foreign "g_value_fits_pointer" (ptr t_typ @-> returning (bool))
 let get_boolean =
@@ -56,10 +56,10 @@ let get_uint64 =
 let get_ulong =
   foreign "g_value_get_ulong" (ptr t_typ @-> returning (uint64_t))
 (* let get_variant =
- *   foreign "g_value_get_variant" (ptr t_typ @-> returning (ptr_opt Variant.t_typ)) *)
+ *   foreign "g_value_get_variant" (ptr t_typ @-> returning (ptr Variant.t_typ)) *)
 (*Not implemented g_value_init type gType not implemented*)
-(* let init_from_instance =
- *   foreign "g_value_init_from_instance" (ptr t_typ @-> ptr Type_instance.t_typ @-> returning (void)) *)
+let init_from_instance =
+  foreign "g_value_init_from_instance" (ptr t_typ @-> ptr Type_instance.t_typ @-> returning (void))
 let peek_pointer =
   foreign "g_value_peek_pointer" (ptr t_typ @-> returning (ptr_opt void))
 let reset =

lib/Value.mli

@@ -12,7 +12,7 @@ val copy :
 val dup_string :
   t structure ptr -> string option
 (* val dup_variant :
- *   t structure ptr -> Variant.t structure ptr option *)
+ *   t structure ptr -> Variant.t structure ptr *)
 val fits_pointer :
   t structure ptr -> bool
 val get_boolean :
@@ -55,10 +55,10 @@ val get_uint64 :
 val get_ulong :
   t structure ptr -> Unsigned.uint64
 (* val get_variant :
- *   t structure ptr -> Variant.t structure ptr option *)
+ *   t structure ptr -> Variant.t structure ptr *)
 (*Not implemented g_value_init type gType not implemented*)
-(* val init_from_instance :
- *   t structure ptr -> Type_instance.t structure ptr -> unit *)
+val init_from_instance :
+  t structure ptr -> Type_instance.t structure ptr -> unit
 val peek_pointer :
   t structure ptr -> unit ptr option
 val reset :

lib/dune

@@ -5,7 +5,10 @@
           Binding_flags.mli Binding_flags.ml
           Param_spec.mli Param_spec.ml
           Type_interface.mli Type_interface.ml
-          Object.mli Object.ml)
+          Type_instance.mli Type_instance.ml
+          Type_class.mli Type_class.ml
+          Object.mli Object.ml
+          Value_array.mli Value_array.ml)
  (deps    ../gen/gen.exe)
  (action  (run %{deps} -o %{targets})))
 
@@ -18,8 +21,9 @@
 (library
  (name        GObject)
   (public_name gobject)
-  (libraries ctypes ctypes.foreign)
+  (libraries ctypes ctypes.foreign gi-glib2)
   (c_names         dyn_load_constants_stubs)
   (c_flags         (:include c_flags.sexp))
   (c_library_flags (:include c_library_flags.sexp))
+  (flags -open GLib)
  )