[OCaml] Rename example_prog.ml to runme.ml in the OCaml examples
Name the output executable "runme" in the examples. Replace use of "foolib" in the string_from_ptr example. Fix a warning in the std_vector example. Add strings_test to Examples/ocaml/check.list. Disable two tests that were causing the OCaml test suite to fail.
This commit is contained in:
parent
1be9f5fec3
commit
8f7bc4cc10
18 changed files with 27 additions and 26 deletions
21
Examples/ocaml/string_from_ptr/runme.ml
Normal file
21
Examples/ocaml/string_from_ptr/runme.ml
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
open Swig (* Give access to the swig library *)
|
||||
open Example (* This is the name of your swig output *)
|
||||
|
||||
let results = _foo '() (* Function names are prefixed with _ in order to make
|
||||
them lex as identifiers in ocaml. Consider that
|
||||
uppercase identifiers are module names in ocaml.
|
||||
NOTE: the '() syntax is part of swigp4. You can do:
|
||||
let results = _foo C_void *)
|
||||
|
||||
(* Since your function has a return value in addition to the string output,
|
||||
you'll need to match them as a list *)
|
||||
|
||||
let result_string =
|
||||
match results with
|
||||
C_list [ C_string result_string ; C_int 0 ] -> (* The return value is
|
||||
last when out arguments appear, but this too can be customized.
|
||||
We're also checking that the function succeeded. *)
|
||||
result_string
|
||||
| _ -> raise (Failure "Expected string, int reply from _foo")
|
||||
|
||||
let _ = print_endline result_string
|
||||
Loading…
Add table
Add a link
Reference in a new issue