Explicit types in the generator.

[wrappi.git] / generator-lib / wrappi_types.ml

diff --git a/generator-lib/wrappi_types.ml b/generator-lib/wrappi_types.ml
index 8dfa31b..957d479 100644 (file)
--- a/generator-lib/wrappi_types.ml
+++ b/generator-lib/wrappi_types.ml
@@ -20,7 +20,13 @@ open Camlp4.PreCast
 
 open Printf
 
-type any_type = TInt32 | TInt64 | Type of string
+type any_type =
+  | TFilePerm
+  | TInt32
+  | TInt64
+  | TPathname
+  | TUInt32
+  | TUInt64
 
 type parameter = string * any_type
 
@@ -41,9 +47,12 @@ type api = {
 }
 
 let string_of_any_type = function
+  | TFilePerm -> "fileperm"
   | TInt32 -> "int32"
   | TInt64 -> "int64"
-  | Type s -> s
+  | TPathname -> "pathname"
+  | TUInt32 -> "uint32"
+  | TUInt64 -> "uint64"
 let string_of_return_type = function
   | RErr -> "err"
   | Return t -> string_of_any_type t