blob: 2fa5d20b81d3a626d97ae18aebcaf7df9ef123de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* 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)
|
