Context.Compressiontype t = s Ctypes.structureval t : t Ctypes.typval create : (unit -> t Ctypes_static.ptr F.return) F.resultval free : (t Ctypes_static.ptr -> Unsigned.size_t F.return) F.resultval compress :
(t Ctypes_static.ptr ->
unit Ctypes_static.ptr ->
Unsigned.size_t ->
unit Ctypes_static.ptr ->
Unsigned.size_t ->
int ->
Unsigned.size_t F.return)
F.result