PageRenderTime 47ms CodeModel.GetById 22ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Lib/ocaml/swig.mli

#
OCaml | 61 lines | 51 code | 9 blank | 1 comment | 0 complexity | ac2eef6b939395da62906e1f4699b0a6 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
  1. (* -*- tuareg -*- *)
  2. type enum = [ `Int of int ]
  3. type 'a c_obj_t =
  4. C_void
  5. | C_bool of bool
  6. | C_char of char
  7. | C_uchar of char
  8. | C_short of int
  9. | C_ushort of int
  10. | C_int of int
  11. | C_uint of int32
  12. | C_int32 of int32
  13. | C_int64 of int64
  14. | C_float of float
  15. | C_double of float
  16. | C_ptr of int64 * int64
  17. | C_array of 'a c_obj_t array
  18. | C_list of 'a c_obj_t list
  19. | C_obj of (string -> 'a c_obj_t -> 'a c_obj_t)
  20. | C_string of string
  21. | C_enum of 'a
  22. | C_director_core of 'a c_obj_t * 'a c_obj_t option ref
  23. type c_obj = enum c_obj_t
  24. exception InvalidDirectorCall of c_obj
  25. exception NoSuchClass of string
  26. val invoke : ('a c_obj_t) -> (string -> 'a c_obj_t -> 'a c_obj_t)
  27. val fnhelper : 'a c_obj_t -> 'a c_obj_t list
  28. val get_int : 'a c_obj_t -> int
  29. val get_float : 'a c_obj_t -> float
  30. val get_string : 'a c_obj_t -> string
  31. val get_char : 'a c_obj_t -> char
  32. val get_bool : 'a c_obj_t -> bool
  33. val make_float : float -> 'a c_obj_t
  34. val make_double : float -> 'a c_obj_t
  35. val make_string : string -> 'a c_obj_t
  36. val make_bool : bool -> 'a c_obj_t
  37. val make_char : char -> 'a c_obj_t
  38. val make_char_i : int -> 'a c_obj_t
  39. val make_uchar : char -> 'a c_obj_t
  40. val make_uchar_i : int -> 'a c_obj_t
  41. val make_short : int -> 'a c_obj_t
  42. val make_ushort : int -> 'a c_obj_t
  43. val make_int : int -> 'a c_obj_t
  44. val make_uint : int -> 'a c_obj_t
  45. val make_int32 : int -> 'a c_obj_t
  46. val make_int64 : int -> 'a c_obj_t
  47. val new_derived_object:
  48. ('a c_obj_t -> 'a c_obj_t) ->
  49. ('a c_obj_t -> string -> 'a c_obj_t -> 'a c_obj_t) ->
  50. 'a c_obj_t -> 'a c_obj_t
  51. val register_class_byname : string -> ('a c_obj_t -> 'a c_obj_t) -> unit
  52. val create_class : string -> 'a c_obj_t -> 'a c_obj_t