a851e0a9ac
Use the [member-variable] syntax in using_protected_runme.ml as required by the OCaml module's documentation and implementation. Fix the return type for vec_write() in example.h in the OCaml stl example.
57 lines
1.7 KiB
OCaml
57 lines
1.7 KiB
OCaml
(* file: runme.ml
|
|
|
|
This file illustrates the proxy class C++ interface generated
|
|
by SWIG. *)
|
|
|
|
open Swig
|
|
open Example
|
|
|
|
let repr o =
|
|
Printf.sprintf "<%s at %#x>" (o -> ":classof" () as string) (o -> "&" () as int)
|
|
|
|
(* ----- Object creation ----- *)
|
|
|
|
let _ = print_endline "Creating some objects:"
|
|
let c = new_Circle '(10)
|
|
let _ = Printf.printf " Created circle %s\n" (repr c)
|
|
let s = new_Square '(10)
|
|
let _ = Printf.printf " Created square %s\n" (repr s)
|
|
|
|
(* ----- Access a static member ----- *)
|
|
|
|
let _ = Printf.printf "\nA total of %d shapes were created\n" (_Shape_nshapes '() as int)
|
|
|
|
(* ----- Member data access ----- *)
|
|
|
|
(* Set the location of the object *)
|
|
|
|
let _ = c -> "[x]" (20)
|
|
let _ = c -> "[y]" (30)
|
|
|
|
(* Temp var to work around a swigp4 bug (it doesn't properly handle "-" in some cases). *)
|
|
let arg = (-10. to float)
|
|
let _ = s -> "[x]" (arg)
|
|
let _ = s -> "[y]" (5)
|
|
|
|
let _ = print_endline "\nHere is their current position:"
|
|
let _ = Printf.printf " Circle = (%f, %f)\n" (c -> "[x]" () as float) (c -> "[y]" () as float)
|
|
let _ = Printf.printf " Square = (%f, %f)\n" (s -> "[x]" () as float) (s -> "[y]" () as float)
|
|
|
|
(* ----- Call some methods ----- *)
|
|
|
|
let _ = print_endline "\nHere are some properties of the shapes:"
|
|
|
|
let _ = List.iter (fun o ->
|
|
Printf.printf " %s\n" (repr o);
|
|
Printf.printf " area = %f\n" (o -> area () as float);
|
|
Printf.printf " perimeter = %f\n" (o -> perimeter () as float)
|
|
) [c; s]
|
|
|
|
let _ = print_endline "\nGuess I'll clean up now"
|
|
|
|
(* Note: this invokes the virtual destructor *)
|
|
let _ = c -> "~" ()
|
|
let _ = s -> "~" ()
|
|
|
|
let _ = Printf.printf "%d shapes remain\n" (_Shape_nshapes '() as int)
|
|
let _ = print_endline "Goodbye"
|