[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:
Zackery Spytz 2019-01-07 11:59:07 -07:00
commit 8f7bc4cc10
18 changed files with 27 additions and 26 deletions

View file

@ -5,7 +5,7 @@ SRCS = example.c
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
PROGFILE = runme.ml
OBJS = example.o
check: build

View file

@ -1,4 +1,4 @@
(* example_prog.ml *)
(* runme.ml *)
open Swig
open Example

View file

@ -8,3 +8,4 @@ shapes
contract
scoped_enum
string_from_ptr
strings_test

View file

@ -5,7 +5,7 @@ SRCS =
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
PROGFILE = runme.ml
OBJS =
check: build

View file

@ -5,7 +5,7 @@ SRCS =
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
PROGFILE = runme.ml
OBJS =
check: build

View file

@ -6,7 +6,7 @@ SRCS = example.c
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
PROGFILE = runme.ml
OBJS = example.o
check: build

View file

@ -1,4 +1,4 @@
(* example_prog.ml *)
(* runme.ml *)
open Swig ;;
open Example ;;

View file

@ -5,7 +5,7 @@ SRCS = example.c
TARGET = example
INTERFACE = example.i
MLFILE = example.ml
PROGFILE = example_prog.ml
PROGFILE = runme.ml
OBJS = example.o
check: build

View file

@ -1,4 +1,4 @@
(* example_prog.ml *)
(* runme.ml *)
open Swig
open Example

View file

@ -14,7 +14,7 @@ let print_DoubleVector v =
(fun v i ->
print_float ((v '[i to int]) as float) ;
print_string " ") ;
print_endline
print_endline ""
end
(* Call average with a Ocaml array... *)
@ -27,7 +27,7 @@ let rec fill_dv v x =
fill_dv v (x *. x)
end
let _ = fill_dv v 0.999
let _ = print_DoubleVector v ; print_endline ""
let _ = print_DoubleVector v
let u = new_IntVector '()
let _ = for i = 1 to 4 do
u -> push_back ((i to int))

View file

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

View file

@ -1,4 +1,4 @@
%module foolib
%module example
%{
static int foo( char **buf ) {
*buf = "string from c";

View file

@ -1,7 +1,5 @@
(* foo_program.ml -- the program using foolib *)
open Swig (* Give access to the swig library *)
open Foolib (* This is the name of your swig output *)
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