PageRenderTime 17ms CodeModel.GetById 13ms app.highlight 1ms RepoModel.GetById 2ms app.codeStats 0ms

/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
 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)