/trunk/Examples/ocaml/simple/example_prog.ml
OCaml | 33 lines | 10 code | 17 blank | 6 comment | 0 complexity | c6b10e5eb7b17e3f184113c829a025bf MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- (* 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)