/trunk/Examples/ocaml/stl/runme.ml

# · OCaml · 13 lines · 8 code · 4 blank · 1 comment · 1 complexity · d09ba887e4b4d03d269a0c34ea4f32eb MD5 · raw file

  1. (* This example was mostly lifted from the guile example directory *)
  2. open Swig
  3. open Example
  4. let v = new_StringVector '()
  5. let _ =
  6. for i = 0 to (Array.length Sys.argv) - 1 do
  7. let str = (Sys.argv.(i)) to string in v -> push_back (str)
  8. done
  9. let _ = _vec_write '(v)