type c_code = string
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_code : c_code option;
}
+type api = {
+ api_entry_points : entry_point list;
+}
+
let string_of_any_type = function
| TInt32 -> "int32"
| TInt64 -> "int64"