Module Context.Compression
type stype t= s Ctypes.structure
val 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