1open Swig
2open Struct_value
3
4let b = new_Bar (C_void)
5let a = (invoke b) "[a]" (C_void)
6let _ = (invoke a) "[x]" (C_int 3)
7let _ = assert((invoke a) "[x]" (C_void) = C_int 3)
8
9let bb = (invoke b) "[b]" (C_void)
10let _ = (invoke bb) "[x]" (C_int 3)
11let _ = assert((invoke bb) "[x]" (C_void) = C_int 3)
12