/trunk/Examples/ocaml/std_string/runme.ml
# · OCaml · 24 lines · 19 code · 4 blank · 1 comment · 1 complexity · 66f2e5eba0962e156fab8a56c2977b3a MD5 · raw file
- (* 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