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

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