[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
3 changed files with 27 additions and 26 deletions
|
|
@ -4,9 +4,9 @@ SWIG_LIB_DIR = $(TOP)/../$(TOP_BUILDDIR_TO_TOP_SRCDIR)Lib
|
|||
SWIGOPT = -c++
|
||||
SRCS =
|
||||
TARGET = example
|
||||
INTERFACE = foolib.i
|
||||
MLFILE = foolib.ml
|
||||
PROGFILE = example_prog.ml
|
||||
INTERFACE = example.i
|
||||
MLFILE = example.ml
|
||||
PROGFILE = runme.ml
|
||||
OBJS =
|
||||
|
||||
check: build
|
||||
|
|
|
|||
16
Examples/ocaml/string_from_ptr/example.i
Normal file
16
Examples/ocaml/string_from_ptr/example.i
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
%module example
|
||||
%{
|
||||
static int foo( char **buf ) {
|
||||
*buf = "string from c";
|
||||
return 0;
|
||||
}
|
||||
%}
|
||||
|
||||
%typemap(in,numinputs=0) char **buf (char *temp) {
|
||||
$1 = &temp;
|
||||
}
|
||||
%typemap(argout) char **buf {
|
||||
swig_result = caml_list_append(swig_result,caml_val_string((char *)*$1));
|
||||
}
|
||||
|
||||
int foo( char **buf );
|
||||
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…
Reference in a new issue