/tags/rel-1-3-29/SWIG/Examples/test-suite/ocaml/typedef_mptr_runme.ml
OCaml | 16 lines | 14 code | 2 blank | 0 comment | 2 complexity | 52cc464de93502265242225ce483b8b8 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- open Swig
- open Typedef_mptr
- let soci x = (string_of_int (get_int x))
- let x = new_Foo C_void
- let add_res = _do_op (C_list [ x ; C_int 2 ; C_int 1 ; _add ])
- and sub_res = _do_op (C_list [ x ; C_int 2 ; C_int 1 ; _sub ])
- let _ =
- if add_res <> (C_int 3) || sub_res <> (C_int 1) then
- raise (Failure ("Bad result:" ^
- " (add " ^ (soci add_res) ^ ") " ^
- " (sub " ^ (soci sub_res) ^ ")"))
- let _ = Printf.printf "2 + 1 = %d, 2 - 1 = %d\n"
- (get_int add_res)
- (get_int sub_res)