PageRenderTime 43ms CodeModel.GetById 23ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/ocaml/stl/runme.ml

#
OCaml | 13 lines | 8 code | 4 blank | 1 comment | 1 complexity | d09ba887e4b4d03d269a0c34ea4f32eb MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. (* This example was mostly lifted from the guile example directory *)
    2. 

  2. 

  3. open Swig
    4. 

  4. open Example
    5. 

  5. 

  6. let v = new_StringVector '() 
    7. 

    8. 

  8. let _ = 
    9. 

  9.   for i = 0 to (Array.length Sys.argv) - 1 do
    10. 

  10.     let str = (Sys.argv.(i)) to string in v -> push_back (str)
    11. 

  11.   done
    12. 

  12. 

  13. let _ = _vec_write '(v)
    14. 

    15.