jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

std::string and std::wstring example.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4324 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-02-16 13:32:08 +00:00
commit 5b0895e0d8
5 changed files with 106 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Examples/ocaml/std_string/runme.ml Normal file
View file

@ -0,0 +1,23 @@
(* 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