/tags/rel-1.3.35/Examples/test-suite/ocaml/typename_runme.ml

# · OCaml · 12 lines · 8 code · 3 blank · 1 comment · 0 complexity · cff61cf98804ea72ca5916ec3816746a MD5 · raw file 

    

  1. (* Fun with type names -- stolen from the ruby runme *)
    2. 

  2. 

  3. open Swig
    4. 

  4. open Typename
    5. 

  5. 

  6. let f = new_Foo C_void 
    7. 

  7. let b = new_Bar C_void
    8. 

  8. 

  9. let x = _twoFoo f 
    10. 

  10. let _ = match x with C_double f -> () | _ -> raise (Failure "not a float")
    11. 

  11. let y = _twoBar b
    12. 

  12. let _ = match y with C_int i -> () | _ -> raise (Failure "not an int")
    13.