Commits

camlspotter committed 1dd03df

added OOApi.ml

  • Participants
  • Parent commits a4260e8
  • Branches dev

Comments (0)

Files changed (1)

+open Type
+open Autoapioo
+
+include Autoapioo.Classes
+
+module Tuple = struct
+  include Tuple
+  module X : sig
+    val from_list : < _Object: _Object t > list -> o_Tuple
+    val to_list : < _Tuple: _Tuple t > -> o_Object list
+  end = struct
+    let from_list lst = new o_Tuple (Api.Tuple.from_list (List.map (fun x -> x#_Object) lst))
+    let to_list a = List.map (new o_Object) (Api.Tuple.to_list a#_Tuple)
+  end
+  include X
+end
+
+(*
+module Object =
+module Sequence =
+module String =
+module ByteArray =
+module Number =
+module Type =
+module Mapping =
+module Dict =
+module Run =
+module Eval =
+module DictProxy =
+module Err =
+module Module =
+module Base =
+module Index =
+module Import =
+module Iter =
+module Int =
+module Callable =
+
+*)