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." |