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-macros
/
pa_wrap.ml
diff --git
a/generator-macros/pa_wrap.ml
b/generator-macros/pa_wrap.ml
index
adfd799
..
a73484a
100644
(file)
--- a/
generator-macros/pa_wrap.ml
+++ b/
generator-macros/pa_wrap.ml
@@
-90,9
+90,12
@@
EXTEND Gram
(* A parameter or return type. *)
any_type: [
(* A parameter or return type. *)
any_type: [
- [ "int32" -> <:expr< Wrappi_types.TInt32 >> ]
+ [ "fileperm" -> <:expr< Wrappi_types.TFilePerm >> ]
+ | [ "int32" -> <:expr< Wrappi_types.TInt32 >> ]
| [ "int64" -> <:expr< Wrappi_types.TInt64 >> ]
| [ "int64" -> <:expr< Wrappi_types.TInt64 >> ]
- | [ t = LIDENT -> <:expr< Wrappi_types.Type $str:t$ >> ]
+ | [ "pathname" -> <:expr< Wrappi_types.TPathname >> ]
+ | [ "uint32" -> <:expr< Wrappi_types.TUInt32 >> ]
+ | [ "uint64" -> <:expr< Wrappi_types.TUInt64 >> ]
];
(* A return type. *)
];
(* A return type. *)