X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=generator-lib%2Fwrappi_types.mli;h=6bd58f010f6c996ab6bf0567b3c0ca57814c3503;hb=68483fce4f959886866af28c1c3342c2a6fcb410;hp=6120aff38c4ec0ff6e3c6bc43209f18e09cfe398;hpb=bb1329db94910f6739c839bee52177f1b3c4e695;p=wrappi.git

diff --git a/generator-lib/wrappi_types.mli b/generator-lib/wrappi_types.mli
index 6120aff..6bd58f0 100644
--- a/generator-lib/wrappi_types.mli
+++ b/generator-lib/wrappi_types.mli
@@ -16,7 +16,13 @@
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
-type any_type = TInt32 | TInt64 | Type of string
+type any_type =
+  | TFilePerm
+  | TInt32
+  | TInt64
+  | TPathname
+  | TUInt32
+  | TUInt64
 (** Any API parameter or return type. *)
 
 type parameter = string * any_type
@@ -30,7 +36,7 @@ type c_code = string
 (** C code. *)
 
 type entry_point = {
-  (*ep_loc : Camlp4.PreCast.Loc.t;*)
+  ep_loc : Camlp4.PreCast.Loc.t;
   ep_name : string;
   ep_params : parameter list;
   ep_return : return_type;
@@ -38,6 +44,11 @@ type entry_point = {
 }
 (** An API entry point. *)
 
+type api = {
+  api_entry_points : entry_point list;
+}
+(** This single structure describes the whole API. *)
+
 val string_of_any_type : any_type -> string
 val string_of_return_type : return_type -> string
 val string_of_parameter : parameter -> string