jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

swigp4-ified examples.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5232 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-11-01 07:53:48 +00:00
commit 25d0e88ee7
4 changed files with 21 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Examples/ocaml/stl/runme.ml
View file

@ -3,11 +3,11 @@
open Swig
open Example
let v = new_StringVector C_void
let v = new_StringVector '()
let _ =
for i = 0 to (Array.length Sys.argv) - 1 do
(invoke v) "push_back" (C_string Sys.argv.(i))
let str = (Sys.argv.(i)) to string in v -> push_back (str)
done
let _ = _vec_write v
let _ = _vec_write '(v)