Source file c_function_generated.ml

module CI = Cstubs_internals

external _1_libbpf_major_version : unit -> Unsigned.uint32
  = "_1_libbpf_major_version" 

external _2_libbpf_minor_version : unit -> Unsigned.uint32
  = "_2_libbpf_minor_version" 

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

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

external _5_libbpf_bpf_attach_type_str : Unsigned.uint32 -> CI.voidp
  = "_5_libbpf_bpf_attach_type_str" 

external _6_libbpf_bpf_link_type_str : Unsigned.uint32 -> CI.voidp
  = "_6_libbpf_bpf_link_type_str" 

external _7_libbpf_bpf_map_type_str : Unsigned.uint32 -> CI.voidp
  = "_7_libbpf_bpf_map_type_str" 

external _8_libbpf_bpf_prog_type_str : Unsigned.uint32 -> CI.voidp
  = "_8_libbpf_bpf_prog_type_str" 

external _9_libbpf_set_print : _ CI.fatfunptr -> CI.voidp
  = "_9_libbpf_set_print" 

external _10_bpf_object__open : _ CI.fatptr -> CI.voidp
  = "_10_bpf_object__open" 

external _11_bpf_object__load : _ CI.fatptr -> int = "_11_bpf_object__load" 

external _12_bpf_object__find_program_by_name
  : _ CI.fatptr -> _ CI.fatptr -> CI.voidp
  = "_12_bpf_object__find_program_by_name" 

external _13_bpf_object__next_program
  : _ CI.fatptr -> _ CI.fatptr -> CI.voidp = "_13_bpf_object__next_program" 

external _14_bpf_program__pin : _ CI.fatptr -> _ CI.fatptr -> int
  = "_14_bpf_program__pin" 

external _15_bpf_program__unpin : _ CI.fatptr -> _ CI.fatptr -> int
  = "_15_bpf_program__unpin" 

external _16_bpf_program__attach : _ CI.fatptr -> CI.voidp
  = "_16_bpf_program__attach" 

external _17_bpf_program__fd : _ CI.fatptr -> int = "_17_bpf_program__fd" 

external _18_bpf_link__pin : _ CI.fatptr -> _ CI.fatptr -> int
  = "_18_bpf_link__pin" 

external _19_bpf_link__unpin : _ CI.fatptr -> int = "_19_bpf_link__unpin" 

external _20_bpf_link__destroy : _ CI.fatptr -> int = "_20_bpf_link__destroy" 

external _21_bpf_object__close : _ CI.fatptr -> unit
  = "_21_bpf_object__close" 

external _22_bpf_object__find_map_by_name
  : _ CI.fatptr -> _ CI.fatptr -> CI.voidp
  = "_22_bpf_object__find_map_by_name" 

external _23_bpf_map__fd : _ CI.fatptr -> int = "_23_bpf_map__fd" 

external _24_bpf_map__lookup_elem
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> Unsigned.uint64 -> int
  = "_24_bpf_map__lookup_elem_byte6" "_24_bpf_map__lookup_elem" 

external _25_bpf_map__update_elem
  : _ CI.fatptr -> _ CI.fatptr -> Unsigned.size_t -> _ CI.fatptr ->
    Unsigned.size_t -> Unsigned.uint64 -> int
  = "_25_bpf_map__update_elem_byte6" "_25_bpf_map__update_elem" 

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

external _27_bpf_tc_hook_create : _ CI.fatptr -> int
  = "_27_bpf_tc_hook_create" 

external _28_bpf_tc_hook_destroy : _ CI.fatptr -> int
  = "_28_bpf_tc_hook_destroy" 

external _29_bpf_tc_attach : _ CI.fatptr -> _ CI.fatptr -> int
  = "_29_bpf_tc_attach" 

external _30_bpf_tc_detach : _ CI.fatptr -> _ CI.fatptr -> int
  = "_30_bpf_tc_detach" 

external _31_ring_buffer__new
  : int -> _ CI.fatfunptr -> _ CI.fatptr -> _ CI.fatptr -> CI.voidp
  = "_31_ring_buffer__new" 

external _32_ring_buffer__poll : _ CI.fatptr -> int -> int
  = "_32_ring_buffer__poll" 

external _33_ring_buffer__free : _ CI.fatptr -> unit
  = "_33_ring_buffer__free" 

external _34_ring_buffer__consume : _ CI.fatptr -> int
  = "_34_ring_buffer__consume" 

external _35_ring_buffer__epoll_fd : _ CI.fatptr -> int
  = "_35_ring_buffer__epoll_fd" 

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 _, Returns (CI.Primitive CI.Int)),
  "ring_buffer__epoll_fd" ->
  (fun x1 -> let CI.CPointer x2 = x1 in _35_ring_buffer__epoll_fd x2)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)),
  "ring_buffer__consume" ->
  (fun x3 -> let CI.CPointer x4 = x3 in _34_ring_buffer__consume x4)
| Function (CI.Pointer _, Returns CI.Void), "ring_buffer__free" ->
  (fun x5 -> let CI.CPointer x6 = x5 in _33_ring_buffer__free x6)
| Function
    (CI.Pointer _,
     Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))),
  "ring_buffer__poll" ->
  (fun x7 x9 -> let CI.CPointer x8 = x7 in _32_ring_buffer__poll x8 x9)
| Function
    (CI.Primitive CI.Int,
     Function
       (CI.View {CI.ty = CI.Funptr _; write = x12; _},
        Function
          (CI.Pointer _,
           Function
             (CI.Pointer _,
              Returns (CI.View {CI.ty = CI.Pointer x19; read = x20; _}))))),
  "ring_buffer__new" ->
  (fun x10 x11 x15 x17 ->
    let CI.CPointer x18 = x17 in
    let CI.CPointer x16 = x15 in
    let CI.Static_funptr x14 = x12 x11 in
    let x13 = x14 in
    x20 (CI.make_ptr x19 (_31_ring_buffer__new x10 x13 x16 x18)))
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
  "bpf_tc_detach" ->
  (fun x21 x23 ->
    let CI.CPointer x24 = x23 in
    let CI.CPointer x22 = x21 in _30_bpf_tc_detach x22 x24)
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
  "bpf_tc_attach" ->
  (fun x25 x27 ->
    let CI.CPointer x28 = x27 in
    let CI.CPointer x26 = x25 in _29_bpf_tc_attach x26 x28)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)),
  "bpf_tc_hook_destroy" ->
  (fun x29 -> let CI.CPointer x30 = x29 in _28_bpf_tc_hook_destroy x30)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)),
  "bpf_tc_hook_create" ->
  (fun x31 -> let CI.CPointer x32 = x31 in _27_bpf_tc_hook_create x32)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function
          (CI.Primitive CI.Size_t,
           Function (CI.Primitive CI.Uint64_t, Returns (CI.Primitive CI.Int))))),
  "bpf_map__delete_elem" ->
  (fun x33 x35 x37 x38 ->
    let CI.CPointer x36 = x35 in
    let CI.CPointer x34 = x33 in _26_bpf_map__delete_elem x34 x36 x37 x38)
| 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.Uint64_t, Returns (CI.Primitive CI.Int))))))),
  "bpf_map__update_elem" ->
  (fun x39 x41 x43 x44 x46 x47 ->
    let CI.CPointer x45 = x44 in
    let CI.CPointer x42 = x41 in
    let CI.CPointer x40 = x39 in
    _25_bpf_map__update_elem x40 x42 x43 x45 x46 x47)
| 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.Uint64_t, Returns (CI.Primitive CI.Int))))))),
  "bpf_map__lookup_elem" ->
  (fun x48 x50 x52 x53 x55 x56 ->
    let CI.CPointer x54 = x53 in
    let CI.CPointer x51 = x50 in
    let CI.CPointer x49 = x48 in
    _24_bpf_map__lookup_elem x49 x51 x52 x54 x55 x56)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "bpf_map__fd" ->
  (fun x57 -> let CI.CPointer x58 = x57 in _23_bpf_map__fd x58)
| Function
    (CI.Pointer _,
     Function
       (CI.View {CI.ty = CI.Pointer _; write = x62; _},
        Returns (CI.View {CI.ty = CI.Pointer x65; read = x66; _}))),
  "bpf_object__find_map_by_name" ->
  (fun x59 x61 ->
    let CI.CPointer x64 = x62 x61 in
    let CI.CPointer x60 = x59 in
    let x63 = x64 in
    x66 (CI.make_ptr x65 (_22_bpf_object__find_map_by_name x60 x63)))
| Function (CI.Pointer _, Returns CI.Void), "bpf_object__close" ->
  (fun x67 -> let CI.CPointer x68 = x67 in _21_bpf_object__close x68)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "bpf_link__destroy" ->
  (fun x69 -> let CI.CPointer x70 = x69 in _20_bpf_link__destroy x70)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "bpf_link__unpin" ->
  (fun x71 -> let CI.CPointer x72 = x71 in _19_bpf_link__unpin x72)
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
  "bpf_link__pin" ->
  (fun x73 x75 ->
    let CI.CPointer x76 = x75 in
    let CI.CPointer x74 = x73 in _18_bpf_link__pin x74 x76)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "bpf_program__fd" ->
  (fun x77 -> let CI.CPointer x78 = x77 in _17_bpf_program__fd x78)
| Function
    (CI.Pointer _, Returns (CI.View {CI.ty = CI.Pointer x81; read = x82; _})),
  "bpf_program__attach" ->
  (fun x79 ->
    let CI.CPointer x80 = x79 in
    x82 (CI.make_ptr x81 (_16_bpf_program__attach x80)))
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
  "bpf_program__unpin" ->
  (fun x83 x85 ->
    let CI.CPointer x86 = x85 in
    let CI.CPointer x84 = x83 in _15_bpf_program__unpin x84 x86)
| Function
    (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
  "bpf_program__pin" ->
  (fun x87 x89 ->
    let CI.CPointer x90 = x89 in
    let CI.CPointer x88 = x87 in _14_bpf_program__pin x88 x90)
| Function (CI.Pointer _, Function (CI.Pointer _, Returns (CI.Pointer x95))),
  "bpf_object__next_program" ->
  (fun x91 x93 ->
    let CI.CPointer x94 = x93 in
    let CI.CPointer x92 = x91 in
    CI.make_ptr x95 (_13_bpf_object__next_program x92 x94))
| Function
    (CI.Pointer _,
     Function
       (CI.View {CI.ty = CI.Pointer _; write = x99; _},
        Returns (CI.View {CI.ty = CI.Pointer x102; read = x103; _}))),
  "bpf_object__find_program_by_name" ->
  (fun x96 x98 ->
    let CI.CPointer x101 = x99 x98 in
    let CI.CPointer x97 = x96 in
    let x100 = x101 in
    x103 (CI.make_ptr x102 (_12_bpf_object__find_program_by_name x97 x100)))
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "bpf_object__load" ->
  (fun x104 -> let CI.CPointer x105 = x104 in _11_bpf_object__load x105)
| Function
    (CI.View {CI.ty = CI.Pointer _; write = x107; _},
     Returns (CI.View {CI.ty = CI.Pointer x110; read = x111; _})),
  "bpf_object__open" ->
  (fun x106 ->
    let CI.CPointer x109 = x107 x106 in
    let x108 = x109 in x111 (CI.make_ptr x110 (_10_bpf_object__open x108)))
| Function
    (CI.View {CI.ty = CI.Funptr _; write = x113; _},
     Returns (CI.View {CI.ty = CI.Funptr x116; read = x117; _})),
  "libbpf_set_print" ->
  (fun x112 ->
    let CI.Static_funptr x115 = x113 x112 in
    let x114 = x115 in x117 (CI.make_fun_ptr x116 (_9_libbpf_set_print x114)))
| Function
    (CI.View {CI.ty = CI.Primitive CI.Uint32_t; write = x119; _},
     Returns (CI.View {CI.ty = CI.Pointer x121; read = x122; _})),
  "libbpf_bpf_prog_type_str" ->
  (fun x118 ->
    let x120 = x119 x118 in
    x122 (CI.make_ptr x121 (_8_libbpf_bpf_prog_type_str x120)))
| Function
    (CI.View {CI.ty = CI.Primitive CI.Uint32_t; write = x124; _},
     Returns (CI.View {CI.ty = CI.Pointer x126; read = x127; _})),
  "libbpf_bpf_map_type_str" ->
  (fun x123 ->
    let x125 = x124 x123 in
    x127 (CI.make_ptr x126 (_7_libbpf_bpf_map_type_str x125)))
| Function
    (CI.View {CI.ty = CI.Primitive CI.Uint32_t; write = x129; _},
     Returns (CI.View {CI.ty = CI.Pointer x131; read = x132; _})),
  "libbpf_bpf_link_type_str" ->
  (fun x128 ->
    let x130 = x129 x128 in
    x132 (CI.make_ptr x131 (_6_libbpf_bpf_link_type_str x130)))
| Function
    (CI.View {CI.ty = CI.Primitive CI.Uint32_t; write = x134; _},
     Returns (CI.View {CI.ty = CI.Pointer x136; read = x137; _})),
  "libbpf_bpf_attach_type_str" ->
  (fun x133 ->
    let x135 = x134 x133 in
    x137 (CI.make_ptr x136 (_5_libbpf_bpf_attach_type_str x135)))
| Function
    (CI.Primitive CI.Int,
     Function
       (CI.Pointer _,
        Function (CI.Primitive CI.Size_t, Returns (CI.Primitive CI.Int)))),
  "libbpf_strerror" ->
  (fun x138 x139 x141 ->
    let CI.CPointer x140 = x139 in _4_libbpf_strerror x138 x140 x141)
| Function
    (CI.Void, Returns (CI.View {CI.ty = CI.Pointer x143; read = x144; _})),
  "libbpf_version_string" ->
  (fun x142 -> x144 (CI.make_ptr x143 (_3_libbpf_version_string x142)))
| Function (CI.Void, Returns (CI.Primitive CI.Uint32_t)),
  "libbpf_minor_version" -> _2_libbpf_minor_version
| Function (CI.Void, Returns (CI.Primitive CI.Uint32_t)),
  "libbpf_major_version" -> _1_libbpf_major_version
| _, 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