25d0e88ee7
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5232 626c5289-ae23-0410-ae9c-e8d60b6d4f22
33 lines
519 B
OCaml
33 lines
519 B
OCaml
(* example_prog.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)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|