b8490f9c18
Strings <=> std::string by value std::wstring accessible from Ocaml. The string example converts a multibyte japanese EUC sequence to a single wchar_t sequence if you have the ja_JP.EUC-JP locale, or similar. Better handling of reference in types Corrected problems with & * mismatch in type verifier. Type verifier now really functional. No more type errors in places they wouldn't be allowed in C++, unless you work at it. Added argout_ref example for argout_ref. Init code now effective (called from let _ = f_<module>_init ()) git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4412 626c5289-ae23-0410-ae9c-e8d60b6d4f22
23 lines
652 B
Standard ML
23 lines
652 B
Standard ML
(* This example was mostly lifted from the guile example directory *)
|
|
|
|
open Example
|
|
|
|
let y = "\205\177"
|
|
let z = _to_wstring_with_locale (C_list [ C_string y ; C_string Sys.argv.(1) ])
|
|
|
|
let _ =
|
|
begin
|
|
print_string "the original string contains " ;
|
|
print_int (String.length y) ;
|
|
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
|