/trunk/Examples/ocaml/std_string/runme.ml
OCaml | 24 lines | 19 code | 4 blank | 1 comment | 1 complexity | 66f2e5eba0962e156fab8a56c2977b3a MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- (* This example was mostly lifted from the guile example directory *)
- open Swig
- open Example
- let y = "\205\177"
- let z = _to_wstring_with_locale '((y to string),(Sys.argv.(1) to string))
- let _ =
- begin
- print_string "the original string contains " ;
- print_int (String.length y) ;
- print_newline () ;
-
- print_string "the new string contains " ;
- print_int (z -> size () as int) ;
- print_string " : [ " ;
- for i = 0 to (pred ((z -> size ()) as int)) do
- print_int ((z '[i to int]) as int) ;
- print_string "; " ;
- done ;
- print_string "]" ;
- print_newline () ;
- end