jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Slight type adjustment for invoke. This makes swigp4 a bit easier to

Browse source 
deal with.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5230 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-11-01 06:10:50 +00:00
commit 93008f32ba
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
SWIG/Lib/ocaml/swig.ml
View file

@ -31,7 +31,7 @@ exception NotObject of empty_enum c_obj_t
exception NotEnumType of empty_enum c_obj_t exception NotEnumType of empty_enum c_obj_t
exception LabelNotFromThisEnum of empty_enum c_obj_t exception LabelNotFromThisEnum of empty_enum c_obj_t
let invoke obj = match obj with C_obj o -> o | _ -> raise (NotObject obj) let invoke obj = match obj with C_obj o -> o | _ -> raise (NotObject (Obj.magic obj))
let _ = Callback.register "swig_runmethod" invoke let _ = Callback.register "swig_runmethod" invoke
let fnhelper fin f arg = let fnhelper fin f arg =
let args = match arg with C_list l -> l | C_void -> [] | _ -> [ arg ] in let args = match arg with C_list l -> l | C_void -> [] | _ -> [ arg ] in

1
SWIG/Lib/ocaml/swig.mli
View file

@ -20,6 +20,7 @@ type 'a c_obj_t =
| C_enum of 'a | C_enum of 'a
| C_director_core of 'a c_obj_t * 'a c_obj_t option ref | C_director_core of 'a c_obj_t * 'a c_obj_t option ref
val invoke : 'a c_obj_t -> (string -> 'a c_obj_t -> 'a c_obj_t)
val convert_c_obj : 'a c_obj_t -> 'b c_obj_t val convert_c_obj : 'a c_obj_t -> 'b c_obj_t
val get_int : 'a c_obj_t -> int val get_int : 'a c_obj_t -> int