/trunk/Examples/ocaml/stl/runme.ml
# · OCaml · 13 lines · 8 code · 4 blank · 1 comment · 1 complexity · d09ba887e4b4d03d269a0c34ea4f32eb MD5 · raw file
- (* This example was mostly lifted from the guile example directory *)
- open Swig
- open Example
- let v = new_StringVector '()
- let _ =
- for i = 0 to (Array.length Sys.argv) - 1 do
- let str = (Sys.argv.(i)) to string in v -> push_back (str)
- done
- let _ = _vec_write '(v)