Sign in
fuchsia
/
third_party
/
swig
/
18bc3e287b17927584361a2b0ff70a14c64e61b4
/
.
/
Examples
/
test-suite
/
ocaml
/
li_cpointer_cpp_runme.ml
blob: 1daf6b5bdf741e12d068615b1cb3194ec9c6e39b [
file
] [
log
] [
blame
]
open
Swig
open
Li_cpointer_cpp
let
_
=
let
p
=
_new_intp
'
()
in
assert
(
_intp_value
'
(
p
)
as
int
=
0
);
assert
(
_intp_assign
'
(
p
,
3
)
=
C_void
);
assert
(
_intp_value
'
(
p
)
as
int
=
3
);
assert
(
_delete_intp
'
(
p
)
=
C_void
)
;;