package lz4
Bindings to the LZ4 compression algorithm
Install
Dune Dependency
Authors
Maintainers
Sources
v1.2.0.tar.gz
md5=d2e3d607dbc2961a94312164c309f0fa
sha512=9b817e5446c156abb00acdc3da2925bbe725600bfb2f0761079252d9aabd2abd36ea84b69bdb252cc26419009465bc629f8cc677fb68e0518a844f5c5deed00d
doc/src/lz4.generated/LZ4_generated.ml.html
Source file LZ4_generated.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77module CI = Cstubs_internals external caml__1_LZ4_compressBound : int -> int = "caml__1_LZ4_compressBound" external caml__2_LZ4_compress_limitedOutput : bytes CI.ocaml -> bytes CI.ocaml -> int -> int -> int = "caml__2_LZ4_compress_limitedOutput" external caml__3_LZ4_compress_limitedOutput : _ CI.fatptr -> _ CI.fatptr -> int -> int -> int = "caml__3_LZ4_compress_limitedOutput" external caml__4_LZ4_decompress_safe : bytes CI.ocaml -> bytes CI.ocaml -> int -> int -> int = "caml__4_LZ4_decompress_safe" external caml__5_LZ4_decompress_safe : _ CI.fatptr -> _ CI.fatptr -> int -> int -> int = "caml__5_LZ4_decompress_safe" type 'a result = 'a type 'a return = 'a type 'a fn = | Returns : 'a CI.typ -> 'a return fn | Function : 'a CI.typ * 'b fn -> ('a -> 'b) fn let map_result f x = f x let returning t = Returns t let (@->) f p = Function (f, p) let foreign : type a b. string -> (a -> b) fn -> (a -> b) = fun name t -> match t, name with | Function (CI.Pointer _, Function (CI.Pointer _, Function (CI.Primitive CI.Int, Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))))), "LZ4_decompress_safe" -> (fun x1 x3 x5 x6 -> let CI.CPointer x4 = x3 in let CI.CPointer x2 = x1 in caml__5_LZ4_decompress_safe x2 x4 x5 x6) | Function (CI.OCaml CI.Bytes, Function (CI.OCaml CI.Bytes, Function (CI.Primitive CI.Int, Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))))), "LZ4_decompress_safe" -> caml__4_LZ4_decompress_safe | Function (CI.Pointer _, Function (CI.Pointer _, Function (CI.Primitive CI.Int, Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))))), "LZ4_compress_limitedOutput" -> (fun x11 x13 x15 x16 -> let CI.CPointer x14 = x13 in let CI.CPointer x12 = x11 in caml__3_LZ4_compress_limitedOutput x12 x14 x15 x16) | Function (CI.OCaml CI.Bytes, Function (CI.OCaml CI.Bytes, Function (CI.Primitive CI.Int, Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))))), "LZ4_compress_limitedOutput" -> caml__2_LZ4_compress_limitedOutput | Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)), "LZ4_compressBound" -> caml__1_LZ4_compressBound | _, s -> Printf.ksprintf failwith "No match for %s" s let foreign_value : type a. string -> a Ctypes.typ -> a Ctypes.ptr = fun name t -> match t, name with | _, s -> Printf.ksprintf failwith "No match for %s" s