18 lines
658 B
OCaml
18 lines
658 B
OCaml
(* This example is meant to reach every case in cstring.i *)
|
|
|
|
open Swig
|
|
open Example
|
|
|
|
let _ = _takes_std_string (C_string "foo")
|
|
let _ = print_endline
|
|
("_gives_std_string <<" ^ (get_string (_gives_std_string C_void)) ^ " >>")
|
|
let _ = _takes_char_ptr (C_string "bar")
|
|
let _ = print_endline
|
|
("_gives_const_char_ptr << " ^ (get_string (_gives_const_char_ptr C_void)) ^ " >>")
|
|
let _ = print_endline
|
|
("_takes_and_gives_std_string << " ^
|
|
(get_string (_takes_and_gives_std_string (C_string "foo"))) ^ " >>")
|
|
let _ = print_endline
|
|
("_takes_and_gives_const_char_ptr << " ^
|
|
(get_string (_takes_and_gives_const_char_ptr (C_string "bar.bar"))) ^ " >>")
|