Source file zstd_generated.ml

module CI = Cstubs_internals

external caml__1_ZSTD_compress
  : _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t ->
    int -> Unsigned.size_t = "caml__1_ZSTD_compress" 

external caml__2_ZSTD_decompress
  : _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t ->
    Unsigned.size_t = "caml__2_ZSTD_decompress" 

external caml__3_ZSTD_getFrameContentSize
  : _ CI.fatptr -> Unsigned.size_t -> Unsigned.ullong
  = "caml__3_ZSTD_getFrameContentSize" 

external caml__4_ZSTD_compressBound : Unsigned.size_t -> Unsigned.size_t
  = "caml__4_ZSTD_compressBound" 

external caml__5_ZSTD_isError : Unsigned.size_t -> Unsigned.uint
  = "caml__5_ZSTD_isError" 

external caml__6_ZSTD_getErrorName : Unsigned.size_t -> CI.voidp
  = "caml__6_ZSTD_getErrorName" 

external caml__7_ZSTD_maxCLevel : unit -> int = "caml__7_ZSTD_maxCLevel" 

external caml__8_ZSTD_createCCtx : unit -> CI.voidp
  = "caml__8_ZSTD_createCCtx" 

external caml__9_ZSTD_freeCCtx : _ CI.fatptr -> Unsigned.size_t
  = "caml__9_ZSTD_freeCCtx" 

external caml__10_ZSTD_compressCCtx
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> int -> Unsigned.size_t
  = "caml__10_ZSTD_compressCCtx_byte6" "caml__10_ZSTD_compressCCtx" 

external caml__11_ZSTD_createDCtx : unit -> CI.voidp
  = "caml__11_ZSTD_createDCtx" 

external caml__12_ZSTD_freeDCtx : _ CI.fatptr -> Unsigned.size_t
  = "caml__12_ZSTD_freeDCtx" 

external caml__13_ZSTD_decompressDCtx
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> Unsigned.size_t = "caml__13_ZSTD_decompressDCtx" 

external caml__14_ZSTD_compress_usingDict
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t -> int ->
    Unsigned.size_t
  =
  "caml__14_ZSTD_compress_usingDict_byte8" "caml__14_ZSTD_compress_usingDict" 

external caml__15_ZSTD_decompress_usingDict
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t -> Unsigned.size_t
  =
  "caml__15_ZSTD_decompress_usingDict_byte7" "caml__15_ZSTD_decompress_usingDict"
  

external caml__16_ZSTD_createCDict
  : _ CI.fatptr -> Unsigned.size_t -> int -> CI.voidp
  = "caml__16_ZSTD_createCDict" 

external caml__17_ZSTD_freeCDict : _ CI.fatptr -> Unsigned.size_t
  = "caml__17_ZSTD_freeCDict" 

external caml__18_ZSTD_compress_usingCDict
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t
  =
  "caml__18_ZSTD_compress_usingCDict_byte6" "caml__18_ZSTD_compress_usingCDict"
  

external caml__19_ZSTD_createDDict
  : _ CI.fatptr -> Unsigned.size_t -> CI.voidp = "caml__19_ZSTD_createDDict" 

external caml__20_ZSTD_freeDDict : _ CI.fatptr -> Unsigned.size_t
  = "caml__20_ZSTD_freeDDict" 

external caml__21_ZSTD_decompress_usingDDict
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> _ CI.fatptr -> Unsigned.size_t
  =
  "caml__21_ZSTD_decompress_usingDDict_byte6" "caml__21_ZSTD_decompress_usingDDict"
  

external caml__22_ZSTD_createCStream : unit -> CI.voidp
  = "caml__22_ZSTD_createCStream" 

external caml__23_ZSTD_freeCStream : _ CI.fatptr -> Unsigned.size_t
  = "caml__23_ZSTD_freeCStream" 

external caml__24_ZSTD_initCStream : _ CI.fatptr -> int -> Unsigned.size_t
  = "caml__24_ZSTD_initCStream" 

external caml__25_ZSTD_compressStream
  : _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t
  = "caml__25_ZSTD_compressStream" 

external caml__26_ZSTD_flushStream
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t
  = "caml__26_ZSTD_flushStream" 

external caml__27_ZSTD_endStream
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t = "caml__27_ZSTD_endStream" 

external caml__28_ZSTD_CStreamInSize : unit -> Unsigned.size_t
  = "caml__28_ZSTD_CStreamInSize" 

external caml__29_ZSTD_CStreamOutSize : unit -> Unsigned.size_t
  = "caml__29_ZSTD_CStreamOutSize" 

external caml__30_ZSTD_createDStream : unit -> CI.voidp
  = "caml__30_ZSTD_createDStream" 

external caml__31_ZSTD_freeDStream : _ CI.fatptr -> Unsigned.size_t
  = "caml__31_ZSTD_freeDStream" 

external caml__32_ZSTD_initDStream : _ CI.fatptr -> Unsigned.size_t
  = "caml__32_ZSTD_initDStream" 

external caml__33_ZSTD_decompressStream
  : _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t
  = "caml__33_ZSTD_decompressStream" 

external caml__34_ZSTD_DStreamInSize : unit -> Unsigned.size_t
  = "caml__34_ZSTD_DStreamInSize" 

external caml__35_ZSTD_DStreamOutSize : unit -> Unsigned.size_t
  = "caml__35_ZSTD_DStreamOutSize" 

external caml__36_ZDICT_trainFromBuffer
  : _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr -> _ CI.fatptr ->
    Unsigned.uint -> Unsigned.size_t = "caml__36_ZDICT_trainFromBuffer" 

external caml__37_ZDICT_trainFromBuffer_cover
  : _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr -> _ CI.fatptr ->
    Unsigned.uint -> _ CI.fatptr -> Unsigned.size_t
  =
  "caml__37_ZDICT_trainFromBuffer_cover_byte6" "caml__37_ZDICT_trainFromBuffer_cover"
  

external caml__38_ZDICT_trainFromBuffer_fastCover
  : _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr -> _ CI.fatptr ->
    Unsigned.uint -> _ CI.fatptr -> Unsigned.size_t
  =
  "caml__38_ZDICT_trainFromBuffer_fastCover_byte6" "caml__38_ZDICT_trainFromBuffer_fastCover"
  

external caml__39_ZDICT_isError : Unsigned.size_t -> Unsigned.uint
  = "caml__39_ZDICT_isError" 

external caml__40_ZDICT_getErrorName : Unsigned.size_t -> CI.voidp
  = "caml__40_ZDICT_getErrorName" 

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.Primitive CI.Size_t, Returns (CI.Pointer x2)),
  "ZDICT_getErrorName" ->
  (fun x1 -> CI.make_ptr x2 (caml__40_ZDICT_getErrorName x1))
| Function (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Uint)),
  "ZDICT_isError" -> caml__39_ZDICT_isError
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function
          (CI.Pointer _,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Uint,
                 Function
                   (CI.View {CI.ty = CI.Struct _; write = x13; _},
                    Returns (CI.Primitive CI.Size_t))))))),
  "ZDICT_trainFromBuffer_fastCover" ->
  (fun x4 x6 x7 x9 x11 x12 ->
    let CI.CPointer x15 = Ctypes.addr (x13 x12) in
    let CI.CPointer x10 = x9 in
    let CI.CPointer x8 = x7 in
    let CI.CPointer x5 = x4 in
    let x14 = x15 in
    caml__38_ZDICT_trainFromBuffer_fastCover x5 x6 x8 x10 x11 x14)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function
          (CI.Pointer _,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Uint,
                 Function
                   (CI.View {CI.ty = CI.Struct _; write = x25; _},
                    Returns (CI.Primitive CI.Size_t))))))),
  "ZDICT_trainFromBuffer_cover" ->
  (fun x16 x18 x19 x21 x23 x24 ->
    let CI.CPointer x27 = Ctypes.addr (x25 x24) in
    let CI.CPointer x22 = x21 in
    let CI.CPointer x20 = x19 in
    let CI.CPointer x17 = x16 in
    let x26 = x27 in
    caml__37_ZDICT_trainFromBuffer_cover x17 x18 x20 x22 x23 x26)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function
          (CI.Pointer _,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Uint, Returns (CI.Primitive CI.Size_t)))))),
  "ZDICT_trainFromBuffer" ->
  (fun x28 x30 x31 x33 x35 ->
    let CI.CPointer x34 = x33 in
    let CI.CPointer x32 = x31 in
    let CI.CPointer x29 = x28 in
    caml__36_ZDICT_trainFromBuffer x29 x30 x32 x34 x35)
| Function (CI.Void, Returns (CI.Primitive CI.Size_t)), "ZSTD_DStreamOutSize" ->
  caml__35_ZSTD_DStreamOutSize
| Function (CI.Void, Returns (CI.Primitive CI.Size_t)), "ZSTD_DStreamInSize" ->
  caml__34_ZSTD_DStreamInSize
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)))),
  "ZSTD_decompressStream" ->
  (fun x38 x40 x42 ->
    let CI.CPointer x43 = x42 in
    let CI.CPointer x41 = x40 in
    let CI.CPointer x39 = x38 in caml__33_ZSTD_decompressStream x39 x41 x43)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)),
  "ZSTD_initDStream" ->
  (fun x44 -> let CI.CPointer x45 = x44 in caml__32_ZSTD_initDStream x45)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)),
  "ZSTD_freeDStream" ->
  (fun x46 -> let CI.CPointer x47 = x46 in caml__31_ZSTD_freeDStream x47)
| Function (CI.Void, Returns (CI.Pointer x49)), "ZSTD_createDStream" ->
  (fun x48 -> CI.make_ptr x49 (caml__30_ZSTD_createDStream x48))
| Function (CI.Void, Returns (CI.Primitive CI.Size_t)), "ZSTD_CStreamOutSize" ->
  caml__29_ZSTD_CStreamOutSize
| Function (CI.Void, Returns (CI.Primitive CI.Size_t)), "ZSTD_CStreamInSize" ->
  caml__28_ZSTD_CStreamInSize
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t))),
  "ZSTD_endStream" ->
  (fun x52 x54 ->
    let CI.CPointer x55 = x54 in
    let CI.CPointer x53 = x52 in caml__27_ZSTD_endStream x53 x55)
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t))),
  "ZSTD_flushStream" ->
  (fun x56 x58 ->
    let CI.CPointer x59 = x58 in
    let CI.CPointer x57 = x56 in caml__26_ZSTD_flushStream x57 x59)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)))),
  "ZSTD_compressStream" ->
  (fun x60 x62 x64 ->
    let CI.CPointer x65 = x64 in
    let CI.CPointer x63 = x62 in
    let CI.CPointer x61 = x60 in caml__25_ZSTD_compressStream x61 x63 x65)
| Function
    (CI.Pointer _,
     Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Size_t))),
  "ZSTD_initCStream" ->
  (fun x66 x68 ->
    let CI.CPointer x67 = x66 in caml__24_ZSTD_initCStream x67 x68)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)),
  "ZSTD_freeCStream" ->
  (fun x69 -> let CI.CPointer x70 = x69 in caml__23_ZSTD_freeCStream x70)
| Function (CI.Void, Returns (CI.Pointer x72)), "ZSTD_createCStream" ->
  (fun x71 -> CI.make_ptr x72 (caml__22_ZSTD_createCStream x71))
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t,
                 Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t))))))),
  "ZSTD_decompress_usingDDict" ->
  (fun x73 x75 x77 x78 x80 x81 ->
    let CI.CPointer x82 = x81 in
    let CI.CPointer x79 = x78 in
    let CI.CPointer x76 = x75 in
    let CI.CPointer x74 = x73 in
    caml__21_ZSTD_decompress_usingDDict x74 x76 x77 x79 x80 x82)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)), "ZSTD_freeDDict" ->
  (fun x83 -> let CI.CPointer x84 = x83 in caml__20_ZSTD_freeDDict x84)
| Function
    (CI.Pointer _,
     Function (CI.Primitive CI.Size_t, Returns (CI.Pointer x88))),
  "ZSTD_createDDict" ->
  (fun x85 x87 ->
    let CI.CPointer x86 = x85 in
    CI.make_ptr x88 (caml__19_ZSTD_createDDict x86 x87))
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t,
                 Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t))))))),
  "ZSTD_compress_usingCDict" ->
  (fun x89 x91 x93 x94 x96 x97 ->
    let CI.CPointer x98 = x97 in
    let CI.CPointer x95 = x94 in
    let CI.CPointer x92 = x91 in
    let CI.CPointer x90 = x89 in
    caml__18_ZSTD_compress_usingCDict x90 x92 x93 x95 x96 x98)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)), "ZSTD_freeCDict" ->
  (fun x99 -> let CI.CPointer x100 = x99 in caml__17_ZSTD_freeCDict x100)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function (CI.Primitive CI.Int, Returns (CI.Pointer x105)))),
  "ZSTD_createCDict" ->
  (fun x101 x103 x104 ->
    let CI.CPointer x102 = x101 in
    CI.make_ptr x105 (caml__16_ZSTD_createCDict x102 x103 x104))
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t,
                 Function
                   (CI.Pointer _,
                    Function
                      (CI.Primitive CI.Size_t,
                       Returns (CI.Primitive CI.Size_t)))))))),
  "ZSTD_decompress_usingDict" ->
  (fun x106 x108 x110 x111 x113 x114 x116 ->
    let CI.CPointer x115 = x114 in
    let CI.CPointer x112 = x111 in
    let CI.CPointer x109 = x108 in
    let CI.CPointer x107 = x106 in
    caml__15_ZSTD_decompress_usingDict x107 x109 x110 x112 x113 x115 x116)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t,
                 Function
                   (CI.Pointer _,
                    Function
                      (CI.Primitive CI.Size_t,
                       Function
                         (CI.Primitive CI.Int,
                          Returns (CI.Primitive CI.Size_t))))))))),
  "ZSTD_compress_usingDict" ->
  (fun x117 x119 x121 x122 x124 x125 x127 x128 ->
    let CI.CPointer x126 = x125 in
    let CI.CPointer x123 = x122 in
    let CI.CPointer x120 = x119 in
    let CI.CPointer x118 = x117 in
    caml__14_ZSTD_compress_usingDict x118 x120 x121 x123 x124 x126 x127 x128)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Size_t)))))),
  "ZSTD_decompressDCtx" ->
  (fun x129 x131 x133 x134 x136 ->
    let CI.CPointer x135 = x134 in
    let CI.CPointer x132 = x131 in
    let CI.CPointer x130 = x129 in
    caml__13_ZSTD_decompressDCtx x130 x132 x133 x135 x136)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)), "ZSTD_freeDCtx" ->
  (fun x137 -> let CI.CPointer x138 = x137 in caml__12_ZSTD_freeDCtx x138)
| Function (CI.Void, Returns (CI.Pointer x140)), "ZSTD_createDCtx" ->
  (fun x139 -> CI.make_ptr x140 (caml__11_ZSTD_createDCtx x139))
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function
             (CI.Pointer _,
              Function
                (CI.Primitive CI.Size_t,
                 Function
                   (CI.Primitive CI.Int, Returns (CI.Primitive CI.Size_t))))))),
  "ZSTD_compressCCtx" ->
  (fun x141 x143 x145 x146 x148 x149 ->
    let CI.CPointer x147 = x146 in
    let CI.CPointer x144 = x143 in
    let CI.CPointer x142 = x141 in
    caml__10_ZSTD_compressCCtx x142 x144 x145 x147 x148 x149)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Size_t)), "ZSTD_freeCCtx" ->
  (fun x150 -> let CI.CPointer x151 = x150 in caml__9_ZSTD_freeCCtx x151)
| Function (CI.Void, Returns (CI.Pointer x153)), "ZSTD_createCCtx" ->
  (fun x152 -> CI.make_ptr x153 (caml__8_ZSTD_createCCtx x152))
| Function (CI.Void, Returns (CI.Primitive CI.Int)), "ZSTD_maxCLevel" ->
  caml__7_ZSTD_maxCLevel
| Function (CI.Primitive CI.Size_t, Returns (CI.Pointer x156)),
  "ZSTD_getErrorName" ->
  (fun x155 -> CI.make_ptr x156 (caml__6_ZSTD_getErrorName x155))
| Function (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Uint)),
  "ZSTD_isError" -> caml__5_ZSTD_isError
| Function (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Size_t)),
  "ZSTD_compressBound" -> caml__4_ZSTD_compressBound
| Function
    (CI.Pointer _,
     Function (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Ullong))),
  "ZSTD_getFrameContentSize" ->
  (fun x159 x161 ->
    let CI.CPointer x160 = x159 in caml__3_ZSTD_getFrameContentSize x160 x161)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Size_t))))),
  "ZSTD_decompress" ->
  (fun x162 x164 x165 x167 ->
    let CI.CPointer x166 = x165 in
    let CI.CPointer x163 = x162 in
    caml__2_ZSTD_decompress x163 x164 x166 x167)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Size_t,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Size_t,
              Function
                (CI.Primitive CI.Int, Returns (CI.Primitive CI.Size_t)))))),
  "ZSTD_compress" ->
  (fun x168 x170 x171 x173 x174 ->
    let CI.CPointer x172 = x171 in
    let CI.CPointer x169 = x168 in
    caml__1_ZSTD_compress x169 x170 x172 x173 x174)
| _, 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