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