2949c006d4
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4602 626c5289-ae23-0410-ae9c-e8d60b6d4f22
12 lines
254 B
OCaml
12 lines
254 B
OCaml
(* This example was mostly lifted from the guile example directory *)
|
|
|
|
open Example
|
|
|
|
let v = new_StringVector C_void
|
|
|
|
let _ =
|
|
for i = 0 to (Array.length Sys.argv) - 1 do
|
|
(invoke v) "push_back" (C_string Sys.argv.(i))
|
|
done
|
|
|
|
let _ = _vec_write v
|