1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
open Swig
open Char_binary
let _ =
let t = new_Test '() in
assert (t -> strlen ("hile") as int = 4);
assert (t -> ustrlen ("hile") as int = 4);
assert (t -> strlen ("hil\x00") as int = 4);
assert (t -> ustrlen ("hil\x00") as int = 4);
let pc = _new_pchar '(5) in
assert (_pchar_setitem '(pc, 0, 'h') = C_void);
assert (_pchar_setitem '(pc, 1, 'o') = C_void);
assert (_pchar_setitem '(pc, 2, 'l') = C_void);
assert (_pchar_setitem '(pc, 3, 'a') = C_void);
assert (_pchar_setitem '(pc, 4, 0) = C_void);
assert (t -> strlen (pc) as int = 4);
assert (t -> ustrlen (pc) as int = 4);
ignore (_var_pchar '(pc));
assert (_var_pchar '() as string = "hola");
ignore (_var_namet '(pc));
assert (_var_namet '() as string = "hola");
_delete_pchar(pc)
;;
|
