git.annexia.org
/
wrappi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Explicit types in the generator.
[wrappi.git]
/
generator-lib
/
wrappi_types.mli
diff --git
a/generator-lib/wrappi_types.mli
b/generator-lib/wrappi_types.mli
index
6120aff
..
6bd58f0
100644
(file)
--- 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.
*)
* 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
(** Any API parameter or return type. *)
type parameter = string * any_type
@@
-30,7
+36,7
@@
type c_code = string
(** C code. *)
type entry_point = {
(** 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;
ep_name : string;
ep_params : parameter list;
ep_return : return_type;
@@
-38,6
+44,11
@@
type entry_point = {
}
(** An API 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
val string_of_any_type : any_type -> string
val string_of_return_type : return_type -> string
val string_of_parameter : parameter -> string