| 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) |