8f7bc4cc10
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.
33 lines
512 B
OCaml
33 lines
512 B
OCaml
(* runme.ml *)
|
|
|
|
open Swig
|
|
open Example
|
|
|
|
(* Call our gcd() function *)
|
|
|
|
exception NoReturn
|
|
|
|
let x = 42 to int
|
|
let y = 105 to int
|
|
let g = _gcd '(x,y) as int
|
|
let _ = Printf.printf "The gcd of %d and %d is %d\n" (x as int) (y as int) g
|
|
|
|
(* Manipulate the Foo global variable *)
|
|
|
|
(* Output its current value *)
|
|
let _ = Printf.printf "Foo = %f\n" (_Foo '() as float)
|
|
|
|
(* Change its value *)
|
|
let _ = _Foo '(3.1415926)
|
|
|
|
(* See if the change took effect *)
|
|
let _ = Printf.printf "Foo = %f\n" (_Foo '() as float)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|