13 lines
325 B
OCaml
13 lines
325 B
OCaml
|
open Swig
|
||
|
|
open Example
|
||
|
|
|
||
|
|
let _ = print_endline "This won't throw."
|
||
|
|
let _ = Printf.printf "Cos 1.0 is %f\n" (_cos '(1.0) as float)
|
||
|
|
let _ = print_endline "This will throw."
|
||
|
|
let _ =
|
||
|
|
try
|
||
|
|
Printf.printf "Cos 5.0 is %f\n" (_cos '(5.0) as float)
|
||
|
|
with Failure s ->
|
||
|
|
print_endline s ;
|
||
|
|
print_endline "Exception thrown."
|