5b0895e0d8
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4324 626c5289-ae23-0410-ae9c-e8d60b6d4f22
23 lines
697 B
Standard ML
23 lines
697 B
Standard ML
(* This example was mostly lifted from the guile example directory *)
|
|
|
|
open Example
|
|
|
|
let y = new_string (C_string "\205\177")
|
|
let z = _to_wstring_with_locale (C_list [ y ; new_string (C_string Sys.argv.(1)) ])
|
|
|
|
let _ =
|
|
begin
|
|
print_string "the original string contains " ;
|
|
print_int (get_int ((invoke y) "size" C_void)) ;
|
|
print_newline () ;
|
|
|
|
print_string "the new string contains " ;
|
|
print_int (get_int ((invoke z) "size" C_void)) ;
|
|
print_string " : [ " ;
|
|
for i = 0 to pred (get_int ((invoke z) "size" C_void)) do
|
|
print_int (get_int ((invoke z) "[]" (C_int i))) ;
|
|
print_string "; " ;
|
|
done ;
|
|
print_string "]" ;
|
|
print_newline () ;
|
|
end
|